Undtagelse opstod

Jeg har en tabel hvor oplysningerne går ind i, den er sat op sådan at hver anden række er grå.
Problemet ligger i, når der er et ulig antal værdier, så siger den undtagelse opstået.
Hvordan ændre jeg koden så der ikke behøver at være et lige antal værdier.

<%
    strSQL = "Select * From priser Where Type like 'Kildebo 3000' Order By ID ASC"
    Set rs = Conn.Execute(strSQL)

Do

Response.Write "<tr valign='top'><td width='20%'>" & rs("Model") & " kvm"
Response.Write "<td width='20%' align='right'>" & rs("Byggeseat") & ",-</td>"
Response.Write "<td width='8%'></td>"
Response.Write "<td width='58%'>" & rs("Beskrivelse") & "</td></tr>"

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

Response.Write "<tr valign='top'><td width='20%' bgcolor='#CCCCCC'>" & rs("Model") & " kvm"
Response.Write "<td width='20%' align='right' bgcolor='#CCCCCC'>" & rs("Byggeseat") & ",-</td>"
Response.Write "<td width='8%' bgcolor='#CCCCCC'></td>"
Response.Write "<td width='58%' bgcolor='#CCCCCC'>" & rs("Beskrivelse") & "</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
%>