tempo fa ho fatto questo:

<%
Dim SQL, pippo, ciccio, kiave

kiave=request.form("login")&"|"&request.form("pass word")

if kiave = "" then

response.redirect"vai dove vuoi"
else



strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("mdb-database/nomedatabase.mdb")
Set Conn=Server.CreateObject("ADODB.connection")

Conn.Open StrConn

SQL="SELECT * FROM logpas where kia="&"'"&kiave&"'"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, conn
if rs.eof<>false then
response.redirect"vai dove vuoi"
rs.close
set rs =nothing
conn.close
set conn = nothing


else
do until rs.eof =TRUE
popo=rs("kia")
vai=rs("pagina")

RS.MOVENEXT
loop
if popo= kiave then

server.Execute (vai)
rs.close
set rs =nothing
conn.close
set conn = nothing

else
response.redirect "vai dove vuoi"
rs.close
set rs =nothing
conn.close
set conn = nothing
end if
end if
end if
%>

secondo voi è da buttare?