<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if Response.buffer = True Dim Connect,RecordSet,currentdesc,newhomedesc,dwStripe,strLine,totalitems,i,voyagerfile,strflagupdate Dim strproperdate,strproperyear,strpropermonth,strporperday Dim strsubprice,strsubmls,strsubstatus,jmail,stremailbody 'Capture Form data and process and Parse+++++++++++++++++ '++++++++++++++++++++++++++++++++++++++++++++++++++++++++ strLine = Trim(Request.Form("data")) strLine = Split(strLine, vbCrLf) totalitems = Ubound(strLine) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 'Capture Form data and process and Parse+++++++++++++++++ 'Open the Database------------------------------------------------------------------ Set Connect = Server.CreateObject("ADODB.Connection") MyFile = Server.MapPath("/Database/houseview.mdb") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyFile Set RecordSet = Connect.Execute("SELECT * FROM Listings ORDER BY Listings.MLS ASC") 'Open the Database------------------------------------------------------------------ 'Properly format the Date for database insertion------------------------------------ '----------------------------------------------------------------------------------- strproperyear = Year(date()) If Len(Month(date())) < 2 Then strpropermonth = "0" & Month(date()) Else strpropermonth = Month(date()) End if If Len(Day(date())) < 2 Then strporperday = "0" & Day(date()) Else strporperday = Day(date()) End if strproperdate = strproperyear & "/" & strpropermonth & "/" & strporperday '----------------------------------------------------------------------------------- 'Properly format the Date for database insertion------------------------------------ %>

