problema con loop[code]

[bbgol]

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
%>

[optime]

l'errore è in questo blocco. indenta il codice e lo vedi

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

[bbgol]

lo so ke il problema è qui ma non capisco dove

[optime]

hai indentato il codice? è lampante!

[bbgol]

scusa la mia ignoranza ma non so cosa significa indendare

[optime]

indenTare=aggiungere dei rientri per aumentare la leggibilità del codice

IF a=b THEN
c=1
END IF

non è indentato

IF a=b THEN
   c=1
END IF

è indentato, e si legge moooooolto meglio. nel caso del tuo codice, poi...

[bbgol]

vabbè so piccolezze ma l'errore dove è?

[optime]

Originariamente inviato da bbgol
vabbè so piccolezze ma l'errore dove è?

contento tu. io il metodo per trovare l'errore te l'ho indicato.