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