ActiveX - Send a Ringtone to Nokia phones in ASP

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

Popular posts from this blog

AGRICULTURAL SCIENTIST RECRUITMENT BOARD

CIVIL SERVICES' (I.A.S.) EXAMINATION

HSC Exam Time Table 2013 Arts, Commerce, Science