<% Dim lRoomID(), sRoomName(), lFlooringID(), sFlooringName() lID = Request("ID") session("UpgradeId") = lID Response.Write session("UpgradeId") sSQL = "SELECT * FROM (REFlooring RIGHT JOIN (RERoom RIGHT JOIN (REExterior RIGHT JOIN" sSQL = sSQL & " (REAC RIGHT JOIN (((((REHeat RIGHT JOIN (REGarage RIGHT JOIN" sSQL = sSQL & " (REDriveway RIGHT JOIN REListing ON REDriveway.REDrivewayID = REListing.REDrivewayID)" sSQL = sSQL & " ON REGarage.REGarageID = REListing.REGarageID) ON REHeat.REHeatID = REListing.REHeatID)" sSQL = sSQL & " LEFT JOIN RERoof ON REListing.RERoofID = RERoof.RERoofID) LEFT JOIN" sSQL = sSQL & " RESewer ON REListing.RESewerID = RESewer.RESewerID) LEFT JOIN" sSQL = sSQL & " REStyle ON REListing.REStyleID = REStyle.REStyleID) LEFT JOIN" sSQL = sSQL & " REWater ON REListing.REWaterID = REWater.REWaterID) ON REAC.REACID = REListing.REACID)" sSQL = sSQL & " ON REExterior.REExteriorID = REListing.REExteriorID)" sSQL = sSQL & " ON (RERoom.RERoomID = REListing.REListingRoom8ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom7ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom6ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom5ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom4ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom3ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom2ID)" sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom1ID))" sSQL = sSQL & " ON (REFlooring.REFlooringID = REListing.REListingFlooring8ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring7ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring6ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring5ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring4ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring3ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring2ID)" sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring1ID))" sSQL = sSQL & " WHERE REListingID=" & lID Set rsRealEstate = objADO.Execute(sSQL) sSQL = "SELECT * FROM RERoom ORDER BY RERoomID" Set rsRoom = objADO.Execute(sSQL) Do While Not rsRoom.EOF n = n + 1 ReDim Preserve lRoomID(n), sRoomName(n) lRoomID(n) = rsRoom("RERoomID") sRoomName(n) = rsRoom("RERoomName") rsRoom.MoveNext Loop n = 0 sSQL = "SELECT * FROM REFlooring ORDER BY REFlooringID" Set rsFlooring = objADO.Execute(sSQL) Do While Not rsFlooring.EOF n = n + 1 ReDim Preserve lFlooringID(n), sFlooringName(n) lFlooringID(n) = rsFlooring("REFlooringID") sFlooringName(n) = rsFlooring("REFlooringName") rsFlooring.MoveNext Loop Function GetRoomName(n) For iCount = 1 to UBound(lRoomID) If n = lRoomID(iCount) Then GetRoomName = sRoomName(iCount) Exit Function End If Next End Function Function GetFlooringName(n) For iCount = 1 to UBound(lFlooringID) If n = lFlooringID(iCount) Then GetFlooringName = sFlooringName(iCount) Exit Function End If Next End Function %>

UPGRADE STANDARD LISTING TO FEATURED

You chose to upgrade your standard listing below to a featured listing for an additional cost of $<%= strUpgradeAdCost %>.

<%If Len(rsRealEstate("REListingImage")) > 0 Then If UCase(Left(rsRealEstate("REListingImage"),7))="HTTP://" Then%> " border="0" width="320" height="240">

<%Else%> " border="0" width="320" height="240"> <%End If Else%> <%End If%>

Date Listed: <%=rsRealEstate("REDateAdded")%>
Site Listing Id: <%=rsRealEstate("REListingId")%>
<%=rsRealEstate("REListingAddress1")%>
<%=rsRealEstate("REListingCity")%>, <%=rsRealEstate("REListingState")%> <%=rsRealEstate("REListingZip")%>
<% if rsRealEstate("REListingPrice") > "0" then %> <%= formatcurrency(rsRealEstate("REListingPrice"))%>
<% else %> Price was not listed
<% end if %>
Click on the "Buy Now" button to upgrade your listing:

We accept Visa and Mastercard payments securely through PayPal.

Thank you for listing with <%= strVarCompany %>!!