<%
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if
If Request.Form("btnAdd") = "Add" Then
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 * FROM Agents ORDER BY Agents.AgentLast ASC"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
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 addresse
")
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
if Request.Form("Grouping") = "" then
Response.Write("
