Questions & Answers
Thousands of Tips
Personal Advice
Love Stories
Saying Sorry
Tales of the Ex
Back in Time
Vote in a Poll

Show Your Love
Create-a-Page
Love E-cards

Learn of Love
Forums
Ebooks
Quizzes
How Tos
What Is ...

Our Books
Irish Romance
Italian Romance
French Romance

SQLText = "update clients set curr_total = curr_total + .002 where client_id = " & ClientID objCmd4.CommandText = SQLText objCmd4.Execute intRecords %> 'CHECK AD RUN OVER ' SQLText = "SELECT curr_total, client_amt from clients where client_id = " & ClientID AdStr.Open SQLText, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText if not AdStr.EOF then CliTTL = cLng(AdStr("curr_total")) CliDep = cLng(AdStr("client_amt")) 'STOP AD RUN IF OVER DEPOSIT' if CliTTL > (CliDep * 1.5) then SQLText = "update ads set ad_stat = 0 where client_id = " & ClientID objCmd4.CommandText = SQLText objCmd4.Execute intRecords %> SQLText = "update clients set client_stat = 'AUTODONE' where client_id = " & ClientID objCmd4.CommandText = SQLText objCmd4.Execute intRecords %> end if end if AdStr.close Set objCmd4 = Nothing set AdStr = Nothing %>





I'm sorry, we had a problem with the link you just followed. Please try another link below, and we should get this problem resolved sometime soon for you.



Are you new to RomanceClass? Check out our FAQs: