Windows Scripting
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free Forums > System Administration > Windows Scripting
Reload this Page

"Loop" without "Do"

Discuss "Loop" without "Do" in the Windows Scripting forum on ASP Free.
"Loop" without "Do" Windows Scripting forum discussing WSH, WMI, Windows Script Components, HTML Applications (HTA), non-browser based VBScript, Jscript, and PowerShell. Learn how to create scripts for system automation, batch replacement, network logon, and more.

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
« Previous Thread | Next Thread »  
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old September 2nd, 2008, 09:22 AM
foreverforever foreverforever is offline
Contributing User
ASP Free Newbie (0 - 499 posts)
  
Join Date: Apr 2008
Posts: 128 foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level)foreverforever User rank is Captain (20000 - 30000 Reputation Level) 
Time spent in forums: 2 Days 22 h 40 m 34 sec
Reputation Power: 236
"Loop" without "Do"
Hi,

I'm getting a "Loop without Do" error message for this script.

I'm guessing that the problem is that if there's nothing to insert, then the script doesn't "Do" anything (except create a couple of recordsets). If this is correct, could someone please tell me what to do about it? If this is incorrect, then could someone please tell me where I'm going wrong?

vb Code:
Original - vb Code 
  1. Dim MM_lococon_STRING
  2. Dim rs_emails_not_created
  3.  
  4. MM_lococon_STRING = "driver={MySQL ODBC 3.51 Driver};option=16387;server=my_server_ip;user=my_u  sername;password=my_password;DATABASE=my_db;"
  5.  
  6. ' select all messages for which emails have not been created
  7. Set rs_emails_not_created = Wscript.CreateObject("ADODB.Recordset")
  8. rs_emails_not_created.ActiveConnection = MM_lococon_STRING
  9. rs_emails_not_created.Source = "SELECT loco_message.id AS message_id, loco_message.user_id AS sender_id, loco_message.send_option AS send_option loco_message.community_id AS community_id FROM loco_message WHERE loco_message.service_id='1' AND loco_message.emails_created='N'"
  10.  
  11. rs_emails_not_created.CursorType = 0
  12. rs_emails_not_created.CursorLocation = 2
  13. rs_emails_not_created.LockType = 1
  14. rs_emails_not_created.Open()
  15.  
  16. rs_emails_not_created_numRows = 0
  17.  
  18. if NOT rs_emails_not_created.EOF then
  19.     do while NOT rs_emails_not_created.EOF
  20.     
  21.     dim message
  22.     dim sender_id
  23.     dim message_id
  24.     dim send_option
  25.     dim community_id
  26.     
  27.     message=""
  28.     if NOT rs_emails_not_created.eof then
  29.         message=rs_emails_not_created("message")
  30.     end if
  31.     
  32.     sender_id=""
  33.     if NOT rs_emails_not_created.eof then
  34.         sender_id=rs_emails_not_created("sender_id")
  35.     end if
  36.     
  37.     message_id=""
  38.     if NOT rs_emails_not_created.eof then
  39.         message_id=rs_emails_not_created("message_id")
  40.     end if
  41.     
  42.     send_option=""
  43.     if NOT rs_emails_not_created.eof then
  44.         send_option=rs_emails_not_created("send_option")
  45.     end if
  46.     
  47.     community_id=""
  48.     if NOT rs_emails_not_created.eof then
  49.         community_id=rs_emails_not_created("community_id")
  50.     end if
  51.         
  52.     Set rs_recipient = Wscript.CreateObject("ADODB.Recordset")
  53.     rs_recipient.ActiveConnection = MM_lococon_STRING
  54.     rs_recipient.Source = "SELECT loco_keywords.keyword_id AS keyword_id, loco_keyword.user_id AS recipient_id, loco_keywords.keyword AS keyword, loco_keywords.receive_option AS receive_option FROM loco_keywords WHERE loco_keywords.service_id='1' AND loco_keywords.deleted='N' AND loco_keywords.user_id IN (SELECT loco_register.id FROM loco_register WHERE loco_register.user_conf='Y' AND loco_register.deleted='N') AND loco_keywords.user_id NOT IN (SELECT loco_register.id FROM loco_register WHERE loco_register.email_conf='N' AND loco_register.mobmail_conf='N') AND loco_keywords.user_id NOT IN (SELECT loco_blacklist.blacklisted_user_id FROM loco_blacklist WHERE loco_blacklist.user_id='"& sender_id &"' AND loco_blacklist.service_id='1' AND loco_blacklist.deleted='N') AND loco_keywords.user_id NOT IN (SELECT loco_blacklist.user_id FROM loco_blacklist WHERE loco_blacklist.blacklisted_user_id='"& sender_id &"' AND loco_blacklist.service_id='1' AND loco_blacklist.deleted='N') AND loco_keywords.user_id<>'"& sender_id &"'"
  55.     
  56.     rs_recipient.CursorType = 0
  57.     rs_recipient.CursorLocation = 2
  58.     rs_recipient.LockType = 1
  59.     rs_recipient.Open()
  60.     
  61.     rs_recipient_numRows = 0    
  62.     
  63.     if NOT rs_recipient.EOF then
  64.         do while NOT rs_recipient.EOF
  65.         
  66.         dim receive_option
  67.         dim recipient_id
  68.         dim keyword_id
  69.         dim keyword
  70.         
  71.         receive_option=""
  72.         if NOT rs_recipient.eof then
  73.             receive_option=rs_recipient("receive_option")
  74.         end if
  75.         
  76.         recipient_id=""
  77.         if NOT rs_recipient.eof then
  78.             recipient_id=rs_recipient("recipient_id")
  79.         end if
  80.         
  81.         keyword_id=""
  82.         if NOT rs_recipient.eof then
  83.             keyword_id=rs_recipient("keyword_id")
  84.         end if
  85.         
  86.         keyword=""
  87.         if NOT rs_recipient.eof then
  88.             keyword=rs_recipient("keyword")
  89.         end if
  90.         
  91.         if instr(1, lcase(message) , lcase(keyword)) > 0 then
  92.         
  93.             Set rs_email_log_exists = Wscript.CreateObject("ADODB.Recordset")
  94.             rs_email_log_exists.ActiveConnection = MM_lococon_STRING
  95.             rs_email_log_exists.Source = "SELECT id FROM loco_email_log WHERE loco_email_log.user_id='"& recipient_id &"' AND loco_email_log.keyword_id='"& keyword_id &"' AND loco_email_log.message_id='"& message_id &"'"
  96.     
  97.             rs_email_log_exists.CursorType = 0
  98.             rs_email_log_exists.CursorLocation = 2
  99.             rs_email_log_exists.LockType = 1
  100.             rs_email_log_exists.Open()
  101.     
  102.             rs_email_log_exists_numRows = 0
  103.     
  104.             if email_log_exists.EOF then
  105.         
  106.                 Set rs_MySQLDateTimeStringNOW = Wscript.CreateObject("ADODB.Recordset")
  107.                 rs_MySQLDateTimeStringNOW.ActiveConnection = MM_lococon_STRING
  108.                 rs_MySQLDateTimeStringNOW.Source = "SELECT NOW()+0"
  109.  
  110.                 rs_MySQLDateTimeStringNOW.CursorType = 0
  111.                 rs_MySQLDateTimeStringNOW.CursorLocation = 2
  112.                 rs_MySQLDateTimeStringNOW.LockType = 1
  113.                 rs_MySQLDateTimeStringNOW.Open()
  114.  
  115.                 rs_MySQLDateTimeStringNOW_numRows = 0
  116.         
  117.                 dim MySQLDateTimeStringNOW
  118.         
  119.                 MySQLDateTimeStringNOW=""
  120.                 if NOT rs_MySQLDateTimeStringNOW.eof then
  121.                     MySQLDateTimeStringNOW=rs_MySQLDateTimeStringNOW("NOW()+0")
  122.                 end if
  123.             
  124.                 Set rs_same_community = Wscript.CreateObject("ADODB.Recordset")
  125.                 rs_same_community.ActiveConnection = MM_lococon_STRING
  126.                 rs_same_community.Source = "SELECT loco_community.id FROM loco_community WHERE loco_community.deleted='N' AND loco_community.id IN (SELECT loco_membership.community_id FROM loco_membership WHERE loco_membership.community_id = '"& community_id &"' AND loco_membership.user_id='"& sender_id &"' AND loco_membership.service_id='1' AND loco_membership.deleted='N') AND loco_community.id IN (SELECT loco_membership.community_id FROM loco_membership WHERE loco_membership.community_id = '"& community_id &"' AND loco_membership.user_id='"& recipient_id &"' AND loco_membership.service_id='1' AND loco_membership.deleted='N')"
  127.     
  128.                 rs_same_community.CursorType = 0
  129.                 rs_same_community.CursorLocation = 2
  130.                 rs_same_community.LockType = 1
  131.                 rs_same_community.Open()
  132.  
  133.                 Set rs_friends_same_community = Wscript.CreateObject("ADODB.Recordset")
  134.                 rs_friends_same_community.ActiveConnection = MM_lococon_STRING
  135.                 rs_friends_same_community.Source = "SELECT loco_community.id FROM loco_community WHERE loco_community.deleted='N' AND loco_community.id IN (SELECT loco_membership.community_id FROM loco_membership WHERE loco_membership.community_id = '"& community_id &"' AND loco_membership.user_id='"& sender_id &"' AND loco_membership.service_id='1' AND loco_membership.deleted='N') AND loco_community.id IN (SELECT loco_membership.community_id FROM loco_membership WHERE loco_membership.community_id = '"& community_id &"' AND loco_membership.user_id='"& recipient_id &"' AND loco_membership.service_id='1' AND loco_membership.deleted='N') AND loco_community.id IN (SELECT loco_friend.community_id FROM loco_friend WHERE loco_friend.user_id='"& sender_id &"' AND loco_friend.friend_user_id='"& recipient_id &"' AND loco_friend.community_id='"& community_id &"' AND loco_friend.deleted='N') AND loco_community.id IN (SELECT loco_friend.community_id FROM loco_friend WHERE loco_friend.user_id='"& recipient_id &"' AND loco_friend.friend_user_id='"& sender_id &"' AND loco_friend.community_id='"& community_id &"' AND loco_friend.deleted='N')"
  136.     
  137.                 rs_friends_same_community.CursorType = 0
  138.                 rs_friends_same_community.CursorLocation = 2
  139.                 rs_friends_same_community.LockType = 1
  140.                 rs_friends_same_community.Open()
  141.     
  142.                 rs_friends_same_community_numRows = 0
  143.     
  144.                 Set rs_friends = Wscript.CreateObject("ADODB.Recordset")
  145.                 rs_friends.ActiveConnection = MM_lococon_STRING
  146.                 rs_friends.Source = "SELECT loco_community.id IN (SELECT loco_friend.community_id FROM loco_friend WHERE loco_friend.user_id='"& sender_id &"' AND loco_friend.friend_user_id='"& recipient_id &"' AND loco_friend.community_id='"& community_id &"' AND loco_friend.deleted='N') AND loco_community.id IN (SELECT loco_friend.community_id FROM loco_friend WHERE loco_friend.user_id='"& recipient_id &"' AND loco_friend.friend_user_id='"& sender_id &"' AND loco_friend.community_id='"& community_id &"' AND loco_friend.deleted='N')"
  147.     
  148.                 rs_friends.CursorType = 0
  149.                 rs_friends.CursorLocation = 2
  150.                 rs_friends.LockType = 1
  151.                 rs_friends.Open()
  152.     
  153.                 rs_friends_numRows = 0
  154.     
  155.                 Set rs_friends_friends = Wscript.CreateObject("ADODB.Recordset")
  156.                 rs_friends_friends.ActiveConnection = MM_lococon_STRING
  157.                 rs_friends_friends.Source = "SELECT loco_register.id FROM loco_register WHERE loco_register.id IN ((SELECT loco_register.id FROM loco_register WHERE loco_register.id IN (SELECT loco_friend.friend_user_id FROM loco_friend WHERE loco_friend.user_id='"& sender_id &"' AND loco_friend.deleted='N') AND loco_register.id IN (SELECT loco_friend.user_id FROM loco_friend WHERE loco_friend.friend_user_id='"& sender_id &"' AND loco_friend.deleted='N')) AND loco_register.id IN ((SELECT loco_register.id FROM loco_register WHERE loco_register.id IN (SELECT loco_friend.friend_user_id FROM loco_friend WHERE loco_friend.user_id='"& recipient_id &"' AND loco_friend.deleted='N') AND loco_register.id IN (SELECT loco_friend.user_id FROM loco_friend WHERE loco_friend.friend_user_id='"& recipient_id &"' AND loco_friend.deleted='N')))"
  158.     
  159.                 rs_friends_friends.CursorType = 0
  160.                 rs_friends_friends.CursorLocation = 2
  161.                 rs_friends_friends.LockType = 1
  162.                 rs_friends_friends.Open()
  163.     
  164.                 rs_friends_friends_numRows = 0
  165.         
  166.                 if send_option="2" and receive_option="2" then
  167.                     if NOT rs_same_community.EOF then
  168.                         Set MM_email_log_insertCmd = Wscript.CreateObject("ADODB.Command")
  169.                         MM_email_log_insertCmd.ActiveConnection = MM_lococon_STRING
  170.                         MM_email_log_insertCmd.CommandText = ("INSERT INTO loco_email_log (user_id, keyword_id, message_id, sent, timedate) VALUES ('"& recipient_id &"','"& keyword_id &"','"& message_id &"','N','"& MySQLDateTimeStringNOW &"')")
  171.                         MM_email_log_insertCmd.Execute
  172.                         MM_email_log_insertCmd.ActiveConnection.Close
  173.                     end if
  174.                 end if
  175.                         
  176.                 if send_option="2" and receive_option="3" then
  177.                     if NOT rs_friends_same_community.EOF then
  178.                         Set MM_email_log_insertCmd = Wscript.CreateObject("ADODB.Command")
  179.                         MM_email_log_insertCmd.ActiveConnection = MM_lococon_STRING
  180.                         MM_email_