<%
Server.ScriptTimeOut = 25000
%>
<!-- #include file="admin/xelupload.asp"-->
<html><head>
<title>Resumen del archivos agregados al expediente</title>
<link href="estilo.css" type="text/css" rel="stylesheet" />
<script language="javascript" src="xp_progress.js"></script>
<script>
function ModificaPopup(){
window.resizeTo(350,450)
self.focus()
}
</script>
</head><body onUnload="alert('Se actualizará la pantalla');opener.location.reload();">
<script>ModificaPopup();</script>
<%
maxtam = 15 * 1024
Dim up, fich
set up = new xelUpload
up.Upload()
if IsEmpty(vMensaje) Then vMensaje=" " End If
if up.Ficheros.Count > 0 then
set fich = up.Ficheros("Curriculum")
Response.Write("<div id=""mensaje"" class=""Text"">Número de archivos en proceso: " & up.Ficheros.Count & "<hr>")
Response.Write("</div><div class=""smallText"" align=""center"">")
Response.Write "<script>var bar2=createBar(250,16,'orange',1,'orange','white', 45,15,0,'');</script>"
Response.Flush
i=1
Response.Write("<ul>")
Response.Write("<li>Nombre: <b>" & fich.Nombre & "</b></li>")
Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)</li>")
Response.Write("<li>Tipo de Archivo: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")
connStr = "Driver={SQL Server};SERVER=xx.xx.xx.xx; DATABASE=xxx;UID=xxx;PWD=xxx"
Set adoRs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Id_Prov, NomArchivo,Tamano,Tipo,Curriculum from Proveedores_Curriculums where Id_Prov = " & Session("IdProveedor")
adoRs.Open SQL, connStr, 2, 2
if adoRs.EOF Then
adoRs.AddNew
End if
adoRs("Id_Prov") = Session("IdProveedor")
adoRs("NomArchivo") = fich.Nombre
adoRs("Tamano") = fich.Tamano/1024
adoRs("Tipo") = fich.TipoContenido
fich.GuardarBD adoRs("Curriculum") 'Campo Image en SQL-Server
adoRs.Update
adoRs.Close
Set adoRs = Nothing
End If