<% Sub SendMessage(ByVal sMobileNo,ByVal sText) sUrl = "http://api.clickatell.com/http/sendmsg" sAPI_ID = "3175721" sPassword = "61rivercliff" sUsername = "SportsManager" sPostData = "api_id=" & sAPI_ID sPostData = sPostData & "&user=" & sUsername sPostData = sPostData & "&password=" & sPassword sPostData = sPostData & "&to=919918369888" & ssMobileNo sPostData = sPostData & "&text=" & sText Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") oXMLHTTP.Open "POST", sUrl, false oXMLHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" oXMLHTTP.Send sPostData sResult = oXMLHTTP.responseText Response.Redirect "HomePage.asp?action=default" 'Response.Write sResult Set oXMLHTTP = nothing End Sub %>