perdon amigos, pero ya lo solucione, busque por cielo mar y tierra y encontre como hacerlo (creo que por eso me gusta la programacion y no las drogas, te matas las neuronas por algo productivo).
les dejo el codigo, de echo es el mismo que publique pero con algunas modificaciones
Código HTML:
<!--#include file="secure/abrir_coneccion.asp"-->
<%
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
' ****************************************************
' 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"
' ****************************************************
%>
<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<link href="../css/contenido.css" rel="stylesheet" type="text/css">
<BODY>
<img src="../images/t_adjuntar.gif" width="350" height="40"><br>
<form name="frmSend" method="POST" enctype="multipart/form-data" action="upload_s.asp">
<input maxlength="256" name="attach1" type="file" size="28" class="bloques">
<br>
<input type="hidden" value="<%=Request("id_usu") %>" name="id_usu">
<input type="hidden" value="<%=Request("modulo") %>" name="modulo">
<br>
<span class="formulario"><span class="bajadaForm">
<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></form>
<BR>
<%
'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
Dim varia1
Dim varia2
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
id_us = Upload.Form("id_usu")
msg_1 = "<a href=\""javascript:;\"" onClick=\""openwin('upload_s.asp?id_usu="&id_us&"','','width=356,height=250')\""><img src=\""../images/b_adjuntar.gif\"" border=\""0\""></A>"
msg_2 = "Usted no puede enviar más archivos"
'If something fails inside the script, but the exception is handled
If Err.Number <> 0 then
Else
rql = "SELECT cant_upload FROM files WHERE id_user = '"&id_us&"' AND cant_upload <= 3"
set rq = db.execute(rql)
If not rq.eof Then
'SaveFiles = ""
ks = Upload.UploadedFiles.keys
If (UBound(ks) <> -1) Then
resumen = "<B>Archivo subido:</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 en el sistema."
End If
'comentar la siguiente linea si no se desea mostrar el resumen
SaveFiles = resumen
If rq("cant_upload") = 1 Then
sql = "UPDATE files SET id_user = '"&id_us&"', fecha_upload = '"&Date()&"', cant_upload = '2'"
set rs = db.execute(sql)
%>
<script>
alert("Se ha subido el archivo exitosamente");
opener.document.getElementById('msg').innerHTML = "<%=msg_1 %>";
this.close();
</script>
<%
End If
If rq("cant_upload") = 2 Then
sql = "UPDATE files SET id_user = '"&id_us&"', fecha_upload = '"&Date()&"', cant_upload = '3'"
set rs = db.execute(sql)
%>
<script>
alert("Se ha subido el archivo exitosamente");
opener.document.getElementById('msg').innerHTML = "<%=msg_2 %>";
this.close();
</script>
<%
End If
Else
sql = "INSERT INTO files (id_user, fecha_upload, cant_upload) VALUES ('"&id_us&"', '"&Date()&"', '1')"
set rs = db.execute(sql)
%>
<script>
alert("Se ha subido el archivo exitosamente");
opener.document.getElementById('msg').innerHTML = "<%=msg_1 %>";
this.close();
</script>
<%
End If
End IF
End if
%>
</BODY>
</HTML> saludos a todos y ojala les sirva