Scusate la mia ignoranza da novizio... ecco perchè vi kiedo aiuto e vi ringrazio per l'aiuto futuro (spero!) 
Ho creto una paginetta asp che dovrebbe cancellare i record presenti in un database la cui data è passata.
Lo script genera questo errore:
Microsoft VBScript compilation error '800a0400'
Expected statement
/Musica/M_concerti2.asp, line 56
<%rs.movenext
^
ke può essere?
Per completezza vi riporto lo script:
<%
Session.LCID=1040
%>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from concerti order by dataa"
Set RS=dbconn.Execute(sql)%>
<%response.write(date)
today=((Date))%>
<%do while not rs.eof
DataConcerto=(rs("dataa"))
if DataConcerto < today then
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="DELETE from concerti where dataa like '" & DataConcerto &"'"
response.write(sql)
response.end
'Set RS=dbconn.Execute(sql)
'Set RS = Nothing
'set dbconn = Nothing
else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
<%rs.movenext
loop%>

Ho creto una paginetta asp che dovrebbe cancellare i record presenti in un database la cui data è passata.
Lo script genera questo errore:
Microsoft VBScript compilation error '800a0400'
Expected statement
/Musica/M_concerti2.asp, line 56
<%rs.movenext
^
ke può essere?
Per completezza vi riporto lo script:
<%
Session.LCID=1040
%>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from concerti order by dataa"
Set RS=dbconn.Execute(sql)%>
<%response.write(date)
today=((Date))%>
<%do while not rs.eof
DataConcerto=(rs("dataa"))
if DataConcerto < today then
Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="DELETE from concerti where dataa like '" & DataConcerto &"'"
response.write(sql)
response.end
'Set RS=dbconn.Execute(sql)
'Set RS = Nothing
'set dbconn = Nothing
else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
<%rs.movenext
loop%>