<%
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
Emergency Management encourages that you register today for the Putnam County
Emergency Notification System.
Please take a moment to follow the link below to the
registration website and complete the appropriate information
to be notified in the event of emergency situations or critical community
alerts. Registration is FREE and takes just a few seconds.
The Putnam
County emergency notification system allows authorities to telephone targeted
areas of the County in case an emergency situation requires your immediate
action. The system may also be used to provide important information about
evacuations, contaminated water, hazardous chemical spill, etc. The system has
the capability to deliver a pre-recorded voice message, emails or text message
to any number or mobile device describing the situation.
If you reside or
own property within Putnam County or the incorporated limits of Palatka,
Interlachen, Welaka, Pomona Park or Crescent City and would like to receive
CodeRED emergency messages you may register by clicking the below link.
IMPORTANT: USE
YOUR PHYSICAL PUTNAM COUNTY ADDRESS. DO NOT USE POST OFFICE OR OUT OF TOWN
ADDRESSES. Should you at anytime desire to be removed from the calling list you
may do so by calling Putnam County Emergency Management at (386) 329-0379
Also see Putnam Alert FAQ (Frequently Asked Questions) Page.
FAQ
Click
here for Code Red Do Not Call Release Form