hej.

Varför går det inte att använda wend i en if then sats...

-----------------------------------------------------
while not minfil.atEndOfStream
LAGRA = minfil.readline

if lagra = lank then
LAGRA = minfil.readline
LAGRA = minfil.readline
LAGRA = minfil.readline
LAGRA = minfil.readline
wend '<--- Där är elaka wend....
end if

'<--- Här nere skrivs ju fel grej in
minfil2.writeline
wend
minfil.close
minfil2.close

%>
-----------------------------------------------------

Nån som fattar vad jag snackar om för jag gör knappt det själv....
Finns det något sätt att gå runt problemet? Jag kan ju tex inte använda "goto" i "if satsen".

Vad jag har är en textfil.
Informationen om varje grej i textfilen är 5 rader.
den läser in första i lagra och kollar om den är lika med lank.
om den är det så ska den inte skrivas in i textfilen utan "läses bara bort".

men efter end if så fortsätter den ju att skriva i textfilen och felaktig info skrivs in.

Hjälp!!!

Kanske detta är det du är ute efter?
<code>
Do Until minfil.atEndOfStream
LAGRA = minfil.readline

if lagra = lank then
LAGRA = minfil.readline
LAGRA = minfil.readline
LAGRA = minfil.readline
LAGRA = minfil.readline
Exit Do
end if
minfil2.writeline
Loop
minfil.close
minfil2.close
</code>

> Varför går det inte att använda wend i en if then sats...

För att du har while utanför. Du måste alltid avsluta saker i motsatt ordning som du skapar dem. I ditt fall skapade du först while och sedan if. Det innebär att du först måste avsluta if (endif) innan du kan avsluta while. Såna är reglerna.

Det är för övrigt därför man använder mellanslag i början på raderna; för att hålla reda på vad det är för nåt man har skapat...

<code>
while nånting
Här gör vi lite saker
och lite till
if nånting then
och det här hör då till if-satsen.
lite mer som hör till if-satsen.
Här ser man då på mellanslagen att det är if-satsen som måste
avslutas.
end if
Så där, nu är vi tillbaka på nivå med while-satsen igen
och kan avsluta den.
wend
</code>

tack för era svar men jag löste det på det här sättet.
Kanske inte det bästa men det fungerar...

-----------------------------------------------------------------------
while not minfil3.atEndOfStream

lagra = minfil3.readline

if lagra = lank then
lagra = minfil3.readline
lagra = minfil3.readline
lagra = minfil3.readline
lagra = minfil3.readline

nummer = 1 <-- Om if satsen körs sä lagras 1

response.write ("Länken togs bort ur kategorin.")
end if

if nummer >< 1 then <-- Om nummret är nåt annat än 1 så körs if satsen


minfil4.writeline lagra
end if
nummer = 0

wend
-----------------------------------------------------------------------