Avatar billede dp2001 Juniormester
26. marts 2002 - 23:21 Der er 4 kommentarer og
2 løsninger

Jeg sidder fast!

Jeg vil gerne have lavet nedenstående kode, sådan at såfremt antallet af forekomster er mindre end 3, så udskrives ".." for manglende forekomst.

Hvordan gør man nemmest det?

Følgende er uddrag fra min kode.

' --start--

Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/xxx//yyy.mdb")&";"
Conn.Open strConnect

strSQL1 = "Select top 3 * from zzz Order by dato_insert desc, titel"

Set rs1 = Conn.Execute(strSQL1)

Response.Write "<td>"
Do While Not rs1.EOF
Response.Write "&nbsp;" & rs1("kunstner") & " - " & rs1("titel") & "<br>"
rs1.MoveNext
Loop
Response.Write "</td>"

' --slut--
Avatar billede s_raagaard Nybegynder
26. marts 2002 - 23:37 #1
count=0
Do While Not rs1.EOF
VarStr = VarStr & "&nbsp;" & rs1("kunstner") & " - " & rs1("titel") & "<br>"
count=count+1
rs1.MoveNext
Loop
if count<3 then
response.write("for manglende forekomst.")
else
response.write VarStr
end if


/s
Avatar billede coltau Juniormester
26. marts 2002 - 23:38 #2
Er det sådan du mener.

Antal = 1
Response.Write "<td>"
Do While Not rs1.EOF
  Response.Write "&nbsp;" & rs1("kunstner") & " - " & rs1("titel") & "<br>"
  Antal = Antal + 1
  rs1.MoveNext
Loop
if Antal < 3 then
' Udskriv ...
end if
Avatar billede s_raagaard Nybegynder
26. marts 2002 - 23:39 #3
coltau>> -19 sek. :)
Avatar billede dp2001 Juniormester
26. marts 2002 - 23:43 #4
Det er desværre ikke helt godt nok!

Der kan enten være 0, 1, 2 eller 3 forekomster, der opfylder betingelsen "Top 3 *"

Under alle omstændigheder vil jeg have listet de forekomster, der nu engang er, herefter ".."

Dvs. hvis der er 0 forekomster:

.. (alternativt "Ingen forekomster")

Hvis der er 1 forekomst:

Forekomst1
..

Hvis der er 2 forekomster:

Forekomst1
Forekomst2
..

Hvis der er 3 forekomster:

Forekomst1
Forekomst2
Forekomst3
Avatar billede coltau Juniormester
26. marts 2002 - 23:46 #5
Men - det gøt min da. (Eller begge næsten.)

Antal = 1
Response.Write "<td>"
Do While Not rs1.EOF
  Response.Write "&nbsp;" & rs1("kunstner") & " - " & rs1("titel") & "<br>"
  Antal = Antal + 1
  rs1.MoveNext
Loop
if Antal < 3 then
  Response.Write "&nbsp;..<br>"
end if
Avatar billede dp2001 Juniormester
26. marts 2002 - 23:55 #6
Det har du sgu ret i - det var bare mig, der ikke fik paste't korrekt.

I får lov til at dele denne.

Takker for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester