% option explicit Response.Buffer = true session("administrator_id") = "" dim conn dim ssql dim verify_rs dim sUsername dim sPassword %>
<% sUsername = Request.Form("administrator_username") sPassword = lcase(Request.Form("administrator_password")) ssql = "select * from tbl_administrator where administrator_username ='" & sUsername & "'" set verify_rs = server.CreateObject("ADODB.Recordset") verify_rs.Open ssql,conn,3,3 if verify_rs.EOF then session("company_id") = "" Response.Write ("") Response.Write (" CLICK HERE TO RETRY CLICK HERE TO RETRY |