<%
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("/ctrfiles/stats/agentsecure.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 passwords"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
if Request.Form("RealitorAbb") = "" then
Response.Write("
You did not Include a Realitor
")
Response.Write ("
")
Response.End
end if
if Request.Form("Password") = "" then
Response.Write("
You did not Include a Password
")
Response.Write ("
")
Response.End
end if
if Request.Form("Login") = "" then
Response.Write("
You did not Include a Login
")
Response.Write ("
")
Response.End
end if
if Request.Form("Grouping") = "" then
Response.Write("
You did not Include a Agent Grouping
")
Response.Write ("
")
Response.End
end if
RecordSet.AddNew
RecordSet.Fields("RealitorAbb") = Request.Form("RealitorAbb")
RecordSet.Fields("Login") = Request.Form("Login")
RecordSet.Fields("Password") = Request.Form("Password")
RecordSet.Fields("Grouping") = Request.Form("Grouping")
RecordSet.Fields("Banner") = Request.Form("Banner")
RecordSet.Fields("Agency") = Request.Form("Agency")
RecordSet.Update
Added = "True"
RecordSet.Close
Set RecordSet = Nothing
Set cmdDC = Nothing
DataConnection.Close
Set DataConnection = Nothing
End If
%>
--Administration--
