Please login to access applications
and forms. Your Login ID is your agent number; your Password is your
zip-code. If you have any questions, please e-mail
<%
dim rqLogN
dim rqPass
dim MyConn
dim MyLogN
dim SubName
set MyConn = server.CreateObject("ADODB.Connection")
if request("lg") > "" then
if request("ps") > "" then
rqLogN = request("lg")
rqPass = request("ps")
SQL_ST="Select * From agents where id = '" & rqLogN & "' and zip = '" & rqPass & "'"
MyConn.open "Provider=MSDASQL;Driver={MySQl};Server=customerdb.nuvox.net;Database=www_ahsi_net;UID=ahsiadm;PWD=jpQTrA4Y"
set MyLogN=MyConn.execute(SQL_ST)
if not MyLogN.eof then
Response.Redirect "AgentsPage.htm"
end if
Response.Redirect "AgentsPage.htm"
MyConn.Close
end if
end if
%>