<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY> 
<%

'Esempio di script ASP per inviare messaggi sms
'utilizzando XMLHTTP

'Prima si crea l'oggetto XMLHTTP'
Dim xml, objXMLHTTP
Dim rcpt, messaggio, mittente, SMSarray
Dim SMSuser, SMSpass, ritorno

SMSuser = Request.Form("user")
SMSpass = Request.Form("pass")
SMSarray = false

'Si catturano i valori postati dal form

mittente = Request.Form("sender")
messaggio = Request.Form("data")
rcpt = Request.Form("rcpt")
if instr(rcpt,",") then
rcptarr= split(rcpt,",")
SMSarray = true
end if

'Si preparano i dati e viene eseguita la post al server
'La funzione Server.URLEncode serve a passare i parametri in modo corretto
'Le coppie parametro/valore sono inoltre separati da una '&'
if SMSarray = true then
for i = LBound(rcptarr) to UBound(rcptarr)

strPostData = "user=" & Server.URLEncode(SMSuser) & _
"&pass=" & Server.URLEncode(SMSpass) & _
"&rcpt=" & Server.URLEncode(rcpt) & _
"&data=" & Server.URLEncode(messaggio) & _
"&sender=" & Server.URLEncode(mittente)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "POST", "http://sms1.consultingweb.it/sms/batch.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send strPostData
ritorno = xml.responseText
Response.Write "Invio a " & rcpt & " <font color=""red"">" & ritorno & _
"</font>" & "<BR>"

Set xml = Nothing
next
else
strPostData = "user=" & Server.URLEncode(SMSuser) & _
"&pass=" & Server.URLEncode(SMSpass) & _
"&rcpt=" & Server.URLEncode(rcpt) & _
"&data=" & Server.URLEncode(messaggio) & _
"&sender=" & Server.URLEncode(mittente)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "POST", "http://sms1.consultingweb.it/sms/send.php", False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send strPostData
ritorno = xml.responseText
Response.Write "<font color=""red"">" & ritorno & "</font>" & "<BR>"

Set xml = Nothing
end if
'Stampa in rosso il risultato, se tutto è andato bene ritornerà una pagina con
'OK',
'in caso di errore 'KO'

'debug
Response.Write "<br><br><hr><table border=1 cellspacing=0 cellpadding=0>"
for each item in Request.Form
Response.Write "<tr><td>" & item & "</td><td>" & Request.Form(item) & "</td></tr>"
next
Response.Write "</table><hr>"
Response.Write Server.HTMLEncode(strPostData)
'/debug

%> 
</BODY>
</HTML>