<%
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if
Dim MyFile
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 & ";"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
SQL = "SELECT Agents.ID, Agents.* FROM Agents WHERE (((Agents.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("RealitorDesc") = "" then
Response.Write("
You did not Include a Realitor Description
")
Response.Write ("
")
Response.End
end if
if Request.Form("RealitorAbb") = "" then
Response.Write("
You did not Include a Realitor Abreviation
")
Response.Write ("
")
Response.End
end if
if Request.Form("AgentFirst") = "" then
Response.Write("
You did not Include a Agent First Name
")
Response.Write ("
")
Response.End
end if
if Request.Form("AgentLast") = "" then
Response.Write("
You did not Include a Agent Last Name
")
Response.Write ("
")
Response.End
End if
if Request.Form("address") = "" then
Response.Write("
You did not Include a billing address
")
Response.Write ("
")
Response.End
end if
if Request.Form("state") = "" then
Response.Write("
You did not Include a Billing state
")
Response.Write ("
")
Response.End
end if
if Request.Form("city") = "" then
Response.Write("
You did not Include a Billing city
")
Response.Write ("
")
Response.End
end if
if Request.Form("zip") = "" then
Response.Write("
You did not Include a Billing Zip
")
Response.Write ("
")
Response.End
end if
RecordSet.Fields("RealitorDesc") = Request.Form("RealitorDesc")
RecordSet.Fields("RealitorAbb") = Request.Form("realitorAbb")
RecordSet.Fields("AgentFirst") = Request.Form("AgentFirst")
RecordSet.Fields("AgentLast") = Request.Form("AgentLast")
RecordSet.Fields("Bus") = Request.Form("Bus")
RecordSet.Fields("Res") = Request.Form("Res")
RecordSet.Fields("Pgr") = Request.Form("Pgr")
RecordSet.Fields("Email") = Request.Form("Email")
RecordSet.Fields("Grouping") = Request.Form("Grouping")
RecordSet.Fields("address") = Request.Form("address")
RecordSet.Fields("city") = Request.Form("city")
RecordSet.Fields("state") = Request.Form("state")
RecordSet.Fields("zip") = Request.Form("zip")
RecordSet.Fields("splitbilling") = Request.Form("splitbilling")
RecordSet.Fields("prebill") = Request.Form("prebill")
RecordSet.Fields("leadphone") = Request.Form("leadphone")
RecordSet.Fields("leadphoneaddress") = Request.Form("leadphoneaddress")
RecordSet.Update
Updated = "True"
End If
'-- Delete Button
If Request.Form("btnDelete") = "Delete" and Request.Form("Deleteit") = "on" Then
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
%>
Administration Edit Agent::.
<% If Updated = "True" Then %>
<%= RecordSet.Fields("AgentFirst") & " " & RecordSet.Fields("AgentLast")%> has been updated.
<% End If %>
<% If Updated = "TrueDeleted" Then %>
Record <%= RecordToDelete %> has been Deleted!
<%
Response.End
End If
%>
<%
RecordSet.Close
Set RecordSet = Nothing
Set cmdDC = Nothing
DataConnection.Close
Set DataConnection = Nothing
%>
