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
%>
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.
???
