indsæt i txt

'-------------
dim benny
benny = "Første linie fra starten" & vbcrlf

benny = "En anden linie" & vbcrlf & benny
'-------------

herefter indeholder benny:
'---
En anden linie
Første linie fra starten
'---

/sEi

hvordan i forhold til denne :
<%
Dim fso, f, filespec

filespec = Server.Mappath("tekst.txt")
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFIle(filespec, 1)

Do While f.AtEndOfStream <> True
f.ReadLine
a = a + 1
Loop
f.Close

if a > 10 then
Set f = fso.OpenTextFile(filespec,2)
else
Set f = fso.OpenTextFile(filespec,8)
end if

f.Writeline Request.Form("tekst")
f.close
response.redirect "default.asp"
%>

Nu tror jeg du forstår lidt hvad du mener!

Hvis du vil have nye linjer tilføjet starten af et dokument!...?

Så må du hive hele filen ind - putte i start som benny eksempel - og så gemme fil igen!

Måske er det det du mener!..?

/sEi

jeg vil have nye linjer først men har ikke forståelse for det andet

logText = "Ny text"               
Set fso = CreateObject("Scripting.FileSystemObject")
                Set a = fso.OpenTextFile("c:\fil.txt", 8, TRUE)
            a.Write(logtext)
            a.Close
          Set a  = Nothing
          Set fso = Nothing

//>Rune

hvordan i forhold til mit overstående

output = ""
            While Not objRs.EOF
              output = output & "Din tekst"
            objRs.MoveNext()
            Wend

        strFileName = "tekst.txt"
        call appendToFile(strFileName, output)

        '****************************
        Function appendToFile(strFileName, logtext)
        Dim whichfile, fso, a

            whichfile = Server.MapPath(strFileName)
                Set fso = CreateObject("Scripting.FileSystemObject")
                Set a = fso.OpenTextFile(whichfile, 8, TRUE)
            a.Write(logtext)
            a.Close
          Set a  = Nothing
          Set fso = Nothing
        End Function

Brug dette istedet for din gamle kode!

//>Rune

det går i kage prøver med database som forslået af burning ice