Scusate l'invadenza ma nonostante i consigli ricevuti non riesco a modificare il mio guestbook.
Avrei bisogno di inserire in un file di testo l'indirizzo ip il nome e il messaggio e la data di chi scrive nel guestbook ma non ci riesco mo da errore.
io ho inserito il codice in rosso ma mi da errori come posso fare??
Dov'è che sbaglio???

codice:
<%@LANGUAGE = JScript%>
<%
	// QUESTA E' LA PASSWORD DI AMMINISTRATORE PER ELIMINARE MESSAGGI INDESIDERATI... CAMBIALAAAAAAAAAAAAAAA :-)
	var admin_password = "xxxx";

	// ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
	
	
	/*
		ASPETTI DELLA CONFIGURAZIONE DELL'APPLICAZIONE NON CONTEMPLATI NEI SINGOLI PASSAGGI DI CODICE
		
		Pur trattandosi di un semplice Guestbook, questo singolo file consente di effettare
		tutte le operazioni possibili. A tal proposito è necessario puntualizzare alcune cose:
		
		1. E' importante, qualora dovessi decidere di rinominare questo file,
		   modificare tutti i punti in cui si fa riferimento al file guestbook.asp
		   sostituendo col nome del file che hai utilizzato per la rinomina.
		
		2. La grafica è personalizzabile in tutti i minimi particolari,
		   ma è importante non confondere alcuna condizione del codice Asp
		   evitando che generino errori.
		   
		Gli altri punti cardine dell'applicazione sono contemplati seguendo i vari passi del codice.
	*/
	
	// ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----
	
	Response.Buffer = true;
	
	// APRO LA CONNESSIONE VERSO IL DATABASE
	// SE SUL TUO SERVER HAI NECESSITA' DI SPOSTARE IL DATABASE IN UNA CARTELLA DI SISTEMA DEDICATA
	// DEVI MODIFICARE IL PERCORSO NELLA PORZIONE DI CODICE Server.MapPath("percorso/guestbook.mdb")
	var connessione = new ActiveXObject("ADODB.Connection");
	var stringa = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("guestbook.mdb");
	connessione.Open(stringa);
	
	// UTILIZZEREMO UN SOLO FILE PER ESEGUIRE TUTTE LE OPERAZIONI POSSIBILI
	// INSERIMENTO DEI MESSAGGI, VISUALIZZAZIONE DEI MESSAGGI, CANCELLAZIONE DI MESSAGGI DA PARTE DELL'AMMINISTRATORE, ECC...
	// QUINDI DICHIARO UNA VARIABILE QUERYSTRING PER OTTENERE RISULTATI DIVERSI A SECONDA DEL LORO VALORE
	var azione = new String(Request.QueryString("azione"));
	
	// CONTO I MESSAGGI PREDENTI SUL DATABASE
	var conta = connessione.Execute("SELECT COUNT(*) AS id FROM messaggi");
	
	// EFFETTUO LA PAGINAZIONE PER MOSTRARE SOLO UN CERTO NUMERO DI MESSAGGI A VIDEO
	// IN QUESTO CASO 10
	var quanti = 10;
	var Mostra = new ActiveXObject("ADODB.Recordset");
		Mostra.Open("SELECT * FROM messaggi ORDER BY id DESC",connessione,1);
	var pagina = parseInt(Request.QueryString("pagina"));
	    if (isNaN(pagina) || pagina < 1) pagina = 1;
	    if (!Mostra.EOF)
	    {
	         Mostra.PageSize = quanti;
	         Mostra.AbsolutePage = pagina;
	    }
	var i = 0;
	
	// IMPOSTO IL COLORE DI SFONDO DELLE CELLE CHE CONTENGONO I MESSAGGI
	var colore = 0;
%>
<html>
	<head>
		<title>Guestbook</title>
		
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
	background-color: #ffa500;
}
-->
</style></head>
<body>

