<% 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("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 %>