<%@ LANGUAGE=VBScript.Encode %>

<%
function sms_gonder(url,kod)
			Set objXml = CreateObject("WinHttp.WinHttpRequest.5.1")
			objXml.Open "POST",url, false
		    objXml.setRequestHeader "content-type", "application/x-www-form-urlencoded"
			objXml.Send kod
			sonuc=objXml.responsetext
			sms_gonder=sonuc
end function

%>
<%
durum=sms_gonder("http://api.smsvitrini.com/index.php", "islem=1&user=xxx&pass=yyy&mesaj=Deneme&numaralar=5321112233,5424445566,5056661144&baslik=850")
response.write durum         'durum sonucunu ekrana yazdırır
%>