Striped Fish2 Posted March 9, 2011 Share Posted March 9, 2011 Okay it says there is a loop without do, but I have do in the code in the correct format so I am confused. Here is the error and code:Error Microsoft VBScript compilation error '800a040e''loop' without 'do'/LoginCharacter.asp, line 121loop^ Code: <%dim IDID=Request.querystring("ID")%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT Name FROM Characters WHERE ID = " & ID & "", conndo until rs.EOF for each x in rs.Fields Response.Cookies("usernamechar")="" & x.value & "" next rs.MoveNextlooprs.closeconn.close%><%usernamechar=Request.Cookies("usernamechar")%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT [last-logged] FROM Characters WHERE Name = '" & usernamechar & "'", conndo until rs.EOF for each x in rs.Fields dim lastlogged lastlogged=x.value next rs.MoveNextlooprs.closeconn.close%><%dim newturnsnewturns=DateDiff("h",lastlogged,Now())set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT Turns FROM Characters WHERE Name = '" & usernamechar & "'", conndo until rs.EOF for each x in rs.Fields dim turns turns=x.value next rs.MoveNextlooprs.closeconn.close%><%finalturns=newturns+turns%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"sql="UPDATE Characters SET Turns=" & finalturns & " WHERE Name = '" & usernamechar & "'"conn.Execute sql,Recordsaffectedconn.close%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"sql="UPDATE Characters SET [last-logged]=#" & NOW() & "# WHERE Name = '" & usernamechar & "'"conn.Execute sql,Recordsaffectedconn.close%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"sql="INSERT INTO Active_Users (Name,[Value],Last_moved)"sql=sql & " VALUES "sql=sql & "('" & usernamechar & "', 1, #" & NOW() & "#)"on error resume nextconn.Execute sql,recaffectedif err<>0 then Response.Write("error")else Response.Write("<h3>" & recaffected & " record added</h3>")end ifconn.close%><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT incombat FROM Characters WHERE ID = " & ID & "", conndo until rs.EOF for each x in rs.Fields dim incombat incombat="" & x.value & ""loop rs.closeconn.closeset conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT cRound FROM Characters WHERE ID = " & ID & "", conndo until rs.EOF for each x in rs.Fields dim cRound cRound=x.valueloop rs.closeconn.closeset conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT CombatID FROM Characters WHERE ID = " & ID & "", conndo until rs.EOF for each x in rs.Fields dim CombatID CombatID=x.valueloop rs.closeconn.closeIf incombat="YES" thenresponse.Cookies("currentpage")="Combat/combat.asp?lastincombat=1&round=" & cRound & "&ID=" & CombatID & ""response.redirect("gamewithchat.asp")Elseset conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open "C:\inetpub\wwwroot\DragonKwest.mdb"set rs = Server.CreateObject("ADODB.recordset")rs.Open "SELECT lsp FROM Characters WHERE ID = " & ID & "", conndo until rs.EOF for each x in rs.Fields dim location location="" & x.value & "" If newturns=0 then message="" Else message="%20" & newturns & "%20turns%20have%20been%20added%20to%20your%20account" End If Response.Cookies("currentpage")="" & location & "?message=" & message & "" response.redirect("gamewithchat.asp") next rs.MoveNext loop rs.closeconn.closeEnd If%> TIA Link to comment Share on other sites More sharing options...
justsomeguy Posted March 9, 2011 Share Posted March 9, 2011 I see several for loops that are not set up correctly. It's giving that error because it thinks the loop statement is part of the for loop, and there's no do statement inside the for. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.