<% numIdNota = request("idNota") sql = "SELECT * FROM notas WHERE id = " & numIdNota Set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.Open sql, MeuDB, 3, 3 sql = "SELECT * FROM comentarios WHERE idNota = " & numIdNota Set rsComenta = Server.CreateObject("ADODB.Recordset") rsComenta.Open sql, MeuDB, 3, 3 %>
<%= left(rsNotas("titulo"), 40) %>

Nome:

E-mail:

Comentário:


comenta | ver

<% Do While not rsComenta.eof %>
<%= rsComenta("autor") %>

<%= trataStringHtm(rsComenta("texto")) %>
<% rsComenta.movenext Loop %>