<% 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 groupemails.ID, groupemails.* FROM groupemails WHERE (((groupemails.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("grouping") = "" then Response.Write("
You did not Include an agency grouping
") Response.Write ("
") Response.End end if if Request.Form("name") = "" then Response.Write("
You did not Include a TO name
") Response.Write ("
") Response.End end if if Request.Form("agency") = "" then Response.Write("
You did not Include an Agency Description
") Response.Write ("
") Response.End end if RecordSet.Fields("grouping") = Request.Form("grouping") RecordSet.Fields("email") = Request.Form("email") RecordSet.Fields("name") = Request.Form("name") RecordSet.Fields("agency") = Request.Form("agency") RecordSet.Fields("fax") = Request.Form("fax") RecordSet.Fields("usemethod") = Request.Form("usemethod") 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--

  Administration Edit Agency Notification Email/Fax::.

Edit Agency email...
<% If Updated = "True" Then %> <%= "Agent Group Email : " & RecordSet.Fields("grouping")%> has been updated.

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

<% RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing Response.End End If %>

" method="post">

<% Dim strmarker1,strmarker2,strmarker3 Select case Trim(RecordSet.Fields("usemethod")) Case "both" strmarker1 = "SELECTED" strmarker2 = "" strmarker3 = "" Case "email" strmarker1 = "" strmarker2 = "SELECTED" strmarker3 = "" Case "fax" strmarker1 = "" strmarker2 = "" strmarker3 = "SELECTED" End Select %>
Agency Group Code: " class="grey">
valid email address: " class="grey">
valid fax number: " class="grey">
Fax numbers must include 1573xxxxxxx because all faxes are sent from
1-866-364-6422 on houseview's maxemail.com account.
To name (name of email recepient): " class="grey">
Agency Description: " class="grey">
Notification Method:

Delete
Verify Group  
1     2   3   4   5   6   7   8  
9   10   11   12   13   14   15   16  
17   18   19   20   21   22   23  
24   25   26   27   28   29   30  

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