<% Dim RS, iDocID Set RS = Server.CreateObject("ADODB.RecordSet") If request("view") <> "false" then RS.Open "Select * from listing Where ID="& Request("id"), Conn, 3, 3 Else RS.Open "Select * from listing Where (i404id="& Request("id") &") AND (realtor="& iAgentID &")", Conn, 3, 3 End If If RS.Eof Then set rs = nothing Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open "Select * from listing Where ID="& Request("id"), Conn, 3, 3 If rs.eof then response.write "An Error Has Occured" End If End If If not rs.eof then iDocID = rs("id") %> <% response.write newurl%> <% If Request("view") <> "false" Then %> <% else %> << Return To Home <% end if %> <% dim straddress If NOT ISNULL(RS("address1")) Then straddress = RS("address1") End if If NOT ISNULL(RS("city")) Then straddress = straddress &", "& RS("city") End if If NOT ISNULL(RS("targetState")) Then straddress = straddress &", "& RS("targetState") End if %>
<%= RS("address1") %>, <% If RS("address2") <> "" Then %> <%= RS("address2") %>, <% End If %> <%= RS("city") %>, <%= RS("targetState") %>  <%= RS("zip") %> <% If RS("zip2") <> "" Then %> -<%= RS("zip2") %> <% End If %> - <% getCounty(RS("location")) %>
Listing Price: <%= formatcurrency(RS("price")) %>

<% dim bshowme bshowme = false %> <% If RS("pic1") <> "" Then %> <% bshowme = true %> " name="img_changer" border="0" alt="Click to enlarge" id="placeholder">

<% Else %>
<% End If %> Click on Image to Enlarge
 
 Listing ID: #<%= RS("i404id") %>  Bedrooms: <%IF NOT ISNULL(RS("beds")) THEN RESPONSE.WRITE RS("beds") %>  Square Feet: <%IF NOT ISNULL(RS("sqft")) THEN RESPONSE.WRITE RS("sqft") %>
 MLS ID: # <%IF NOT ISNULL(RS("mls")) THEN RESPONSE.WRITE RS("mls") %>  Full Baths: <%IF NOT ISNULL(RS("bath")) THEN RESPONSE.WRITE RS("bath") %>  Acres: <%IF NOT ISNULL(RS("lotsize")) THEN RESPONSE.WRITE RS("lotsize") %>
 Listing Date: <%= formatdatetime(RS("listingdate"), 2) %>  Partial Baths: <%IF NOT ISNULL(RS("halfbath")) THEN RESPONSE.WRITE RS("halfbath") %>  Year Built: <%IF NOT ISNULL(RS("yearbuilt")) THEN RESPONSE.WRITE RS("yearbuilt") %>

', 'smallMenu', 'toolbar=yes,scrollbars=yes,resizable=yes,menubar=yes,status=no,directories=no,location=no,width=700,height=500');return false;" value="Print" /> ', 'smallMenu', 'toolbar=no,scrollbars,resizable,menubar=no,status=no,directories=no,location=no,width=390,height=430');return false;" value="Send to a Friend" /> <% if rs("virtualURL") <> "" then %> ', 'smallMenu', 'toolbar=yes,scrollbars,resizable,menubar=yes,status=yes,directories=yes,location=yes,width=750,height=500');return false;" value="Virtual Tour!!" /> <% end if %>

Current Photos:

<% If RS("pic1") <> "" Then %> " class="FL_Links">Photo 1 - <% If NOT IsNull(RS("pic1desc")) Then response.write RS("pic1desc") %> <% Else %>
Photo 1
<% End If %>
<% If RS("pic4") <> "" Then %> " class="FL_Links">Photo 4 - <% If NOT IsNull(RS("pic4desc")) Then response.write RS("pic4desc") %> <% Else %>
Photo 4
<% End If %>
<% If RS("pic2") <> "" Then %> " class="FL_Links">Photo 2 - <% If NOT IsNull(RS("pic2desc")) Then response.write RS("pic2desc") %> <% Else %>
Photo 2
<% End If %>
<% If RS("pic5") <> "" Then %> " class="FL_Links">Photo 5 - <% If NOT IsNull(RS("pic5desc")) Then response.write RS("pic5desc") %> <% Else %>
Photo 5
<% End If %>
<% If RS("pic3") <> "" Then %> " class="FL_Links">Photo 3 - <% If NOT IsNull(RS("pic3desc")) Then response.write RS("pic3desc") %> <% Else %>
Photo 3
<% End If %>
<% If RS("pic6") <> "" Then %> " class="FL_Links">Photo 6 - <% If NOT IsNull(RS("pic6desc")) Then response.write RS("pic6desc") %> <% Else %>
Photo 6
<% End If %>
<% Dim RSdocs Set RSdocs = Server.CreateObject("ADODB.RecordSet") RSdocs.Open "Select * from docs Where listing_ID="& iDocID &" order by doc_desc desc", Conn, 3, 3 If NOT RSdocs.eof then response.write "Documents:" response.write "" response.write "
There is a document(s) associated with this property. To view the document, please select if from the drop down list. You will be prompted to save the document(s) to your local computer.


