<%@ LANGUAGE = "VBScript" %>
<% dim FormOpzioni, fs, file
Set FormOpzioni = Request.Form
'Scrivo un file di testo
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set file = FileObject.CreateTextFile("c:\inetpub\wwwroot\elezionistudenti\form\questionario_appoggio.txt",
True)
' registro il contenuto del form sul file diviso da ;
file.WriteLine(FormOpzioni("cognome")& ";" & FormOpzioni("nome") & ";" & FormOpzioni("hobby"))
Set file2 = FileObject.OpenTextFile("c:\inetpub\wwwroot\elezionistudenti\form\questionario.txt",
1, 0, 0)
while not file2.AtEndOfStream file.
WriteLine(file2.ReadLine)
wend file2.
Close file
Close.file2
FileObject.DeleteFile "c:\inetpub\wwwroot\elezionistudenti\form\questionario.txt"
FileObject.CopyFile "c:\inetpub\wwwroot\elezionistudenti\form\questionario.txt",
"c:\inetpub\wwwroot\elezionistudenti\form\questionario_visibile.txt",True
%>
<HTML>
<HEAD> <TITLE>Questionario</TITLE>
</HEAD>
<BODY>
<CENTER>
<FONT FACE="ARIAL">
Gentile <FONT SIZE=+1 COLOR="RED">
<!--Mostro a video il contenuto del form -->
<%Response.Write(FormOpzioni("cognome"))%> <%Response.Write(FormOpzioni("nome"))%>
</FONT><BR>
il tuo questionario è stato registrato.<BR>
I tuoi interessi sono:
<FONT SIZE=+1 COLOR="blue"><%Response.Write(FormOpzioni("hobby"))%></FONT>
<P>
Buona Fortuna! <P>
<A HREF="http://pluto.casa.unimo.it/elezionistudenti/form/questionario_visibile.txt">Controlla</A>
che il tuo nome sia stato registrato
</FONT> </CENTER>
</BODY>
</HTML>