<%@LANGUAGE="VBSCRIPT"%> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString valUsername=CStr(Request.Form("txtUsername")) redirectLoginSuccess="resourcecentre.asp" redirectLoginFailed="index.htm" If valUsername <> "" Then Dim objCommand Dim rs Dim mUserName Dim mPassword mUserName=CStr(Request.Form("txtUsername")) mPassWord=CStr(Request.Form("txtPassword")) Set objCommand = Server.CreateObject ("ADODB.Command") objCommand.ActiveConnection = strConnect objCommand.CommandText = "select * from userpassword where username='" & mUserName &"'" & "and password='" & mPassword & "'" objCommand.CommandType = AdCmdText Set rs = objCommand.Execute ' username and password match - this is a valid user If Not rs.EOF Or Not rs.BOF Then 'Response.write(rs("FirstName")) 'Response.write("Hello") Session("sessionUsername") = rs("FirstName") Session("AuthorisedUser") = True Response.Redirect(redirectLoginSuccess) ' else session("AuthorizedUser") = False Response.Redirect(redirectLoginFailed) End If RS.Close set RS = Nothing set objCommand = Nothing end if %> ohesouthwest - Student login
OHE Southwest. Distance Learning for Dental Nurses. Train for your NEBDN Certificate in Oral Health Education.

Oral Health Education for dental nurses
course aims
course details
workshops
assessment
our students
about us
contact us
Links
Student Resource Centre - Login

 

 

 

 

 

home
ohesouthwest - Resource Centre
    
please log in....
 

username

password

    
 
© ohe southwest 2005