Loop med kun x antal gange

<%
Dim counter
counter = 5
do while not RS.eof AND counter <= 5

response.write \"\" & RS(\"Titel\") & \"</A><br>

RS.MoveNext
loop

%>


/nute

er det ik letter bare og bruge det her

SELECT TOP 5 * FROM dintabel\"

Det her begriber jeg ikke... Jeg kan s** ikke få det til at du. Org. koden ser således ud:

RS.Open sql, conn
          If (Area = 1) Then
          response.write \"<b><span class=underskrift>[VHS]</span></b><br>\"
          End If
         
          If (Area = 2) Then
          response.write \"<br><b><span class=underskrift>[DVD]</span></b><br>\"
          End If

Dim counter
counter = 5
do while not RS.eof AND counter <= 5
    if RS(\"WebDate\") => udtraekDato1 and RS(\"WebDate\") <= udtraekDato2 then
    if RS(\"WebDate\") <= date or Request.Cookies(\"LoginInfo\")(\"LoggetInd\") = \"yes\" and Request.QueryString(\"nextweek\") > 0 then
    %>
       
        <%  response.write \"<span class=underskrift>\"
            If (Area = 1) Then
            %>
<A href=\"VisFilm.asp?ID=<% = RS(\"ID\") %>\" onmouseout=\"window.status=\'\'; return true\" onmouseover=\"window.status=\'Læs mere om filmen\'; return true\">         
          <%
          response.write \"\" & RS(\"Titel\") & \"</A><br>\"
          %>

          <% ElseIf (Area = 2 Or Area = 4 Or Area = 6) Then %>
       
          <A href=\"VisDVD.asp?ID=<% = RS(\"ID\") %>\"
           
          onmouseout=\"window.status=\'\'; return true\"
          onmouseover=\"window.status=\'Læs mere om filmen\'; return true\">
         
          <%
          response.write \"\" & RS(\"Titel\") & \"</A><br>\"%>
          <%
            End If
            %>
            </span>
          <%
    end if
    end if
RS.MoveNext
loop
RS.Close
Next

den peneste måten vil absolutt være å la SQL styre det (ved å bruke TOP kommandoen.

(( selv om det er sagt, så vil jeg bare legge til at det mangler en linje i min posting:

counter = counter + 1

skal settes inn under

RS.MoveNext

/nute

neeei.....jeg postet noe fullstendig svineri. Sånn skal det være:

<%
Dim counter
counter = 0
do while not RS.eof AND counter <= 5

response.write \"\" & RS(\"Titel\") & \"</A><br>

RS.MoveNext
counter = counter + 1
loop

%>

/nute

bare smæk mit ind i din sql så kører det

Hmmm... jeg er mest til nute\'s kode, men det vil bare ikke fungere...

Koden ser nu således ud:

Dim counter
counter = 0
do while not RS.eof AND counter <= 5
    if RS(\"WebDate\") => udtraekDato1 and RS(\"WebDate\") <= udtraekDato2 then
    if RS(\"WebDate\") <= date or Request.Cookies(\"LoginInfo\")(\"LoggetInd\") = \"yes\" and Request.QueryString(\"nextweek\") > 0 then
    %>
       
        <%  response.write \"<span class=underskrift>\"
            If (Area = 1) Then
            %>
<A href=\"VisFilm.asp?ID=<% = RS(\"ID\") %>\" onmouseout=\"window.status=\'\'; return true\" onmouseover=\"window.status=\'Læs mere om filmen\'; return true\">         
          <%
          response.write \"\" & RS(\"Titel\") & \"</A><br>\"
          %>

          <% ElseIf (Area = 2 Or Area = 4 Or Area = 6) Then %>
       
          <A href=\"VisDVD.asp?ID=<% = RS(\"ID\") %>\"
           
          onmouseout=\"window.status=\'\'; return true\"
          onmouseover=\"window.status=\'Læs mere om filmen\'; return true\">
         
          <%
          response.write \"\" & RS(\"Titel\") & \"</A><br>\"%>
          <%
            End If
            %>
            </span>
          <%
    end if
    end if
RS.MoveNext
counter = counter + 1
loop

Problemet er, at den nu ingenting viser. Altså 0 entries.

prøv med space sitt forslag...

Det dur ikke, da der er andre faktorer som gør, at den lette måde ikke kan bruges...

må vi se din sql da

It\'s like this:

Den hentes x antal entries udfra en startdato og slutdato, der er angivet i db\'en. Derfor vil en top5 ikke virke...

Jeg går ud fra at problemet ligger i counter variablen, og at du er sikker på at alle række inden for det aktuelle datointerval vil blive udskrevet hvis du fjerne AND counter <=5.
Prøv at ændre: do while not RS.eof AND counter <= 5 til do while not RS.eof AND (counter <= 5)

Jep, alle rækker indenfor det aktuelle datointerval bliver udskrevet, hvis jeg fjerne AND counter <=5.

Men desværre gør paranteserne ingen forskel - når counter <= 5 er med dumper den ingenting ud.

hvorfor kan du ikke bruge top 5 ?

You tell me. ;) Jeg prøvede det - og det virkede ikke.

Jeg har fortalt tidliger, hvorfor jeg ikke tror det dur...

ja og jeg spurgte om vi ikke måtte se din sql

Se sql\'en? Som i \"Jeg skal poste hele sql-db\'en\"? I givet fald nej.

nej bare fin forespørgelse

fin = din

K... men jeg tror, det forvirrer mere, end det gør gavn:

Set RS = Server.CreateObject(\"ADODB.RecordSet\")
%><!-- #include file=DatabaseConnection.asp --><%

if WeekDay(date) >= 3 then
  udtraekAar = Year(date)
  udtraekUge = GetWeek(date)
else
  udtraekAar = Year(date-4)
  udtraekUge = GetWeek(date-4)
end if

\' Find startdato (for mandagen i ugen startende tirsdag...)
If(WeekDay(date)) = 1 Then \'Søndag
    udtraekDato1 = Date - 6
ElseIf(WeekDay(date)) = 2 Then \'Mandag
    udtraekDato1 = Date - 7
ElseIf(WeekDay(date)) = 3 Then \'Tirsdag
    udtraekDato1 = Date - 1
ElseIf(WeekDay(date)) = 4 Then \'Onsdag
    udtraekDato1 = Date - 2
ElseIf(WeekDay(date)) = 5 Then \'Torsdag
    udtraekDato1 = Date - 3
ElseIf(WeekDay(date)) = 6 Then \'Fredag
    udtraekDato1 = Date - 4
ElseIf(WeekDay(date)) = 7 Then \'Lørdag
    udtraekDato1 = Date - 5
End If
\' Find slutdato (for fredag i ugen startende tirsdag)
udtraekDato2 = udtraekDato1 + 4

if Request.Cookies(\"LoginInfo\")(\"LoggetInd\") = \"yes\" and Request.QueryString(\"nextweek\") > 0 then
    udtraekDato1 = udtraekDato1 + (Request.QueryString(\"nextweek\") * 7)
    udtraekDato2 = udtraekDato2 + (Request.QueryString(\"nextweek\") * 7)
    udtraekUge = udtraekUge + Request.QueryString(\"nextweek\")
end if
%>

<%
For Area = 1 To 6
    If (Area = 1) Then
        sql = \"SELECT * FROM Film where KulthjornetCheck NOT LIKE \'1\' and HuskerDuCheck NOT LIKE \'1\' and VurderingJaNej LIKE \'1\' order by Titel\"
        conn = \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

If (Area = 1) Then
        sql = \"SELECT * FROM Film where KulthjornetCheck NOT LIKE \'1\' and HuskerDuCheck NOT LIKE \'1\' and VurderingJaNej LIKE \'1\' order by Titel\"
        conn = \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

=============================

If (Area = 1) Then
        sql = \"SELECT TOP 5 * FROM Film where KulthjornetCheck NOT LIKE \'1\' and HuskerDuCheck NOT LIKE \'1\' and VurderingJaNej LIKE \'1\' order by Titel\"
        conn = \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

Hehe... jamen, jeg fortalte dig jo, at jeg havde prøvet det.

Resultatet er:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E09)
[TCX][MyODBC]You have an error in your SQL syntax near \'5 *

hmmm oki

Et lille forslag...
Prøv at brug \"LIMIT 5\"
efter order by tror jeg (ok, måske før...prøv dig frem)
Svjv er TOP en MSSQL kommando og virker ikke med mySQL...LIMIT virker med mySQL.
Mvh Jens

Det kom aldrig til at du, så jeg lukker og slukker.