farveskift og loop
okay jeg har dette har farve skift og så mine nye side det virker osse hver for sig nu er jeg ved at skrive dem sammen med jeg kan godt for den ene del til at virke altså kun siden men ikke farve skift kan i se fejlen !!<% \' DB åbnes for listing af news
Set RS_clankamp = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM clankamp ORDER BY date\"
liOffset = MAX_NEWS_PR_PAGE * intPage
RS_clankamp.Open strSQL, strDSN, 1, 3
liCnt = 1
Do While Not RS_clankamp.EOF And liCnt < liOffset
liCnt = liCnt + 1
RS_clankamp.MoveNext
Loop
liCnt = 0
If Not RS_clankamp.EOF Then
Do While Not RS_clankamp.EOF And liCnt < MAX_NEWS_PR_PAGE
%>
<%
bgcolor = \"#142D34\"
do while not RS_clankamp.eof
%>
<div align=\"center\"><center>
<table border=\"0\" width=\"500\" height=\"10 ALIGN=CENTER bgcolor=\"<%=bgcolor%>\" cellspacing=\"0\" cellpadding=\"0\" >
<tr>
<td width=\"102\" height=\"1\" align=\"center\"><font size=\"1\"><%=RS_clankamp(\"clanname\")%></font></td>
<td width=\"313\" height=\"1\" align=\"center\"><font size=\"1\"><%=RS_clankamp(\"date\")%></font></td>
<td width=\"1\" height=\"1\" align=\"center\"><font size=\"1\"><%=RS_clankamp(\"players\")%></font></td>
<td width=\"221\" height=\"1\" align=\"center\"><font size=\"1\"><%=RS_clankamp(\"type\")%></font></td>
<td width=\"302\" height=\"1\" align=\"center\"><font size=\"1\"><%=RS_clankamp(\"map\")%></font></td>
</tr>
</table>
<%
if bgcolor=\"#142D34\" then
bgcolor=\"#214754\"
else
bgcolor=\"#142D34\"
end if
RS_clankamp.MoveNext
loop
liCnt = liCnt + 1
RS_clankamp.MoveNext
loop
If liOffset > 0 Then
Response.Write \" <A HREF=\"\"kampe.asp?page=\" & intPage - 1 & \"\"\">Previous</A> \"
End If
If Not RS_clankamp.EOF Then
Response.Write \" <A HREF=\"\"kampe.asp?page=\" & intPage + 1 & \"\"\">Next</A> \"
End If
RS_clankamp.Close
Else
Response.Write \"There are no Fights at the moment\"
End If
%>
