scusate se per l'ennesima volta chiedo aiuto ma..

leggete qui e ditemi cosa sbaglio:

<%
dim Nome
Nome = request.form("Nome")

dim Cognome
Cognome = request.form("Cognome")

dim Data
Data = request.form("Data")

dim Luogo
Luogo = request.form("Luogo")

dim strCode
strCode="kikko"


Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db\db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

sql = "SELECT * FROM Tabella1"

if (Nome<>"") then
do while not rs.eof
exist=rs("Nome")

if (Nome = Exist) then
response.Write("giā presente")
end if
rs.movenext
loop
end if
conn.Close
Set conn = Nothing

if ( (Nome<>"") ) then

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db\db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn


rs.addnew
rs(1) = Nome
rs(2) = Cognome
rs(3) = Data
rs(4) = Luogo
rs.update

End If

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

response.Redirect("inserito.asp")
%>

..
bāh..io nn so'!
...e anke