Send a ringtone to a Nokia phone in ASP

[A. Rochkind]

Here's cool bit of code which allows you to use SMS wireless messaging to send ringtones (melodies) to Nokia cell phones from Active Server Pages. Uses the Simplewire network.

The best way is to join the Simplewire Developer Program at http://devprogram.simplewire.com. Then download the SDK as listed. Then you will receive an email explaining what to do.

You can use the demo credits in the free evaulation version to do this!


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