Skifte farve ved nyt ellement

strFarve1 = "#ffffff"
strFarve2 = "#000000"
strTal = "1"
Do
if strTal = "1" Then
strFarve = strFavre1
strTal = "2"
else
strFarve = strFavre2
strTal = "1"
end if
  Response.Write "<tr><td width='50' color='" & strFarve & "><h2>" & rs("Placering") & "</h2></td>"
  Response.Write "<td width='100'><h2>" & rs("Navn") & "</h2></td>"
  Response.Write "<td width='50' align='right'><h2>" & rs("serier") & "</h2></td>"
  Response.Write "<td width='50' align='right'><h2>" & rs("kegler") & "</h2></td>"
  Response.Write "<td width='40' align='right'><h2>" & rs("snit") & "</h2></td>"
  Response.Write "<td width='50' align='right'><h2>" & rs("kategori") & "</h2></td>"
  Response.Write "<td width='160' align='center'><h2></h2></td></tr>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
  Forstår du??

hmmm.... er ikke så stabil i asp endnu, dette er mit første RIGTIGE selvstændige projekt, så hvor meget af det gamle skal jeg slette ?

Du har en ganske god tabelopbygning... det er ikke så svært..

i starten af din loop-løkke laver du bare en if betingelse

if a = "light" then
  set a = "dark"
else
  set a = "light"
end if

Du definerer så din baggrundsfarve via css hvad enten den er lys eller mørk... og du giver så din td en class med hhv. lys og mørk

do
  if a = "light" then
    set a = "dark"
  else
    set a = "light"
  end if

  response.write "<td class=""" & a & """>"
loop.....

det var bare et eksempel - byg videre på det

kan godt se ideen i det, men 2 problemer, hvor skal jeg angive farven og hvordan ?

kan jeg godt give en tr en class ? idet at det er hver række der skal have hver sin farve?

har hittet den nu, kom til at se således ud:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("snitliste.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from herrer"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
  Do
  If farve=1 Then
  bg="#FFFFFF"
  Farve= Farve + 1
  Else
  bg="#E7E7FF"
  farve=1
  End If

  Response.Write "<tr><td width='50' bgcolor=" & bg & "><h2>" & rs("Placering") & "</h2></td>"
  Response.Write "<td width='120' bgcolor=" & bg & "><h2>" & rs("Navn") & "</h2></td>"
  Response.Write "<td width='50' align='right' bgcolor=" & bg & "><h2>" & rs("serier") & "</h2></td>"
  Response.Write "<td width='50' align='right' bgcolor=" & bg & "><h2>" & rs("kegler") & "</h2></td>"
  Response.Write "<td width='40' align='right' bgcolor=" & bg & "><h2>" & rs("snit") & "</h2></td>"
  Response.Write "<td width='50' align='right' bgcolor=" & bg & "><h2>" & rs("kategori") & "</h2></td>"
  Response.Write "<td width='140' align='center' bgcolor=" & bg & "><h2></h2></td></tr>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

takker for hjælpen *SS* vil gerne bede onlinehelp om at ligge et svar

lukker nu