Get A Quote

<%@ Language=VBScript %> <%Option Explicit%> <% Dim bSubmitted bSubmitted = False if(Request.Form("btnSubmit").Item = "Submit") then bSubmitted = True if(bSubmitted) then Dim sName, sEmail, sCompanyName, sWebAddress, sBusinessType Dim sContactNumber, sCountry, sMobileNumber, sServicesRequired sName = Request.Form("txtName").Item sEmail = Request.Form("txtEmail").Item sCompanyName = Request.Form("txtCompanyName").Item sWebAddress = Request.Form("txtWebAddress").Item sBusinessType = Request.Form("txtBusinessType").Item sContactNumber = Request.Form("txtContactNumber").Item sCountry = Request.Form("cboCountry").Item sMobileNumber = Request.Form("txtMobileNumber").Item if(Request.Form("chkSrSmsIntegration").Item = "on") then sServicesRequired = "SmS Integration, " end if if(Request.Form("chkSrBulkSms").Item = "on") then sServicesRequired = sServicesRequired & "Bulk SmS, " end if if(Request.Form("chkSrCreditCardSms").Item = "on") then sServicesRequired = sServicesRequired & "Credit Card SmS, " end if if(Request.Form("chkSrMobileBarcodes").Item = "on") then sServicesRequired = sServicesRequired & "Mobile Barcodes, " end if if(Request.Form("chkSrPremiumSms").Item = "on") then sServicesRequired = sServicesRequired & "Premium SmS, " end if if(Request.Form("chkSrReverseTextAuctions").Item = "on") then sServicesRequired = sServicesRequired & "Reverse Text Auctions, " end if if(Request.Form("chkSrRingTones").Item = "on") then sServicesRequired = sServicesRequired & "Ring Tones, " end if if(Request.Form("chkSrSmsChat").Item = "on") then sServicesRequired = sServicesRequired & "SmS Chat, " end if if(Request.Form("chkSrSmsClassifieds").Item = "on") then sServicesRequired = sServicesRequired & "SmS Classifieds, " end if if(Request.Form("chkSrTextAlerts").Item = "on") then sServicesRequired = sServicesRequired & "Text Alerts, " end if if(Request.Form("chkSrTextQuizzes").Item = "on") then sServicesRequired = sServicesRequired & "Text Quizzes, " end if if(Request.Form("chkSrTextVoting").Item = "on") then sServicesRequired = sServicesRequired & "Text Voting, " end if if(Request.Form("chkSrOther").Item = "on") then sServicesRequired = sServicesRequired & "Other: " & Request.Form("txtSrOtherServices").Item & ", " end if if(Len(sServicesRequired) > 2) then sServicesRequired = Left(sServicesRequired, Len(sServicesRequired) -2) sServicesRequired = Replace(sServicesRequired, ", ", "
") end if Dim sNumUsers, sFrequency Dim bIntegrateWebSite, sUrl, sServicesIntegrate, sComments sNumUsers = Request.Form("cboNumberOfUsers").Item sFrequency = Request.Form("cboFrequency").Item if(sFrequency = "Other") then sFrequency = "Other: " & Request.Form("txtFrequency").Item end if bIntegrateWebSite = false if(Request.Form("radIntegrateWebsite").Item = "Yes") then bIntegrateWebSite = true sUrl = Request.Form("txtUrl").Item sComments = Request.Form("txtComments").Item if(Request.Form("chkSiSmsIntegration").Item = "on") then sServicesIntegrate = "SmS Integration, " end if if(Request.Form("chkSiBulkSms").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Bulk SmS, " end if if(Request.Form("chkSiCreditCardSms").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Credit Card SmS, " end if if(Request.Form("chkSiMobileBarcodes").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Mobile Barcodes, " end if if(Request.Form("chkSiPremiumSms").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Premium SmS, " end if if(Request.Form("chkSiReverseTextAuctions").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Reverse Text Auctions, " end if if(Request.Form("chkSiRingTones").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Ring Tones, " end if if(Request.Form("chkSiSmsChat").Item = "on") then sServicesIntegrate = sServicesIntegrate & "SmS Chat, " end if if(Request.Form("chkSiSmsClassifieds").Item = "on") then sServicesIntegrate = sServicesIntegrate & "SmS Classifieds, " end if if(Request.Form("chkSiTextAlerts").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Text Alerts, " end if if(Request.Form("chkSiTextQuizzes").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Text Quizzes, " end if if(Request.Form("chkSiTextVoting").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Text Voting, " end if if(Request.Form("chkSiOther").Item = "on") then sServicesIntegrate = sServicesIntegrate & "Other: " & Request.Form("txtSiOtherServices").Item & ", " end if if(Len(sServicesIntegrate) > 2) then sServicesIntegrate = Left(sServicesIntegrate, len(sServicesIntegrate)-2) sServicesIntegrate = Replace(sServicesIntegrate, ", ", "
") end if end if Dim sMsg sMsg ="" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " if(bIntegrateWebSite) then sMsg = sMsg & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " end if sMsg = sMsg & _ "

SmS Cost Request
Name:	@Name
Email:	@Email
Company Name:	@CompanyName
Web Address:	@WebAddress
Type of Business:	@BusinessType
Contact Number:	@ContactNumber
Country:	@Country
Mobile Number:	@MobileNumber
Services Required:	@ServicesRequired
Users currently in database:	@NumUsers
Send bulk SmS frequency:	@Frequency
Integrate into current website:	@IntegrateWebsite
URL:	@URL
Services to integrate:	@ServicesIntegrate
Comments:	@Comments

" sMsg = Replace(sMsg, "@Name", sName) sMsg = Replace(sMsg, "@Email", sEmail) sMsg = Replace(sMsg, "@CompanyName", sCompanyName) sMsg = Replace(sMsg, "@WebAddress", sWebAddress) sMsg = Replace(sMsg, "@BusinessType", sBusinessType) sMsg = Replace(sMsg, "@ContactNumber", sContactNumber) sMsg = Replace(sMsg, "@Country", sCountry) sMsg = Replace(sMsg, "@MobileNumber", sMobileNumber) sMsg = Replace(sMsg, "@ServicesRequired", sServicesRequired) sMsg = Replace(sMsg, "@NumUsers", sNumUsers) sMsg = Replace(sMsg, "@Frequency", sFrequency) sMsg = Replace(sMsg, "@IntegrateWebsite", bIntegrateWebSite) sMsg = Replace(sMsg, "@URL", sUrl) sMsg = Replace(sMsg, "@ServicesIntegrate", sServicesIntegrate) sMsg = Replace(sMsg, "@Comments", sComments) 'Response.Write sMsg on error resume next sendSmtpMail "office@newmediafarm.com", "office@newmediafarm.com", "", "", "SmS Cost Request", sMsg if(Err.number <> 0) then 'Response.Write "
SMTP Send Email Error: " & err.Description 'sendCdosysMail "office@newmediafarm.com", "office@newmediafarm.com", "", "", "SmS Cost Request", sMsg 'if(Err.number <> 0) then 'Response.Write "
CDOSYS Send Email Error: " & err.Description sendCdontsMail "office@newmediafarm.com", "", "", "", "SmS Cost Request", sMsg if(Err.Number <> 0) then 'Response.Write "
CDONTS Send Email Error: " & err.Description Response.Write "An un-expected error has occurred while sending email." Response.End end if 'end if end if on error goto 0 end if %> Get A Quote

" method="post">

For a fast free estimate please take a moment to complete our cost calculator or send us a description of your project (office@newmediafarm.com). All questions are optional, so answer as much as you can. We'll get back to you within 1-3 business days.

We currently offer 4 bulk sms platforms in order to cater for every possible need. In order to give you our best platform for your requirements, we need a bit more information from you for this.

How Many users do you currently have in your database

How often do you send out bulk sms

We are able to integrate most of our sms solutions into your current website/business model. We can also create bespoke sms applications to cater for your companys requirements. Please use this space to tell us exactly what you require as accurately as possible:

Do you want to integrate our solutions into your current website Yes No