Links

Adjuster Login
<%@ Language=VBScript %> <% Dim rs Dim sUserID Dim sPass Dim sSQL Dim iRet Dim sMessage Dim sUserNum Dim sUserType if Request.QueryString("validate") = "true" then dbconnect() sUserID = Request.Form("userid") sPass = Request.Form("password") sSQL = "SELECT password,user_num, usertype from tbl_user where userid = '" & sUserID & "'" set rs = Server.CreateObject("ADODB.recordset") rs.Open sSQL, Connection with rs if rs.EOF = true then iRet = 1 else if sPass = rs(0) then iRet = 3 sUserNum = rs(1) sUserType = rs(2) else iRet = 2 end if end if end with rs.close set rs = nothing select case iRet case 1 sMessage = "Invalid User ID." case 2 sMessage = "Invalid Password." case 3 Session("userid") = sUserID Session("UserNum") = sUserNum Session("UserType") = sUserType Response.Redirect ("main.asp") Response.End end select end if %>