<% Public Function send(apikey, number, message, expediteur, msg_id) Set api = Server.CreateObject("MSXML2.ServerXMLHTTP") request = "&apikey=" & apikey & "&number=" & number request = request & "&message=" & message & "&msg_id=" & msg_id request = request & "&expediteur=" & expediteur api.open "POST", "http://api.envoyersms.org/v1/?method=send", False api.setRequestHeader "Content-Type","application/x-www-form-urlencoded" api.send request send = api.responseText Set api = nothing End Function %>