Classic ASP SMS API Integration Code
Use Msxml2.ServerXMLHTTP in classic ASP / VBScript to send bulk SMS directly through the HighSpeedSMS HTTP API.
<%@ ENABLESESSIONSTATE = False %>
<% Option Explicit %>
<%
' Classic ASP Bulk SMS Sample
Dim objXMLHTTP, sRemoteURL, posturl
' Create & initialize the ServerXMLHTTP object
Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")
sRemoteURL = "http://www.smscountry.com/SMSCwebservice_Bulk.aspx"
' Open connection to the SMS Gateway
objXMLHTTP.Open "POST", sRemoteURL, False
' If behind a proxy server, set proxy configuration:
' objXMLHTTP.setProxy 2, "192.168.1.210:6666"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
posturl = "User=xxxx&passwd=xxxx&mobilenumber=919xxxxxxxxx&message=Your+Message+Here&sid=xxxx&mtype=N&DR=Y"
objXMLHTTP.setRequestHeader "Content-Length", Len(posturl)
' Send the POST payload
objXMLHTTP.Send posturl
' Display Gateway Response
Response.Write("Server Response: " & objXMLHTTP.responseText)
Set objXMLHTTP = Nothing
%>
