il file legge nel database calcio due tabelle calendario e squadre...a questo punto fa il controllo sulla tabella calendario se rs("gc")>rs("gf") (gol in casa e gol fuori casa) allora controlla la corrispondente rs("casa") (squadra di casa) in rs1("squadre") quanto la trovi assegna +3 a rs1("punti") esistenti


mi da questo errore come mai?


Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/calcio.asp, line 30

Loop
^

questo è tutto il codice

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim Conn, strConn, Conn1, strConn1

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/calcio.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

SQL = "SELECT * FROM calendario"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn

strConn1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/calcio.mdb")
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open StrConn1

SQL1 = "SELECT * FROM squadre"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.Open SQL1, Conn1

%>
<%

Do Until rs.Eof = True
if rs("gc")>rs("gf") then
Do Until rs1.Eof = True
if rs("casa")=rs1("squadre") then
rs1("punti")=rs1("punti")+3
rs1.movenext
Loop
endif
rs.movenext
Loop
%>
<%
rs1.Close
set rs1 = Nothing
conn1.Close
set conn1 = Nothing
%>
<%
rs.Close
set rs = Nothing
conn.Close
Set conn = Nothing
%>