Salve, spiego la situazione: io e i miei amici stiamo facendo un programmino di calcio manageriale online tra noi. Lo sto programmando in asp.
Nella pagina in cui si elencano i propri giocatori, c'è una parte di codice secondo il quale se qualcuno di questi è infortunato e la data dell'infortunio è antecedente alla data corrente, nell'update del database mi dovrebbe scalare i giorni intercorsi.

Lanciando lo script, nell'eventuale update, questo si comporta così:
1) mi scala i giorni solo sul primo dei giocatori elencati;
2) mi genera un errore "500 - Internal server error"...

Dove sbaglio?
Grazie mille in anticipo per la vostra disponibilità.

_______________________________
<%
varcdc=(Session("cdc"))


Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/VLMdb.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from squadre where cdc like '" & varcdc &"'"
Set RS=dbconn.Execute(sql)


varsqdr=rs("squadra")


Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("./mdb-database/VLMdb.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from giocatori where enabled like false and sqdr like '" & varsqdr &"' order by infortunio desc"
Set RS=dbconn.Execute(sql)


do while not rs.eof
response.write(rs("cogn"))
response.write("<br>")


varidgiocatore=(rs("id"))
varinfortunio=(rs("infortunio"))


if varinfortunio = 0 then
response.write("Giocatore in ottime condizioni!")
response.write("<br>")
else
vardataserver=(Date)
vardtinfortunio=(rs("dtinfortunio"))
varinfortunio=(rs("infortunio"))

response.write("Data dell'infortunio: ")
response.write(vardtinfortunio)
response.write("<br>")
response.write("Giorni di infortunio: ")
response.write(varinfortunio)
response.write("<br>")

Dim DataInfortunio
DataInfortunio = vardtinfortunio
Dim Differenza
Differenza = DateDiff("d", DataInfortunio, Date)

varnewinfortunio=varinfortunio-Differenza

response.write("Giorni di infortunio restanti: ")
response.write(varnewinfortunio)
response.write("<br>")
response.write("--------")
response.write("<br>")


sql="UPDATE giocatori SET infortunio = '" & varnewinfortunio & "', dtinfortunio= '" & vardataserver & "' WHERE id like '" & varidgiocatore &"'"


'response.write(sql)
'response.end
Set RS=dbconn.Execute(sql)
Set RS = Nothing
set dbconn = Nothing
end if


rs.movenext
loop


RS.Close
dbconn.Close
Set RS = Nothing
set dbconn = Nothing%>
___________________________________