<%
Name = ChkString(Request.Form("Name"), "name")
Password = ChkString(Request.Form("Password"), "password")
RequestMethod = Request.ServerVariables("Request_method")
IF RequestMethod = "POST" Then
'## Forum_SQL
strSql = "SELECT MEMBER_ID "
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 not(dbRS.EOF) and ChkQuoteOk(Name) and ChkQuoteOk(Password) Then
%>
Login was successful!
<% Session(strCookieURL & "Approval") = "15916941253" %>
<%
Response.Write "Click here to Access.
"
Response.Write "" & vbNewline
%>
<% Response.End %>
<% Else %>
There has been a problem!
You are not allowed access.
If you think you have reached this message in error, please try again.
<% End IF %>
<% Else %>
<% End IF %>
All Forums
Admin Login