Fido Friendly Magazine Travel Club

<% Option Explicit Response.Buffer = True %> <% If Len(Session("userid")) > 0 Then Response.Redirect "mem_search.asp" End If %> Fido Friendly Magazine Travel Club :: Member's Area

<% Dim bCheck bCheck = True If Len(Trim(Request("submit"))) > 0 Then Dim objData, rc Set objData = New Data Set rc = objData.CreateRCPage("SELECT * FROM tblUSER WHERE UserName = '" & Trim(Request("username")) & "' AND UserPass = '" & Trim(Request("password")) & "';",objData.ConnectUser()) If rc.eof Or rc.bof Then bCheck = False Else rc.MoveFirst Session("userid") = rc("UserName") Response.Redirect "mem_search.asp" End If End If If Len(Session("userid")) < 1 Then %>

<% If bCheck = False Then Response.Write " Please enter in your user name and password again " Else Response.Write " Please log in " End If %>
User
Password

<% End If %>