Varannan grå, varannan mörkgrå...

såhär kan en kod se ut för att byta färg på varannan rad:

<%
Do Until RS.EOF
  
cnt = cnt + 1
strColor = "#000000" 
If cnt Mod 2 = 0 then strColor = "#ffffff"
%>

	<table>
	  <tr bgcolor="<%= strColor%>">
	    <td>Bah</td></tr>
	</table>

<%
RS.MoveNext
Loop
RS.Close
%>

I princip så ser det ut så här

If iCount mod 3 = 0 then
  color = grå
elseif icount mod 3 = 1 then
  color = lite gråare 
else
  color = mörkgrå
end if

så får du fylla i detaljerna

Sico: jo men jag vill ha tre olia rader...

LarsG: Jag provade att sätta in det, men de funkade inte, kan du hjälpa mig, jag är inte så duktig på asp..

oj läste fel :(

Jag provade en gång till att sätta in konden du gav mig, me det blir bara fel...

Hur gör jag??

Det är ingen som har lust att sätta in koden jag fick av LarsG i min kod så att det blir rätt???

Ok, lite mer detaljer. Det jag inte vet är vilket färg du vill ha där det står #?

<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>

Ok, vart kommer då raderna??

Ok, tror jag fattar, så jag skrivar bara som jag gjort under då???

<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>
' här kodar jag alltså hur raderna ska vara!?, så blir var tredje grå osv.

Hej

Det funkade inte när jag provade som LarsG skrev.

Nån som har nåt annat förslag på hur man skulle funna lösa frågan? Eller är det helt kört?

Hmmm, eller så har jag gjort helt fel :h , Hur ska jag skriva?

Tycker det ser ut som om hans kod ska fungera, fyll i färgen bara, eller?
Du ska inte lägga till något vad jag kan se.

Jag brukar skriva så här eftersom att man då inte behöver ha någon If-sats i loopen och koden blir då snabbare och snyggare. :)

<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>
<table cellpadding="2" cellspacing="1" border="0">
<% 
iCount = 0
vColor = Array("#D9D9D9", "#?", "#E9E9E9")

Do While Not rs.EOF 'start the count
	response.write "<tr bgcolor=""" & vColor(iCount Mod 3) & """>" & RS("art_no") & "</TR>"
	
	iCount = iCount + 1  'increment the counter
	rs.MoveNext
Loop
 %>
 </table>

om du kollar på LarsGs kod så ser du att han har med response.write så det ska bara vara att kopiera in den där du ska visa posterna.

<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>

Skriver ut raderna -> response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"