<% Dim objMember, intMember_id,loggedin ' Create objects Set objMember = New clsMember If objMember.CheckLogin(Session.SessionID, intUsers_ID) = false Then loggedin="false" Else loggedin = "" End If %>

Pathology Tests/Specimens

• Specimen Collection Information
• Alphabetical listing of pathology tests

Publications for Doctors

Publications for Your Patients

Professional Development & Journals

• CPD Events
• Library Services

Receiving Results

• Application for Downloading Results
• Contact Us

On-line Results Login

Ordering Pathology Based Products

<% '****************************************************************************** '* COPYRIGHT NOTICE * '****************************************************************************** '* Copyright 2003, Web Development Group Pty Ltd. All Rights Reserved * '* http://www.wdg.com.au info@wdg.com.au 03 9620 4111 * '****************************************************************************** '****************************************************************************** ' Name: Search Results ' Purpose: Welcome page for when a member has logged in ' ' Notes: ' ' $Header: /online/SONRAY/admin/index.asp 3 31/07/03 2:41p Struong $ '****************************************************************************** Response.Buffer = True ' Dim variables 'Dim objMember, intUsers_ID,objDatabase Set objDatabase = OpenDB() ' Create objects Set objMember = New clsMember %>

Online Results Login

<% If objMember.CheckLogin(Session.SessionID, intUsers_ID) = false Then Dim blnSuccess, strErrorMessage Dim strUsername, strPassword, strUserType ' Create objects Set objMember = New clsMember If UCase(Request.Form("hdnSubmit")) = "YES" Then '// get username and password from strUsername = Trim(Request.Form("parameterBuffer.userName")) strPassword = Trim(Request.Form("parameterBuffer.password")) strUserType = "Dorevitch" blnSuccess = objMember.Login(strUsername, strPassword, strUserType, Session.SessionID) If blnSuccess = false Then ' Login failed, create error message strErrorMessage = "Incorrect Username or Password. Please try again." End If End If If blnSuccess Then session("username") = Trim(Request.Form("parameterBuffer.userName")) session("password") = Trim(Request.Form("parameterBuffer.password")) SQL = "exec Get_Doctor_Details @username = '" & strUsername & "'" Set rs_UnitListing = objDatabase.Execute(SQL) Session("DRFirstname") = Trim(rs_UnitListing("FirstName")) Session("DRLastName") = Trim(rs_UnitListing("LastName")) Response.redirect "/Doctors_453.asp" Else %>

Please Enter your Username and Password to login:

<% End If else %>

If your online result screen has not launched, please Click Here

<% end if %>