Te digo que estoy de vacaciones,

, no entro diario o solo un ratillo por la noche.
Sobre:
Cita: Con el còdigo anterior quiero listar todos los mensajes que estan en la tabla foro y que tienen el mismo IDTEMA.
Solo mencionas que tienes dos tablas: Foro y Temas y se relacionan por IdTema, entonces sería
"Select * From Foro Inner Join Temas on Foro.IdTema = Temas.IdTema Where IdTema = " & Request("IdTema")