<%
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 groupemails ORDER BY groupemails.grouping ASC"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
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.AddNew
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
Added = "True"
RecordSet.Close
Set RecordSet = Nothing
Set cmdDC = Nothing
DataConnection.Close
Set DataConnection = Nothing
End If
%>
--Administration--
