Sistema de mensagens internas

[webfuture 0]

Galera estou com uma dúvida, estou montando um sistema de mensagens internas com as opções padrões como responder, encaminhar, bloquear, imprimir e excluir no topo da tela e logo abaixo as mensagens com o painel de visualização, até ai tudo bem, agora minha dúvida é quando o usuário clica sobre uma mensagem ela automaticamente abre no iframe de leitura, agora quando eu quero encaminhar, excluir, imprimir, como eu faço para pegar o id desta mensagem aberta? Vejam o código:

 

 

function abrirformleitura(id_mensagem){  document.getElementById("msg_painel").innerHTML = "";  var iFrame = document.getElementById('formleitura');  iFrame.style.height = "290px";  iFrame.style.width  = "100%";  iFrame.src = 'ler.asp?mensagem=' + id_mensagem;}function responder(){  id_mensagem = "36";  document.getElementById("miolo").innerHTML = "";  var iFrame = document.getElementById('formescrita');  iFrame.style.height = "500px";  iFrame.style.width  = "100%";  iFrame.src = 'escreve.asp?mensagem=' + id_mensagem;}function encaminhar(){  id_mensagem = "40";  document.getElementById("miolo").innerHTML = "";  var iFrame = document.getElementById('formescrita');  iFrame.style.height = "500px";  iFrame.style.width  = "100%";  iFrame.src = 'escreve.asp?mensagem=' + id_mensagem;}function imprimir(id_mensagem) {	window.open("imprime.asp?mensagem="+id_mensagem+"&p=1", "Postagem", "resizable=no, toolbar=no, status=yes, menubar=no, scrollbars=yes, width=550, height=300, top=150, left=200");}<span id="miolo">										<TABLE WIDTH="100%">											<TR>												<TD>													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000">														<tr bgcolor="#FFFFFF" onMouseOver="mOvr(this,'e5ecf9');" onMouseOut="mOut(this,'#FFFFFF')">															<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_RESPONDER.jpg" BORDER="0"></TD>															<TD CLASS="FORMATO1"><A HREF="#" OnClick="responder();return false;" CLASS="PRETO">Responder</A></TD>														</TR>													</TABLE>												</TD>												<TD>													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000">														<tr bgcolor="#FFFFFF" onMouseOver="mOvr(this,'e5ecf9');" onMouseOut="mOut(this,'#FFFFFF')">															<TD HEIGHT="25"><A HREF="#" OnClick="encaminhar();return false;"><IMG SRC="IMAGES/EMAIL_ENCAMINHAR.jpg" BORDER="0"></A></TD>															<TD CLASS="FORMATO1"><A HREF="#" OnClick="encaminhar();return false;" CLASS="PRETO">Encaminhar</A></TD>														</TR>													</TABLE>												</TD>												<TD>													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000">														<tr bgcolor="#FFFFFF" onMouseOver="mOvr(this,'e5ecf9');" onMouseOut="mOut(this,'#FFFFFF')">															<TD HEIGHT="25"><A HREF="#" OnClick="imprime(40);return false;"><IMG SRC="IMAGES/EMAIL_IMPRIMIR.jpg" BORDER="0"></A></TD>															<TD CLASS="FORMATO1"><A HREF="#" OnClick="imprime(40);return false;" CLASS="PRETO">Imprimir</A></TD>														</TR>													</TABLE>												</TD>												<TD>													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000">														<tr bgcolor="#FFFFFF" onMouseOver="mOvr(this,'e5ecf9');" onMouseOut="mOut(this,'#FFFFFF')">															<TD HEIGHT="25"><A HREF="#" OnClick="bloquear(40, 'U2 faz show no Estádio do Morumbi em São Paulo');return false;" CLASS="PRETO"><IMG SRC="IMAGES/EMAIL_SPAM.jpg" BORDER="0"></A></TD>															<TD CLASS="FORMATO1"><A HREF="#" OnClick="bloquear(40, 'U2 faz show no Estádio do Morumbi em São Paulo');return false;" CLASS="PRETO">Spam</A></TD>														</Tr>													</TABLE>												</TD>												<TD>													<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000">														<tr bgcolor="#FFFFFF" onMouseOver="mOvr(this,'e5ecf9');" onMouseOut="mOut(this,'#FFFFFF')">															<TD HEIGHT="25"><A HREF="#" CLASS="PRETO" OnClick="excluir(40, 'Al Gore anuncia show mundial');return false;"><IMG SRC="IMAGES/EMAIL_DELETAR.jpg" BORDER="0"></A></TD>															<TD CLASS="FORMATO1"><A HREF="#" CLASS="PRETO" OnClick="excluir(40, 'Al Gore anuncia show mundial');return false;">Excluir</A></TD>														</TR>													</TABLE>												</TD>												<TD CLASS="FORMATO1"><A HREF="#" CLASS="AZUL" OnClick="exibir_painel();return false;">Exibir Painel</A></TD>												<TD CLASS="FORMATO1"><A HREF="#" CLASS="AZUL" OnClick="opcoes();return false;">Opções</A></TD>											</TR>											<!--											<TR>												<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_RESPONDER.jpg" BORDER="0"></TD>												<TD CLASS="FORMATO1">Responder</TD>												<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_ENCAMINHAR.jpg" BORDER="0"></TD>												<TD CLASS="FORMATO1">Encaminhar</TD>												<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_IMPRIMIR.jpg" BORDER="0"></TD>												<TD CLASS="FORMATO1">Imprimir</TD>												<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_SPAM.jpg" BORDER="0"></TD>												<TD CLASS="FORMATO1">Spam</TD>												<TD HEIGHT="25"><IMG SRC="IMAGES/EMAIL_DELETAR.jpg" BORDER="0"></TD>												<TD CLASS="FORMATO1">Excluir</TD>												<TD CLASS="FORMATO1">Exibir Painel</TD>												<TD CLASS="FORMATO1">Opções</TD>											</TR>											-->										</TABLE>										<TABLE BORDER="1" WIDTH="100%" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" BORDERCOLOR="#COCOCO">											<TR>												<TD BGCOLOR="#F0F0F0">!</TD>												<TD HEIGHT="20" BGCOLOR="#F0F0F0" WIDTH="17" ALIGN="CENTER"></TD>												<TD BGCOLOR="#F0F0F0" WIDTH="160" CLASS="FORMATO1"> <A HREF="#" OnClick="ordenar('id_envia')" CLASS="PRETO">De</A></TD>												<TD BGCOLOR="#F0F0F0" CLASS="FORMATO1" WIDTH="215"> <A HREF="#" OnClick="ordenar('assunto')" CLASS="PRETO">Assunto</A></TD>												<TD WIDTH="125" BGCOLOR="#F0F0F0" CLASS="FORMATO1"> <A HREF="#" OnClick="ordenar('data_cadastro')" CLASS="PRETO">Data</A></TD>											</TR>											<TR>												<TD COLSPAN="5"><div>													<TABLE CELLSPACING="0" CELLPADDING="0" BORDER="0" WIDTH="100%" BORDERCOLOR="#000000">													<span id="mensagens">														<%														Set RSListaMensagens = Server.CreateObject("AdoDB.Recordset")														if Remove_Quotes(Request("id_folder")) <> "" then														RSListaMensagens.open "Select anexo, lido, id_mensagem, id_envia, id_recebe, assunto, mensagem, MSG.data_cadastro, nickname from TB_Mensagens as MSG, TB_Cadastros as CA WHERE MSG.id_envia = CA.id_cadastro and id_recebe = "& Session("id_logado") &" and id_folder = "& Remove_Quotes(Request("id_folder")) &" order by MSG.data_cadastro desc", conexaoSQL														else														RSListaMensagens.open "Select anexo, lido, id_mensagem, id_envia, id_recebe, assunto, mensagem, MSG.data_cadastro, nickname from TB_Mensagens as MSG, TB_Cadastros as CA WHERE MSG.id_envia = CA.id_cadastro and id_recebe = "& Session("id_logado") &" order by MSG.data_cadastro desc", conexaoSQL														End If														while not RSListaMensagens.EOF														lido = RSListaMensagens.Fields("lido")														anexo = RSListaMensagens.Fields("anexo")														id_mensagem = RSListaMensagens.Fields("id_mensagem")														id_envia = RSListaMensagens.Fields("id_envia")														assunto = RSListaMensagens.Fields("assunto")														mensagem = RSListaMensagens.Fields("mensagem")														data_cadastro = RSListaMensagens.Fields("data_cadastro")														nickname = RSListaMensagens.Fields("nickname")														if lido = "N" then															nickname = "<B>" & nickname & "</B>"															assunto = "<B>" & assunto & "</B>"															data_cadastro = "<B>" & data_cadastro & "</B>"														End If														if lido = "N" then															img = "email_novo.jpg"														elseif lido = "S" then															img = "email_aberto.jpg"														End If																												%>														<tr id="<%Response.Write id_mensagem%>" bgcolor="#ffffff">															<TD OnClick="abrirformleitura(<%Response.WRite id_mensagem%>);return false;" WIDTH="11"></TD>															<TD OnClick="abrirformleitura(<%Response.WRite id_mensagem%>);return false;" ALIGN="CENTER" WIDTH="17"><IMG SRC="IMAGES/<%Response.Write img%>"> </TD>															<TD OnClick="abrirformleitura(<%Response.WRite id_mensagem%>);return false;" CLASS="FORMATO1" WIDTH="162"><%Response.Write nickname%></TD>															<TD OnClick="abrirformleitura(<%Response.WRite id_mensagem%>);return false;" CLASS="FORMATO1" WIDTH="215"><a href="#" OnDblClick="maximiza(<%Response.Write id_mensagem%>);return false;" OnClick="abrirformleitura(<%Response.WRite id_mensagem%>);return false;" class="preto"><%Response.Write assunto%></A></TD>															<TD CLASS="FORMATO1" WIDTH="125" ALIGN="CENTER"><%Response.Write data_cadastro%></TD>														</TR>														<TR>															<TD></TD>														</TR>														<%														RSListaMensagens.movenext														wend														RSListaMensagens.close														set RSMensagens = nothing														ConexaoSQL.Close														Set ConexaoSQL = Nothing														%>													</span>													<span id="classificadas"></span>													<span id="carregando"></span>													</TABLE></div>												</TD>											</TR>											<span id="msg_painel">											<TR>												<TD BGCOLOR="#F0F0F0" HEIGHT="20" COLSPAN="5" CLASS="FORMATO2" ALIGN="CENTER"><FONT COLOR="#000000">Para visualizar sua mensagem aqui no painel de leitura basta clicar sobre ela.</FONT></TD>											</TR>											</span>											<TR>												<TD COLSPAN="5" BGCOLOR="#F0F0F0">												<iframe name="ifrm" id='formleitura' width="0" height="0" scrolling="yes" align="center" frameborder="0"></iframe>												</TD>											</TR>										</TABLE>									</span>

Coloquei algumas funções acima de tudo, neles passo o id da mensagem na mão, pois não consegui ainda pegar o id da mensagem clicada e passar para as funções.

 

Se alguém souber me ajudar,

 

WEbFuture

[webfuture 0]

Olá TmFerreira, valeu pela dica, funcionou direitinho.Obrigado,WebFuture