quando accedo a questa pagina per inserire valori nel database, senza far nulla mi ritrovo un campo vuoto in più nel database. come se il codice si eseguisse da solo...come è possibile?

il codice è il seguente:

<%
Dim conn1, conta
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/bingo.mdb")
sql = "SELECT * FROM utenti"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql, conn1, 1, 3

conta=0
Do Until rs1.Eof = True
conta=conta+1
rs1.movenext
Loop

rs1.Close
set rs1 = Nothing
conn1.Close
Set conn1 = Nothing

if conta=60 then
Response.write("fine iscrizione, ritenta alla prossima mano")

else

response.write" <form method='post' name='form_user'>"
response.write" <table width='100%' border='0'>"
response.write" <tr>"
response.write" <td><div align='center'></div></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td><H1 align='center'><font size='2'>INSERISCI I DATI NEL DATABASE</font></H1>"
response.write" <table width='100' border='0' align='center'>"
response.write" <tr>"
response.write" <td>Nome</td>"
response.write" <td valign='top'>"
response.write" <input type='text' name='nome' id='nome'>"
response.write" </td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Cognome</td>"
response.write" <td valign='top'><input type='text' name='cognome' id='cognome'></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Indirizzo</td>"
response.write" <td valign='top'><input type='text' name='indirizzo' id='indirizzo'></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Citt&agrave;</td>"
response.write" <td valign='top'><input type='text' name='citta' id='citta'></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Provincia</td>"
response.write" <td valign='top'><input type='text' name='provincia' id='provincia'></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Email</td>"
response.write" <td valign='top'><input type='text' name='email' id='email'></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>Password</td>"
response.write" <td valign='top'><input type='text' name='password' id='password'></td>"
response.write" </tr>"
response.write" </table>"
response.write" <p align='center'>
"
response.write"
"
response.write" <input name='submit' type='submit' value='Iscriviti'>"
response.write" </p>"
response.write" </td>"
response.write" </tr>"
response.write" </table>"
response.write" </form>"


Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/bingo.mdb")
sql = "SELECT * FROM utenti WHERE email = '" & request.Form("email") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3


If rs.EOF then

rs.AddNew
rs("nome") = request.Form("nome")
rs("cognome") = request.Form("cognome")
rs("indirizzo") = request.Form("indirizzo")
rs("citta") = request.Form("citta")
rs("provincia") = request.Form("provincia")
rs("email") = request.Form("email")
rs("password") = request.Form("password")
rs("cartella") = conta+1
rs("totale") = 0
rs.Update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing


Else

Response.Write("User gi&aacute; esistente")
Response.End
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

End if


End if %>