hola a todos, tengo el sgte script para subir archivos
Código:
<%
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<!-- #include file="secure/abrir_coneccion.asp" -->
<%
fecha = Date()
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = "C:\Inetpub\wwwroot\cinver\docs"
' ****************************************************
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
'If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
resumen = "El nombre del archivo especificado en el formulario no es valido."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
'SaveFiles = resumen
end function
%>
<title>:: CINVER ::</title>
<link href="../css/contenido.css" rel="stylesheet" type="text/css">
<body topmargin="0" leftmargin="0" rightmargin="0">
<form action="upload.asp" method="post" enctype="multipart/form-data" name="frmsend"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="3">
<tr>
<td colspan="2"><img src="../images/t_adjuntar.gif" width="350" height="40"></td>
</tr>
<tr>
<td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="1%"><input maxlength="256" name="file3" type="file" size="28" class="bloques"></td>
<td width="99%"> </td>
</tr>
<tr>
<td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
</tr>
<tr>
<td><input maxlength="256" name="file2" type="file" size="28" class="bloques"></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
</tr>
<tr>
<td><input maxlength="256" name="file3" type="file" size="28" class="bloques"></td>
<td> </td>
</tr>
<tr>
<td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
</tr>
<tr>
<td colspan="2"><%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen
response.write "<p>"&SaveFiles()&"</p>"
%>
<script>
alert("Se ha subido el archivo exitosamente");
this.close();
</script>
<%
end if
%>
</td>
</tr>
<tr>
<td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
</tr>
<tr>
<td><span class="formulario"><span class="bajadaForm"><input type="hidden" name="id_usuario" value="<%=id_usu %>"><input type="hidden" name="modulo" value="<%=modulo %>">
<input name="boton" type="image" src="../images/b_submit.gif" align="baseline" width="88" height="23" border="0" onMouseOver="this.style.cursor='pointer'">
</span></span></td>
<td> </td>
</tr>
</table>
</form>
</body>
todo funca super bien el problema es que necesito colocar un insert dentro de la function para guardar la informacion de cada envio y luego saber cuantos archivos ha enviado cada usuario, el drama es que cuando pongo el insert se me cae el script, no me sube los archivos o me genera un error.
alguien me podria guiar.
gracias