Problema sql update

[Kosimo]

eccolo...

<%
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 &"'"

Set RS=dbconn.Execute(sql)

end if

rs.movenext
loop

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