" End If RSdocs.close Set RSdocs = nothing %>
 Agent Remarks
 Remarks:
 

<% If NOT IsNull(Rs("comments")) Then response.write RS("comments") End If %>

 

 


 Property Details
 Levels:   <%IF NOT ISNULL(RS("stories")) THEN RESPONSE.WRITE RS("stories") %>  Cooling Fuel:   <%IF NOT ISNULL(RS("cooling")) THEN RESPONSE.WRITE RS("cooling") %>
 Type:   <%IF NOT ISNULL(Rs("housetype")) THEN RESPONSE.WRITE RS("housetype") %>  Heating Fuel:   <%IF NOT ISNULL(Rs("heatingfuel")) THEN RESPONSE.WRITE RS("heatingfuel") %>
 Style:   <%IF NOT ISNULL(RS("style")) THEN RESPONSE.WRITE RS("style") %>  Water:   <%IF NOT ISNULL(RS("water")) THEN RESPONSE.WRITE RS("water") %>
 Parking:   <% If RS("parking") <> "" then %> <%= RS("parking") %> --- <%= RS("parkingspaces") %> space(s) <% End If %>  Sewer/Septic:   <%= RS("sewer") %>
 Water Access:   <%= RS("wateraccess") %>  Basement:   <%= RS("bbasement") %> <% If RS("bbasement")="Yes" Then %>  ---  <%= RS("basement") %> <% End If %>
 Heat:   <%= RS("heating") %>  Hot Water:   <%= RS("hotwater") %>
<% Dim strBroker, strBrokerphone, RSBroker, strAgent, strAgentPhone Set RSBroker = Conn.execute("Select broker, brokernumber, firstname, lastname, phone from realtors where id="& rs("realtor") &"") strBroker = RSBroker("broker") strBrokerPhone = RSBroker("brokernumber") strAgentPhone = RSBroker("phone") strAgent = RSBroker("firstname") & " "& RSBroker("lastname") RSBroker.close set RSBroker = nothing %>
 Additional Information
 Agent Name:   <%= strAgtName %>    Total Taxes:   <%IF NOT ISNULL(RS("taxes")) Then response.write formatcurrency(RS("taxes")) %>
 Agent Phone:   <%= strAgtPhone %>  HOA Fees:   <% IF NOT ISNULL(RS("hoadues")) Then response.write formatcurrency(RS("hoadues")) %>
 Broker:   <%IF NOT ISNULL(strBroker) Then response.write strBroker %>  Ownership:   <%IF NOT ISNULL(RS("ownership")) Then response.write RS("ownership") %>
 Broker Office:   <%IF NOT ISNULL(strBrokerPhone) Then response.write strBrokerPhone %>  Condo Dues:   <%IF NOT ISNULL(RS("condofees")) Then response.write formatcurrency(RS("condofees")) %>

 Directions to Listings
 Directions:
  <% If NOT isNull(RS("directions")) then response.write RS("directions") End If %>  

  Mortgage Estimation Calculator
List Price: size=10 maxLength=11> Interest Rate:
Down Payment Percent: Monthly Principal & Interest:
Based on 30 year fixed loan
Loan Amount: size=10 maxLength=11>


The following payment calculation does not include a monthly escrow amount for property taxes, home owners’ insurance, assessments, mortgage insurance, etc. Consult with one of my recommended loan officers for a more detailed estimation.

  ', 'smallMenu', 'toolbar=yes,scrollbars=yes,resizable=yes,menubar=yes,status=no,directories=no,location=no,width=700,height=500');return false;" value="Print"> ', 'smallMenu', 'toolbar=no,scrollbars,resizable,menubar=no,status=no,directories=no,location=no,width=390,height=430');return false;" value="Send to a Friend">
">
<% End If RS.Close Set RS = nothing If bGotIn = True then %> <% end if %> <% If bshowme = true Then %> <% end if %>