<%@language="VBscript"%><% If Request.QueryString("which") = 1 then f_name = Request.Form("f_name") title = Request.Form("title") email = Request.Form("email") company = Request.Form("company") phone = Request.Form("phone") address = Request.Form("address") fax = Request.Form("fax") comments = Request.Form("comments") category = Request.Form("category") pledge = Request.Form("pledge") timeframe = Request.Form("timeframe") txtBody = txtBody & "ABLM Online Pledge Form" & vbcrlf & vbcrlf txtBody = txtBody & "Name: " & " " & f_name & vbcrlf txtBody = txtBody & "Title: " & " " & title & vbcrlf txtBody = txtBody & "Company: " & " " & company & vbcrlf txtBody = txtBody & "Address: " & " " & address & vbcrlf txtBody = txtBody & "Phone: " & " " & phone & vbcrlf txtBody = txtBody & "Fax: " & " " & fax & vbcrlf txtBody = txtBody & "Email: " & " " & email & vbcrlf txtBody = txtBody & "Comments: " & " " & comments & vbcrlf txtBody = txtBody & "Category: " & " " & category & vbcrlf txtBody = txtBody & "Pledge Amount: " & " " & pledge & vbcrlf txtBody = txtBody & "Time Frame: " & " " & timeframe & vbcrlf Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = email objMail.To = "info@ablm.org" objMail.Subject = "ABLM Online Pledge Form" objMail.Body = txtBody objMail.Send Set objMail=Nothing message = "You have successfully completed the on-line pledge form. Someone will contact you shortly. Thank you!" End IF %> Abundant Life Ministries
'
"Bringing Hope To Our Community and Families One Person At A Time"
Home
About Us
Family Services
Community Center
Emergency Services
Mobile Food Pantry
Youth Activity Center
Computer Training
Testimonials
Links
Volunteer Opportunities
Pledge Form
Contact Us
Pledge Form

Contact Information:
<%=message%>

Name:
Title:
Company:
Address:
Telephone:
FAX:
E-mail:

Comments:

Category:

Pledge Amount:

Time Frame:

 

 © Copyright 2003 All Rights Reserved | Abundant Life Ministries | Privacy
Designed & Hosted by