ASP SMS Example

We provide you with implementation examples that are available to help you connect to our gateway through ASP, eliminating any learning curves. These programming examples connect via our HTTP API.

For more examples and information, please visit our download section.

For a free trial please contact us.

<% Option Explicit %>

<%


'Software:	HTTP API - Send SMS Example: Simple Text SMS

'Version:		3.07

'Email:		support@solutions4mobiles.com

'Info:		http://www.solutions4mobiles.com

'Phone:		+44 203 318 3618



'Copyright (c) 1999-2010, Mobiweb Ltd. All Rights Reserved.

'LICENSE:

'Distributed under the General Public License v3 (GPLv3)

'http://www.gnu.org/licenses/gpl-3.0.html

'This program is distributed AS IS and in the hope that it will be useful

'WITHOUT ANY WARRANTY; without even the implied warranty of

'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.



'SERVICES:

'We offer a number of paid services at http//www.solutions4mobiles.com:

'- Bulk SMS / MMS / Premium SMS Services / HLR Lookup Service



'HELP:

'- This class requires a valid HTTP API Account. Please email to

'sales@solutions4mobiles.com to get one



'Simple Text SMS Example

'copyright 1999 - 2010 Mobiweb Ltd.



Dim username

username="username"					'The HTTP API username of your account.

Dim password

password="password"					'The HTTP API password of your account.

Dim msgtext

msgtext="Hello World"					'The SMS Message text.

Dim originator

originator="TestAccount"					'The desired Originator of your message.

Dim phone

phone="recipient"						'The full International mobile number of the

										'recipient excluding the leeding +.

Dim showDLR

showDLR=0								'Set to 1 for requesting delivery report

										'of this sms. A unique id is returned to use

										'with your delivery report request.

Dim smscharset

smscharset=0							'The SMS Message text Charset.

Dim msgtype

msgtype=""								'If set to F the sms is sent as Flash.

Dim smsprovider

smsprovider="solutions4mobiles.com"		'The SMS Provider



Dim url

url="http://IPADDRESS/bulksms/bulksend.go"		'The SMS HTTP API send url.

												'The parameter's string

Dim params

params = "username=" &username& "&password=" &password& "&charset="

&smscharset& "&msgtext=" &msgtext& "&originator=" &originator& "&phone="

&phone& "&provider=" &smsprovider& "&showDLR=" &showDLR& "&msgtype=" &msgtype

Dim sol4mob_xml

Set sol4mob_xml=Server.CreateObject("Microsoft.XMLHTTP")		'Create object of class required for POST

'request.

sol4mob_xml.Open "POST", url, False							' Open POST request for our url

sol4mob_xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'Set POST request

'data headers

sol4mob_xml.Send params									'Send POST request with our parameters

Response.Write(sol4mob_xml.responseText)

%>

Newsletter