33 lines
931 B
Plaintext
33 lines
931 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"
|
|
|
|
' Smart Message Settings
|
|
sms.OptPhone = "nokia"
|
|
sms.MsgRingtone = "Simplewire:d=4,o=5,b=63:8a,8e,32a,32e,16a,8c6,8a,32c6,32a,16c6,8e6,8c6,32e6,32c6,16e6,8g6,32g,32p,16g,32c6,32g,16c6,8e6,32p"
|
|
|
|
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
|
|
%>
|