<% CALL CreateConnection() id_msg = 0 rel_msg = 0 data_inicio = 0 imagem = "" CALL busca_MSG(rel_msg, imagem) CALL CloseConnection() %>

<% sub busca_msg(msg_rel, imagem) CALL CreateRecordSet(forum, "SELECT_FORUM '"&id_msg&"', '"&rel_msg&"', '"&data_inicio&"'") if not forum.eof then imagem_old = imagem imagem = "  " & imagem_old do until forum.eof rel_msg = forum("id_forum") session.LCID= 1046 if forum("origem_post") = 1 then %> <% response.write "" & imagem & ""& convertedata_BR(forum("data"))&" - "& formatdatetime(forum("hora"),4) &" - "& forum("titulo") & "" else response.write ""&imagem&""& convertedata_BR(forum("data"))&" - "& formatdatetime(forum("hora"),4) &" - "& forum("titulo") & "" end if CALL busca_MSG(rel_msg, imagem) forum.movenext loop imagem = imagem_old end if CALL CloseRecordSet(forum) end sub %>