<h2 align="center">[img]/immagini/bacheca.jpg[/img]</h2>

<table class="MODULO" width="500" align="center" cellpadding="3" cellspacing="0">
	<form name="guestbook" method="post" action="default.asp?azione=Inserisci">
		<tr>
			<td width="150">Nome</td>
			<td width="350"><input type="text" name="nome" maxlength="50" style="width: 100%; background-color: #FFCC00; layer-background-color: #FFCC00; border: 1px none #000000;"></td>
		</tr>
		<tr>
			<td colspan="2">Messaggio</td>
		</tr>
		<tr>
			<td colspan="2"><textarea name="messaggio" style="width: 100%; height: 100px; background-color: #FFCC00; layer-background-color: #FFCC00; border: 1px none #000000;"></textarea></td>
		</tr>
		<tr>
			<td colspan="2" align="right"><input type="submit" value="Invia "></td>
		</tr>
	</form>
</table>

<p align="center">Ci sono <%=conta("id")%> messaggi</p>

<%
	if (azione == "undefined")
	{
%>
<table width="500" align="center" cellpadding="3" cellspacing="0">
<%
	// MOSTRO I MESSAGGI A VIDEO
	if (Mostra.EOF)
	{
		Response.Write("

Non ci sono messaggi...</p>");
	}
	else while (!Mostra.EOF && i<quanti)
	{
%>
	<tr>
		<td bgcolor="#<%colore%2 == 0 ? Response.Write("FFFFFF") : Response.Write("EEEEEE")%>" style="border-bottom: Dashed 1px #CCCCCC; background-color: #FFCC00; layer-background-color: #FFCC00; border: 1px none #000000;">
			<font color="#800000"><%=Mostra("titolo")%></font><%Session("amministratore") == "OK" ? Response.Write(" (<a href=\"default.asp?azione=Cancella&id=" + Mostra("id") + "\">cancella</a>)") : Response.Write("")%>

			Autore: <%=Mostra("nome")%></a>

			Data: <%=Mostra("data")%> ore <%=Mostra("ora")%>


	  <%=Mostra("messaggio")%>	  </td>
	</tr>
<%
		i++;
		colore++;
		Mostra.MoveNext();
	}
%>
</table>
<%
	}
	else if (azione == "Inserisci")
	{
		// RECUPERO I DATI DAL MODULO PER EFFETTUARE LA REGISTRAZIONE
		var nome = new String(Request.Form("nome"));
		var messaggio = new String(Request.Form("messaggio"));
		// ESPRESSIONE REGOLARE PER LA VERIFICA DELL'INDIRIZZO EMAIL
		// CREO LA DATA
		var oggi = new Date();
		var data = oggi.getDate() + "/" + (oggi.getMonth() + 1) + "/" + oggi.getFullYear();
		var ora = oggi.getHours() + ":" + oggi.getMinutes();
		// VALIDAZIONE DEI DATI INSERITI DALL'UTENTE
		var errore = "default.asp?azione=errore&codice=";
		if (nome == "" || nome == "undefined" || nome.charAt(0) == " ")
		{
			Response.Redirect(errore + "1");
		}
		else if (messaggio == "" || messaggio == "undefined" || messaggio.charAt(0) == " ")
		{
			Response.Redirect(errore + "4");
		}
		else
		{
			var r_messaggio = messaggio.replace(/</g, "&lt;");
			var rr_messaggio = r_messaggio.replace(/>/g, "&gt;");
			var rrr_messaggio = rr_messaggio.replace(/&/g, "&amp;");
			var rrrr_messaggio = rrr_messaggio.replace(/\n/g, "
");
			// CASO IN CUI TUTTE LE CONDIZIONI SONO STATE SODDISFATTE
			// QUINDI PROCEDO CON LA REGISTRAZIONE DEL MESSAGGIO
			var recordset = new ActiveXObject("ADODB.Recordset");
				recordset.Open("messaggi",connessione,3,3);
					recordset.AddNew();
						recordset("nome") = nome;
						recordset("messaggio") = rrrr_messaggio;
						recordset("data") = data;
						recordset("ora") = ora;
					recordset.Update();
var intModalita 
// Se intModalita viene inizializzato a 2 si perde il contenuto precedente 
// Se intModalita viene inizializzato a 8 si accoda il contenuto 
Fil=CreateObject("Scripting.FileSystemObject") 
var strFile 
strFile = server.mapPath("testo.txt") 
out=Fil.OpenTextFile(strFile,8,true) 

out.WriteLine(Request.ServerVariables("REMOTE_HOST")) 
Response.write("Scrittura eseguita (spero)")
out.Close 
out=null 
Fil=null   
				recordset.Close();

				Response.Redirect("default.asp");
		}
	}
	else if (azione == "errore")
	{
		// GESTIONE DEI MESSAGGI DI ERRORE
		var codice = parseInt(Request.QueryString("codice"));
		var correggi = "<p align=\"center\"><input type=\"button\" value=\"Correggi\" onClick=\"window.history.back()\">";
		if (codice == "1")
		{
			Response.Write("<p class=\"ERRORE\">Inserisci il tuo nome per favore</p>" + correggi);
		}
		else if (codice == "2")
		{
			Response.Write("<p class=\"ERRORE\">Inserisci la tua email per favore</p>" + correggi);
		}
		else if (codice == "2")
		{
			Response.Write("<p class=\"ERRORE\">Inserisci la tua email per favore</p>" + correggi);
		}
		else if (codice == "3")
		{
			Response.Write("<p class=\"ERRORE\">Inserisci il titolo del messaggio favore</p>" + correggi);
		}
		else if (codice == "4")
		{
			Response.Write("<p class=\"ERRORE\">Inserisci il corpo del messaggio favore</p>" + correggi);
		}
		else
		{
			Response.Redirect("default.asp");
		}
	}
	else if (azione == "Login")
	{
		// LOGIN PER L'AMMINISTRATORE
		var password = new String(Request.Form("password"));
		if (password == admin_password)
		{
			Session("amministratore") = "OK";
		}
		Response.Redirect("default.asp");
	}
	else if (azione == "Logout")
	{
		// LOGOUT PER L'AMMINISTRATORE
		Session.Abandon();
		Response.Redirect("default.asp");
	}
	else if (azione == "Cancella")
	{
		// EFFETTUO LA CANCELLAZIONE DEL MESSAGGIO (SOLO SE AUTENTICATO)
		if (Session("amministratore") != null)
		{
			var id = parseInt(Request.QueryString("id"));
			connessione.Execute("DELETE * FROM messaggi WHERE id LIKE '" + id + "'");
		}
		Response.Redirect("default.asp");
	}
	else
	{
		Response.Redirect("default.asp");
	}
%>





<p align="center">

<%
	// CREO LA BARRA DI NAVIGAZIONE PER VISITARE "TUTTE LE PAGINE" CONTENENTI I VECCHI MESSAGGI
	for (var x=0; x<Mostra.PageCount; x++)
	{
		if (pagina == (x + 1))
		{
			Response.Write("[" + (x + 1) + "] ");
		}
		else
		{
			Response.Write("[<a href=\"default.asp?pagina=" + (x + 1) + "\">" + (x + 1) + "</a>] ");
		}
	}
%>
</p>





<p align="center">
<form name="login" method="post" action="default.asp?azione=<%Session("amministratore") == null ? Response.Write("Login") : Response.Write("Logout")%>">
		<%if (Session("amministratore") == null) {%>
		<input type="password" name="password">
		<%}%>
		<input type="submit" value="<%Session("amministratore") == null ? Response.Write("Login") : Response.Write("Logout")%>">
</form>
</p>

</body>
</html>
<%connessione.Close()%>