Samples - ASP-VB
Web Service
Using the Web Service can be achieved by installing the Microsoft SOAP Toolkit on the computer that will be executing your ASP pages. Once installed, you can use the Web Service.
Dim oSOAP ' The SOAP Toolkit object
Set oSOAP = Server.CreateObject("MSSOAP.SoapClient30")
oSOAP.ClientProperty("ServerHTTPRequest") = True
oSOAP.mssoapinit("http://www.textapp.net/webservice/service.asmx?wsdl")
If there is a proxy server between your code and the internet you may need to specify the proxy details.
Dim oSOAP ' The SOAP Toolkit object
Set oSOAP = Server.CreateObject("MSSOAP.SoapClient30")
oSOAP.ClientProperty("ServerHTTPRequest") = True
oSOAP.ConnectorProperty("ProxyServer") = "proxyserver:8080"
oSOAP.ConnectorProperty("ProxyUser") = "username"
oSOAP.ConnectorProperty("ProxyPassword") = "password"
oSOAP.mssoapinit("http://www.textapp.net/webservice/service.asmx?wsdl")
Once you have an initialized SoapClient object, you are free to call methods. For example, to call the sendSMS method:
result = oSOAP.SendSMS(false, "myExternalLogin", "myPassword", "clientBillingReference", _
"clientMessageReference", "+447923456789", "+447923456789", _
"hello world", 72, 2, 4, "", "");
Response.Write(result)
This shows how to call the sendSMS method providing the parameters it requires. You may call any of the other Web Service methods in a similar manner.
HTTP(S) Service
Connecting to the HTTP(S) Service involves making a HTTP(S) request from your ASP code. This can be done fairly simply using Microsoft’s ServerXMLHTTP object. It should be available on most servers running Windows 2000 or newer.
Proxy settings must be specified using the proxycfg.exe command line utility. This utility has an option to import settings from Internet Explorer if you wish.
In order to send an SMS using the HTTP(S) GET method:
Dim xmlhttp
Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET","http://www.textapp.net/webservice/httpservice.aspx _
?method=sendsms&returncsvstring=false _
&externallogin=mylogin&password=mypassword _
&clientbillingreference=myclientbillingreference _
&clientmessagereference=myclientmessagereference _
&originator=mynumber&destinations=%2b447912345678 _
&body=hello%20world&validity=72&charactersetid=2 _
&replymethodid=4&replydata=&statusnotificationurl="
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send()
Response.Write xmlhttp.responseText
You can achieve the same result by using the HTTP(S) POST method:
Dim xmlhttp
Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","http://www.textapp.net/webservice/httpservice.aspx"
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send("method=sendsms&returncsvstring=false _
&externallogin=mylogin&password=mypassword _
&clientbillingreference=myclientbillingreference _
&clientmessagereference=myclientmessagereference _
&originator=mynumber&destinations=%2b447912345678 _
&body=hello%20world&validity=72&charactersetid=2 _
&replymethodid=4&replydata=&statusnotificationurl=")
Response.Write xmlhttp.responseText
The parameter values must be URL encoded as in the examples “hello world” becomes “hello%20world”. You can URL encode values:
encodedValue = Server.URLEncode("hello world")