% session("SID")=session.sessionID if session("logged")="" then session("logged")=false if not request("xUser") = "" and not request("xPassword") = "" then dim cn,qry set cn=server.CreateObject("ADODB.Connection") cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=G:\PleskVhosts\gdmig-VMSCONLINE.COM\httpdocs\access_db\Login.mdb" qry = "SELECT Username, Password " & _ "FROM Login " & _ "WHERE Username='" & trim(request("xUser")) & "' " & _ " AND Password='" & trim(request("xPassword")) & "'" set rs=cn.execute(qry) if not rs.eof then session("logged")=true end if end if %>