Muchas pero muchisimas gracias a todos aquellos que aportaron a mi causa, como dijo mi amigo Tammander, Yo invito las cervesas aunque sean virtuales.
Para todos aquellos curiosos que quieren ver el resultado final de esta discusion aqui esta el codigo.
Código:
<%
Session.LCID = 1034
Dim con, rs, SQL
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("mes/galerias/galerias.mdb")&";"
SQL="SELECT * FROM pizarra"
rs.Open SQL, con, 1, 2
%>
<html>
<head>
<title>Mensaje Diario Mural</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link href="texto.css" rel="stylesheet" type="text/css" />
<style>
body
{
scrollbar-face-color: #F9B700;
scrollbar-shadow-color: #F9B700;
scrollbar-highlight-color: #F9B700;
scrollbar-3dlight-color: ##F9B700;
scrollbar-darkshadow-color: black;
scrollbar-track-color: #FFFFFF;
scrollbar-arrow-color: #FFFFFF;
}
</style>
<link href="rrhh.css" rel="stylesheet" type="text/css" />
<!-- Copyright 2000,2001 Macromedia, Inc. All rights reserved. -->
<!-- Copyright 2000,2001 Macromedia, Inc. All rights reserved. -->
</head>
<body background="images/back1.gif" leftmargin="0" topmargin="0">
<form name="form1" method="post" action="update_valor.asp">
<table width="612" border="0" cellpadding="0" cellspacing="0" bgcolor="#FEDA84">
<!--DWLayoutTable-->
<tr>
<td height="24" colspan="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="612" height="24" valign="middle"><img src="images/titulos/tit_menmural.gif" width="612" height="22" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="89" colspan="5" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="612" height="89" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<%Do While Not rs.EOF%>
<tr>
<td width="612" height="79" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="117" height="21" align="center" valign="middle" class="tahoma12b">NOMBRE</td>
<td width="117" align="center" valign="middle" class="tahoma12b">
E-MAIL</td>
<td width="152" align="center" valign="middle" class="tahoma12b">MENSAJE</td>
<td width="72" align="center" valign="middle" class="tahoma12b">ACT/DESA</td>
<td width="76" rowspan="2" align="center" valign="middle"><a href="form_modimensajemu.asp?msg=<%=rs.Fields("texto").value%>"><img src="images/btnplomodificar.gif" alt="Modficar" width="76" height="24" border="0"></a></td>
<td width="76" rowspan="2" align="center" valign="middle"><a href="conf_deletems.asp?msg=<%=rs.Fields("id_mensaje").value%>"><img src="images/btnploeliminar.gif" alt="Eliminar" width="76" height="24" border="0"></a></td>
<td width="2"> </td>
</tr>
<tr>
<td height="58" align="center" valign="middle" class="tahoma11b"><%=rs.Fields("nombre").value%> </td>
<td align="center" valign="middle" class="tahoma11b"><%=rs.Fields("mail").value%></td>
<td align="center" valign="middle" class="tahoma11b"><%=rs.Fields("texto").value%></td>
<td align="center" valign="middle"> <%if rs.fields("valor").value = 1 then
varCheck = "Checked"
else
varCheck = ""
end if
%> <input name="checkbox_<%=rs.Fields("id_mensaje").value%>" type="checkbox" id="checkbox_<%=rs.Fields("id_mensaje").value%>" value="<%=rs.Fields("id_mensaje").value%>" <%=varCheck%>>
</td>
<td> </td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="612" bgcolor="#999999" height="5" valign="top"><img src="images/space.gif" width="5" height="5"></td>
</tr>
</table></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="14" height="24"></td>
<td width="57" valign="top"><input type="submit" name="Submit" value="Submit">
</td>
<td width="91"> </td>
<td width="76" valign="top"><a href="principal.asp"><img src="images/btnplovolver.gif" alt="Volver a pagina Principal" width="76" height="24" border="0"></a></td>
<td width="374"> </td>
</tr>
<tr>
<td height="336"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="42" colspan="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="612" height="42" align="center" valign="middle" bgcolor="#FF9900" class="verda10vb"><font color="#FFFFFF">|
<a href="principal.asp">Portada</a> | <a href="historia.htm">Historia</a>
| <a href="mision.htm">Misión</a> | <a href="dotacion.htm">Dotación</a>
| <a href="organigrama.htm">Organigrama</a> | <a href="mensaje.htm">Mensaje</a>
| <a href="#" onClick="MM_openBrWindow('buzon.htm','buzon','width=596,height=343')">Buzón</a>
| <a href="mes/galerias/galeria.asp">Eventos</a> | <a href="noticias.asp">Nuestras
Noticias</a> | <a href="acca_aldia1.htm">Aconcagua al dia</a> |
<br />
| <a href="cultura.htm">Cultura</a> | <a href="deportes.htm">Deportes</a>
| <a href="biblioteca/buscarlibros.asp" target="_blank">Biblioteca</a>
| <a href="convenios.htm">Convenios</a> | <a href="fsocial/fsocial_que.htm">Fondo
Social</a> | <a href="ssalud/ssalud.htm">Seguro de Salud</a> | <a href="mercado/mercadillo.asp" target="_blank">Mercadillo</a>
|</font></td>
</tr>
<!--DWLayoutTable-->
</table></td>
</tr>
</table>
</form>
</body>
</html>
este es el codigo del formulario