<%
Response.Buffer = True
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if
Dim MyFile,objFSO,MyOutStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
MyFile = Server.MapPath("/database/houseview.mdb")
Dim DataConnection, cmdDC, RecordSet
Dim RecordToEdit, Updated
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.ConnectionTimeout = 20
DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & MyFile & ";"
'Sql Server Connection String-------------------------
'DataConnection.Open "Driver={SQL Server};Server=208.18.48.246;Database=houseviewonline;Uid=houseviewonline;Pwd=supernova04;"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
SQL = "SELECT Listings.ID, Listings.* FROM Listings WHERE (((Listings.ID)=" & Request.QueryString("ID") & "));"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
If Request.Form("btnUpdate") = "Update" Then
if Request.Form("RealitorAbb") = "" then
Response.Write("
You did not Include a Realitor
")
Response.Write ("
")
Response.End
end if
if Request.Form("Location") = "" then
Response.Write("
You did not Include a Location
")
Response.Write ("
")
Response.End
end if
if Request.Form("price") = "" then
Response.Write("
You did not Include a Price
")
Response.Write ("
")
Response.End
end if
if Request.Form("PriceCat") = "" then
Response.Write("
You did not Include a Price Category
")
Response.Write ("
")
Response.End
end if
if Request.Form("MLS") = "" then
Response.Write("
You did not Include a MLS#
")
Response.Write ("
")
Response.End
end if
if Request.Form("Bdrm") = "" then
Response.Write("
You did not Include a Bedroom Count
")
Response.Write ("
")
Response.End
end if
if Request.Form("Bthrm") = "" then
Response.Write("
You did not Include a Bathroom Count
")
Response.Write ("
")
Response.End
end if
if Request.Form("Grouping") = "" then
Response.Write("
You did not Include a Agent Code
")
Response.Write ("
")
Response.End
end if
Dim strproperdate,strproperyear,strpropermonth,strporperday
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
Dim strnewmls
strnewmls = Trim(Replace(Request.Form("MLS"),",",""))
If Trim(RecordSet.Fields("MLS")) <> strnewmls Then
If objFSO.folderexists(Server.MapPath("/images/" & RecordSet.Fields("MLS") & "/")) Then
objFSO.MoveFolder Server.MapPath("/images/" & RecordSet.Fields("MLS")) , Server.MapPath("/images/" & strnewmls)
Set WaitObj = Server.CreateObject ("WaitFor.Comp")
WaitObj.WaitForSeconds 3
Set WaitObj = Nothing
Set MyOutStream = objFSO.OpenTextFile(Server.MapPath("/images/" & strnewmls & "/" & strnewmls & ".asp"), 2, TRUE)
MyOutStream.Write(Request.Form("new"))
MyOutStream.Close
If objFSO.FileExists(Server.MapPath("/ctrfiles/" & RecordSet.Fields("MLS") & ".cnt")) Then
objFSO.deletefile(Server.MapPath("/ctrfiles/" & RecordSet.Fields("MLS") & ".cnt"))
end if
If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & RecordSet.Fields("MLS") & ".txt")) Then
objFSO.deletefile(Server.MapPath("/ctrfiles/notes/" & RecordSet.Fields("MLS") & ".txt"))
end if
End if
If objFSO.FileExists(Server.MapPath("/images/" & strnewmls & "/" & RecordSet.Fields("MLS") & ".jpg")) Then
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage Server.MapPath("/images/" & strnewmls & "/" & RecordSet.Fields("MLS") & ".jpg")
Image.FileName = Server.MapPath("/images/" & strnewmls & "/" & strnewmls & ".jpg")
Image.JPEGQuality = 100
Image.SaveImage
Set Image = nothing
End if
If objFSO.FileExists(Server.MapPath("/images/" & strnewmls & "/" & RecordSet.Fields("MLS") & "sm.jpg")) Then
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage Server.MapPath("/images/" & strnewmls & "/" & RecordSet.Fields("MLS") & "sm.jpg")
Image.FileName = Server.MapPath("/images/" & strnewmls & "/" & strnewmls & "sm.jpg")
Image.JPEGQuality = 100
Image.SaveImage
Set Image = nothing
End if
Else
Set MyOutStream = objFSO.OpenTextFile(Server.MapPath("/images/" & RecordSet.Fields("MLS") & "/" & RecordSet.Fields("MLS") & ".asp"), 2, TRUE)
MyOutStream.Write(Request.Form("new"))
MyOutStream.Close
end if
RecordSet.Fields("MLS") = strnewmls
RecordSet.Fields("price") = Request.Form("price")
RecordSet.Fields("PriceCat") = Request.Form("PriceCat")
RecordSet.Fields("Bdrm") = Replace(Request.Form("Bdrm"),",","")
RecordSet.Fields("Bthrm") = Replace(Request.Form("Bthrm"),",","")
RecordSet.Fields("Location") = Request.Form("Location")
RecordSet.Fields("RealitorAbb") = Request.Form("RealitorAbb")
RecordSet.Fields("Pending") = Request.Form("Pending")
If Request.Form("Pending") = "Sld" OR Request.Form("Pending") = "Wth" Then
RecordSet.Fields("solddate") = strproperdate
Else
RecordSet.Fields("solddate") = Request.Form("solddate")
End if
RecordSet.Fields("Pano") = Request.Form("Pano")
Filtereddesc = Trim(Request.Form("homedesc"))
Filtereddesc = Replace(Filtereddesc,vbCrLf," ")
RecordSet.Fields("homedesc") = Filtereddesc
RecordSet.Fields("address") = Replace(Request.Form("address"),",","")
RecordSet.Fields("city") = Replace(Request.Form("city"),"'","''")
RecordSet.Fields("state") = Replace(Request.Form("state"),"'","''")
RecordSet.Fields("zip") = Replace(Request.Form("zip"),"'","''")
RecordSet.Fields("externaltour") = Replace(Request.Form("externaltour"),"'","''")
RecordSet.Fields("Grouping") = Request.Form("Grouping")
RecordSet.Fields("listingdate") = Request.Form("listingdate")
RecordSet.Fields("photographer") = Request.Form("photographer")
RecordSet.Fields("invoicedate") = Request.Form("invoicedate")
RecordSet.Fields("invoicedate2") = Request.Form("invoicedate2")
RecordSet.Fields("shoottype") = Request.Form("shoottype")
formatedlistingnotes = Request.Form("listingnotes")
formatedlistingnotes = Replace(formatedlistingnotes,",","")
formatedlistingnotes = Replace(formatedlistingnotes,vbCrLf," ")
formatedlistingnotes = Replace(formatedlistingnotes,"'","''")
RecordSet.Fields("listingnotes") = formatedlistingnotes
RecordSet.Update
Updated = "True"
End If
'-- Delete Button
If Request.Form("btnDelete") = "Delete" and Request.Form("Deleteit") = "on" Then
If Request.Form("Delefolder") = "on" Then
If objFSO.FolderExists(Server.MapPath("/images/" & RecordSet.Fields("MLS") & "/")) Then
objFSO.deleteFolder(Server.MapPath("/images/" & RecordSet.Fields("MLS") & "/"))
end if
If objFSO.FileExists(Server.MapPath("/ctrfiles/" & RecordSet.Fields("MLS") & ".cnt")) Then
objFSO.deletefile(Server.MapPath("/ctrfiles/" & RecordSet.Fields("MLS") & ".cnt"))
end if
If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & RecordSet.Fields("MLS") & ".txt")) Then
objFSO.deletefile(Server.MapPath("/ctrfiles/notes/" & RecordSet.Fields("MLS") & ".txt"))
end if
End if
RecordToDelete = Request.QueryString("ID")
RecordSet.Delete
Updated = "TrueDeleted"
elseif Request.Form("btnDelete") = "Delete" and Request.Form("Deleteit") <> "on" Then
Response.Write("
You Pressed Delete without Checking the Delete Checkbox, are sure you want to delete this?
")
Response.Write ("
")
Response.End
End If
Function FigureCost(strprice,strtype,strreport)
If strreport = 1 OR strreport = 4 then
If strtype = "1" Then
FigureCost = 10
Elseif strtype = "2" Then
FigureCost = 25
Elseif strtype = "3" Then
FigureCost = 10
Elseif strtype = "0" Then
FigureCost = 0
Else
FigureCost = 0
End if
ElseIf strreport = 2 OR strreport = 5 then
If strtype = "1" Then
If strprice =< 60000 Then
FigureCost = 35
Elseif strprice > 60000 AND strprice =< 90000 Then
FigureCost = 50
Elseif strprice > 90000 AND strprice =< 120000 Then
FigureCost = 75
Elseif strprice > 120000 Then
FigureCost = 100
End if
Elseif strtype = "2" Then
FigureCost = 25
Elseif strtype = "3" Then
FigureCost = 10
Else
FigureCost = 0
End if
Else
If strtype = "1" Then
FigureCost = 10
Elseif strtype = "2" Then
FigureCost = 25
Elseif strtype = "3" Then
FigureCost = 10
Else
FigureCost = 0
End if
End if
End Function
%>
Administration Edit Listing::.
<% If Updated = "True" Then %>
MLS# <%= RecordSet.Fields("MLS")%> has been updated.
<% End If %>
<% If Updated = "TrueDeleted" Then %>
Record <%= RecordToDelete %> has been Deleted!
<%
Response.End
End If
%>
Add/Replace Images/Files to MLS#<%= RecordSet.Fields("MLS")%>?
