<%
if Request.QueryString("act")="login" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "mrca"
querystring = "SELECT * FROM forum_users WHERE username='" & Request("username") & "' and password='" & Request("password") & "'"
set RS = Conn.execute(querystring)
if not RS.EOF then
Session("user_id")=RS("id")
Session("user_guid")=RS("guid")
RS.Close
Conn.Close
Set Conn = nothing
Response.Redirect("forum_topics.asp")
end if
RS.Close
Conn.Close
Set Conn = nothing
end if
%>
MRCA
