<% Response.Buffer = True %>
<%
Dim filesys,sortdata,Connect,sqlnew,sqlnew2,RS,RS2
If Request("MLS") <> "" then
sortdata = Request("MLS")
'Open the Houseview Database+++++++++++++++++++++++++++++++++
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\webroot\localuser\houseview\database\houseview.mdb;"
sqlnew = "Select * From Listings Where Listings.MLS = " & sortdata & " "
Set RS = Connect.execute(sqlnew)
sqlnew2 = "Select * From Agents Where Trim(Agents.RealitorAbb) = '" & Trim(RS.Fields("RealitorAbb")) & "' "
Set RS2 = Connect.execute(sqlnew2)
'Open the Houseview Database+++++++++++++++++++++++++++++++++
Dim strmls,strprice,stragent,strLocation,strdesc,strbed,strbath,straddress
Dim stragentfirst,stragentlast,strrealitorabb,strrealitordesc,strgrouping,stremail,strbus,strres,strpgr
Dim stragentaddress,stragentcity,stragentstate,stragentzip
strmls = RS.Fields("MLS")
strprice = RS.Fields("price")
stragent = RS.Fields("RealitorAbb")
strLocation = RS.Fields("Location")
straddress = RS.Fields("address")
strdesc = RS.Fields("homedesc")
strbed = RS.Fields("Bdrm")
strbath = RS.Fields("Bthrm")
stragentfirst = RS2.Fields("AgentFirst")
stragentlast = RS2.Fields("AgentLast")
strrealitorabb = RS2.Fields("RealitorAbb")
strrealitordesc = RS2.Fields("realitordesc")
strgrouping = RS2.Fields("grouping")
stremail = RS2.Fields("email")
strbus = RS2.Fields("bus")
strres = RS2.Fields("res")
strpgr = RS2.Fields("pgr")
stragentaddress = RS2.Fields("address")
stragentcity = RS2.Fields("city")
stragentstate = RS2.Fields("state")
stragentzip = RS2.Fields("zip")
strsplitbilling = RS2.Fields("splitbilling")
stramount = Request("Amt")
Set filesys = Server.CreateObject("Scripting.FileSystemObject")
Dim imagename,picture
imagename = sortdata
picture = imagename & ".jpg"
If Trim(RS2.Fields("splitbilling")) = "Yes" AND Request("Invoice2") <> "yes" Then
splittrig = True
Else
splittrig = False
End if
End if
%>
<%=strtitle%>
<% If filesys.FileExists(Server.MapPath("/agents/agentlogos/" & Trim(strgrouping) & ".jpg")) Then %>
<% Else %>
<%=strrealitordesc%>
<% End if %>
Invoice: <%=Request("ID")%><% If Request("Report") = 2 OR Request("S") = "yes" Then Response.Write("S")%> <%=FormatCurrency(strprice,0,0)%> • MLS#: <%=strmls%> • <%=straddress%> • <%=strLocation%>, MO • <%=strbed%> Bed • <%=strbath%> Bath
Description Of Services:
<% If Request("Report") = 2 OR Request("S") = "yes" Then %>
<% If Request("DB") = "yes" Then %>
DUE AT CLOSING
<% Else %>
PROPERTY SOLD
<% End if %>
<%=FormatCurrency(Request("Amt"),0,0)%> <% If Request("DB") = "yes" Then Response.Write(" Due at ")%> Closing Fee.
Please Remit to:
HouseViewonline.com
722 Legion Dr.
Jackson, Mo 63755
<% ElseIf Request("Report") = 1 OR Request("S") <> "yes" Then
If Request("Invoice2") <> "yes" Then %>
Up Front Sitting Fee
<% Else %>
Office Sit Fee Portion
<% End if %>
<% If splittrig Then %>
<% If RS.Fields("Shoottype") = "2" Then %>
<%=FormatCurrency(Request("Amt")-10,0,0)%> Sitting Fee.
<% stramount = stramount-10 %>
<% Elseif RS.Fields("Shoottype") = "1" Then %>
$0 Sitting Fee.
<% End if %>
<% Else %>
<%=FormatCurrency(Request("Amt"),0,0)%> Sitting Fee.
<% End if %>
Please Remit to:
HouseViewonline.com
719 Legion Dr.
Jackson, Mo 63755
<%
End if
%>
<% If filesys.FileExists(Server.MapPath("/agents/agentpics/" & Trim(strrealitorabb) & ".jpg")) Then %>
" Height="133" width="100">
<% Else %>
MLS#: <%=strmls%>
<% End if %>
<%=stragentfirst & " " & stragentlast%>
<% If Trim(strbus) <> "" Then %>
<%=strbus%> Bus
<% End if %>
<% If Trim(strpgr) <> "" Then %>
<%=strpgr%> Cell
<% End if %>
<% If Trim(strres) <> "" Then %>
<%=strres%> Res
<% End if %>
<% If Trim(stremail) <> "" Then %>
<%=stremail%>
<% End if %>
<%=strrealitordesc%>
Please remit with your payment
invoice#
Invoice Date
MLS#
Address
Description
Amount
<%=Request("ID")%><% If Request("Report") = 2 OR Request("Report") = 5 OR Request("S") = "yes" Then Response.Write("S")%>
<%=FormatDateTime(Now(),2)%>
<%=strmls%>
<%=straddress%>, <%=strLocation%>, MO
<% If Request("Report") = 2 OR Request("S") = "yes" Then %>
<% If Request("DB") = "yes" Then Response.Write(" Due at ")%> Closing Fee
<% ElseIf Request("Report") = 1 OR Request("S") <> "yes" Then
If Request("Invoice2") <> "yes" Then %>
Up Front Sitting Fee
<% Else %>
Office sit fee Portion
<%
End if
End if %>
<%=FormatCurrency(stramount,0,0)%>
INVOICE Due Upon Reciept Invoice Prepared: <%=FormatDateTime(Now())%>, Added to Houseview on <%=FormatDateTime(Request("date"))%>
Please send check or money order to: HouseViewonline.com
719 Legion Dr.
Jackson, Mo 63755
You may now pay this invoice by Credit/Debit card! Just Call (573) 243-1977, Fax (573) 243-0029 or
complete and return this form with your information. We currently accept Visa/Mastercard or Check by phone.
VisaM/CCard#:Exp#:Signature
Thank You for using HouseViewOnline.com, We appreciate your Buisness!
<%=strrealitordesc%>
<% If Request("Invoice2") <> "yes" Then %>
Attn: <%=stragentfirst & " " & stragentlast%>
<% End if %>
<%=stragentaddress%>
<%=stragentcity%>, <%=stragentstate%> <%=stragentzip%>
%>.jpg)
<%=stremail%>
<% End if %>