avrei un problema, (altrimenti nn avrei neanke postato ) con la scrittura nel file di testo ke funge da database, praticamente sovrascrive e nn aggiunge i dati ke inserisco.

----------------------------------
<code>
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;news|on_site&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;%
On Error Resume Next
Dim ObjFileSys
Dim ObjTextStream
Dim Filename
data = Date()
titolo = request("titolo")
news = request("news")
sito = request("sito")
link = request("link")
autore = "yuusaku"
%&gt;
&lt;%
if IsEmpty(request("titolo")) Then
response.write("&lt;form action='scrivi.asp' method='POST'&gt;&lt;br&gt;")
response.write("titolo: &lt;input type='Text' name='titolo' size='30'&gt;&lt;br&gt;")
response.write("news: &lt;textarea name='news' cols='70' rows='20'&gt;&lt;/textarea&gt;&lt;br&gt;")
response.write("sito: &lt;input type='Text' name='sito' size='40'&gt;&lt;br&gt;")
response.write("link: &lt;input type='Text' name='link'&gt;&lt;br&gt;")
response.write("&lt;input type='Submit' name='OK' value='OK'&gt;")
response.write("&lt;/form&gt;")
else
Set objFileSys=Server.CreateObject("Scripting.FileSystemObject")
Filename=Server.MapPath("/text/news_1.txt")
Set ObjTextStream = ObjFileSys.OpenTextFile(Filename,ForAppending,False)
if err.value &lt;&gt; 0 then
Set ObjTextStream = ObjFileSys.CreateTextFile(Filename)
end if
ObjTextStream.WriteLine ("'" & data & "'" + "$" + "'" & titolo & "'" + "$" + "'" & news & "'" + "$" + "'" & sito & "'" + "$" + "'" & link & "'" + "$" + "'" & autore & "'")
ObjTextStream.close
end if
%&gt;
&lt;% response.write "&lt;a href=text_1.asp&gt;leggi&lt;/a&gt;"%&gt;
&lt;/body&gt;
&lt;/html&gt;
</code>
--------------------------------

nn è ke qlcn riesce a dirmi dove andrebbe modificato?

tnk yuusaku godai

Altrimenti, se non vuoi usare l'ODBC con i db testo, devi aprire il file due volte, in lettura e in scrittura...

Poi, in un ciclo, fino alla fine del file in lettura, leggi e scrivi nell'altro. Alla fine aggiungi il record che t'interessa.

<b>[Urban]</b>

più o menu:

dopo

Set ObjTextStream = ObjFileSys.CreateTextFile(Filename)

aggiungi

OldFile = ObjTextStream.ReadAll // o un metodo simile, non ricordo

e sostituisci

ObjTextStream.WriteLine ("'" & data & "'" + "$" + "'" & titolo & "'" + "$" + "'" & news & "'" + "$" + "'" & sito & "'" + "$" + "'" & link & "'" + "$" + "'" & autore & "'")

con

ObjTextStream.WriteLine OldFile & ("'" & data & "'" + "$" + "'" & titolo & "'" + "$" + "'" & news & "'" + "$" + "'" & sito & "'" + "$" + "'" & link & "'" + "$" + "'" & autore & "'")

ciao

Vale



Modificato - jazzvale - 05 Lug 2001 12:18:37