Dear Experts,

I am trying to send SMS from my Desktop Appliaction trough internet
using below code downloaded from http://fox.wikis.com/wc.dll?Wiki~SmartSMS site

When i executing the code, its giving message send is true.
But i m not received any message till now in my mobile.

Can anybody help me to find the reason for this issue.
Thanks in advance,

LOCAL nAns,mStr,mTime,mPos,mResponse,mCopy,loIE
&&"CATALINA has a pickup for . SMS sent "
this.Enabled = .f.
mStr = ALLTRIM(thisform.edBooking.Value)
IF AT('',mStr) > 0
mStr = STRTRAN(mStr,'',CDOW(DATE()))
ENDIF
IF AT('',mStr) > 0
mStr = STRTRAN(mStr,'',DTOC(DATE()))
ENDIF

IF AT('',mStr) > 0
mTime = TTOC(DATETIME(),2)
mPos = AT(":",mTime,2)
mTime = SUBSTR(mTime,1,mPos-1) + SUBSTR(mTime,mPos+4)
mStr = STRTRAN(mStr,'',mTime)
ENDIF
nAns = MESSAGEBOX("Message to be sent is " + CHR(13) + mStr,33,"Book Courier with SmartSMS")
IF nAns = 1
mCopy = mStr
thisform.lblSmartSMS.Caption = "Waiting for SmartSMS response"
mStr = "uid=0&pw=foxpro&courierpn=" + ;
ALLTRIM(this.parent.txtSMS.Value)+ "&msg=" + thisform.encodeURL(mStr)
loIE = CREATEOBJECT('InternetExplorer.Application')
loIE.Navigate("http://www.smartsms.com.au/smsgate.php?"+mStr)
IF thisform.WaitForReadyState(loIE)
mResponse = loIE.Document.Body.InnerHTML
IF SUBSTR(mResponse,1,5) = "MSGID"
&& Remove the next line of code when you have your REAL uid and password
&& because the message is added to the response in TEST mode from the server
mResponse = SUBSTR(mResponse,1,10)
INSERT INTO fwBooking (dDate,cMessage,cReceipt,smsnumber) ;
VALUES (DATETIME(),mCopy,mResponse,ALLTRIM(this.parent.txtSMS.Value))
thisform.grdBooking.Refresh
thisform.lblSmartSMS.Caption = mResponse
ELSE
MESSAGEBOX("Message Failed, please call directly",64,"Tell Pete")
ENDIF
ELSE
MESSAGEBOX("Unable to connect to the SmartSMS Server",16,;
"Internet Connection Down")
ENDIF
loIE.Quit
loIE = null
ELSE
this.Enabled = .t.
ENDIF

Regards
Abdulla