Newsgroup: it.lavoro.professioni.webmaster
Titolo: Sovrascrivere un file Txt

si tratta di una mailing list che ha il suo db in formato txt.
Ora quando uno uole iscriversi, lo script legge il db e lo salva su una
stringa, aggiunge l'email del nuovo iscritto alla stringa e con la stringa
ottenuta crea un nuovo file con lo stesso nome del precedente.
Bene, non funzica!
 Errore di run-time di Microsoft VBScript error '800a0046'
Autorizzazione negata
/coverland/mailinglist/easylist.asp, line 110
ecco il listato:
Function addemailaddy()
 toptable
 Response.write "<tr><td bgcolor=#F79C19>"
 newemailaddy=Request.Form("emailaddy")
 logfile = Server.MapPath("../../db/coverland/email-list.txt")
 dateadded=date()
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objCountFile = objFSO.OpenTextFile(logfile, 1, True)
 news = objCountFile.ReadAll
 objCountFile.Close
 Set objCountFile = Nothing
 Set objFSO = Nothing
 userrecord=Split(news, "**")
 numrecords = Ubound(userrecord)
 flag=0
 finalstr=""
 for i = 1 to numrecords
 counter=Split(userrecord(i), "%%")
 If counter(0)=newemailaddy Then
  flag=1
 Else
  ' Do nothing
 End If
 Next
 If flag=0 Then
  If newemailaddy = "" Or Not IsValidEmail(newemailaddy) Then
   Response.write "Mi dispiace, ma hai inserito un indirizzo em@il non
valido e non possiamo iscriverti alla nostra NewsLetter.<p>Per cortesia, <a
href='javascript:history.back(-1)'>ritorna alla pagina precedente</a> e
correggi l'errore."
  Else
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   Set objCountFile = objFSO.OpenTextFile(logfile, 1, True)
   news = objCountFile.ReadAll
   objCountFile.Close
   Set objCountFile = Nothing
   Set objFSO = Nothing
   atempip = Request.ServerVariables("REMOTE_ADDR")
   finalstr=news & "**" & newemailaddy & "%%" & dateadded & "||" & atempip &
"||0"
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   Set objTextFile = objFSO.CreateTextFile(logfile)
(**************RIGA 110************)
   objTextFile.WriteLine finalstr
   objTextFile.Close
   Set objTextFile = Nothing
   Set objFSO = Nothing
   Response.Write "La tua em@il: " & newemailaddy & " č stata registrata!"
   sendemail newemailaddy, welcometitle, welcomemessage
Dove sbaglio?
grazie
ah, che sia l'hosting di 
ibyweb.com
 a dar problemi?
p.s. faccio presente che lavoro tranquillamente con i db in access in quella
cartella

 /coverland/mailinglist/easylist.asp, line 110
La butto lě: a occhio sembrerebbe che non ci siano i permessi di scrittura
nella cartella; non ne hai una tipo "public" coi permessi giusti?
Ciao

cartella
questo non c'entra con eventuali permessi di i/o su file.
altre due cose: 1. ti troveresti meglio su it.comp.www.asp, 2. mi
rendo conto che forse l'hai copincollata da qualche parte senza
neanche sapere come funziona, ma non è necessario che posti *tutta* la
tua routine, postane solo le righe critiche.
-- 
dipende


no, ce n'č una chiamata db in cui ci vanno tuttti i database....
e con quellli in access mi trovo bene...
txt non vanno...mah...

 --
più o meno so come funzica....
certo che se trovo il codice già pronto lo copio e incollo sputoratamente.
ho postato quasi tutte le righe perche mi pareva che non ci fossero problemi
attorno alla linea incriminata, e così ho postato anche le definizioni che
stavano sopra.
grazie
ciao

"..::Rigo::.." <Ri...@Pearl-Jam.it> ha scritto nel messaggio
news:al568i$1ngute$1...@ID-127183.news.dfncis.de...

Continuando per congetture perché non provi a mettere il .txt fuori da
mdb-database?
Sia mai che in quella cartella puoi scrivere solo sui db .mdb e non sui file
.txt.
Ovviamente poi cambia anche il percorso nello script.
Ciao


certo!
ma fuori da quella cartella non ho nessun tipo di permesso!
ufff
grazie lo stesso!

non č i/o anche questo?
no, sono due cose diverse: al db ci accedi con una connessione odbc o
uel che l'č, le operazioni di scrittura su file le fai per mezzo
dell'oggetto filesystemobject, che, a quanto mi risulta, l'hoster  puň
disabilitare.  prova a chiedergli esplicitamente questo: "sono
abilitato all'uso dell'oggetto asp filesistemobject?".
quanto al fatto di copiare codice pronto all'uso, ok, niente di male,
solo, a me non interessa leggere (e scaricare) un fottio di righe di
codice che dicono di che colore fai le tabelle ecc..  cerca di
individuare solo la parte critica, vedrai che poi come funziona lo
capisci anche meglio.
-- 
dipende