Perche questo splendido guestbook:

<%
Dim strFile
strFile = Server.MapPath("guestbook.txt")


If Request.Form.Count = 0 Then

%>
<H3>Inserisci il tuo messaggio:</H3>
<FORM ACTION="guestaccio.asp" METHOD="post">
<TABLE>
<TR>
<TD ALIGN="right"><B>Nome:</B></TD>
<TD><INPUT TYPE="text" NAME="nome" SIZE="25"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"><B>Titolo:</B></TD>
<TD><INPUT TYPE="text" NAME="titolo" SIZE="25"></INPUT></TD>
</TR>

<TR>
<TD ALIGN="right"><B>Commento:</B></TD>
<TD><textarea name="commento" cols=40 rows=12>

</textarea>
</TD>
</TR>
</TABLE>
<INPUT TYPE="submit" VALUE="Inserisci messaggio"></INPUT>
</FORM>

<BR>

<H3>Abstract</H3>

<!--#INCLUDE FILE="guestbook.txt"-->
<%
Else

Dim objFSO
Dim objFile


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 8, True)


objFile.Write "<u>"
objFile.Write FormatDateTime ( Now(), 1)
objFile.Write "</u>"
objFile.Write "<BR>"

objFile.Write "<B>"
objFile.Write "<big>"
objFile.Write Server.HTMLEncode(Request.Form("nome"))
objFile.Write "</big>"
objFile.Write ":</B> "
objFile.Write "<BR>"
objFile.Write "<big>"
objFile.Write Server.HTMLEncode(Request.Form("titolo"))
objFile.Write "</big>"
objFile.Write "<BR>"
objFile.Write Server.HTMLEncode(Request.Form("commento"))
objFile.Write "<BR>"
objFile.Write "<BR>"
objFile.WriteLine ""

objFile.Close
Set objFile = Nothing
Set objFSO = Nothing


%>
<H3>Il tuo abstract è stato inserito</H3>
<A HREF="./guestaccio.asp">Rivedi i messaggi precedenti</A>
<%
End If
%>
funziona perfettamente su PWS mentre su brinkster che dove ho provato a metterlo e che dice di supportare ASP e FileSystem Object e ha un server IIS 5.0 mi riporta Server Error 500?

è sicuramente un errore dovuto alla mancanza di permessi.
mi pare che brinkster dia la possibilità di scrivere solo in una subdir data o cose simili.

<hr color="#31659C" noshade size=1>
Daniele Bochicchio
<b>Content manager di http://www.aspitalia.com</b>

ASP 3 per esempi il mio libro