Vill ha en annan bakgrundsfärg på den första och de två sista raderna i en serietabell. Hur gör jag detta?
Ex.
Rad 1 - Röd bg
Rad 2 - Vit bg
Rad 3 - Vit bg
Rad 4 - Vit bg
Rad 5 - Vit bg
Rad 6 - Vit bg
Rad 7 - Röd bg
Rad 8 - Röd bg

<code>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & db

Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "Select * From tabell"
RecSet.Open Visa, Connect
If Request.Querystring("se") = "tabellen" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "Select *, Malfram-Malbak From tabell2 Where Tabellnamn='" & Request.Querystring("tabell") & "' Order By Poang Desc, Malfram-Malbak Desc"
RecSet.Open Visa, Connect %>

<table width="330" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="15" height="16" bgcolor="#000000"><font size="1" face="Arial" color="#FFFFFF"><img src="bilder/pix_trans.gif" width="15" height="8"></font></td>
<td width="182" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">
</font></b></td>
<td align="center" width="21" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">M</font></b></td>
<td align="center" width="21" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">V</font></b></td>
<td align="center" width="21" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">O</font></b></td>
<td align="center" width="21" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">F</font></b></td>
<td align="center" width="50" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">Mål</font></b></td>
<td align="center" width="25" height="16" bgcolor="#000000"><b id="bold"><font size="1" color="#FFFFFF">P</font></b></td>
</tr>
<%

X = 1
Z = 0
Do Until RecSet.EOF %>
<tr>
<td width="15" height="16" bgcolor="#f0f0f0"> <div align="center"><%=X%></div></td>
<td width="182" bgcolor="#f0f0f0">
<% If Instr(RecSet("Lag"),"Laget BK")>0 Then
Response.Write "<font color=""#E00000"">" & RecSet("Lag") & "</font>"
Else Response.Write RecSet("Lag")
End If %>
</a></td>
<td align="center" width="21" bgcolor="#f0f0f0"><%=RecSet("Omgang")%></td>
<td align="center" width="21" bgcolor="#f0f0f0"><%=RecSet("Vinster")%></td>
<td align="center" width="21" bgcolor="#f0f0f0"><%=RecSet("Oavgjorda")%></td>
<td align="center" width="21" bgcolor="#f0f0f0"><%=RecSet("Forluster")%></td>
<td align="center" width="50" bgcolor="#f0f0f0"><%=RecSet("Malfram")%>-<%=RecSet("Malbak")%></td>
<td align="center" width="25" bgcolor="#f0f0f0"><%=RecSet("Poang")%></td>
</tr>

<%
Z = Z--1
X = X--1
RecSet.MoveNext
Loop
%>
</table>
<%
RecSet.Close
Set RecSet = Nothing
End If


Connect.Close
%>
</code>

Testa det här:

I = o

DO UNTIL dittRS.EOF
IF I = 1 OR I =7 OR I=8 THEN
bgcolor="#FF0000"
else
bgcolor="#FFFFFF"
end if
Response.Write "<TR bgcolor="""& bgcolor &""">

I = I +1

dittRS.MoveNext
LOOP


/Anna-Karin

Anna-carins förslag är bra men börja med I = 1 annars får du an extra tabell rad i början.

/keyvan

Öppnat recordsetet med ClientSide cursors och loopa igenom med En For sats. Kontrollera index för att ta reda på om det är första raden. Eller om det är det två sista raderna.

Tack, ska prova detta!

Tackar för hjälpen, fick det att fungera!!