url = "http://www.lexiconsoftware.gr/sms/warrior.asp"
  
    set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.open  "POST", url, false 
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056 
	xmlHttp.setOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS 
	YourMessage="Το κείμενό μου"
	xmlhttp.send "userid=YourUserName&password=YourPassword&from=SenderName&message=" & YourMessage & "&to=YourNumber"
	mResponse=xmlhttp.responseText 
	Response.write  mResponse 
	set xmlhttp = nothing