<%
dim perc
perc=" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(" /csm/demo8/dati/daba.mdb" )
Set Conn = Server.CreateObject(" ADODB.Connection" )
conn.Open perc
Dim rs
Set rs = Server.CreateObject(" ADODB.Recordset" )
rs.Open " select * from utenti where userepass =' " &userepass&" ' " , conn
if rs.eof then Response.Redirect(" http://www.filoweb.it/utenti/inserisci.htm" )
Do while NOT RS.EOF
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>