Script che va sempre in Time Out

[webromeo]

Ciao a tutti,

ho il seguente script che va sempre in Time Out e non riesco a capire dove sbaglio. Qualche procedura gira all'infinito, ma quale ?

Alla fine esce sempre il messaggio:

Tipo di errore:
Active Server Pages, ASP 0113 (0x80004005)
Il tempo massimo disponibile per l'esecuzione di uno script è stato superato. Per modificare tale limite di tempo, impostare la proprietà Server.ScriptTimeOut sul valore desiderato o modificarne direttamente il valore utilizzando gli strumenti di amministrazione di IIS.

Ho provato ad aumentare il tempo di Time Out ma non cambia niente.

<%
strConn = "cavigliano"
Const SQUADRA = 0
Const GIOCATE = 1
Const VINTE = 2
Const PAREGGIATE = 3
Const PERSE = 4
Const GOALFATTI = 5
Const GOALSUBITI = 6
Const DIFFERENZA = 7
Const PUNTI = 8
Dim classifica(11,8)
classifica(a, GIOCATE) = 0
classifica(b, GIOCATE) = 0
classifica(a, VINTE) = 0
classifica(b, VINTE) = 0
classifica(a, PAREGGIATE) = 0
classifica(b, PAREGGIATE) = 0
classifica(a, PERSE) = 0
classifica(b, PERSE) = 0
classifica(a, GOALFATTI) = 0
classifica(b, GOALFATTI) = 0
classifica(a, GOALSUBITI) = 0
classifica(b, GOALSUBITI) = 0
classifica(a, DIFFERENZA) = 0
classifica(b, DIFFERENZA) = 0
classifica(a, PUNTI) = 0
classifica(b, PUNTI) = 0
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strConn
Set objRec = Server.CreateObject("ADODB.Recordset")
sql = "SELECT txtSquadraCasa, txtSquadraOspite, numGoalCasa, numGoalOspite, numGiocata FROM tblCalendario20042005 WHERE numGiocata = 1"
objRec.open sql, strConn
Set objRec2 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tblSquadre2004"
objRec2.open sql, strConn
While NOT objREc.EOF
Do while objRec("txtSquadraCasa") = objRec2("txtSquadra")
a = objRec2("numPosizione")
Loop
Do while objRec("txtSquadraOspite") = objRec2("txtSquadra")
b = objRec2("numPosizione")
Loop
classifica(a, SQUADRA) = objRec("txtSquadraCasa")
classifica(b, SQUADRA) = objRec("txtSquadraOspite")
classifica(a, GIOCATE) = classifica(a, GIOCATE) + 1
classifica(b, GIOCATE) = classifica(b, GIOCATE) + 1
if objRec("numGoalCasa") > objRec("numGoalOspite") then
classifica(a, VINTE) = classifica(a, VINTE) + 1
classifica(b, VINTE) = classifica(b, VINTE) + 0
classifica(a, PAREGGIATE) = classifica(a, PAREGGIATE) + 0
classifica(b, PAREGGIATE) = classifica(b, PAREGGIATE) + 0
classifica(a, PERSE) = classifica(a, PERSE) + 0
classifica(b, PERSE) = classifica(b, PERSE) + 1
classifica(a, PUNTI) = classifica(a, PUNTI) + 3
classifica(b, PUNTI) = classifica(b, PUNTI) + 0
End if
if objRec("numGoalCasa") = objRec("numGoalOspite") then
classifica(a, PAREGGIATE) = classifica(a, PAREGGIATE) + 1
classifica(b, PAREGGIATE) = classifica(b, PAREGGIATE) + 1
classifica(a, PERSE) = classifica(a, PERSE) + 0
classifica(b, PERSE) = classifica(b, PERSE) + 0
classifica(a, VINTE) = classifica(a, VINTE) + 0
classifica(b, VINTE) = classifica(b, VINTE) + 0
classifica(a, PUNTI) = classifica(a, PUNTI) + 1
classifica(b, PUNTI) = classifica(b, PUNTI) + 1
End if
if objREc("numGoalCasa") < objRec("numGoalOspite") then
classifica(a, PERSE) = classifica(a, PERSE) + 1
classifica(b, PERSE) = classifica(b, PERSE) + 0
classifica(a, VINTE) = classifica(a, VINTE) + 0
classifica(b, VINTE) = classifica(b, VINTE) + 1
classifica(a, PAREGGIATE) = classifica(a, PAREGGIATE) + 0
classifica(b, PAREGGIATE) = classifica(b, PAREGGIATE) + 0
classifica(a, PUNTI) = classifica(a, PUNTI) + 0
classifica(b, PUNTI) = classifica(b, PUNTI) + 3
End if
classifica(a, GOALFATTI) = classifica(a, GOALFATTI) + objRec("numGoalCasa")
classifica(b, GOALFATTI) = classifica(b, GOALFATTI) + objRec("numGoalOspite")
classifica(a, GOALSUBITI) = classifica(a, GOALSUBITI) + objRec("numGoalOspite")
classifica(b, GOALSUBITI) = classifica(b, GOALSUBITI) + objRec("numGoalCasa")
classifica(a, DIFFERENZA) = classifica(a, DIFFERENZA) + objRec("numGoalCasa") - objRec("numGoalOspite")
classifica(b, DIFFERENZA) = classifica(b, DIFFERENZA) + objRec("numGoalOspite") - objRec("numGoalCasa")
objRec.MoveNext
Wend
objRec.close
Set objRec = Nothing
objREc2.close
Set objRec2 = Nothing
%>
<%
For i = 0 to i = 11
a = classifica(i, GIOCATE)
b = classifica(i, VINTE)
c = classifica(i, PAREGGIATE)
d = classifica(i, PERSE)
e = classifica(i, GOALFATTI)
f = classifica(i, GOALSUBITI)
g = classifica(i, DIFFERENZA)
h = classifica(i, PUNTI)
l = classifica(i, SQUADRA)
sql = "UPDATE tblClassifica20042005 SET numGiocate = '"&a&"' , numVinte = '"&b&"' , numPareggiate = '"&c&"' , numPerse = '"&d&"' , numGoalFatti = '"&e&"' , numGoalSubiti = '"&f&"' , numDifferenza = '"&g&"' , numPunti = '"&h&"' WHERE txtSquadra = "&l&";"
objConn.Execute(sql)
Next
objConn.close
Set objConn = Nothing
%>

[kluster]

esegui il loop ma non lo sposti

sql = "SELECT * FROM tblSquadre2004" 

objRec2.open sql, strConn,3,2 
RecordCountREC2 = objRec2.recordCount 
While NOT objREc.EOF 

   Do while objRec("txtSquadraCasa") = objRec2("txtSquadra") 
       a = objRec2("numPosizione") 
       objRec2.movenext 
   Loop 
   if RecordCountREC2 > 0 then objRec2.movefirst 
   Do while objRec("txtSquadraOspite") = objRec2("txtSquadra") 
       b = objRec2("numPosizione") 
       objRec2.movenext
   Loop