<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%Option explicit%>
<%
dim adocon,rs,Myself
dim UserInfo,flag
Myself = Request.ServerVariables("PATH_INFO")
set adocon=GetMdbConnection(DbLoc, DbPwd)
if request.form("uid")<>"" then
on error resume next
set UserInfo=new clsUser
With UserInfo
' .value=array(request.form("uid"),request.form("pwd"),_
' adocon,usrTable,loggingTable)
.uid=request.form("uid")
.pwd=request.form("pwd")
set .conn=adocon
.userTable=usrTable
.logTable=loggingTable
.logon
if err.number <>0 then
response.write err.source&" "
response.write err.description
'DisplayConErr adocon
response.end
end if
if .lstatus<>"" then
response.redirect "destination.asp"
end if
End With
end if
%>
