Problemer med Do og IF

jeg kan ikke lige helt overskue hvad du forsøger at lave, men hvis du bruger ordet Do, skal du også bruge ordet loop. Lige som if then og end if
så du kan for eks ikke skrive
if....
Do
else

da din do skal afsluttes med loop inden ud bruger else

jeg har en loop længere nede i scriptet...
Men kender du en alternativ løsning på problemet?
Pga, hvis jeg har en kategori som har en værdi på over 0, så skal den udføre en anden loop, som du kan se :S

i = 0
if Kategori = 0 OR Kategori = "" then
Do While not i = 10
else

intPage = Request.querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

  rs.PageSize = 20
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

Do While not i = 10 And intRecCount > 0
end if

if rs.EOF then
else
%>
                            <table border="0" width="100%" cellpadding="3" bordercolor="#CCCCCC" style="border-collapse: collapse">
                                <tr>
                                    <td width="100%" style="border-right-style: none; border-right-width: medium" colspan="2">
                                    <b><%= (rs("mod_navn")) %> - <%= (rs("dato")) %></b></td>
                                </tr>
                                <tr>
                                    <td width="40%" style="border-right-style: none; border-right-width: medium" valign="top">
                                    <p align="center">
<%
if (rs("thumb")) = "" then
billede = "<img border=""1"" src=""" & BilledeSti & "intet.jpg"">"
else
billede = "<img border=""1"" src=""" & (rs("thumb")) & """>"
end if
response.write billede
strSQL = "SELECT id FROM cw_brugere WHERE nick = '" & (rs("nick")) & "'"
set us = Conn.Execute(strSQL)
%>
en masse ubetydelig html kode
<%
end if
intRecCount = intRecCount - 1
rs.MoveNext
loop
%>

<%
i = 0
if Kategori = 0 OR Kategori = "" then
Do While not i = 10
else

intPage = Request.querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

  rs.PageSize = 20
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

Do While not i = 10 And intRecCount > 0
end if

if rs.EOF then
else
%>

Endnu mere html kode

en masse ubetydelig html kode

<%
end if
intRecCount = intRecCount - 1
rs.MoveNext
loop
%>

hvordan kan brugeren biohazard_666 vide hvad brugeren 94jd har længere nede i scriptet?

han sidder ved siden af mig til LAN
Og da han ike har flere point gav jeg ham lov til at få 100 point af mig!..

ok, så er er jeg mere rolig. :-)

Jeg er stadig ikke helt med på problemet.

Er det noget ala:
Hvis kat <> 0 så loop x antal gange
Hvis kat = 0 så loop y antal gange

eller hvad?

ja.. lige præcis :)

hvis kat <> 0 så loop sårn:
Do While not i = 10 And intRecCount > 0


hvis kat = 0 så loop sårn:
Do While not i = 10

du kan lave noget ala

function cont(kat,intRecCount)
    if kat = 0 then
        cont=true
    else
        if intRecCount >0 then cont=true else cont = false
       
    end uf
end function


do while not i = 10 and cont(kat,intRecCount)

'indholdet af loopen
loop

uf=if

kan desværre ikke få det til :( Den tager 100 år om at loade siden :(

det er nok fordi løkken aldrig stopper. Jeg kan ud fra ovenstående oplysninger ikke sige hvor det går galt!

nu virker det, men kun når kat = 0 :S

nu har jeg også fået det til med de andre sider, MEN den skriver ikke sidetal, og jeg kan ikke skifte side :S
Hvis jeg giver 100 point ekstra, vil du så ikke proppe det ind i mit script???

så er jeg nok nødt til at se hele scriptet!. Du kan evt sende det til mig Rasmus(a)fjordloekke.dk

oki.. sender det nu.. kan godt være det er lidt fucked :-/

jeg må desværre tilstå, at jeg ikke kan gennemskue koden. Der skal en lidt større tilrettelse til, før den kører optimal, sådan som jeg ser det! Så jeg er bange for, at jeg må melde pas. Ellers et pænt design

Oki... Prøvet at fuske med det... Mange tak for hjælpen ellers

Ellers et pænt design -> Mange tak :)

...