<% @LANGUAGE="JAVASCRIPT"%>
<%
// ---------------------------------------------------------------------------------
// SMS Machine
// Descrizione: Lo script può essere chiamato dalla SMS Machine in
// modalità POST.
// Autore: MB
// Web-Info: http://www.smsmachine.it
// Note: Nello script sono presentate 3 diversi impieghi delle
// variabili ricavate. La prima visualizza i dati nel browser ed è
// utile solamente per controllare il funzionamento dello script.
// La seconda scrive il messaggio ricevuto in un file sul server IIS.
// La terza inserisce i dati in un database (implica la presenza di un
// SQL server verso cui fare la connessione
// ---------------------------------------------------------------------------------
// ------------------------------------------------------------
// Ricava i parametri passati 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");
// ------------------------------------------------------------
// ------------------------------------------------------------
// Visualizza le varibili ricavate
// ------------------------------------------------------------
Response.Write("Data:" + Data+"
");
Response.Write("Telefono:" + Telefono+"
");
Response.Write("Testo:" + Testo+"
");
Response.Write("Codice" + Code+"
");
// ------------------------------------------------------------
// ------------------------------------------------------------
// Scrive le variabili in un file sul server
// ------------------------------------------------------------
var NomeDelFile="C:\\Inetpub\\wwwroot\\test.txt";
fso = Server.CreateObject("Scripting.FileSystemObject");
f = fso.CreateTextFile(NomeDelFile);
f.Write ("Versione POST. - ");
f.Write("Data: " + Data+" - ");
f.Write("Telefono: " + Telefono+" - ");
f.Write("Testo: " + Testo+" - ");
f.Write("Codice: " + Code);
f.Close();
// ------------------------------------------------------------
// ------------------------------------------------------------
// Inserisce le varibili in un Database
// ------------------------------------------------------------
var rsMessaggi = Server.CreateObject("ADODB.Command");
rsMessaggi.CommandType = 1;
rsMessaggi.ActiveConnection = "DSN=SMSMachine";
rsMessaggi.CommandText="INSERT INTO Messaggi values ('"+Telefono+"','"+Data+"','"+Testo+"','"+Code+"')";
rsMessaggi.Execute();
rsMessaggi.ActiveConnection.Close();
// ------------------------------------------------------------
Response.Write("OK");
%>