<%
Option Explicit
Dim username, password, tel, msg, pricegroup

username = "myUserName"
password = "myPassWord"
tel = "4799887766"
msg = "This is a testmessage"
pricegroup = 0

dim mySMSConnection
Set mySMSConnection = server.CreateObject("ViaNettSMSClient.EasySMSClient")

If mySMSConnection.Connect(username, password) Then
    If mySMSConnection.sendTextSMS(tel, msg, pricegroup) Then
        Response.write "Message sent successfully"
    Else
        Response.write "Problems with sending message"
    End If
Else
    Response.write "Connection problems"
End If
mySMSConnection.disconnect
Set mySMSConnection = Nothing

%>