Hvert andet udtræk skal være farvet ...

Udtræk fra en database .....Access

Du kan lave sådan en her:

Do Until RS.EOF
Response.Write rs(\"felt\") & \"<br>\"
RS.Movenext
Response.Write \"<font color=blue>\"& RS(\"felt\") &\"</font><br>\"
Loop

Zeth >> Sikker på at det virker?

Nummer:

1[Ufarvet]
2[Farvet]
2[UFarvet]

Når den har udskrevet én med farve går den vel ikke videre til den næste?

(Ret mig hvis jeg tager fejl).

et hurtigt eksempel lånt et eller andet sted fra:

While not RS_Outer.EOF and rowCount < RS_Outer.Pagesize
\'Ydre løkke

If farve=1 Then
baggrund=\"#1A8AFB\"
Farve= Farve + 1
Else
baggrund=\"#15A5EA\"
farve=1
End If

rowCount = rowCount + 1

K = 1
Indent = \"&nbsp;\"

Dato = RS_Outer(\"Dato\")
VisDato = DKDato(Dato,\"#2\")
%>
<tr>
    <td width=51% bgcolor=<%=baggrund%>><a href=\"show_message.asp?MessageID=<%=RS_Outer(\"ID\")%>&ForumID=<%=request(\"ForumID\")%>\"><%=RS_Outer(\"Emne\")%></a></td>
    <td width=31% bgcolor=<%=baggrund%>><%=RS_Outer(\"Navn\")%></td>
    <td width=18% align=LEFT bgcolor=<%=baggrund%>><%=VisDato%></td>
   
    <%
    \'Inner loop
    Set RS_Inner = Connect.Execute(\"Select * FROM Messages WHERE (SvarID = \" & RS_Outer(\"ID\") &\") ORDER BY ID\")
   
    DO UNTIL RS_Inner.EOF
   
    If farve=1 Then
    baggrund=\"#1A8AFB\"
    Farve= Farve + 1
    Else
    baggrund=\"#15A5EA\"
    farve=1
    End If
   
    Dato = RS_Inner(\"Dato\")
    VisDato = DKDato(Dato,\"#2\")
   
    \' Indent
    If K = 4 Then
    K = 1
    Indent = \"&nbsp;\"
    End if
    For T = 1 to K
    Indent = Indent & \"&nbsp;\"
    Next
    K = K + 1

altså de lige tal er blå...

Zeth\'s forslag virker ikke ... Den første forbliver \"ren\" mens resten blir blå ...

Soze <<< Jeg kan IKKE finde op og ned på det du har skrevet ...

color=\"#000000\"

do while not rs.eof
if color = \"#000000\" then
color = \"#FFFFFF\"
else
color = \"#000000\"
end if

response.write(\"<font color=\" & color & \">\" & rs(\"felt\") & \"</font><br>\")

rs.movenext
loop

Sværere er det ikke folkens :) Og hvis det ikke virker, virker intet!

Meget enkelt! Det er jo en programmerings teknik man skal kunne. Det har jo intet med ASP sproget at gøre... Det kan jo gøres i alle sprog, derfor en generel teknik. Dem skal man kunne en del af :)

Jeg mener at kunne huske noget med at man kan bruge en funktion der hedder \'mod\' - jeg kigger lige efter noget dokumentation...

jeps - hvis du laver en tæller og forøger den for hver record, kan du bruge \'mod\' operatoren således...

a = tæller mod 2

\'a\' bliver så lige med restværdien af \'tæller\' divideret med 2. Dvs. at den hver anden gang bliver henholdsvis 0 og 1. Ud fra værdien af \'a\' kan du så tildele dine farver...

Her er lige et link til noget dokumentation:

http://msdn.microsoft.com/library/en-us/office97/xhtml/output/F1/D6/S5B270.asp?frame=true

isl19960 <<<  hmmm ...den var straks mere inviklet ,... men den virker da nok :)

Tak Skal I Have :)

\'mod\'-funktionen kan også bruges til mange andre ting... f.eks. til at opstille resultater fra en database i x-antal koloner i en tabel... farve hver 5. linie...

mulighederne er mange...

Selv tak... :)

Hmm hvad skete der her? Er det mig der ik har forstået spørgsmålet eller hvad? Hvad var der galt med min? Hver anden blevet farvet..?

hm det ku være jeg sku ha en til rs.movenext med.. :/

sorry :(

sansalvador> hvad skete der her diden du beholdt dine point selv: http://www.eksperten.dk/spm/41601 ?????