Bryta en loop

3 svar · 174 visningar · startad av Mr.Switch 24 apr. 2003

Mr.SwitchMedlem sedan nov. 200153 inlägg

Trådstart24 apr. 2003 12:45#1

Hallå!!!

Har ett litet problem.

När en loop ha kommit till position 75 så vill jag att en liten textsträng ska loopas ut.

x = 0
'For intRecord = 1 to rsGuestBook.PageSize 
For intRecord = 1 to 1000
       if rsGuestbook.EOF then Exit For 
	   If x = 75 then
       response.write "&BeerID" & x & "=" & fldConnor1 & "&BeerName" & x & "=" & fldConnor2 & "%25" & "&BeerCountry" & x & "=" & fldConnor3 & "&BeerSize" & x & "=" & fldConnor4 & "&BeerPrice" & x & "=" & fldConnor5 &" kr"
		End If
       response.write "&BeerID" & x & "=" & fldConnor1 & "&BeerName" & x & "=" & fldConnor2 & "&BeerCountry" & x & "=" & fldConnor3 & "&BeerSize" & x & "=" & fldConnor4 & "&BeerPrice" & x & "=" & fldConnor5 &" kr"
       x = x + 1 
       response.flush 
       rsGuestBook.Movenext 
Next

Som ni kanske ser så är det "%25" som ska läggas till i "rad" 75.

Min hjärna har gått hem för dagen, hoppas nån annan har lite power kvar.

// Mr.Switch

mrblondeMedlem sedan aug. 20012 349 inlägg

24 apr. 2003 13:05#2

Funkar inte koden? Vad är problemet?

Mr.SwitchMedlem sedan nov. 200153 inlägg

24 apr. 2003 13:55#3

Ja och nej. Jag får ut en sträng, men rad 75 skrivs ut 2 gånger en som "%25" och efter det så slänger den ut rad 75 igen, men utan "%25".

Så om man skulle kunna sätta en "paus" i loopen så skulle ju det vara perfekt.

// Switch

LarsGMedlem sedan dec. 200012 464 inlägg

24 apr. 2003 14:57#4

   If x = 75 then
       response.write "&BeerID" & x & "=" & fldConnor1 & "&BeerName" & x & "=" & fldConnor2 & "%25" & "&BeerCountry" & x & "=" & fldConnor3 & "&BeerSize" & x & "=" & fldConnor4 & "&BeerPrice" & x & "=" & fldConnor5 &" kr"
else
       response.write "&BeerID" & x & "=" & fldConnor1 & "&BeerName" & x & "=" & fldConnor2 & "&BeerCountry" & x & "=" & fldConnor3 & "&BeerSize" & x & "=" & fldConnor4 & "&BeerPrice" & x & "=" & fldConnor5 &" kr"
end if

Är det så du menar.