<%
'-------------------------------------------------------------------------------------------
' ASP SCRIPT per SubitoSMS GATEWAY ver 1.1
' Ultimo aggiornamento: 18/02/2014
' Requisiti: MSXML2
'-------------------------------------------------------------------------------------------
'					OUTPUT
'
' id:CODICE_NUMERICO_SPEDIZIONE (spedizione OK)
' credito insufficiente (in caso di mancanza di credito)
' non autorizzato (in caso di credenziali di accesso errate)
' 
' Se non viene impostato il mittente, destinatario, testo, restituisce il credito residuo:
' credito:NUMERO_SMS_RESIDUI
' 

'					NOTE
'E possibile inviare il medesimo sms contemporaneamente a piu persone
'inserendo nel campo destinatario i numeri di telefono separati da virgola.
'preceduti dal prefisso internazionale italiano +39

username = "" 					 
password = "" 					 
mittente = ""					 
destinatario = "" 				 
testo = ""				 		

' Nel caso si usino caratteri particolari,  meglio sostituire queste Replace con Server.URLEncode
destinatario = Replace (destinatario, "%", "%25")
destinatario = Replace (destinatario, "=", "%3D")
destinatario = Replace (destinatario, "&", "%26")
destinatario = Replace (destinatario, "#", "%23")
destinatario = Replace (destinatario, "+", "%2B")
destinatario = Replace (destinatario, " ", "%20")

mittente = Replace (mittente, "%", "%25")
mittente = Replace (mittente, "=", "%3D")
mittente = Replace (mittente, "&", "%26")
mittente = Replace (mittente, "#", "%23")
mittente = Replace (mittente, "+", "%2B")
mittente = Replace (mittente, " ", "%20")

testo = Replace (testo, "%", "%25")
testo = Replace (testo, "=", "%3D")
testo = Replace (testo, "&", "%26")
testo = Replace (testo, "#", "%23")
testo = Replace (testo, "+", "%2B")
testo = Replace (testo, " ", "%20")


StringHttpPost = ""
StringHttpPost = StringHttpPost & "username=" & username & "&password=" & password 
StringHttpPost = StringHttpPost & "&mitt=" & mittente & "&testo=" & testo
StringHttpPost = StringHttpPost & "&dest=" & destinatario


URL = "http://www.subitosms.it/gateway.php?" & StringHttpPost

Set XML = Server.CreateObject("MSXML2.ServerXMLHTTP")

XML.Open "GET", URL, False
XML.Send

Result = XML.responsetext

Set XML = Nothing

Response.write Result

%>