(Classic ASP) Send SMS Messages via Route Mobile's SMSPlus REST API

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = Server.CreateObject("Chilkat.HttpRequest")

req.Path = "/bulksms/bulksms"
req.AddParam "username","YOUR_USERNAME"
req.AddParam "password","YOUR_PASSWORD"

' Indicate the type of message. 
' Values for type include: 
' 0: Plain text (GSM 3.38 Character encoding) 
' 1: Flash (GSM 3.38 Character encoding)  
' 2: Unicode 
' 3: Reserved  
' 4: WAP Push 
' 5: Plain text (ISO-8859-1 Character encoding)  
' 6: Unicode Flash 
' 7: Flash (ISO-8859-1 Character encoding) 
req.AddParam "type","0"

' destination is the Mobile number to which the message is to be sent 
' (may or may not include a plus [+] sign). 
' Multiple mobile numbers can be separated by commas (,)
' No need to URL encode strings passed to AddParam. 
' Chilkat will automatically URL encode when the request is sent.
req.AddParam "destination","+14155551234"

' Specify the source address that should appear in the message.
' Max Length of 18 if numeric.
' Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
' when the message is displayed on their cell phone, please prefix the plus sign 
' to your sender�s address while submitting the message 
req.AddParam "source","+14155558999"

' Add the message itself.  (No URL encoding needed.)
req.AddParam "message","Test Message"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")
' resp is a Chilkat.HttpResponse
Set resp = http.PostUrlEncoded("http://api.rmlconnect.net/bulksms/bulksms",req)
If (http.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' Examine the response status code and the response body:
Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "response body:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"


%>
</body>
</html>