<% @LANGUAGE="JAVASCRIPT"%>
<%
  // ---------------------------------------------------------------------------------
  // SMS Machine ASP
  // Descrizione: Lo script può venire chiamato dalla SMS Machine. Riceve un messaggio
  //              lo inserisce in un database Access e risponde al mittente
  // Autore:      MB
  // Web-Info:    http://www.areasx.com
  // EMail-Info:  info@areasx.com
  // 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
  // ---------------------------------------------------------------------------------  

  // ------------------------------------------------------------
  // Ricava i parametri passati dalla SMS Machine con il POST
  // ------------------------------------------------------------
  var Telefono=Request.Form("sms_num");
  var Data=Request.Form("sms_date");
  var Testo=Request.Form("sms_text");
  var Code=Request.Form("sms_code");
  // ------------------------------------------------------------


  // ------------------------------------------------------------
  // Memorizzazione del messaggio nel database
  // ------------------------------------------------------------
  // Ricava il percorso del Database nel filesystem
  var filePath = Server.MapPath("messaggi.mdb");
  // Apre la connessione verso il Database
  AdoConn = Server.CreateObject("ADODB.Connection");
  AdoConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath);
  // Esegue la query SQL
  query="INSERT INTO sms_ricevuti (Data, Numero, Messaggio) VALUES ('" & Data & "', '" & Telefono & "', '" & Testo & "')";
  AdoConn.Execute (query);
  // Chiude la connessione	
  AdoConn.close;      	
  // ------------------------------------------------------------
	
	// ------------------------------------------------------------
	// Spedisce l'SMS di risposta
	// ------------------------------------------------------------
  // Crea l'oggetto ASPTear
  xobj = Server.CreateObject("SOFTWING.ASPtear");
  // Codifica il testo per la transazione HTTP
  Testo="Il tuo SMS è stato correttamente inserito nel database.";
  Testo=Server.URLEncode(Testo);
  Response.ContentType = "text/html";    
  // Apre la pagina di invio della SMS Machine
  strRetval = xobj.Retrieve("http://192.168.0.101/smssend.cgi", 1, "text="+Testo+"&Pwd="+Code+"&num="+Numero+"&mode=0", "", "");
  // ------------------------------------------------------------
	
%>