<%@Language=VBScript%> <% Response.Buffer=True Response.ExpiresAbsolute=Now()-1 Response.AddHeader "Cache-Control", "private" %> <% dim currentEdition, displayType currentEdition=left(MonthName(Month(date)),3)& " " & datepart("yyyy",date) dim strType, strDistrict, strStatus strType = Request.QueryString("Type") strDistrict = Request.QueryString("District") strStatus = trim(Request.Querystring("status")) %>

<% 'strSQL1="select PP.PropertyID,PP.WhatIsIt,PP.SummaryLocation,PS.PropertySectionName,PD.PropertyDistrictsName from Properties PP,PropertySections PS, PropertyDistricts PD where PP.PropertySectionID=PS.PropertySectionID and PP.PropertyDistrictsID=PD.PropertyDistrictsID order by PropertyID desc" Dim strSQL1 strSQL1="select distinct PP.PropertySectionID, PS.PropertySectionName from Properties PP,PropertySections PS where PP.PropertySectionID=PS.PropertySectionID and PP.List = 'on' order by PropertySectionID asc" Dim objRSSection Set objRSSection=Server.CreateObject("ADODB.Recordset") objRSSection.Open strSQL1, objConn Do While not objRSSection.EOF dim SectionID SectionID= objRSSection("PropertySectionID") Dim strSQL2 strSQL2="select distinct PP.PropertyDistrictsID, PD.PropertyDistrictsName from Properties PP, PropertyDistricts PD where PP.PropertyDistrictsID = PD.PropertyDistrictsID and PP.PropertySectionID = " & SectionID & " and PP.List = 'on' order by PP.PropertyDistrictsID asc" Dim objRSDistrict Set objRSDistrict=Server.CreateObject("ADODB.Recordset") objRSDistrict.Open strSQL2, objConn Response.Write "" Do While not objRSDistrict.EOF response.write "" objRSDistrict.MoveNext Loop objRSSection.MoveNext Loop %> " response.write objRSSection("PropertySectionName") 'response.write SectionID Response.Write " " response.write objRSDistrict("PropertyDistrictsName") & "	<%if strType <> "" and strDistrict <> "" then%> <%elseif strStatus="success" then%> <%else%> <%end if%>	<% 'Default allAdverts Dim strGetAdvert,objRSGetAdvert strGetAdvert="SELECT * from adverts where advertActive='yes' and sectionID = '36'" Set objRSGetAdvert=Server.CreateObject("ADODB.Recordset") objRSGetAdvert.Open strGetAdvert, objConn response.write "" Do While not objRSGetAdvert.EOF response.write "" if objRSGetAdvert("AdvertLogo") <> "" then response.write "" end if response.write "" objRSGetAdvert.MoveNext Loop response.write " " & objRSGetAdvert("AdvertTitle") & " " if objRSGetAdvert("AdvertLogoLink") <> "" then response.write "" end if response.write "" if objRSGetAdvert("AdvertLogoLink") <> "" then response.write "" end if response.write " " & objRSGetAdvert("AdvertCopy") & " " objRSGetAdvert.Close set objRSGetAdvert= nothing %> <% 'Section specific adverts Dim strGetAdvert9,objRSGetAdvert9 strGetAdvert9="SELECT * from adverts where advertActive='yes' and sectionID = '" & section & "'" Set objRSGetAdvert9=Server.CreateObject("ADODB.Recordset") objRSGetAdvert9.Open strGetAdvert9, objConn response.write "" Do While not objRSGetAdvert9.EOF response.write "" if objRSGetAdvert9("AdvertLogo") <> "" then response.write "" end if response.write "" objRSGetAdvert9.MoveNext Loop response.write " " & objRSGetAdvert9("AdvertTitle") & " " if objRSGetAdvert9("AdvertLogoLink") <> "" then response.write "" end if response.write "" if objRSGetAdvert9("AdvertLogoLink") <> "" then response.write "" end if response.write " " & objRSGetAdvert9("AdvertCopy") & " " objRSGetAdvert9.Close set objRSGetAdvert9= nothing %>
	© 2003 - Copyright Mauritius-News.co.uk. All rights reserved - Editor: Peter Chellen	Site by an

<% objRSSection.Close set objRSSection= nothing objRSDistrict.Close set objRSDistrict= nothing objConn.Close set objConn=nothing %>