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")

Footer Bottom