<%
tName = trim(request.form("tName"))
tStreet = trim(request.form("tStreet"))
tCity = trim(request.form("tCity"))
tZip = trim(request.form("tZip"))
tEmail = trim(request.form("tEmail"))
'SAVE TO DB
dim objconn
Set objconn= Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db\db_trad_marriage.mdb") & ";"
objconn.open
dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "table1",objconn,,3,2
rs.addnew
rs("tName") = left(tName,255)
rs("tStreet") = left(tStreet,255)
rs("tCity") = left(tCity,255)
rs("tZip") = left(tZip,255)
rs("tEmail") = left(tEmail,255)
rs.update
rs.close
set rs=nothing
objconn.close
set objconn = nothing
'SEND EMAIL
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "diane@afaofpa.org"
objCDO.Value("From") = tEmail & "<" & tEmail & ">"
objCDO.Subject = "Person Signed Online Petition - TRADITIONAL MARRIAGE AMMENDMENT"
tBody = tName & "," & tStreet & "," & tCity & "," & tZip & "," & temail & vbcrlf
objCDO.Body = tBody
objCDO.Send
set objCDO=nothing
%>
American Family Association of PA (AFA of PA) - afaofpa.org
You have successfully signed the online
petition.
Thank you for joining with AFA of PA to Support
Traditional Family Values!
< Click here to return to our homepage
