Donation Form

<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("DonationForm_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(9) Dim arFormDBFields0(9) Dim arFormValues0(9) arFormFields0(0) = "Donation" arFormDBFields0(0) = "Donation" arFormValues0(0) = Request("Donation") arFormFields0(1) = "Area Code" arFormDBFields0(1) = "Area_Code" arFormValues0(1) = Request("Area Code") arFormFields0(2) = "FirstName" arFormDBFields0(2) = "FirstName" arFormValues0(2) = Request("FirstName") arFormFields0(3) = "ZipCode" arFormDBFields0(3) = "ZipCode" arFormValues0(3) = Request("ZipCode") arFormFields0(4) = "LastName" arFormDBFields0(4) = "LastName" arFormValues0(4) = Request("LastName") arFormFields0(5) = "State" arFormDBFields0(5) = "State" arFormValues0(5) = Request("State") arFormFields0(6) = "Address" arFormDBFields0(6) = "Address" arFormValues0(6) = Request("Address") arFormFields0(7) = "Suffix" arFormDBFields0(7) = "Suffix" arFormValues0(7) = Request("Suffix") arFormFields0(8) = "Prefix" arFormDBFields0(8) = "Prefix" arFormValues0(8) = Request("Prefix") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 FP_SaveFieldToDB fp_rs, Now, "Timestamp" fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "DonationForm.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Donation Form

(Hebrews 11:1) "Now Faith is the Subtance of things Hoped for and the Evidence of things not seen" We have collected 4950.00 to date... Praise the Lord!

Sponsor Rob's Trip To Holland

Goal $5000.00

We have reached

$4950.00

Rob Scores 28 Points

We have Reached

the 4950.00 amount

Donation Form

First Name	*
Last Name	*
Address	*
State:	*
Zip Code	*
Telephone Number	--*
Donation	*

	Thanks for you help and support

* Indicates A Required Field

Hit Counter

Home | Mission | Photo Gallery | Donation Form | Active Sponsors