11 svar · 401 visningar · startad av mackanz
Hej!
Hur färgar man rader i ASP. Jag har gjort en sida där man loopar ut rader. Det hela blir en lång lista. Nu skulle jag vilja att varannan rad i tabellen som skrivs ut är gråfärgad.
Resultatet blir alltså varannan vit och varannan grå.
Nedanför ser ni koden som loopar ut posterna i databasen
Vart i koden nedan skall jag skriva in koden som färgar
varannan rad?
<%
set mincon=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
mincon.Open "SUNLIGHTS"
sql = "SELECT * from SPELPLAN ORDER BY DATUM DESC"
rs.open sql, mincon, 3, 3
%>
<table border="0" cellpadding="3" cellspacing="0" align="center" width="550">
<tr>
<td class="rubrikerna">Datum</td><td class="rubrikerna">Ort</td><td class="rubrikerna">Spelplats</td></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%
rs.movenext
loop
rs.Close
%>
</table>
Något sånt här kanske kan funka?
<%
strColor = "FFFFFF"
do while not rs.eof
if strColor = "FFFFFF" then strColor = "BBBBBB"
%>
<tr bgcolor="#<%=strColor %>">
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%
rs.movenext
loop
rs.Close
%>
Prova gärna webForums sökfunktion också. ;)
mvh
annars funkar:
<%dim color
color = "#FFFFFF"
function setColor ()
if color = "#FFFFFF" then
color = "#000000"
else
color = "#FFFFFF"
end if
setColor = color
end function
do while not rs.eof%>
<tr bgcolor="<%=setColor %>">
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%rs.Movenext
Loop
rs.close%>
Annars fungerar det bra att använda Mod. :)
<table>
<%
Dim nummer, farg
Do Until RS.EOF
nummer = nummer + 1
If nummer Mod 2 = 0 Then
farg = "#FFFFFF"
Else
farg = "#999999"
End If
%>
<tr><td bgcolor="<%=farg%>"><%=Rs("cellnamn")%></td></tr>
<% Rs.MoveNext
Loop %>
</table>
Eller varför inte en smart kod som inte jämför tecken för tecken och dessutom ser snyggare ut?
<%
vColor = Array("#BBBBBB", "#FFFFFF")
i = 0
do while not rs.eof
%>
<tr bgcolor="<%=vColor(i Mod 2)%>">
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%
rs.movenext
i = i + 1
loop
rs.Close
%>
Hehe, ett steg i rätt riktning söder. :p
Med denna koden nedanför så loopas ju rubrikerna ut flera gånger och det vill jag ju inte. Rubrikerna ska ju bara finnas högst upp. Hur löser jag det? (Jag är nybörjare på ASP)
<table border="0" cellpadding="3" cellspacing="0" align="center" width="550">
<%
strColor = "FFFFFF"
do while not rs.eof
if strColor = "FFFFFF" then strColor = "e3e3e3"
%>
<tr>
<td>Datum</td><td>Ort</td><td>Spelplats</td></tr>
<tr>
<%
%>
<tr bgcolor="#<%=strColor %>">
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%
rs.movenext
loop
rs.Close
%>
</table>
Rubrikerna låg ju på rätt ställe från början, nu har du ju flyttat in dem i loopen?
Erik Juhlin skrev:
Hehe, ett steg i rätt riktning söder. :p
Precis. :) Men Mr. Juhlin kom med ett bättre förslag... :bire
mackanz; ta bort rubrikerna ur koden mellan Do While Not ... Loop
Så här:
<table border="0" cellpadding="3" cellspacing="0" align="center" width="550">
<tr>
<td>Datum</td><td>Ort</td><td>Spelplats</td></tr>
<tr>
<%
strColor = "FFFFFF"
do while not rs.eof
if strColor = "FFFFFF" then strColor = "e3e3e3"
%>
<tr bgcolor="#<%=strColor %>">
<td><%=rs("DATUM")%></td><td><%=rs("ORT")%></td><td><%=rs("SPELPLATS")%></td>
</tr>
<%
rs.movenext
loop
rs.Close
%>
</table>
:D
(och använd med fördel Erik Juhlins kod)
Tackar allesammans!
Eriks kod fungerade =)
Ytterliggare ett problem löst.. :) Då återstår bara att välja att acceptera något av svaren ovan.. ;)