<% @LANGUAGE="JAVASCRIPT"%>
<%
  // ---------------------------------------------------------------------------------
  // SMS Machine
  // Descrizione: Lo script Può venire chiamato dalla SMS Machine e manda un
  //              SMS
  // Autore:      MB
  // Web-Info:    http://www.smsmachine.it
  // Note:        Necessita della DLL ASPtear.dll che deve essere installata e registrata 
  //              sul server ASP. Per registrarla occorre copiare la dll in una cartella
  //              (ad es. C:\WINNT\system32) e poi da Start->Esegui digitare il comando
  //              regsvr32 C:\WINNT\system32\ASPtear.dll
  //              Questo script di esempio scrive anche la risposta ottenuta dalla
  //              SMS Machine su un file sul server
  // ---------------------------------------------------------------------------------  
    
	var Telefono=Request.Form("sms_num");
	var Data=Request.Form("sms_date");
	var Testo=Request.Form("sms_text");
	var Code=Request.Form("sms_code");  

  // ------------------------------------------------------------
  // Chiama lo script per l'invio (occorre impostare il corretto
  // indirizzo IP per la SMS Machine)
  // ------------------------------------------------------------
  var IPAddress="192.168.0.106";
  var Testo="Messaggio di prova dal Server ASP";
  var Numero="3330000000";
  var Code="SMS1234";
  var Tipo=0;      // 0 - SMS Normale, 1 - SMS Flash
  
  Testo=Server.URLEncode(Testo);
  xobj = Server.CreateObject("SOFTWING.ASPtear");
  Response.ContentType = "text/html";
    
  // URL da aprire, Metodo (deve essere 1), Parametri, non usato, non usato
  strRetval = xobj.Retrieve("http://"+IPAddress+"/smssend.cgi", 1, "text="+Testo+"&Pwd="+Code+"&num="+Numero+"&mode="+Tipo, "", "");        
  
  // ------------------------------------------------------------
  // Scrive la risposta ottenuta in un file sul server
  // ------------------------------------------------------------
  var NomeDelFile="C:\\Inetpub\\wwwroot\\test.txt";
  fso = Server.CreateObject("Scripting.FileSystemObject");      
  f = fso.CreateTextFile(NomeDelFile);
  f.Write ("Versione AUTO. - ");   
	f.Write (strRetval);
  f.Close();  
  // ------------------------------------------------------------
  
  Response.Write("Fine del Test");
%>