<%Set the values same as you use in your smppsmshub.com account
username = "user"
pwd ="password"
'Set the mobile number on which you want to send SMS
mobileno = "918488886677"
'Your Message
smsg = "Test SMS from Smppssmhub"
' You approved sender id
senderid = "WebSMS"
channel="promo"
msg="testmsg"
routeId="15"
Dim objXmlHttpMain , sURL
sURL="http://smppsmshub.in/api/mt/SendSMS?user="&username&"&password="&&"&senderid="&senderid&"&channel="&channel&"&DCS=0&flashsms=0&number="&mobileno&"
&text="&msg&"&route="&routeId&"
Set objXmlHttpMain = Server.CreateObject("Msxml2.ServerXMLHTTP")
on error resume next
objXmlHttpMain.open "GET",sURL, False
objXmlHttpMain.setRequestHeader "Content-Type", "text/urlencoded"
objXmlHttpMain.send
'Store response
response.Write (objXmlHttpMain.responseText)
%>