<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if 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 passwords.ID, passwords.* FROM passwords WHERE (((passwords.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("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.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 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 Password::.

<% RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing %>

<% If Updated = "True" Then %> <%= RecordSet.Fields("RealitorAbb")%> has been updated.

<% End If %> <% If Updated = "TrueDeleted" Then %> Record <%= RecordToDelete %> has been Deleted!

<% Response.End End If %>