<%@ Language=VBScript %>
<%
Dim submitted
ValidUser = true
submitted = request.form("submitted")
if (submitted) then
Dim name
Dim pwd
Dim con
Dim query
Dim rs
Dim un
Dim pw
Dim userName
Dim oldPass
set name = Request.Form("T1")
set pwd=Request.Form("T2")
Set adoCon = Server.CreateObject("ADODB.Connection")
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("intlroam.mdb") & ";Persist Security Info=False"
adoCon.Open connect
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Users where username = '" & name & "' and password ='" & pwd & "' and status='1';"
rs.Open strSQL, adoCon
if ( RS.EOF ) then
ValidUser = FALSE
else
Session("userName") = name
session("oldPass")=pwd
Session("logoff")=null
Response.Redirect("home.asp")
end if
end if
%>
PTA - Expert Group Forum
