Hur får jag olika färger på raderna när jag loopar ut dessa
<table width="750" border="0">
<tr>
<td width="200"><span class="nav">
<%response.write ""& RS("foretag") & "" & vbcrlf%>
</span></td>
<td><%response.write RS("cafe")& vbcrlf%>
<%response.write RS("ata")& vbcrlf%>
<%response.write RS("overnatt")& vbcrlf%>
<%response.write RS("golf")& vbcrlf%>
<%response.write RS("fiske")& vbcrlf%>
<%response.write RS("hasttur")& vbcrlf%>
<%response.write RS("cykel")& vbcrlf%>
<%response.write RS("butik")& vbcrlf%>
<%response.write RS("konst")& vbcrlf%></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="1"><hr></td>
</tr>
</table>
<%RS.MoveNext
Loop
End if
%>
</BODY>

Olika färger säger inte så mycket. Jag antar att du vill att varanan rad skall vara av en anna färg för att göra det lättare att urskilja rader?

<style type="text/css">
tr.blue td {
    background-color: blue
}

tr.green td {
    background-color: green    
}
</style>
<table>
<%
Dim Colors
Dim ColorIndex
    Colors = Array("blue","green")

    Do Until RS.EOF
        Color = Colors(ColorIndex)
        ColorIndex = (ColorIndex + 1) Mod 2
%>
  <tr class="<%=Color%>">
    <td><%=Server.HTMLEncode(RS("Field1"))%></td>
    <td><%=Server.HTMLEncode(RS("Field2"))%></td>
    <td><%=Server.HTMLEncode(RS("Field3"))%></td>
  </tr>
<%
        RS.MoveNext
    Loop
%>
</table>

Det funkade bra men när jag skulle göra samma sak på denna sidan så funkade det inte
set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "select * from fp WHERE ID="&request.querystring("ID")
RS.open sSQL, sDSN
If Not RS.Eof then%>
<table width="750" border="0" cellpadding="2" cellspacing="5">
<tr>
<td class="besk">Bild1</td>
<td><%response.write RS("bild1")& vbcrlf%></td>
</tr>
<tr>
<td class="besk">Bild2</td>
<td><%response.write RS("bild2")& vbcrlf%></td>
</tr>
<tr>
<td width="78" class="beskB">F&ouml;retag</td>
<td width="662" class="besk">
<%response.write RS("foretag")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">Kontaktperson</td>
<td class="besk">
<%response.write RS("kontakt")& vbcrlf%>
</a></td>
</tr>
<tr>
<td class="beskB">Adress</td>
<td class="besk">
<%response.write RS("adress")& vbcrlf%>
</a></td>
</tr>
<tr>
<td class="beskB">Postadress</td>
<td class="besk"><%response.write RS("postadress")& vbcrlf%> </a></td>
</tr>
<tr>
<td class="beskB">Tel</td>
<td class="besk"><%response.write RS("tel")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">Fax</td>
<td class="besk"><%response.write RS("fax")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">Mobil</td>
<td class="besk"><%response.write RS("mobil")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">E-mail</td>
<td class="besk"><%response.write RS("e-mail")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">www</td>
<td class="besk"><%response.write RS("www")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">Du erbjuds </td>
<td class="besk"><%response.write RS("cafe")& vbcrlf%>
<%response.write RS("ata")& vbcrlf%>
<%response.write RS("overnatt")& vbcrlf%>
<%response.write RS("golf")& vbcrlf%>
<%response.write RS("fiske")& vbcrlf%>
<%response.write RS("hasttur")& vbcrlf%>
<%response.write RS("cykel")& vbcrlf%>
<%response.write RS("butik")& vbcrlf%>
<%response.write RS("konst")& vbcrlf%>
<%response.write RS("konferens")& vbcrlf%><br> </td>
</tr>
<tr>
<td class="beskB">&nbsp;</td>
<td class="besk">&nbsp;</td>
</tr>
<tr>
<td class="beskB">Bekrivning</td>
<td class="besk"><%response.write RS("pres")& vbcrlf%></td>
</tr>
<tr>
<td class="beskB">&nbsp;</td>
<td class="besk"><%response.write RS("vagbesk")& vbcrlf%></td>
</tr>
<tr>
<td>&nbsp;</td>
<td class="besk"><%response.write RS("karta")& vbcrlf%></td>
</tr>
</table>
<% End if
%>
</code>
</BODY>

Öhhh... Vad är det som inte "funkar"? Är det inte bara att uppdatera varannan tr tag i din kod manuelt, eftersom raderna inte skapas dynaiskt?

Beskriv tydligt vad du vill göra, hur du försöker göra det och varför det inte fungerar.
Annars sitter man här och gissar. Då jag saknar telepatisk förmåga.