Byta färg på varannan rad

5 svar · 229 visningar · startad av Jonas97 25 apr. 2001

Jonas97Medlem sedan apr. 200119 inlägg

Trådstart25 apr. 2001 12:52#1

Hej, Jag har ett problem med att få varannan färg på raderna i en tabell. jag har tittat på några exempel på forumet men jag får det inte att fungera

här är min kod

<table border="0" cellpadding="2" cellspacing="0" width="100%">

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

MinCon.Open "DSN=roger1;UID=;PWD="

SQL = "SELECT * From jobb ORDER BY ID DESC"

rs.Open SQL, MinCon

%>

<%
Do While Not rs.EOF
%>
							<tr>
								<td width="4"></td>

							<td><font face="Verdana" size="1" color="#000099"><%=rs("Huvudrubrik")%></font></td>
							</tr>

<%

rs.MoveNext
Loop
%>
						</table>

costodiaMedlem sedan aug. 2000864 inlägg

25 apr. 2001 13:03#2

ta en titt i faqen på att del upp ett recordset i 10 poster, där finns en sådan funktion.

Jonas97Medlem sedan apr. 200119 inlägg

25 apr. 2001 13:17#3

Jag förstod inte riktigt kan nån ge mig en "hint" eller visa i min kod

Jonas97Medlem sedan apr. 200119 inlägg

25 apr. 2001 13:33#4

Jag får det inte att fungera med det ex jag fått HJÄLP

JanspeedMedlem sedan jan. 2001510 inlägg

25 apr. 2001 13:34#5

Nått sånt här borde väl fungera. prova.


<table border="0" cellpadding="2" cellspacing="0" width="100%">
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

MinCon.Open "DSN=roger1;UID=;PWD="

SQL = "SELECT * From jobb ORDER BY ID DESC"

rs.Open SQL, MinCon

%>

<%
Dim Farg
Farg = "black"

Do While Not rs.EOF
%>
<tr>
<td width="4" bgcolor="<% = Farg %>"></td>

<td bgcolor="<% = Farg %>"><font face="Verdana" size="1" color="#000099"><%=rs("Huvudrubrik")%></font></td>
</tr>

<%

If Farg = "black" Then
Farg = "white"
Else
Farg = "black"
End If

rs.MoveNext
Loop
%>
</table>

[Redigerat av Janspeed den 25 apr 2001]

Jonas97Medlem sedan apr. 200119 inlägg

25 apr. 2001 13:40#6

Tack!!!!!

Detta forumet är det bästa som finns.

Håll uppe den fina stilen.

--------------------------------------
Det finns alltid folk som vet bättre än
dig själv.
Våga ta hjälp av andra......