<% blnSetup = Request.Form("setup") %> Forum-Setup Page <% set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString Name = Request.Form("Name") Password = Request.Form("Password") ReturnTo = Request.Form("ReturnTo") RequestMethod = Request.ServerVariables("Request_method") if RequestMethod = "POST" Then '## Forum_SQL strSql = "SELECT COUNT(*) AS ApprovalCode " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NAME = '" & Name & "' AND " strSql = strSql & " M_PASSWORD = '" & Password & "' AND " strSql = strSql & " M_LEVEL = 3" Set dbRs = my_Conn.Execute(strSql) If dbRS.Fields("ApprovalCode") = "1" and ChkQuoteOk(Name) and ChkQuoteOk(Password) Then %>

 

Login was successful!

<% Session(strCookieURL & "Approval") = "15916941253" %>

 

Click here to Continue.

<% Response.End %> <% else %>

There has been a problem !

"> <% End If Else Response.Redirect("default.asp") End If %>

You are not allowed access.

If you think you have reached this message in error, please try again.
Admin Login
UserName:
Password: