<% 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 %>

 


© 2003 Fido Friendly Magazine Travel Club :: Web Development by eCarbonated