<%response.buffer=true%> <% ' Form fields Dim strIDNumber, strTitle, strName, strSurname, strEmail, strHomeNumber, strWorkNumber Dim strCellNumber, strPostAddress1, strPostAddress2, strPostAddresscity, strPostAddresscode, strPostAddressstate, strPostAddresscountry Dim strStreetAddress1, strStreetAddress2, strStreetAddresscity, strStreetAddresscode, strStreetAddressstate, strStreetAddresscountry Dim intQuantity, strMediaFormat 'Client details Dim strOrderID, intTotalCost ' CDONTS required variables Dim mailFrom, mailTo, mailSubject, mailBody ' Set Form variables strIDNumber = request.form("IDNumber") strTitle = request.form("title") strName = request.form("Name") strSurname = request.form("Surname") strEmail = request.form("Email") strHomeNumber = request.form("HomeNumber") strWorkNumber = request.form("WorkNumber") strCellNumber = request.form("CellNumber") strPostAddress1 = request.form("postal_addr_1") strPostAddress2 = request.form("postal_addr_2") strPostAddresscity = request.form("postal_addr_city") strPostAddresscode = request.form("postal_addr_code") strPosttAddressstate = request.form("post_address_state") strPostAddresscountry = request.form("post_address_country") 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") strStreetAddresscountry = request.form("address_country") strMediaFormat = request.form("mediaformat") intQuantity = request.form("quantity") intTotalCost = 0 Call CalculateTotalCost Call GenerateOrderID ' Set CDONTS variables mailFrom = "sales@vocfm.com" mailTo = "munadia@vocfm.com; samir@rynq.com" mailSubject = "VOC qasida cd order from " & strTitle & " " & strName & " " & strSurname mailBody = "

VOC Qasida cd order information:

" mailBody = mailBody & "ID number: " & strIDNUmber & "

" mailBody = mailBody & "Name: " & strTitle & " " & strName & " " & strSurname & "

" mailBody = mailBody & "Email: " & strEmail & "

" mailBody = mailBody & "Home number: " & strHomeNumber & " Work number: " & strWorkNumber & " Cell number: " & strCellNumber & "

" mailBody = mailBody & "Postal address: " & strPostAddress1 & ", " & strPostAddress2 & ", " & strPostAddresscity & ", " & strPostAddresscode & ", " & strPosttAddressstate & ", " & strPostAddresscountry & "

" mailBody = mailBody & "Street address: " & strStreetAddress1 & ", " & strStreetAddress2 & ", " & strStreetAddresscity & ", " & strStreetAddresscode & ", " & strStreetAddressstate & ", " & strStreetAddresscountry & "

" mailBody = mailBody & "Media format ordered: " & strMediaFormat & "

" mailBody = mailBody & "Number of cd's / tapes required: " & intQuantity & "

" mailBody = mailBody & "Date and time of order: " & now() & "
" mailBody = mailBody & "Order number (check on client's deposit slip): " & strOrderID & "
" mailBody = mailBody & "

" Response.Write mailBody Call SendClientEmail On Error Resume Next Dim conf Set conf = server.CreateObject("CDO.Configuration") conf.Fields.Item(cdoSendUsingMethod) = 2 conf.Fields.Item(cdoSMTPServer) = "196.22.194.32" conf.Fields.Update Dim objOrderMail Set objOrderMail = server.CreateObject("CDO.Message") objOrderMail.Configuration = conf objOrderMail.From = mailFrom objOrderMail.To = mailTo objOrderMail.HTMLBody = mailBody objOrderMail.Subject = mailSubject objOrderMail.Send Set objOrderMail = Nothing ' Send the message and destroy object objOrderMail.Send() Set objOrderMail = Nothing Response.Redirect("http://www.vocfm.com") Sub CalculateTotalCost() if strMediaFormat = "Cd" Then intTotalCost = 65 * int(intQuantity) + 25 Else intTotalCost = 35 * int(intQuantity) + 25 End if End Sub Sub GenerateOrderID() Dim intTemp, strN, strS Randomize intTemp = Rnd * int(strIDNumber) strN = Left(strName, 2) ' strN = strN & Right(strName, 2) strS = Left(strSurname, 2) ' strS = strS & Right(strSurname, 2) strOrderID = strN & strS & intTemp End Sub Sub SendClientEmail() Dim ClientFrom, ClientTo, ClientSubject, ClientBody ClientFrom = "sales@vocfm.com" ClientTo = strEmail ClientSubject = "VOC qasida cd order details" ClientBody = "

VOC Qasida cd order information:

" ClientBody = ClientBody & "Thank you " & strTitle & " " & strName & " " & strSurname & " for your online order for the Voc qasida cd.

" ClientBody = ClientBody & "Please use the order number: """ & strOrderID & """ for and banking details below to pay for this order

" ClientBody = ClientBody & "The total cot for your order is: R " & intTotalCost & ".00 including postage and delivery costs

" ClientBody = ClientBody & "

PAYMENT OPTIONS: " ClientBody = ClientBody & "

Deposited in our bank account with a copy of the deposit slip attached to your order or faxed with this order form." ClientBody = ClientBody & "
" ClientBody = ClientBody & "
- Account name: Muslim Broadcasting Corporation
- Bank name: First National Bank
- Branch name: Salt River
- Branch code: 201609
- Account number: 5026 1166 860
- Reference: *NB*Please use the order number which was e-mailed to you as your reference number on your deposit slip." ClientBody = ClientBody & "
- Please fax your deposit slip to Kashiefa at 021-4477271
" ClientBody = ClientBody & "
Your cheque made out the the Muslim Broadcasting Corporation, could be mailed to us with this order form to VOC, 2 Queenspark Avenue, Salt River, 7924" ClientBody = ClientBody & "

" ClientBody = ClientBody & "Date and time of order: " & now() & "
" Response.Write ClientBody ' Create CDO On Error Resume Next Dim conf Set conf = server.CreateObject("CDO.Configuration") conf.Fields.Item(cdoSendUsingMethod) = 2 conf.Fields.Item(cdoSMTPServer) = "196.22.194.32" conf.Fields.Update Dim objClientMail Set objClientMail = server.CreateObject("CDO.Message") objClientMail.Configuration = conf objClientMail.From = ClientFrom objClientMail.To = ClientTo objClientMail.HTMLBody = ClientBody objClientMail.Subject = ClientSubject objClientMail.Send Set objClientMail = Nothing End Sub %>