<% 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.OptCountryCode = "Country Code goes here" sms.OptNetworkCode = "Network Code goes here" sms.MsgOperatorLogoFilename = Server.MapPath("example.gif") 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 %>