<%
Dim UpdateResult
If Request.Form.Count > 0 then
UpdateResult = AddRecord()
end if
function AddRecord()
'on error resume next
dim rs
dim cn
dim SQL
set cn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open(server.MapPath("/CitywatchWeb") & "/CommunityAlert.mdb")
if cn.State = 1 then
SQL = "SELECT * FROM Contacts WHERE RecID = -1"
rs.open sql,cn,2,3
rs.addnew
if Len(Request.Form("txtContactName")) > 0 Then
rs.fields("Name") = Request.Form("txtContactName")
else
rs.fields("Name") = "NONE"
end If
if Len(Request.Form("txtVoice1")) > 0 Then
rs.fields("Voice1") =Request.Form("txtVoice1")
else
rs.fields("Voice1") = " "
end if
if Len(Request.Form("txtVoice2")) > 0 Then
rs.fields("Voice2") =Request.Form("txtVoice2")
else
rs.fields("Voice2") = " "
end if
if Len(Request.Form("txtVoice3")) > 0 Then
rs.fields("Voice3") =Request.Form("txtVoice3")
else
rs.fields("Voice3") = " "
end if
if Len(Request.Form("txtAddr1")) > 0 Then
rs.fields("Address") = Request.Form("txtAddr1")
else
rs.fields("Address") = "NONE"
end if
if Len(Request.Form("txtCity")) > 0 Then
rs.fields("City") = Request.Form("txtCity")
else
rs.fields("City") = "NONE"
end if
if Len(Request.Form("txtState")) > 0 Then
rs.fields("State") = Request.Form("txtState")
else
rs.fields("State") = "NONE"
end if
if Len(Request.Form("txtZip")) > 0 Then
rs.fields("Zip") = Request.Form("txtZip")
else
rs.fields("Zip") = "NONE"
end if
if Len(Request.Form("txtEmail")) > 0 Then
rs.fields("Email") = Request.Form("txtEmail")
else
rs.fields("Email") = "NONE"
end if
rs.Fields("FOC") = Request.Form("txtFOC")
rs.update
AddRecord = "Record Added ID: " & rs.Fields("RecID") & " Has been added to our system, Thank you for your time"
else
AddRecord = "Unable to Add Your Information"
end if
if cn.State <> 0 then
cn.Close
end if
if rs.State <> 0 then
rs.Close
end if
set cn = nothing
set rs = nothing
exit function
ErrHand:
AddRecord = err.Description
if cn.State <> 0 then
cn.Close
end if
if rs.State <> 0 then
rs.Close
end if
set cn = nothing
set rs = nothing
End Function
%>
Putnam Alert Notification Registration
Putnam
County Emergency Management requests that you please take a moment to fill in
the appropriate information below to be notified in the event of emergency situations or critical community alerts.
Examples of notifications include: severe weather, evacuation notices,
bio-terrorism alerts, boil water notices, missing child reports and more.
Enter
Contact Information
