Gha! Mer problem! :(

Nu börjar jag tröttna... Nu funkar inte gästboken längre... :(

Får felmeddelandet

Körningsfel i Microsoft VBScript error '800a0036'

Felaktigt filåtkomstläge

/asp/pass.asp, line 62

Koden ser ut så här:

<% 
dim Obj, V, namn, epost, inlagg 

Set Obj = CreateObject("Scripting.FileSystemObject") 

If Obj.FileExists("f:\Inetpub\wwwroot\asp\tycktill.txt") = False then 

Set V = Obj.CreateTextFile("f:\Inetpub\wwwroot\asp\tycktill.txt") 

Else 

Set V = Obj.OpenTextFile("f:\Inetpub\wwwroot\asp\tycktill.txt",8) 

End If 

Do Until V.AtEndOfLine 

namn = V.ReadLine 
epost = V.ReadLine 
inlagg = V.ReadLine 
%>

Rad 62 är Do Until V.AtEndOfLine...

:( :(

------------------
SPiN, bjowik99@it-gymnasiet.nu

måste du inte lägga in en loop också? testa att lägga den sist.

lycka till!

------------------
// nauska - http://come.to/nauska

Joo det har jag, men jag skrev bara inte in den i inlägget... :)

så här har jag gjort:

<% Loop
V.Close %>

Och det e juh rätt...

------------------
SPiN, bjowik99@it-gymnasiet.nu

Med CreateTextFile skapas en textstream som båda kan läsas och skrivas, men AtEndOfLine kräver exklusiv läsrättighet.

Stäng textstream:en, och öppna den igen med
OpenTextFile("f:\Inetpub\wwwroot\asp\tycktill.txt", 1)

Detsamma gäller den OpenTextFile du har.

Sedan kan det också tyckas vara lite onödigt att försöka läsa från en fil som nyss skapats, så det enda du behöver göra är att flytta upp loopen till OpenTextFile och ändra läsläget till 1 (forReading).

Tack, men jag fick den att funka ändå. :)
Men bara på PWS, inte på webben... jag har sidan på http://www.gratiswebplats.nu om det spelar roll.

Om jag la in hela sökvägen till filen, dvs. http://www.gratiswebplats.nu/acey/tycktill.txt
funkade det inte... Då gick det inte att läsa filen ens. Men om jag bara hade tycktill.txt så går det att läsa, men inte att skriva.
???

------------------
SPiN, bjowik99@it-gymnasiet.nu