ég skrifaði einfaldan function sem ég hef notað hingað til og svona lýtur hún út:
Function getAltRow(getAltRowCounter,sFirstRow,sSecondRow)
Dim Row
If sFirstRow = “” Then
Response.Write “Breytunni <b>sFirstRow</b> var ekki gefið gildi”
End If
If sSecondRow = “” Then
Response.Write “<br>Breytunni <b>sSecondRow</b> var ekki gefið gildi”
End If
If getAltRowCounter Mod 2 Then
Row = sSecondRow
Else
Row = sFirstRow
End If
getAltRow = Row
End Function
Síðan hendir þú þessu inní einhverja loopu og hækkar counterinn alltaf um einn.
For…..
bgColor = getAltRow(getAltRowCounter,sFirstRow,sSecondRow)
<tr bgcolor=<%=bgColor%>>
….
getAltRowCounter = getAltRowCounter +1
for endar
æi þú'st einhvern veginn svona.<br><br><font color=“#333333”>/************************/
/* The code must be pure!!! */
/************************/ </font>
<hr style=“color: #666666; height: 1px; width:180px; border-style: dashed” align=“left”><b><font color=“#666666”>Haukur Már Böðvarsson</font></b>
<a href=“mailto:haukur@eskill.is”><font color=“#178AE8”>haukur@eskill.is</font></a>
<a href="
http://www.bodvarsson.com“ target=”_blank“><font color=”#178AE8">www.bodvarsson.com </font></a