<%@ Language = "VBScript" %> <% Option Explicit Dim cnnLogin Dim rstLogin Dim strUsername, strPassword Dim strSQL %> ScoreSmith.com: Client

ScoreSmith
 Client Login
HOMEAboutPortfolioAffiliatesContact
 
<% Else strSQL = "SELECT * FROM tblUser " _ & "WHERE Username='" & Replace(Request.Form("login"), "'", "''") & "' " _ & "AND Password='" & Replace(Request.Form("password"), "'", "''") & "';" Set cnnLogin = Server.CreateObject("ADODB.Connection") cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _ & "DBQ=" & Server.MapPath("db/scoresmith_users.mdb")) Set rstLogin = cnnLogin.Execute(strSQL) If Not rstLogin.EOF Then session("logged_in") = "true" Response.Redirect(rstLogin("URLRedirect")) Else %>

  Login Failed.
  Please verify username and password.

   Back to login

<% 'Response.End End If ' Clean Up rstLogin.Close Set rstLogin = Nothing cnnLogin.Close Set cnnLogin = Nothing End If %>
<% If Request.Form("action") <> "validate_login" Then %>

Please login to access your ScoreSmith materials.

Username:
Password: