%option explicit%> <% '***define page vars********************************************************************************** dim rsLoginPupil, sqlLoginPupil, rsLoginCoach, sqlLoginCoach '***process login form******************************************************************************** if request.form("validateLogin") <> 0 then '***attempt to login to pupil account first******************************************************* set rsLoginPupil = server.CreateObject("adodb.recordset") sqlLoginPupil = "SELECT * FROM pupils WHERE username = '" & convertstring(trim(request.form("username"))) & "' and password = '" & convertstring(trim(request.form("password"))) & "'" rsLoginPupil.open sqlLoginPupil, dbConnect, 3, 3 if rsLoginPupil.recordcount <= 0 then '***account not found so attempt coach login************************************************ set rsLoginCoach = server.CreateObject("adodb.recordset") sqlLoginCoach = "SELECT * FROM coaches WHERE username = '" & convertstring(trim(request.form("username"))) & "' and password = '" & convertstring(trim(request.form("password"))) & "'" rsLoginCoach.open sqlLoginCoach, dbConnect, 3, 3 if rsLoginCoach.recordcount <= 0 then else '***log coach in and redirect to coach account home page*********************************************** session("coachLogin") = TRUE session("coachID") = rsLoginCoach("id") if rsLoginCoach("coachLevel") = 1 then response.redirect "hcAccount1.asp?id=" & rsLoginCoach("id") response.end else response.redirect "cAccount1.asp?id=" & rsLoginCoach("id") response.end end if end if '*********************************************************************************************** else '***log pupil in and redirect to pupil account home page**************************************** session("pupilLogin") = TRUE session("pupilID") = rsLoginPupil("id") response.redirect "pAccount1.asp?id=" & rsLoginPupil("id") response.end '*********************************************************************************************** end if end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||