Salvation Admin

See You at the Pole

<%@ Language=VBScript %> <% dim warning, reset if Request.Form("login") <> "" then sql = "select * from users where user_name = '" & Request.Form("user_name") & "'" formPass=Request.Form("user_pass") sentPass=hex_md5(formPass) set rs = session("conn").execute (Sql) 'Response.Write sentPass if not rs.eof then reset = trim(rs("user_pwreset")) if reset > 0 then Response.Redirect "pwreset.asp?warn=Your password has expired&uname=" & rs("user_name") elseif formPass = rs("user_pass") then 'Response.Write "Part 2" Response.Redirect "pwreset.asp?warn=We now require encrypted passwords&uname=" & rs("user_name") 'Response.Redirect "changepw.asp" elseif sentPass = rs("user_pass") then 'Response.Write "Part 3" Session("user") = Request.Form("user_name") Session("who") = rs("user_fname") & " " & rs("user_lname") Session("auth_level") = rs("user_access") session("loggedin") = "true" 'sql = "insert demolog (username,date) values('" & Request.Form("username") &"','" & date() & "')" 'session("conn").execute(sql) Response.Redirect "index.asp" else 'Response.Write "Part 4" warning = "Invalid Username or Password" end if else warning = "Invalid Username or Password" end if end if %>

<%=warning%>

Username

Password

Login using your assigned username and password. Please do not attempt to
login unless you are a licensed United Prayer Parnter Leader.

In you have questions contact: John Carle  

 

 

 

 

 

 

 

Terms and Conditions · Privacy
© Copyright 2007 Christian Belief