I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
mzc
mzc
il 22 luglio 2002 alle 22:17
2 messaggi dal 20 luglio 2002
<%
dim strline, File,Instream,visite,tipo,outstream

strFile=Server.MapPath("contatore.txt")
Set FileObject= Server.CreateObject("Scripting.FileSystemObject")
tipo=1
Set Instream=FileObject.OpenTextFile(strFile,tipo,true)
visite=Instream.ReadLine()
visite=CInt(visite)+1
InStream.close
Set Instream=nothing
tipo=2
Set outStream=FileObject.OpenTextFile (strFile,tipo,true)
outstream.writeline(visite)
outstreem.close
set outstream=Nothing


%>

però mi da quest'errore :

Input past end of file

significA CHE VOGLIO LEGGERE ALLA FINE DEL FILE
COME FACCIO PER CORREGGERE L'ERRORE
??


RispondiQuoting
rome
rome
il 23 luglio 2002 alle 03:36
2.907 messaggi dal 15 maggio 2001
Contributi
Fai così :

Set Instream=FileObject.OpenTextFile(strFile,tipo,true)
if Not Instream.AtEndOfLine=true then
visite=Instream.ReadLine()
end if

Ciao ciao

<font size=3><u>-¦»Rome Webmaster«¦-</u></font id=size3>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.