<% 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("Sending message to Simplewire...
") ' Send Message sms.MsgSend ' Check For Errors If (sms.Success) Then Response.Write("Message was sent!
") Else Response.Write("Message was not sent!
") Response.Write("Error Code: " & sms.ErrorCode & "
") Response.Write("Error Desc: " & sms.ErrorDesc & "
") End If Set sms = Nothing %>