<% function evenorodd(number) temp = CCur(number) / 2 if instr(temp,".") > 0 then evenorodd = "odd" else evenorodd = "even" end if end function %> ZETA Music - Products

<%=day(date)%> <%=monthname(month(date))%>, <%=year(date)%>









<% sQuery = "SELECT * from Category where product=1 order by sortorder" set RS = connect.execute(sQuery) i=0 do until RS.eof i=i+1 evenorodd(i) if evenorodd(i)="odd" then hotCell = " bgcolor=#A8C2C9" else hotCell = " bgcolor=#FEFEE5" end if %> > <% RS.movenext loop %>
"><%= RS("name") %>
">" width="65" height="55" border="0">

<%= RS("description") %>