mostrando en forma horizontal me da un pequeño error

[cristianf]

hola tengo un problemilla, resutla que estoy intentando mostrar resutlados de imagenes + vinculo en foram horizontal de a 4 registros y em enceutro con este problema , las fotos em las muestra encolumnadas correctamente pero el link repite en todos los casos el ultimo ingresado. no se si me explico si ingreso imagenes neuvas siempre el vinculo se repite sobre el ultimo que halla inrgesado. les envio el codigo haber si alguien se da cuenta del error yo itnente de todo pero nada
en rojo muestro lo que funciona de acuerdo a lo que yo quiero pero en azul es lo que repite en todos los casos

<% sqlstmt = "SELECT * FROM noticias WHERE primicia = 'A' ORDER BY data, id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"
copete = rs("copete")
materia = rs("materia")
description = name1
%>
<p></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
counter=0
Do While Not Rs.EOF
%>

<td><div align="center">

<br>
<img src="imagens/<%=rs("foto")%>" width="81" height="58" hspace="8" vspace="2" border="0">
<% =link%>
<%
counter=counter+1
If counter Mod 4=0 Then Response.Write "</tr><tr>"
Rs.MoveNext
Loop
end if
next
%>
</tr>
</table>

[3pies]

Creo que deberías meter todo esto, dentro del bucle do while::

Código:

date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"
copete = rs("copete")
materia = rs("materia")
description = name1

Salu2

[cristianf]

exactamente era como decias !!!!!!!! un fenomeno lo tuyo!!!!!!!!! dejo el codigo por si a alquien le ayuda . muchisimas gracias!!!!!!!!!!!!!!!!

<%
counter=0
Do While Not Rs.EOF
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"
copete = rs("copete")
materia = rs("materia")
description = name1
%>
<td><div align="center">

<br>
<img src="imagens/<%=rs("foto")%>" width="81" height="58" hspace="8" vspace="2" border="0">
<% =link%>
<%
counter=counter+1
If counter Mod 4=0 Then Response.Write "</tr><tr>"
Rs.MoveNext
Loop
end if
next
%>
</tr>
</table>