<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer WHERE User = '"&Request.Form("txtUser")&"' AND Password = '"&Request.Form("txtPassword")&"' "
Set objRec = Conn.Execute(strSQL)
If objRec.EOF Then
Response.write("Login Failed")
Else
Response.write("Welcome " & objRec.Fields("Name").Value)
End IF
%>