Agent Login

<%@ Language=VBScript %> Agent Login

AGENT LOGIN

Password:

Login ID:

Welcome!

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 %>