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



<% CALL CreateConnection() CALL CreateRecordSet(forum2, "SELECT_FORUM 0, '"&request("id_msg")&"', '0'") if not forum2.eof then %> .: Outras Respostas <% end if CALL CloseRecordSet(forum2) CALL CloseConnection() %> <% CALL CreateConnection() id_msg = request("id_msg") rel_msg = 0 data_inicio = 0 imagem = "" CALL busca_MSG_rel(id_msg, imagem) CALL CloseConnection() %>


<% sub busca_msg(msg_rel, imagem) CALL CreateRecordSet(forum, "SELECT_FORUM '"&id_msg&"', 0, 0") if not forum.eof then imagem_old = imagem imagem = "  " & imagem_old do until forum.eof rel_msg = forum("id_forum") id_msg = 0 session.LCID= 1046 response.write ""& forum("titulo") & "" response.write "
"& forum("texto") & "

" response.write " postado por "& forum("nome") & " em "& convertedata_BR(forum("data"))&" as "& formatdatetime(forum("hora"),4) &"h" 'CALL busca_MSG(rel_msg, imagem) forum.movenext loop imagem = imagem_old end if CALL CloseRecordSet(forum) end sub %> <% sub busca_msg_rel(rel_msg, imagem) CALL CreateRecordSet(forum, "SELECT_FORUM 0, '"&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(rel_msg, imagem) forum.movenext loop imagem = imagem_old end if CALL CloseRecordSet(forum) end sub %>