Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" lcid="1034"%> . . . <% Dim fecha fecha = date() While ((Repeat1__numRows <> 0) AND (NOT general.EOF)) IF general.Fields("fecha") = fecha THEN %> <tr bordercolor="#333333" bgcolor="#F0F0F0" class="titNoticias"> <td height="25"><%=(general.Fields.Item("subfamilia").Value)%></span></td> <td width="32%"><%=(general.Fields.Item("producto").Value)%></span></td> <td><%=(general.Fields.Item("login").Value)%></span></td> <td width="32%"><%=(general.Fields.Item("fecha").Value)%></span></td> <td><a href="notas.asp?id=<%=(general.Fields.Item("id").Value)%>">|ANOTAR|</a><a href="javascript:ventana('ver.asp?id=<%=(general.Fields.Item("id").Value)%>');">VER|</a></td> <td><a href="detalle.asp?id=<%=(general.Fields.Item("id").Value)%>">DETALLE</a></td> <td><a href="eliminar.asp?id=<%=(general.Fields.Item("id").Value)%>">ELIMINAR</a></td> </tr> <% ELSE %> <tr bordercolor="#333333" bgcolor="#F0F0F0" class="txContenido"> <td height="25"><%=(general.Fields.Item("subfamilia").Value)%></span></td> <td width="32%"><%=(general.Fields.Item("producto").Value)%></span></td> <td><%=(general.Fields.Item("login").Value)%></span></td> <td width="32%"><%=(general.Fields.Item("fecha").Value)%></span></td> <td><a href="notas.asp?id=<%=(general.Fields.Item("id").Value)%>">|ANOTAR|</a><a href="javascript:ventana('ver.asp?id=<%=(general.Fields.Item("id").Value)%>');">VER|</a></td> <td><a href="detalle.asp?id=<%=(general.Fields.Item("id").Value)%>">DETALLE</a></td> <td><a href="eliminar.asp?id=<%=(general.Fields.Item("id").Value)%>">ELIMINAR</a></td> </tr> <% END IF %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 general.MoveNext() Wend %>