2 svar · 241 visningar · startad av boilwater
hej!
Jag har läst många trådar om detta ämnet och försökt, men får det inte till. Jag vill att det skall vara färg på varannan linje, typ vitt-grått-vitt-grått osv. Här är koden:
<% Response.Buffer = True %>
<% Session.LCID = 1053 %>
<link rel="stylesheet" href="style.css">
<link href="../css/text.css" rel="stylesheet" type="text/css">
<body bgcolor="#ffffff">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/skytteliga/skytteliga.mdb")
If Request.Querystring("nav") ="" OR Request.Querystring("nav") = "start" Then
%>
<%
SQL = "SELECT * FROM skytteliga ORDER BY mal DESC"
Set RecSet = Conn.execute(SQL)
If RecSet.EOF Then
Response.Write "Ingen inlagda"
Else
%>
<table width="100%" border="0" cellpadding="1" cellspacing="0">
<tr class="rad1">
<td width="539" class="text">
Namn
</td>
<td width="216" class="text"> <div align="center">Mål</div></td>
</tr>
<%
Do Until RecSet.EOF
%>
<tr>
<td width="539" height="20" class="text">
<%=RecSet("namn")%>
</td>
<td width="216" height="20" class="text">
<div align="center"><%=RecSet("mal")%>
</div></td>
</tr>
<%
RecSet.MoveNext
Loop
End If
RecSet.Close
Set RecSet=Nothing
End If
If Request.Querystring("nav") = "more" Then
id = Request.Querystring("id")
SQL = "SELECT * FROM skytteliga WHERE id ="&id
Set RecSet = Conn.execute(SQL)
End If
%>
</table>
Min fråga är då, hur ser koden med radfärgen ut, och vart i min kod skall den ligga? På förhand tack!
Re: Radfärg, varannan
Menar du så här?
Do Until RecSet.EOF
if bgcolor = "#F9F9F9" then bgcolor = "#FFFFFF" else bgcolor = "#F9F9F9"
%>
<tr>
<td bgcolor="<%= bgcolor %>" width="539" height="20" class="text">
<%=RecSet("namn")%>
</td>
<td width="216" height="20" class="text">
<div align="center"><%=RecSet("mal")%>
</div></td>
</tr>
<%
RecSet.MoveNext
Loop