ASP - algo no funciona

Les rogaria me ayudaran a resolver un gran problema que tengo despues de haber subido mipagina y la base de datos al servidor no he podido ver los datos de esta.algo he hecho o me ha fallado corrijanme si estoy equivocado.gracias

<%

Set conn=Server.CreateObject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
conn.Open

rs.open "SELECT nombre FROM Productos" , conn

Do While Not rs.Eof
response.write "rs(" & nombre & ")" & " = " & rs(nombre) & "<br>"

response.write"<tr>"
response.write"<tr>NOMBRE="& rs("nombre")& "</td>"
response.write"</td></tr>"
rs.movenext

Loop

rs.Close
conn.close

%>

Hola Jose Luis.
He mirado el codigo y lo primero que veo es que te falta indicarle el DSN que quieres abrir.
Por Ejemp:
CONN.OPEN "LIBROS"

De todas formas revisa el codigo que esta en el bucle de lectura. No se realmente como quieres ver el resultado, pero veo que tienes algun tag de tablas (/td, (/tr), pero no veo el inicio de la tabla (table) ni el final (/table).