<% Option Explicit %>
<%
Response.Buffer = True
Dim rsCheckPassword
Dim strUsername
Dim strPassword
Dim blnAutoLogin
Dim lngUserID
Dim strReturnPage
blnAutoLogin = True
If Request.QueryString("ReturnPage") = "Topic" Then
strReturnPage = "display_forum_topics.asp?ForumID=" & CInt(Request.QueryString("ForumID")) & "&PagePosition=" & CInt(Request.QueryString("PagePosition"))
ElseIf Request.QueryString("ReturnPage") = "Thread" Then
strReturnPage = "display_topic_threads.asp?ForumID=" & CInt(Request.QueryString("ForumID")) & "&TopicID=" & CLng(Request.QueryString("TopicID")) & "&PagePosition=" & CInt(Request.QueryString("PagePosition"))
Else
strReturnPage = "default.asp"
End If
'Read in the users details from the form
strUsername = Request.Form("name")
strPassword = Request.Form("password")
If NOT strUsername = "" Then
Set rsCheckPassword = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblAuthor.Password, tblAuthor.Author_ID, tblAuthor.Login_cookie "
strSQL = strSQL & "FROM tblAuthor "
strSQL = strSQL & "WHERE tblAuthor.Username = '" & strUsername & "';"
rsCheckPassword.Open strSQL, strCon
If NOT rsCheckPassword.EOF Then
If strPassword = rsCheckPassword("Password") Then
lngUserID = CLng(rsCheckPassword("Author_ID"))
blnAutoLogin = CBool(rsCheckPassword("Login_cookie"))
Response.Cookies("Forum")("UserID") = lngUserID * 888888
If blnAutoLogin = True Then
Response.Cookies("Forum").Expires = Now() + 365
End If
Response.Redirect strReturnPage
End If
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckPassword = Nothing
%>
Login User
<%
If NOT strUsername = "" Then
%>
Sorry the Username or Password entered
is incorrect. Please try again.
