%
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")) %>
', '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 "
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.
"
response.write "
"
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
%>
', '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 %>