<%@LANGUAGE="VBSCRIPT"%> <% Set ClientConn = Server.CreateObject("ADODB.Connection") ClientConn.Open "DSN=petition" vSQL = "SELECT * FROM UserInfo" Set rsAddUserInfo = ClientConn.Execute (vSQL) 'Set rsAddUserInfo = Nothing Set rsAddUserInfo = Server.CreateObject("ADODB.Recordset") rsAddUserInfo.ActiveConnection = ClientConn rsAddUserInfo.CursorType = adOpenKeyset rsAddUserInfo.Open "petition", ClientConn, adOpenKeyset, _ adLockOptimistic, adCMDTableDirect rsAddUserInfo.AddNew rsAddUserInfo.Fields("fname") = Request("fname") rsAddUserInfo.Fields("lname") = Request("lname") rsAddUserInfo.Fields("address") = Request("address") rsAddUserInfo.Fields("city") = Request("city") rsAddUserInfo.Fields("state") = Request("state") rsAddUserInfo.Fields("zip") = Request("zip") rsAddUserInfo.Fields("phone") = Request("phone") rsAddUserInfo.Fields("email") = Request("email") rsAddUserInfo.Fields("comments") = Request("comments") rsAddUserInfo.Fields("TimeStamp") = Now() rsAddUserInfo.Update 'Get UserID to relate to attendees vUserID = rsAddUserInfo.Fields("UserID") %> <%@LANGUAGE="VBSCRIPT"%> Untitled Document
logo
logo
logo









logo

Sign the Online Petition

(fields marked with * are required)
* First Name
* Last Name
* Address
* City
* State
* Zip
* Country
* Phone
Email Address
Comments
 
C.A.R.E
25958 Genesee Trail Road, PMB-203 Golden, CO 80401-5701