Me podria ayudar con el siguiente codigo

[Escorpion_Negro]

Segundo Post:

Código:

while not rs.eof
Respuesta = rs("Respuesta")
DatAdjunto = rs("Adjunto")
%> 
      <tr>
        <td valign="top" nowrap="nowrap" class="FechaToDo"><span style="font-weight:bold"><%= FechaLinda(rs("Fecha")) %></span>&nbsp;
          <span style="color:#999; font-size:10px"><%= AMPM(rs("Fecha")) %></span></td>
        <td align="right" valign="top" nowrap="nowrap" style="font-size:11px; color:#06C"><b><%= rs("Nombre_Usu")&" "& rs("Apellido_Usu") %></b></td>
        </tr>
      <tr>
        <td colspan="2" valign="top" style="border-bottom:solid 1px #999; font-size:12px; padding-bottom:10px"><%= Respuesta %></td>
      </tr>
<%
rs.movenext
wend
end if
rs.close
set rs = Nothing
%>	  
      <tr>
        <td colspan="2" valign="top" bgcolor="#EBEBEB">Comentar</td>
      </tr>
      <tr>
        <td colspan="2" valign="top">
          <textarea name="Comentar" cols="55" rows="4" class="input expand" placeholder="Ingrese nuevo comentario"></textarea></td>
      </tr>
      <tr>
        <td colspan="2" valign="top"><table width="100%%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td  colspan="2" class="FechaToDo">
			     <input onfocus='focusLanguage(this)' onblur='blurLanguage(this)' name="Archivo" type="file" class="input" id="Archivo" size="50" />
			     <br>
      <!--  Adjuntar<a href="javascript:;" style="visibility:hidden"><img src="img/iconos/adjuntarTH.gif" title="Subir Archivo" class="tipsyNW" width="25" height="22" border="0" align="absmiddle" onClick="MM_openBrWindow('subir_foto_fasp.asp?form=form1&amp;campo=Adjunto&amp;ruta=<%= Server.URLEncode("/documentos/centro_docs/0009") %>&amp;cn=1&amp;span=confImg','subir','scrollbars=yes,resizable=yes,width=600,height=300')"></a> <span style="padding-bottom:4px"> -->
        <input name="Adjunto" type="hidden" id="Adjunto"><span id="confImg"></span>
        
			<% if not Hecho and Asignado_A = session("Usr_id") then %>
            </br>
Marcar Hecho
  <input type="checkbox" name="Hecho" value="1" />
  <% elseif  Asignado_A = session("Usr_id") then %>
  <%= "Hecha el : " & Fecha_Hecho %>
<% end if %>
            <% if not Confirmado and  Creado_Por = session("Usr_id")  then %>
            	<%= ""  %>
			<% elseif Creado_Por = session("Usr_id") then %>
				 <%= "</br> Confirmada el : " & Fecha_Confirmado %>
            <% end if %>
<div style="font-size:11px; padding:5px; background-color:#EBF5FE; border:1px solid #CCC">
  <% 'if url <> "" then %>
 <!-- <br />
  Acceder <a <% '= target %> class="LnkEvaluar">AQUI</a> -->
  <%' end if %>
  <% if DatAdjunto <> "" then %>
  <br />
  <a href="documentos/tareas/<%= DatAdjunto %>" target="_blank" class="LnkEvaluar">Documentro Adjunto</a>
  <% end if %>
</div>
</br>

</td>
          </tr>
          <tr>
            <td class="FechaToDo">      
 
            <% if not Confirmado and  Creado_Por = session("Usr_id")  then %>
            <input name="Submit2" type="submit" class="boton" value="Confirmar" onClick="return Confirmar(form1)" />
			 <% end if %>
           
            </td>            
            <td align="right">           
            	<input name="Submit" type="submit" class="boton" value="Comentar" onClick="return valida(form1)" />            
            </td>
          </tr>
        </table></td>
        </tr>
    </table>    </td>
  </tr>
</table>
<%

%>
</form>
</body>
</html>
<%
ShopCloseDatabase dbc

Sub Procesa
dim dbtable
dim rstemp
dbtable = "tbl_Por_Hacer_Comentar"
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open dbtable, dbc, adOpenKeyset, adLockOptimistic
rstemp.AddNew
rstemp("Id_Registro") 	= decode(which)
rstemp("Fecha") 		= DateCambia (Date()) &" "& Time()
rstemp("Id_Autor") 		= session("Usr_Id")
rstemp("Respuesta") 	= Request.Form("Comentar")
rstemp("adjunto")		= archivo
rstemp.update
rstemp.close

'dwx "CREADO"

EnviaMailAvisoPersona dbc,Request.Form("Asignado_A"),Session("usr_Id"),"Respuesta a Tarea: "& Request.Form("Empresa"),Session("nombre") &" "& Session("apellido") &" escribió:<br>"& Replace(Request.Form("Comentar"),chr(13),"<br>") ,"","",""

end sub


Sub ProcesaTareaHecha()
dim dbtable
dim rstemp
dbtable = "tbl_Por_Hacer_Comentar"
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open dbtable, dbc, adOpenKeyset, adLockOptimistic
rstemp.AddNew
rstemp("Id_Registro") 	= decode(which)
rstemp("Fecha") 		= DateCambia (Date()) &" "& Time()
rstemp("Id_Autor") 		= session("Usr_Id")
rstemp("Respuesta") 	= Session("nombre") &" "& Session("apellido")
rstemp.update
rstemp.close

'dwx "CREADO"
dbc.execute("UPDATE tbl_Por_Hacer SET Hecho=1, Fecha_Hecho='"& Date() &" "& Time() &"' WHERE ID_Registro="& decode(which) )

EnviaMailAvisoPersona dbc,Request.Form("Asignado_A"),Session("usr_Id"),"Tarea Hecha: "& Request.Form("Empresa"),Session("nombre") &" "& Session("apellido") &" marcó como Hecha la tarea: "& Replace(Request.Form("Empresa"),chr(13),"<br>") ,"","",""

end sub

Sub ProcesaTareaConfirmado()
dim dbtable
dim rstemp
dbtable = "tbl_Por_Hacer_Comentar"
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open dbtable, dbc, adOpenKeyset, adLockOptimistic
rstemp.AddNew
rstemp("Id_Registro") 	= decode(which)
rstemp("Fecha") 		= DateCambia (Date()) &" "& Time()
rstemp("Id_Autor") 		= session("Usr_Id")
rstemp("Respuesta") 	= Session("nombre") &" "& Session("apellido")
rstemp.update
rstemp.close

'dwx "CREADO"
dbc.execute("UPDATE tbl_Por_Hacer SET Confirmado=1, Fecha_Confirmado='"& Date() &" "& Time() &"' WHERE ID_Registro="& decode(which) )

EnviaMailAvisoPersona dbc,Request.Form("Asignado_A"),Session("usr_Id"),"Tarea Hecha: "& Request.Form("Empresa"),Session("nombre") &" "& Session("apellido") &" marcó como Hecha la tarea: "& Replace(Request.Form("Empresa"),chr(13),"<br>") ,"","",""

end sub

Function GeneraNombreAleatorio()
	GeneraNombreAleatorio = Rellena(session("Id_Filial"),3) &"_"& Year(Date())&Rellena(Month(Date()),2)&Rellena(Day(Date()),2)&"_U"& Rellena(session("Usr_Id"),3)&"_"&CreaPassword() '  nombre
End Function

%>