<%
' Form fields
Dim strIDNumber, strTitle, strName, strCompany, strHomeNumber, strFaxNumber, strCellNumber
Dim strStreetAddress1, strStreetAddress2, strStreetAddresscity, strStreetAddresscode, strStreetAddressstate
Dim intPledgeAmount, strPaymentMethod
Dim strCCName, intCCNumber, strCCExpiryDate, strCCOther
' CDONTS required variables
Dim mailFrom, mailTo, mailSubject, mailBody
' Set Form variables
strIDNumber = request.form("IDNumber")
strTitle = request.form("title")
strName = request.form("Name")
strCompany = request.form("Company")
strHomeNumber = request.form("HomeNumber")
strFaxNumber = request.form("FaxNumber")
strCellNumber = request.form("CellNumber")
strStreetAddress1 = request.form("physical_addr_1")
strStreetAddress2 = request.form("physical_addr_2")
strStreetAddresscity = request.form("physical_addr_city")
strStreetAddresscode = request.form("physical_addr_code")
strStreetAddressstate = request.form("address_state")
'Pledge details
intPledgeAmount = request.form("pledgeamount")
strPaymentMethod = request.form("paymentmethod")
strCCName = request.form("cardname")
strCCNumber = request.form("cardnumber")
strCCExpiryDate = request.form("expirydate")
strCCOther = request.form("other")
' Set CDONTS variables
mailFrom = "info@vocfm.com"
mailTo = "info@vocfm.com; samir@rynq.com"
' mailTo = "samir@ananzi.co.za; samir@rynq.com"
mailSubject = "Pledge for the Cansa Association from " & strTitle & " " & strName
mailBody = "Pledge Information:
"
mailBody = mailBody & "ID number: " & strIDNumber & "
"
mailBody = mailBody & "Name: " & strTitle & " " & strName & "
"
mailBody = mailBody & "Company: " & strCompany & "
"
mailBody = mailBody & "Home number: " & strHomeNumber & " Fax number: " & strFaxNumber & " Cell number: " & strCellNumber & "
"
mailBody = mailBody & "Street address: " & strStreetAddress1 & ", " & strStreetAddress2 & ", " & strStreetAddresscity & ", " & strStreetAddresscode & ", " & strStreetAddressstate & "
"
mailBody = mailBody & "Pledge Amount: R " & intPledgeAmount & "
"
mailBody = mailBody & "Payment Method: " & strPaymentMethod & "
"
mailBody = mailBody & "Credit Card Name: " & strCCName & "
"
mailBody = mailBody & "Credit Card Number: " & strCCNumber & "
"
mailBody = mailBody & "Credit Card Expiry Date: " & strCCExpiryDate & "
"
mailBody = mailBody & "Other: " & strCCOther & "
"
mailBody = mailBody & "Date and time of pledge: " & now() & "
"
mailBody = mailBody & "
"
Response.Write mailBody
' Create CDONTS object and set properties
Set objOrderMail = CreateObject("CDONTS.NewMail")
objOrderMail.BodyFormat = 0
objOrderMail.MailFormat = 0
objOrderMail.From = mailFrom
objOrderMail.To = mailTo
objOrderMail.Subject = MailSubject
objOrderMail.Body = mailBody
' Send the message and destroy object
objOrderMail.Send()
Set objOrderMail = Nothing
Call WriteToDatabase(mailBody)
Sub WriteToDatabase(strRecordDetails)
strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("pledge.mdb") & ";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(strConnection)
sqlInsertRecord = "INSERT INTO pledge (Details) VALUES ('" & strRecordDetails & "');"
Conn.Execute(sqlInsertRecord)
Set Conn = Nothing
End Sub
Response.redirect("http://www.vocfm.com/public")
%>