Nota : Por motivo el código supera las 10000 el foro no me deja publicarlos completo así que lo enviare en dos post
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit %> <!-- #include file="admin/$subs.asp" --> <!-- #include file="inc/freeaspupload.asp" --> <!-- #include file="inc/encryption.inc" --> <% '************************************** ' archivo: to_do_comentar.asp ' Contexto: Listado de opciones de sistema ' Actualizado: 13/12/2009 ' ************************************* %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Comentar Tarea</title> <link href="css/estilos.css" rel="stylesheet" type="text/css" /> <SCRIPT language="JavaScript" src="funciones.js"></SCRIPT> <!-- #include file="$jquery.asp" --> <script language="JavaScript"> function valida(frm) { if(frm.Comentar.value =='') {alert('Ingrese Comentario.');frm.Comentar.focus();return false;} disableForm(frm); } function Confirmar(frm) { frm.Confirmado.value = '2'; disableForm(frm); } </script> </head> <% CheckAcceso "OPC_009_07",false Dim rs Dim Hecho Dim Fecha_Hecho Dim Autor Dim Iniciales Dim Respuesta Dim Destinatario Dim Asignado_A Dim Empresa Dim pa : pa = Request.QueryString("pa") 'viene de plan de accion Dim ifra : ifra = Request.QueryString("i") 'viene de iframe de calendario Dim Upload Set Upload = New FreeASPUpload Dim Id_Actividad Dim Confirmado Dim Creado_Por Dim Fecha_Confirmado dim File 'Dim xRutaBaseDocumentos Dim Archivo Dim DatAdjunto Dim ks Server.ScriptTimeout = 4000 ShopOpenDatabase dbc dw Upload.Form("Archivo") which = Request.QueryString("id") 'dwx Request.Form("Submit") if Upload.Form("Archivo") <> "" then ' dwx Server.MapPath("documentos/proyectos/"& Rellena(ID_proyecto,4)) &"\" xRutaBaseDocumentos = "documentos\centro_docs\0009" ') '&"\" Set Upload = New FreeASPUpload 'dwx Server.Mappath("listas_subidas") Upload.Save(Server.Mappath(xRutaBaseDocumentos)) ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then for each fileKey in Upload.UploadedFiles.keys archivo = Upload.UploadedFiles(fileKey).FileName Response.Write "<span class=""txtmain"">" & archivo & " subido exitosamente<BR></span>" next else sError = "ERROR:\nNo se ha subido ningún archivo o el documento subido no corresponde a alguno permitido por el sistema." end if 'dwx "Adjunto :" & archivo End if Response.Write("Repuesta" & Request.Form("Submit")) if Request.Form("Submit") <> "" then Procesa() if Request.Form("Hecho") <> "" then ProcesaTareaHecha() end if %> <script language="javascript"> <% if pa <> "" then %> opener.location= "plan_accion.asp?which=<%= pa %>" <% elseif ifra <> "" then %> //opener.location= opener.name; <% else %> parent.close() <% end if %> </script> <% end if if Request.Form("Submit2") <> "" then 'dwx("Subida de Archivo") if Request.Form("Confirmado") <> "" then ProcesaTareaConfirmado() end if %> <script language="javascript"> <% if pa <> "" then %> opener.location= "plan_accion.asp?which=<%= pa %>" <% elseif ifra <> "" then %> //opener.location= opener.name; <% else %> parent.close() <% end if %> </script> <% end if SQL="SELECT tbl_Por_Hacer.ID_Registro, tbl_Por_Hacer.Fecha_Limite, tbl_Por_Hacer.Asignado_A, tbl_Por_Hacer.Fecha_Contacto, tbl_Por_Hacer.Forma_Contacto, (tbl_Usuarios.Nombre_Usu+' '+ tbl_Usuarios.Apellido_Usu) as Destinatario, tbl_Por_Hacer.Creado_Por, tbl_Por_Hacer_Comentar.Fecha, tbl_Usuarios_1.Nombre_Usu, tbl_Usuarios_1.Apellido_Usu, tbl_Por_Hacer.Fecha_Hecho, tbl_Por_Hacer.Hecho, tbl_Por_Hacer.Confirmado, tbl_Por_Hacer.Fecha_Confirmado, (tbl_Usuarios_2.Nombre_Usu+' '+ tbl_Usuarios_2.Apellido_Usu) AS Autor, tbl_Usuarios_1.Iniciales, tbl_Por_Hacer.Empresa, tbl_Por_Hacer_Comentar.Respuesta, tbl_Por_Hacer.Id_Actividad, tbl_Por_Hacer.Observaciones, tbl_Usuarios_1.ID_usuario AS Creado, tbl_Usuarios_2.ID_usuario AS Asignado"&_ " FROM (((tbl_Por_Hacer_Comentar RIGHT JOIN tbl_Por_Hacer ON tbl_Por_Hacer_Comentar.Id_Registro = tbl_Por_Hacer.ID_Registro) LEFT JOIN tbl_Usuarios ON tbl_Por_Hacer.Asignado_A = tbl_Usuarios.ID_usuario) LEFT JOIN tbl_Usuarios AS tbl_Usuarios_1 ON tbl_Por_Hacer_Comentar.Id_Autor = tbl_Usuarios_1.ID_usuario) LEFT JOIN tbl_Usuarios AS tbl_Usuarios_2 ON tbl_Por_Hacer.Creado_Por = tbl_Usuarios_2.ID_usuario"&_ " WHERE (((tbl_Por_Hacer.ID_Registro)="& decode(which) &"))" dw sql Set rs = dbc.execute(SQL) %> <body> <form id="form1" name="form1" method="post" enctype="multipart/form-data" action="<%= Request.ServerVariables("SCRIPT_NAME") %>?id=<%= which %>&pa=<%= pa %>&i=<%= ifra%>"> <% if not rs.eof then Hecho = rs("Hecho") Fecha_Hecho = rs("Fecha_Hecho") Fecha_Confirmado = rs("Fecha_Confirmado") Autor = rs("Autor") Destinatario = rs("Destinatario") Asignado_A = rs("Asignado_A") Empresa = rs("Empresa") Respuesta = rs("Respuesta") Id_Actividad = Anulador(rs("Id_Actividad"),0) Confirmado = rs("Confirmado") Creado_Por = rs("Creado_Por") %> <input type="hidden" name="Asignado_A" value="<%= Asignado_A %>" /> <input type="hidden" name="Empresa" value="<%= Empresa %>" /> <input type="hidden" name="Id_Actividad" value="<%= Id_Actividad %>" /> <input type="hidden" name="Confirmado" value="" /> <table width="400" border="0" align="center" cellpadding="2" cellspacing="0" class="tabla center"> <tr> <td colspan="4" class="HeadTabla esq">Comentar Tarea ..</td> </tr> <tr> <td width="72"><stronsg> <strong>Fecha:</strong></strong></td> <td width="136"><%= rs("Fecha_Contacto") %></td> <td width="46" align="right"><strong>Motivo:</strong></td> <td width="128"><%= rs("Forma_Contacto") %></td> </tr> <tr> <td><strong>Fecha Limite:</strong></td> <td colspan="3"><%= rs("Fecha_Limite") %></td> </tr> <tr> <td><strong>Autor:</strong></td> <td><%= rs("Autor") %></td> <td align="right"><strong>Destinatario:</strong></td> <td><%= rs("Destinatario") %></td> </tr> <tr> <td valign="top"><strong>Asunto:</strong></td> <td colspan="3" valign="top"><%= rs("Empresa") %></td> </tr> <tr> <td valign="top"><strong>Comentario:</strong></td> <td colspan="3" valign="top"><%= rs("Observaciones") %></td> </tr> <tr> <td colspan="4"><table width="100%%" border="0" cellpadding="2" cellspacing="0" class="tabla"> <tr> <td colspan="2" bgcolor="#EBEBEB"><strong>Comentarios</strong></td> </tr> <% end if %> <% rs.close SQL="SELECT TOP (100) PERCENT dbo.tbl_Por_Hacer_Comentar.ID_Comentario, dbo.tbl_Por_Hacer_Comentar.Fecha, dbo.tbl_Usuarios.Nombre_Usu, "&_ " dbo.tbl_Usuarios.Apellido_Usu, dbo.tbl_Usuarios.Apellido_Mat, dbo.tbl_Usuarios.Iniciales, dbo.tbl_Por_Hacer_Comentar.Respuesta,"&_ " dbo.tbl_Por_Hacer_Comentar.Adjunto "&_ " FROM dbo.tbl_Por_Hacer_Comentar LEFT OUTER JOIN "&_ " dbo.tbl_Usuarios ON dbo.tbl_Por_Hacer_Comentar.Id_Autor = dbo.tbl_Usuarios.ID_usuario "&_ " WHERE (dbo.tbl_Por_Hacer_Comentar.Id_Registro = "& decode(which) &") "&_ " ORDER BY dbo.tbl_Por_Hacer_Comentar.ID_Comentario" 'dw sql Set rs = dbc.execute(SQL) if not rs.eof then
