<%@LANGUAGE="VBSCRIPT"%> <% ' Questo file ha il compito di leggere il file di testo ' contenente il guestbook e di formattarlo sullo schermo. ' Il file viene prima aperto, in seguito si legge una riga ' per volta, si procede con lo spezzare la riga nei sui campi ' principali nome, email ed in seguito il testo. ' Fra un messaggio è l'altro viene inserita una immagine GIF. %> Nessun titolo

<% Dim objOpenFile, objFSO, strPath ' Variabili ed oggetti usati per la gestione del file Dim lineRead ' Variabile stringa che contiene una riga dal file del guestbook ' Apre il file di testo del guestbook strPath = Server.MapPath("gbook.txt") ' Ricava il percorso del file del guestbook Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Crea un oggetto per la gestione dei file Set objOpenFile = objFSO.OpenTextFile(strPath, 1) ' Apre il file del guestbook, accesso tramite objOpenFile ' Legge tutto il contenuto del file di testo, riga per riga ' ed esegue la visualizzazione Do While Not objOpenFile.AtEndOfStream %>

<% lineRead = objOpenFile.ReadLine if len(lineRead) > 2 then Response.Write ("
" & "Messaggio inserito da:" & lineRead & "
") %>
<% end if Loop %>