Este es el codigo
<%
SQL = "Select * from Mensajes where IDMensaje = " & request.querystring("id")
rs.open SQL
dim forop
forop = rs("ForoPrincipal")
%>
---------------------------------------------
---------------------------------------------
<%
SQL = "Select * from Respuestas where MensajePadre = " & request.querystring("id")
rs.open SQL
if not rs.eof then
%>
Muchas gracias