<% '//////////// Receive Data ////////// usr=replace(request("usr"),"'","") pwd=replace(request("pwd"),"'","") if len(usr)>0 and len(pwd)>0 then set conn=server.createobject("ADODB.Connection") conn.open connection '/// Check Entered username and password psql="select * from xlaALSusers where usr='"&usr&"' and pwd='"&pwd&"'" set rs=conn.execute(psql) found=0 if not(rs.eof) then found=1 response.cookies("xlaALSadmin")("userid")=rs("userid") response.cookies("xlaALSadmin")("lvl")=rs("ulevel") response.cookies("xlaALSadmin")("alias")=rs("alias") response.cookies("xlaALSadmin")("msg")=rs("mywelcomemsg") end if rs.close set rs=nothing conn.close set conn=nothing if found=1 then response.redirect "ALSLivemonitor.asp?status=start" end if response.cookies("xlaALSadmin")("lvl")="" response.write "" %>