Dim sUrl, sLogin, sPwd, sTo, sMsg, sSender
Dim oXMLHTTP, sPostData, sResult
sUrl = "http://proalerte.net/envoimsg.asp"
sLogin = "xxxx"
sPwd = "xxxx"
sTo = "2126XXXXXXXX"
sSender = "xxxx"
sMsg = "This is an example message"
sPostData = ""
sPostData = sPostData & "login=" & sLogin
sPostData = sPostData & "&pwd=" & sPwd
sPostData = sPostData & "&to=" & sTo
sPostData = sPostData & "&msg=" & sMsg
sPostData = sPostData & "&sender=" & sSender
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
Set oXMLHTTP = nothing
Response.Write sResult