<% ' 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 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("Sample_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "ACTLAP_Database", 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(23) Dim arFormDBFields0(23) Dim arFormValues0(23) arFormFields0(0) = "Fax_Number" arFormDBFields0(0) = "Fax" arFormValues0(0) = Request("Fax_Number") arFormFields0(1) = "Interest" arFormDBFields0(1) = "Interest" arFormValues0(1) = Request("Interest") arFormFields0(2) = "Note" arFormDBFields0(2) = "Note" arFormValues0(2) = Request("Note") arFormFields0(3) = "Contributions" arFormDBFields0(3) = "Contributions" arFormValues0(3) = Request("Contributions") arFormFields0(4) = "First_Name" arFormDBFields0(4) = "Name1" arFormValues0(4) = Request("First_Name") arFormFields0(5) = "Address1" arFormDBFields0(5) = "Address1" arFormValues0(5) = Request("Address1") arFormFields0(6) = "Address2" arFormDBFields0(6) = "Address2" arFormValues0(6) = Request("Address2") arFormFields0(7) = "Region" arFormDBFields0(7) = "Region" arFormValues0(7) = Request("Region") arFormFields0(8) = "Title" arFormDBFields0(8) = "Title" arFormValues0(8) = Request("Title") arFormFields0(9) = "Contect me (No)" arFormDBFields0(9) = "No" arFormValues0(9) = Request("Contect me (No)") arFormFields0(10) = "eMail" arFormDBFields0(10) = "email" arFormValues0(10) = Request("eMail") arFormFields0(11) = "Last_Name" arFormDBFields0(11) = "Name2" arFormValues0(11) = Request("Last_Name") arFormFields0(12) = "Postal_or_Zip_Code" arFormDBFields0(12) = "Code" arFormValues0(12) = Request("Postal_or_Zip_Code") arFormFields0(13) = "Web_Site" arFormDBFields0(13) = "Website" arFormValues0(13) = Request("Web_Site") arFormFields0(14) = "Other_Phone_Number" arFormDBFields0(14) = "Other" arFormValues0(14) = Request("Other_Phone_Number") arFormFields0(15) = "Phone_Number" arFormDBFields0(15) = "Phone" arFormValues0(15) = Request("Phone_Number") arFormFields0(16) = "City" arFormDBFields0(16) = "City" arFormValues0(16) = Request("City") arFormFields0(17) = "Contact me (Yes)" arFormDBFields0(17) = "Yes" arFormValues0(17) = Request("Contact me (Yes)") arFormFields0(18) = "State_Province" arFormDBFields0(18) = "State_Province" arFormValues0(18) = Request("State_Province") arFormFields0(19) = "Coutry2" arFormDBFields0(19) = "Country2" arFormValues0(19) = Request("Coutry2") arFormFields0(20) = "Date" arFormDBFields0(20) = "Date" arFormValues0(20) = Request("Date") arFormFields0(21) = "Pledges" arFormDBFields0(21) = "Pledge" arFormValues0(21) = Request("Pledges") arFormFields0(22) = "Country" arFormDBFields0(22) = "Country" arFormValues0(22) = Request("Country") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "thank_you (ACTLAP).htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> ID
African    
Computer and Technology  
 Literacy Awareness
  Program

     Poverty Alleviation Through Computer Literacy

Make a Donation

All about Canada

ACTLAP Web-Mail

 Featuring
Syrotech Industries Ltd. of Winnipeg, Manitoba Canada

Make a Donation
Our Donor's Club
Our Vision
Our Outreach
Rationale
Volunteer
History
 

ACTLAP.ORG

Become a Champion/Member

Join Using this Registration for

Entry Form... Be Very Very Careful!
To avoid duplication, please submit only one time 
Interest * For other interest and Concerns, see Note column Below
Title *

First name

Last name
Name * *
Street Name & Number *
Street Address *
City *
State / Province *
Postal/Zip Code
Region
Country (Specify if Other Country)
Contributions Pledges Date
Pledges & Contributions *

Phone #

Other Contact #

 Fax #
Contact Numbers

*

E-mail *
Website
Contact me           Yes          No *

Notes

(Thank you, Please note that we will contact you to discus your interest with ACTLAP)

 

Please note that support, Partnerships and programs outside Ontario and Canada constitutes  our contacts for our Computer campaign initiative only. For further information contact us