% Option Explicit Dim sectionID sectionID = "00" Dim pageID pageID = "secure" Dim sectionName sectionName = "Secure" Dim pageName pageName = "Send us your secure information - confirmation" %> <% dim strTitle, strFirstName, strLastName, strUniversityCollege, strAddress1, strAddress2, strCity, strCounty, strPostcode, strCountry, strLandlineNumber, strMobilePhone, strEmail, strCountryCallingFrom, strPreferredCallingCountry, strNameOnCard, strCardType, strSwitchIssueNumber, strCCNumber, strCountryofIssue, strCardSecurityNumber dim strccstartmonth, strccstartyear, strccExpirationMonth, strccExpirationYear, strBillingAddress, strBillingAddress2, strBillingCity, strBillingStateProv, strBillingCountry, strBillingPostalCode, strautotopup, strsuperautotopup, strdata_disqualifier, straboutus, strOther, strNotes strTitle = Request.Form("Title") strFirstName = Request.Form("FirstName") strLastName = Request.Form("LastName") strUniversityCollege = Request.Form("UniversityCollege") strAddress1 = Request.Form("Address1") strAddress2 = Request.Form("Address2") strCity = Request.Form("City") strCounty = Request.Form("County") strPostcode = Request.Form("Postcode") strCountry = Request.Form("Country") strLandlineNumber = Request.Form("LandlineNumber") strMobilePhone = Request.Form("MobilePhone") strEmail = Request.Form("Email") strCountryCallingFrom = Request.Form("CountryCallingFrom") strPreferredCallingCountry = Request.Form("PreferredCallingCountry") strNameOnCard = Request.Form("NameOnCard") strCardType = Request.Form("CardType").Item strSwitchIssueNumber = Request.Form("SwitchIssueNumber") strCCNumber = Request.Form("CCNumber") strCountryofIssue = Request.Form("CountryofIssue").Item strCardSecurityNumber = Request.Form("CardSecurityNumber").Item strccstartmonth = Request.Form("ccstartmonth") strccstartyear = Request.Form("ccstartyear") strccExpirationMonth = Request.Form("ccExpirationMonth") strccExpirationYear = Request.Form("ccExpirationYear") strBillingAddress = Request.Form("BillingAddress") strBillingAddress2 = Request.Form("BillingAddress2") strBillingCity = Request.Form("BillingCity") strBillingStateProv = Request.Form("BillingStateProv") strBillingCountry = Request.Form("BillingCountry") strBillingPostalCode = Request.Form("BillingPostalCode") strautotopup = Request.Form("autotopup") strsuperautotopup = Request.Form("superautotopup") strdata_disqualifier = Request.Form("data_disqualifier") straboutus = Request.Form("aboutus") strother = Request.Form("other") strNotes = Request.Form("Notes") dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.To = "sales@easy-dial.com" objMail.From = strEmail objMail.Subject = "StudenPhonecards.com New Account" objMail.BodyFormat = "0" objMail.Body = "Title: " & Trim(strTitle) & vbCrLf _ & "First Name: " & Trim(strFirstName) & vbCrLf _ & "Last Name: " & Trim(strLastName) & vbCrLf _ & "University / College: " & Trim(strUniversityCollege) & vbCrLf _ & "Address1: " & Trim(strAddress1) & vbCrLf _ & "Address2: " & Trim(strAddress2) & vbCrLf _ & "City: " & Trim(strCity) & vbCrLf _ & "County: " & Trim(strCounty) & vbCrLf _ & "PostCode: " & Trim(strpostcode) & vbCrLf _ & "Country: " & Trim(strCountry) & vbCrLf _ & "Landline contact number: " & Trim(strLandlineNumber) & vbCrLf _ & "Mobile Number: " & Trim(strMobilePhone) & vbCrLf _ & "Email Address: " & Trim(strEmail) & vbCrLf _ & "Country Calling From: " & Trim(strCountryCallingFrom) & vbCrLf _ & "Country Calling To: " & Trim(strPreferredCallingCountry) & vbCrLf _ & "Name on Credit Card: " & Trim(strNameOnCard) & vbCrLf _ & "Credit Card Type: " & Trim(strCardType) & vbCrLf _ & "Switch Issue Number: " & Trim(strSwitchIssueNumber) & vbCrLf _ & "Credit Card Number: " & Trim(strCCNumber) & vbCrLf _ & "Country Of Issue: " & Trim(strCountryofIssue) & vbCrLf _ & "Card Security Number: " & Trim(strCardSecurityNumber) & vbCrLf _ & "Credit Card Start Month: " & Trim(strccstartmonth) & vbCrLf _ & "Credit Card Start Year: " & Trim(strccstartyear) & vbCrLf _ & "Credit Card Expiry Month: " & Trim(strccExpirationMonth) & vbCrLf _ & "Credit Card Expiry Year: " & Trim(strccExpirationYear) & vbCrLf _ & "Registered Street: " & Trim(strBillingAddress) & vbCrLf _ & "Registered Street 2: " & Trim(strBillingAddress2) & vbCrLf _ & "Registered City: " & Trim(strBillingCity) & vbCrLf _ & "Registered County / State: " & Trim(strBillingStateProv) & vbCrLf _ & "Registered Country: " & Trim(strBillingCountry) & vbCrLf _ & "Registered Postcode: " & Trim(strBillingPostalCode) & vbCrLf _ & "Auto Top-up: " & Trim(strautotopup) & vbCrLf _ & "Super Auto Top-up: " & Trim(strsuperautotopup) & vbCrLf _ & "Data Disqualifier: " & Trim(strdata_disqualifier) & vbCrLf _ & "Where heard about us: " & Trim(straboutus) & vbCrLf _ & "Notes: " & Trim(strNotes) objMail.Send Set objMail = Nothing %>
|
|
|
|
|
|
|
|
![]() |
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
20/06/2006 Full calling account rates now available. 20% reduction!! 16/02/2005 On-line account access now available to all students. 12/02/2005 Further rate reductions. 10/01/2005 £5 introduction scheme. Get £5 credited to your account for introducing a friend. 08/01/2005 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
home | open a/c | rates | top-up | FAQ | WAM | Cool Links | Contact Us |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||||||||||||||