29 lines
746 B
Plaintext
29 lines
746 B
Plaintext
<%
|
|
Set sms = Server.CreateObject( "Simplewire.SMS" )
|
|
|
|
' Subscriber Settings
|
|
sms.SubscriberID = "123-123-123-12345"
|
|
sms.SubscriberPassword = "Password Goes Here"
|
|
|
|
' Message Settings
|
|
sms.MsgPin = "+1 100 510 1234"
|
|
sms.MsgFrom = "Demo"
|
|
sms.MsgCallback = "+1 100 555 1212"
|
|
sms.MsgText = "Hello World From Simplewire!"
|
|
|
|
Response.Write("<b>Sending message to Simplewire...</b><br>")
|
|
|
|
' Send Message
|
|
sms.MsgSend
|
|
|
|
' Check For Errors
|
|
If (sms.Success) Then
|
|
Response.Write("<b>Message was sent!</b><br>")
|
|
Else
|
|
Response.Write("<b>Message was not sent!</b><br>")
|
|
Response.Write("Error Code: " & sms.ErrorCode & "<br>")
|
|
Response.Write("Error Desc: " & sms.ErrorDesc & "<br>")
|
|
End If
|
|
|
|
Set sms = Nothing
|
|
%> |