Här
if obj.FileExists("data.txt") = False Then
kanske du skulle kunna tänka att lägga till katalognamnet också.
2 svar · 176 visningar · startad av XepheX
Hej!
Först och främst ska vi göra det klart för oss att jag är helt blank vad det gäller ASP
Ok, då är det klart, och över till frågan.
Det är så att jag sitter och läser på https://www.idg.se/webstudio och gör även exemplen som visas. Dock så har jag fastnat på ett ställe, och det är att textfilen skrivs över trots att jag har lagt med en 8(ForAppending?) i OpenTextFile.
Hoppas att ni kan hjälpa mig att reda ut detta så att det fungerar =)
Koden är som följer:
**<%
Dim obj, TS
Set obj = CreateObject("Scripting.FileSystemObject")
if obj.FileExists("data.txt") = False Then
Set TS = obj.CreateTextFile("C:\Inetpub\wwwroot\Fredde\data.txt", 8)
Else
Set TS = obj.OpenTextFile("C:\Inetpub\wwwroot\Fredde\data.txt", 8)
End If
TS.WriteLine Request.Form("namn")
TS.WriteLine Request.Form("e-post")
TS.WriteLine Request.Form("hemsida")
TS.WriteLine Request.Form("annons")
TS.Close
%>**
Här
if obj.FileExists("data.txt") = False Then
kanske du skulle kunna tänka att lägga till katalognamnet också.
Haha. Tack! Tur att det finns folk som kan hålla koll på andras missar =)