<% Dim fso Dim file Dim string, nomeFile Set fso = CreateObject("Scripting.FileSystemObject") 'Visualizziamo i dati giÓ immessi string = "" nomeFile=server.mappath("/public/gbht.dtx") If fso.FileExists(nomeFile) Then Set file = fso.OpenTextFile(nomeFile, 1, False, 0) Do While file.AtEndOfStream <> True string = string & vbCrLf & file.ReadLine Loop file.Close() Set file=Nothing Set fso=Nothing End If response.write string %>
A causa del troppo spam non Ŕ attualmente possibile inserire messaggi nel guestbook. Scusate per il disservizio.