Hvorfor virker denne script kode ik ??

Denne:
(fso = filsystemobject)

Rettes til:
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Virker stadigvæk ikke... :-(

du skal også skrive filnavnet i "":

set fil = fso.opentextfile("index2.xml", 2)

Det er mulig du skal havde Server.Mappath ind også:
set fil = fso.opentextfile(Server.Mappath("index2.xml"), 2)

2 skal nok rettes til 1 for at den kan læse filen, når den åbnes med 2 betyder det for writing og du læser fra filen. Så det skal være for reading som er 1:
set fil = fso.opentextfile("index2.xml", 1)

http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject_opentextfile.html

Det er korrekt, men der skal jo også skrives til filen!

Kan du lave en fuldstænding - opdateret - version af koden ??

<%
set fso = Server.CreateObject("Scripting.FileSystemObject")set fil = fso.opentextfile(server.mappath("./index2.xml", 1)
strNewFil = ""
do while not fil.AtEndOfStream
  strLine = fil.readline
  if strLine = "</wenn>" then
    strNewFil = strNewFil & tks
  end if
  strNewFil = strNewFil & strLine
loop
set fil = nothing
set fil = fso.opentextfile(server.mappath("./index2.xml", 2)
fil.write strNewFil
%>

nåja - du skal forresten også huske linieskift, ellers virker det kun en gang:

<%
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fil = fso.opentextfile(server.mappath("./index2.xml", 1)
strNewFil = ""
do while not fil.AtEndOfStream
  strLine = fil.readline
  if strLine = "</wenn>" then
    strNewFil = strNewFil & tks & vbcrlf
  end if
  strNewFil = strNewFil & strLine & vbcrlf
loop
set fil = nothing
set fil = fso.opentextfile(server.mappath("./index2.xml", 2)
fil.write strNewFil
%>

Jo det bliver noget med, jeg var lige væk noget tid :)


set fs=Server.CreateObject("Scripting.FileSystemObject")
set fil = fso.opentextfile("index2.xml", 1)
strNewFil = ""
do while not fil.AtEndOfStream
  strLine = fil.readline
  if strLine = "</wenn>" then
    strNewFil = strNewFil & tks
  end if
  strNewFil = strNewFil & strLine
loop
'Luk filen
fil.Close
'Åben filen for skrivning
Set fil=fs.OpenTextFile("index2.xml", 2)
'Udskriv til filen
fil.write strNewFil
'Luk filen
fil.Close
Set fil = Nothing
Set fso = Nothing

Kunne ikke helt bruge din kode eagleeye men den hjalp mig på rette spor så naturligvis giver jeg et pointz bidrag til dig  ;o)

Prøv denne side:
Der kan du download et udemærket billegalleri, dette er en god start
http://www.viewsource.dk/pop.asp?ident=asp

UPS forkert spg...SORRY