fa na bella response va!
codice:
<%
Response.Write("<center>[img]img/chiudi.gif[/img]</center>")
dim conn
dim rs
User=Request.Form("username")
Pwd=Request.Form("pass")
Response.Write "User=" & User & "
"
Response.Write "password=" & pwd
Response.End 
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DBQ=" & Server.MapPath("users.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM tblUsers WHERE UserID='"&User&"'"

rs.Open SQL,conn
do while not rs.EOF
	Check_pwd=rs.Fields("Password")
	if (User="Admin") then
		If (Check_pwd=pwd) then 
			Response.Redirect("Admin.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End If
	ElseIf (User="longo") then
		If (check_pwd=pwd) then 
			Response.Redirect("Admin_longo.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End if
	End if
	rs.MoveNext
loop
rs.Close
Set rs=nothing
conn.Close
Set conn=nothing
%>