skifte baggrunds farve ved hver anden post

counter=0
Do While Not rs.EOF
counter = counter + 1

if counter = 2 then
counter = 0
end if

if counter = 0 then
color= "#FFFFFF"
else
color= "#EFEFEF"
end if

<tr style="cursor:pointer;background-color:<%=color%>;">

kan du forklare den lidt?'
og kan det gøres på de poster som alleree er indtastet?

Prøv at kom med din kode, så kan jeg sætte det ind for dig.

liste.asp:

<html>
<head>
<title>Personer</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="Black">
<b>Liste med personer i Databasen</b><br>

<div id="liste_strej">
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN

strSQL = "Select * From personer Order By Navn"
Set rs = Conn.Execute(strSQL)

Do

strNavn = rs("Navn")

strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"
Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
<hr height=" 1px" Color="Black">


</body>
</html>
_________________________
soeg.asp

<html>
<head>
<title>Søg!</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="black">
<form action="soeg.asp" method="post">
<input type="text" name="soeg" id="form"><br>
<input type="submit" name="submit" value="Søg" id="form">
</form>

<%
If Request.Form("soeg") <> "" then
  Set db = Server.CreateObject("ADODB.Connection")
  DBsti = "DBQ=" & Server.MapPath("tlf.mdb")
  DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBsti
  SQL = "Select * from personer where navn like '%" & Request.Form("soeg") & "%'"
  Set rs = db.execute(SQL)
If not rs.EOF then
  Response.Write "<b>Personer som matchede din søgening.</b><br>"
Response.Write "<div id='liste_strej'></div>"
Do until rs.EOF

strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"
'udskriver resultatet
  Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"
rs.MoveNext
  Loop
Else

Response.Write "Der var ingen match på din indtastning."
  End If

End If

%>
<hr height="1px" color="black">
</body>
</html>
____________________

Liste.asp:

<html>
<head>
<title>Personer</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="Black">
<b>Liste med personer i Databasen</b><br>

<div id="liste_strej">
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN

strSQL = "Select * From personer Order By Navn"
Set rs = Conn.Execute(strSQL)

Do While not rs.eof

If strColor = "#FFFFFF" Then
  strColor = "#DADADA"
Else
  strColor = "#FFFFFF"
End If

strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"

Response.Write "<div id='liste_nstrej' style='background-color:" & strColor & "'>" & strLink & " - " & strSlet & "</div>"

rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

<hr height=" 1px" Color="Black">

</body>
</html>

Soeg.asp

<html>
<head>
<title>Søg!</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>

<body>

<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="black">
<form action="soeg.asp" method="post">
<input type="text" name="soeg" id="form"><br>
<input type="submit" name="submit" value="Søg" id="form">
</form>

<%
If Request.Form("soeg") <> "" then

  Set db = Server.CreateObject("ADODB.Connection")
  DBsti = "DBQ=" & Server.MapPath("tlf.mdb")
  DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBsti
  SQL = "Select * from personer where navn like '%" & Request.Form("soeg") & "%'"
  Set rs = db.execute(SQL)

  If not rs.EOF then
 
    Response.Write "<b>Personer som matchede din søgening.</b><br>"
    Response.Write "<div id='liste_strej'></div>"

    Do until rs.EOF

    If strColor = "#FFFFFF" Then
      strColor = "#DADADA"
    Else
      strColor = "#FFFFFF"
    End If

    strNavn = rs("Navn")
    strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
    strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"

    ' udskriver resultatet
    Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"

    rs.MoveNext
  Loop

  Else
    Response.Write "Der var ingen match på din indtastning."
  End If

End If
%>

<hr height="1px" color="black">

</body>
</html>