<% '****************************************************************************** '* 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 blnSuccess, strErrorMessage,blnForm1,blnForm2,blnForm3 Dim strPostCode, strPassword, strUserType,strSuburbID,strRegionID,hdnCentreID ' Create objects Set objMember = New clsMember Set objDatabase = OpenDB() If Request.Querystring("id") <> "" Then SQLCentre = "SELECT * FROM CENTRE WHERE CentreID = " & Request.Querystring("id") 'response.write sql Set rs_UnitListingCentre = objDatabase.Execute(SQLCentre) If Not rs_UnitListingCentre.EOF Then Do Until rs_UnitListingCentre.EOF strCentreId = Trim(rs_UnitListingCentre("CentreId")) strCentreName = Trim(rs_UnitListingCentre("CentreName")) strAddress = Trim(rs_UnitListingCentre("AddressName")) strPhone = Trim(rs_UnitListingCentre("TelephonePhone")) strPostCode = Trim(rs_UnitListingCentre("PostCodeLcnt")) strSuburb = Trim(rs_UnitListingCentre("SuburbName")) strTests = Trim(rs_UnitListingCentre("SpecialisedTestsName")) strOperationHours = Trim(rs_UnitListingCentre("OperationHours")) strImageFileName = Trim(rs_UnitListingCentre("PublicMapImage")) strDocFileName = Trim(rs_UnitListingCentre("PublicMapDoc")) If strAddress <> "" Then strAddress = replace(strAddress,Chr(13)&Chr(10),"
") End If If strTests <> "" Then strTests = replace(strTests,chr(13)&chr(10),"
") End If If strOperationHours <> "" Then strOperationHours = replace(strOperationHours,Chr(13)&Chr(10),"
") End If %>

Collection Centre Locator

<%=strCentreName%>

Click on the Image above to view Larger Image

Address

<%=strAddress%>

<%=strSuburb%>

<%=strPostCode%>

Phone

<%=strPhone%>

Hours of Operation

<%=strOperationHours%>

Special Tests

<%=strTests%>

<% rs_UnitListingCentre.MoveNext Loop %>

[Back]

<% End If %> <% Else If UCase(Request.Form("hdnSubmit")) = "YES" Then strPostCode = Trim(Request.Form("postcode")) blnForm1= "true" End If If UCase(Request.Form("hdnSubmit2")) = "YES" Then strRegionID = Trim(Request.Form("Region")) blnForm2= "true" End If If UCase(Request.Form("hdnSubmit3")) = "YES" Then strSuburbID = Trim(Request.Form("ALL")) blnForm3= "true" End If If UCase(Request.Form("hdnSubmit")) = "YES" or UCase(Request.Form("hdnSubmit2")) = "YES" or UCase(Request.Form("hdnSubmit3")) = "YES" Then blnSuccess = "True" End If If UCase(Request.Form("hdnSubmit")) = "YES" Then If strPostCode = "" Then strErrorMsg = "Please Enter Postcode for Search." blnSuccess = "False" End If If strPostCode <> "" Then If NOT IsNumeric(Replace(strPostCode," ","")) Then strErrorMsg = "Please enter number for Postcode Field." blnSuccess = "False" End If End If End If %>

Collection Centres

<% If blnSuccess Then '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If blnForm1 Then Set objDatabase = OpenDB() Set objMember = New clsMember SQL = "SELECT TOP 5 * FROM POSTCODE_COLLECTION_CENTRE_POSTCODE WHERE PostCode = " & strPostCode & " ORDER BY DistanceQty" 'response.write sql Set rs_UnitListing = objDatabase.Execute(SQL) If Not rs_UnitListing.EOF Then %>

The following was found for the "<%=strPostCode%>" Postcode

<% Do Until rs_UnitListing.EOF strCentreID = Trim(rs_UnitListing("CentreId")) Sql1 = "Select * from Centre where centreId = " & strCentreId & " AND SiteType = 'QML'" Set rs_UnitListing1 = objDatabase.Execute(Sql1) If Not rs_UnitListing1.EOF Then Do Until rs_UnitListing1.EOF strCentreName = Trim(rs_UnitListing1("CentreName")) %>

<%=strCentreName%>

<% rs_UnitListing1.MoveNext Loop End If rs_UnitListing.MoveNext Loop %>

[Back]

<%Else %>

Your search returned no results.

[Back]

<%End If End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If blnForm2 Then Set objDatabase = OpenDB() Set objMember = New clsMember SQL = "SELECT * FROM CENTRE WHERE RegionID = " & strRegionID & " ORDER BY CentreName" 'response.write sql Set rs_UnitListing = objDatabase.Execute(SQL) If Not rs_UnitListing.EOF Then %>

The following Collection Centres were found.

<% Do Until rs_UnitListing.EOF strCentreID = Trim(rs_UnitListing("CentreId")) strCentreName = Trim(rs_UnitListing("CentreName")) %>

<%=strCentreName%>

<% rs_UnitListing.MoveNext Loop %>

[Back]

<% Else %>

Your search returned no results.

[Back]

<% End If End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If blnForm3 Then Set objDatabase = OpenDB() Set objMember = New clsMember SQL = "SELECT * FROM CENTRE WHERE CentreName = '" & strSuburbID & "' ORDER BY CentreName" 'response.write sql Set rs_UnitListing = objDatabase.Execute(SQL) If Not rs_UnitListing.EOF Then %>

The following Collection Centres were found.

<% Do Until rs_UnitListing.EOF strCentreID = Trim(rs_UnitListing("CentreId")) strCentreName = Trim(rs_UnitListing("CentreName")) %>

<%=strCentreName%>

<% count = count + 1 rs_UnitListing.MoveNext Loop If count = 1 Then response.redirect("/patient_information_collection_centres.asp?id=" + strCentreID) End if Else %>

Your search returned no results.

[Back]

<% End If %>

[Back]

<% End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Else %>

With over 200 Collection Centres spread throughout Queensland and northern New South Wales, this network ensures that we provide a convenient and comprehensive service to communities across the region. To identify a centre near you please select from one of the search parameters below.

<% End If %> <%End If%>