Opdater i et textfil

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/din_fil.txt")
Set f = fso.OpenTextFile(filespec,1)

Count = 1
Do While not f.AtEndOfStream
  Linie = f.ReadLine
  If Count = 17 Then
    NyTekst = NyTekst & NyLinie & vbCrlf
  Else
    NyTekst & NyTekst & Linie & vbCrlf
  End If
Count = Count + 1
Loop

Set f = fso.OpenTextFile(filespec,2)
f.Write NyTekst

f.Close
%>

NyLinie vil så være den nye tekst i linie 14.

If Count = 17 Then
    NyTekst = NyTekst & NyLinie & vbCrlf
  Else
    NyTekst & NyTekst & Linie & vbCrlf
  End If

den fatter jeg ikke hvorfor else

"NyTekst &" skal lige rettes til "NyTekst ="

Hvis det IKKE er linie 17 skal linien ikke udskiftes. Derfor "else"..

okey så den skriver fartisk hele textfilen igen ?!?

Den samler alt indholdet i en variabel og skriver det hele igen med den nye rettelse.

okey kigger på det =)

okey jeg har et problem jeg skal bruge en " i min text fil hvordan udskriver jeg den?

""