Hola me encuentro desarrollando un formulario para hacer comentario entre un Autor y un Responsable también un campo de estado de comentario, y un adjuntado de archivo. Cuando comencé a implementar esta funcionalidad de subida de archivos dentro del formulario al momento de generar el evento Submit y no sube el archivo el archivo al servidor
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