Prev: web site evaluation
Next: paging Joe Makowiec re database driven sites
From: RGolfer on 6 May 2008 15:37
Hi There, Hopeing for some direction here. What I am trying to do is have one
login page that basically looks at several tables. The next page uses a SHOW IF
variable if the username and password actually shows up in one of the tables.
The most common fields are email_address and password so I have used them. How
do I have the DW login function look at multiple tables. Is it an AND
connection or an OR or soemthing else. I have tried these with bad results.
Here is the code:

' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" +
Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("user_Race"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd

MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "enter.asp"
MM_redirectLoginFailed = "LoginMainRR.asp"

MM_loginSQL = "SELECT Email_Address, Password"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," &
MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM RACING_REG AND DRIFT_REG AND OFFROAD_REG
AND STREET_REG WHERE Email_Address = ? AND Password = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_toyoracer_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200,
1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200,
1, 255, Request.Form("pass_race")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") =
CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>

Any direction here would be appreciated .. either an answer or pointed to an
article someplace.

 | 
Pages: 1
Prev: web site evaluation
Next: paging Joe Makowiec re database driven sites