<% Function GetCat(dCat,cCat) IF Int(dCat) < 100000 AND cCat < 4 Then GetCat = 1 ElseIf Int(dCat) > 100000 AND Int(dCat) < 200000 AND cCat < 4 Then GetCat = 2 ElseIf Int(dCat) > 200000 AND cCat < 4 Then GetCat = 3 Else GetCat = cCat End if End Function Function Formatidentifier(stridentifier,strstatus) Select case stridentifier Case "Sld" Formatidentifier = "Sold" Case "Wth" Formatidentifier = "Expired/Withdrawn" Case "Yes" Formatidentifier = "Pending" Case "No" Formatidentifier = "Active" End Select End Function If Not RecordSet.BOF Then RecordSet.MoveFirst Do While Not RecordSet.EOF For i = 0 to totalitems - 1 step 1 strsubline = Split(strLine(i),VbTab) '----debug--------------------------------------------------------------- 'Response.Write(strLine(i) & " ") '-------Entire array----- 'Response.Write(" " & strsubline(0) &" ") '-------White Space------ 'Response.Write(" " & strsubline(1) &" ") '-------Price------------ 'Response.Write(" " & strsubline(2) &" ") '-------MLS-------------- 'Response.Write(" " & strsubline(3) &" ") '-------Status----------- 'strsubprice = strsubline(1)--------------------------------------------- 'strsubmls = strsubline(2)----------------------------------------------- 'strsubstatus = strsubline(3)-------------------------------------------- '----debug--------------------------------------------------------------- 'Array for colums of export file---------- '----------------------------------------- strsubprice = strsubline(1) strsubmls = strsubline(2) strsubstatus = strsubline(3) '----------------------------------------- 'Array for colums of export file---------- If Trim(strsubmls) = Trim(Recordset.Fields("MLS")) AND IsNumeric(strsubprice) Then strflagupdate = False '---------------------------------------------------------------------------------------------- 'Change this Section for Falgs and how to update database-------------------------------------- '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ IF Instr(1,UCase(strsubstatus), "SOLD",1) Then strmarker = "Sld" strsldatemarker = strproperdate newhomedesc = " SOLD/EXPIRED/WITHDRAWN " & FormatDateTime(now,1) & "" ElseIF Instr(1,UCase(strsubstatus), "WITHDRAWN",1) Then strmarker = "Wth" strsldatemarker = strproperdate newhomedesc = " SOLD/EXPIRED/WITHDRAWN " & FormatDateTime(now,1) & "" ElseIF Instr(1,UCase(strsubstatus), "EXPIRED",1) Then strmarker = "Wth" strsldatemarker = strproperdate newhomedesc = " SOLD/EXPIRED/WITHDRAWN " & FormatDateTime(now,1) & "" ElseIF Instr(1,UCase(strsubstatus), "PENDING",1) Then strmarker = "No" strsldatemarker = "" newhomedesc = Trim(Replace(Recordset.Fields("HomeDesc"),"'","''")) ElseIF Instr(1,UCase(strsubstatus), "ACTIVE",1) Then strmarker = "No" strsldatemarker = "" newhomedesc = Trim(Replace(Recordset.Fields("HomeDesc"),"'","''")) ElseIF Instr(1,UCase(strsubstatus), "CONTINGENT",1) Then strmarker = "No" strsldatemarker = "" newhomedesc = Trim(Replace(Recordset.Fields("HomeDesc"),"'","''")) ElseIF Instr(1,UCase(strsubstatus), "OPTION",1) Then strmarker = "No" strsldatemarker = "" newhomedesc = Trim(Replace(Recordset.Fields("HomeDesc"),"'","''")) Else strmarker = "No" strsldatemarker = "" newhomedesc = Trim(Replace(Recordset.Fields("HomeDesc"),"'","''")) End if '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 'Change this Section for Falgs and how to update database-------------------------------------- '---------------------------------------------------------------------------------------------- if dwStripe = "#ffffff" then dwStripe = "#e5e5ca" else dwStripe = "#ffffff" end if Response.Write(" " & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) If Trim(Recordset.Fields("pending")) <> strmarker Then Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & Formatidentifier(Recordset.Fields("pending"),strsubstatus) & "" & chr(13) strflagupdate = True Else Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & Formatidentifier(Recordset.Fields("pending"),strsubstatus) & "" & chr(13) End if If FormatCurrency(strsubprice,0,0) <> FormatCurrency(Recordset.Fields("price"),0,0) Then Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) strflagupdate = True Else Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) End if Response.Write("" & chr(13)) stremailbody = stremailbody & "" & chr(13) If Request("ACTION") = "go" Then If strflagupdate Then Connect.execute("UPDATE Listings Set solddate='"&strsldatemarker&"',Pending='"&strmarker&"',homedesc='"&newhomedesc&"',price='"&strsubprice&"',PriceCat='"&GetCat(strsubprice,Recordset.Fields("PriceCat"))&"' WHERE ID =" & Recordset.Fields("ID")) End if End if End if Next RecordSet.MoveNext Loop End If Connect.Close Set Connect = Nothing Set Recordset = Nothing If Request("ACTION") = "go" Then 'Send Report HTML Email+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ set jmail = Server.CreateOBject("JMail.Message") jmail.Logging = False jmail.silent = False jmail.From = "scott@houseviewonline.com" jmail.FromName = "Scott Slinkard" jmail.AddRecipient "scott@houseviewonline.com" jmail.Subject = "MLS Compare Report" & date() jmail.Body = "MLS Compare Report" & date() & vbCrLf jmail.HTMLBody = "" & chr(13) jmail.appendHTML " MLS / Database Comparison Report for <%=FormatDateTime(now,1) %> <% If Request("ACTION") = "go" Then %> Update Complete Update Data Files <% End if %> MLS# Agent Location Address MLS Status Website Status MLS Price Website price  • " & Trim(strsubmls) & "  • " & Trim(strsubmls) & " " & Recordset.Fields("RealitorAbb") & " " & Recordset.Fields("RealitorAbb") & " " & Recordset.Fields("Location") & " " & Recordset.Fields("Location") & " " & Recordset.Fields("Address") & " " & Recordset.Fields("Address") & " " & Left(Trim(strsubstatus),Len(Trim(strsubstatus))) & " " & Left(Trim(strsubstatus),Len(Trim(strsubstatus))) & " " & chr(13)) stremailbody = stremailbody & " " & chr(13) Response.Write("" & Formatidentifier(Recordset.Fields("pending"),strsubstatus) & " " & Left(Trim(strsubstatus),Len(Trim(strsubstatus))) & " " & Left(Trim(strsubstatus),Len(Trim(strsubstatus))) & " " & chr(13)) stremailbody = stremailbody & " " & chr(13) Response.Write(Formatidentifier(Recordset.Fields("pending"),strsubstatus) & " " & FormatCurrency(strsubprice,0,0) & " " & FormatCurrency(strsubprice,0,0) & " " & FormatCurrency(Recordset.Fields("price"),0,0) & " " & FormatCurrency(Recordset.Fields("price"),0,0) & " " & FormatCurrency(strsubprice,0,0) & " " & FormatCurrency(strsubprice,0,0) & " " & FormatCurrency(Recordset.Fields("price"),0,0) & " " & FormatCurrency(Recordset.Fields("price"),0,0) & " " & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML "" & chr(13) jmail.appendHTML stremailbody & chr(13) jmail.appendHTML " MLS# Agent Location MLS Status Website Status MLS Price Website price " & chr(13) jmail.Body = "MLS Compare Report " & date() & vbCrLf jmail.appendText "------------You Must Enable HTML Email to View------------" jmail.Send("mail.sitewerkz.com") set jmail = Nothing '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 'Send Report HTML Email+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ End if %>

">