<% '****************************************************************************** '* 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, strErrMsg,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")) strPostCode = Trim(rs_UnitListingCentre("PostCodeLcnt")) strSuburb = Trim(rs_UnitListingCentre("SuburbName")) strTests = Trim(rs_UnitListingCentre("SpecialisedTestsName")) strOperationHours = Trim(rs_UnitListingCentre("OperationHours")) strAddInfo = Trim(rs_UnitListingCentre("AdditionalInfoName")) strPhone = Trim(rs_UnitListingCentre("TelephonePhone")) strMapUrl = Trim(rs_UnitListingCentre("MapUrl")) & "" strThumbUrl = Trim(rs_UnitListingCentre("ThumbnailUrl")) & "" 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 IF len(strMapUrl) = 0 Then strMapUrl = strCentreId & ".pdf" end If IF len(strThumbUrl) = 0 Then strThumbUrl = strCentreId & ".jpg" end If %>

Collection Centres

Collection Centre Locator - <%=strCentreName%>

<% rs_UnitListingCentre.MoveNext Loop %>

	Click on the Image above to view Larger Image
Address <%=strAddress%> <%=strSuburb%> <%=strPostCode%>
Special Tests <%=strTests%>
Hours of Operation <%=strOperationHours%>
Additonal Info <%=strAddInfo%>
Phone Number <%=strPhone%>

[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 = 'Dorevitch'" 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%>

<% rs_UnitListing.MoveNext Loop %>

[Back]

<% Else %>

Your search returned no results.

[Back]

<% End If %>

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

To find your nearest collection centre you can search by either postcode, region or select a specific suburb from the complete listing of our collection centres.

<% End If %>

<%End If%>