sms_message

<%

 On error resume next

 Dim MySmartMessage
 Set MySmartMessage = Server.CreateObject("sms_message.sms")

' Server de Send Message
' set series number
' ***************
 MySmartMessage.comp =3
' sending Smart Message
' ***************
' set Phone Number
' ***************
 MySmartMessage.Number = Request("ToSenderNumber")
' Select Language
' *******
 MySmartMessage.en = Request("language")
' Write Message
 MySmartMessage.Message = Request("SenderName") &vbcrlf & Request("SenderNumber") &vbcrlf & Request("Message")
 MySmartMessage.Sendpro

' To Return Message
' ************
 if MySmartMessage.Ok = true then
  response.write "您的消息已经成功发出,谢谢您的使用！"
 else
  response.write "您的消息没有发出，请您仔细检查你的设置."
 end if

 set mySmartMessage = nothing

%>