''''write
code for loop while (you can open record set here)
sResponse = ""
sResponse = SMSSend(pno, message )
If right(sResponse,15) = "Send Successful"
Then
'write your code here
End If
'''End Wend
Function
SMSSend (strPh,strMsg)
Dim msgResponse
Dim strRequest
Dim strUrl
msgResponse = ""
strPh=right(strPh,10)
If not IsNumeric(strPh) Or len(strPh) <>
10 Then
msgResponse = "Enter valid Mobile Number."
End If
If strMsg = "" Then
msgResponse = "Enter text message."
End If
strUrl = "http://bulksmsindia.mobi/sendurlcomma.aspx?"
strRequest = strRequest+"&user=profileid"
strRequest = strRequest+"&pwd=pass"
strRequest = strRequest+"&senderid=senderid"
strRequest = strRequest+"&mobileno="+strPh
strRequest = strRequest+"&msgtext="+Server.URLEncode(strMsg)
strUrl = strUrl+strRequest
If msgResponse = "" Then
Dim oXML
Dim sPage
Err.Clear
On Error Resume Next
Set oXML = Server.CreateObject("Msxml2.XMLHTTP")
oXML.Open "get", strUrl , false
oXML.Send
msgResponse = oXML.ResponseText
Set oXML = Nothing
End If
SMSSend = msgResponse
If Err.Number <> 0 Then
SMSSend = "Problem on sending sms : "&
Err.Description
End If
End Function
|
