<%
'Ballou.SMS

'Metoder i objektet:
'SMS_Login(SMS_User As String, SMS_Password As String)
'Ut: Boolean
'Loggar in användaren mot SMS-Switchen

'SMS_RemainingCredits()
'Ut: int, antal kvarvarande krediter / false
'Hämtar kvarvarande krediter

'SMS_SendSms(FromString As String, PhoneNumber As String, Message As String, Optional SendDate As String)
'Ut: SMSId / False
'Skickar sms.

'SMS_SendRingtone(From As String, PhoneNumber As String, RTTTL As String, Optional SendDate As String)
'Ut: SMSId / False
'Skickar ringsignal, endast Nokia telefoner

'SMS_Status(SmsId As String) As Long

'SMS_Quit()
'Ut: true
'Loggar ut användare och stänger kopplingen mot SMS-Switchen


'Exempelkod
Option Explicit
Dim SMS, smsUser, smsPassword, Result
Set SMS = Server.CreateObject("BallouX.SMS")
smsUser      = "username"
smsPassword  = "password"

smsSender    = "sendername"
smsReceiver1 = "+467xxxxxx"
smsReceiver2 = "+467xxxxxx"
smsMessage   = "Meddelande"

' Skicka ett sms meddelande till en mottagare
If SMS.SMS_Login(CStr(smsUser), CStr(smsPassword)) = True Then
	Result = SMS.SMS_SendSms(CStr(smsSender), CStr(smsReceiver1), CStr(smsMessage))
	'Kolla Result efter False och ge ev. felmeddelande        
	SMS.SMS_Quit End If

' Skicka ett sms meddelande till flera mottagare
If SMS.SMS_Login(CStr(smsUser), CStr(smsPassword)) = True Then
	Result = SMS.SMS_SendSms(CStr(smsSender), CStr(smsReceiver1), CStr(smsMessage))
	Result = SMS.SMS_SendSms(CStr(smsSender), CStr(smsReceiver2), CStr(smsMessage))
	'Kolla Result efter False och ge ev. felmeddelande        
	SMS.SMS_QuitEnd If

' Senarelägga ett SMS till en mottagare
If SMS.SMS_Login(CStr(smsUser), CStr(smsPassword)) = True Then
	Result = SMS.SMS_SendSms(CStr(smsSender), CStr(smsReceiver1), "God Jul!", "2001-12-24 09:00") 'Kolla Result efter False och ge ev. felmeddelande        
	SMS.SMS_Quit
End If

' Kolla dina krediter 
If SMS.SMS_Login(CStr(smsUser), CStr(smsPassword)) = True Then
	Result = SMS.SMS_RemainingCredits
	'Kolla Result SMS.SMS_Quit
End If 

' Kolla krediter och skicka SMS om det finns några kvar.
If SMS.SMS_Login(CStr(smsUser), CStr(smsPassword)) = True Then
	Result = SMS.SMS_RemainingCredits		
	If Result > 0 Then
	Result = SMS.SMS_SendSms(CStr(smsSender), CStr(smsReceiver1), CStr(smsMessage))
	Else 
	Response.Write "Inga krediter kvar"
	End If	SMS.SMS_Quit
End If
%>