minus response write

Hej!

<% Response.Buffer = True %>
<html>
<head>
<title>FloorCoat - Priser</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


</head>

<STYLE type="text/css">
    A.link:link    {color: #FF8300;text-decoration:none;}
    A.link:visited     {color: #FF8300;text-decoration:none;}
    A.link:hover     {color: #FF8300;text-decoration:underline;}
    A.link:active     {color: #FF8300;text-decoration:underline;}
<!--
body { scrollbar-face-color: #285999; scrollbar-shadow-color: #666666; scrollbar-highlight-color: #285999; scrollbar-3dlight-color: #666666; scrollbar-darkshadow-color: black; scrollbar-track-color: #666666; scrollbar-arrow-color: #FFFFFF}
//-->


</STYLE>
<script language="JavaScript">
<!--
window.defaultStatus = document.title;
// -->
</SCRIPT>

<body bgcolor="#285999" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("search.htm")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Varebetegnelse, Type, Emballage, Varepris FROM tblVarer WHERE"

strSQL = strSQL & " (Varebetegnelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Type LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Emballage LIKE '%" & strKeyword & "%')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("priser.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
Response.Write "<table border=0>"
Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("Varebetegnelse") & "</td>"
        Response.Write "<td>" & rs("Type") & "</td>"
        Response.Write "<td>" & rs("Emballage") & "</td>"
    Response.Write "<td>" & rs("Varepris") & "</td>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>


nogen der kan lave om på ovenstående så jeg ikke har så mange response write!

Mit problem er at jeg ikke kan lave om i layoutet uden at der kommer fejl!

Jeg skal have et layout der ligner følgende:

<%
SQL2 = "SELECT * FROM tblVarer WHERE refVaretyper = " & RS("ID")
set RS2 = conn.execute(SQL2)

do while not rs2.EOF

if colorCycle = 0 then
background = "#D3D7DA"
colorCycle = 1
else
background = "#BBBFC2"
colorCycle = 0
end if
%>
<tr bgcolor="<%=background%>">
<td width="20%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs2("Varebetegnelse")%></font></td>
<td width="40%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs2("Type")%></font></td>
<td width="20%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs2("Emballage")%></font></td>
<td width="20%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=rs2("Varepris")%></font></td>
</tr>
<%
rs2.moveNext
loop

%>

Det fedeste ville også være hvis det kunne lade sig gøre at få hver anden række i søgeresultatet (det øverste), til at have samme funktion som det nederste, nemlig at hver anden række har en anden baggrundsfarve!

Håber der er nogen der kan overskue situationen

tak