hola ,, aki les va mi codigo
<!--#include file="transparencia_upload_2.asp"-->
<%
Server.ScriptTimeOut = 300
Dim up, fich, fich_1
set up = new Trans_Upload
up.Upload()
if up.Form("opc") = "insertar" then
id = up.Form("item_id")
if id = 13 then
set fich = up.Ficheros("archivo")
set fich_1 = up.Ficheros("img")
'Para guardarlos en el DISCO DURO
' Guardar el Archivo:
peri = up.Form("periodo")
anio = trim(up.Form("anio2"))
nuevo_nombre_arch = nomb(id,valor(peri),peri,anio)'
carpeta = cstr(up.Form("carpeta"))
fich.GuardarComo nuevo_nombre, Server.MapPath(carpeta)
' Guardar la Imagen:
nuevo_nombre_img = "memoriaicon" & anio & right(fich_1.Nombre,4)
carpeta = "../img"
fich_1.GuardarComo nuevo_nombre, Server.MapPath(carpeta)
'Para guardarlos en la BD
' Abrimos una conexión a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
' Nos conectamos
oConn.Open("DRIVER={SQL Server}; SERVER=YESMINA; DATABASE=transparencia; UID=sa")
' Calculamos el ID
SQL_1 = "select max(cumpli_id) + 1 as 'id' from cumplimiento"
' Recogemos el ID
Set objRS_1 = oConn.Execute(SQL_1)
' Generamos la consulta para la insercion en la BD
login = session("login_id")
cumpli_fecha = day(date()) & "/" & month(date()) & "/" & year(date())
cumpli_anio = year(date())
SQLINS = "insert into cumplimiento values('" & trim(objRS_1("id")) & "', '" & up.Form("item_id") & "', '" & up.Form("periodo") & "', '" & nuevo_nombre_arch & "', null, '" & CStr(trim(login)) & "', '" & cumpli_fecha & "', '" & cumpli_anio & "', '" & nuevo_nombre_img &"')"
oConn.Execute(SQLINS)
set fich = nothing
set fich_1 = nothing
set up = nothing
oConn.Close
set oConn = nothing
else
""....es otra opcion muy parecido el codigo.."""
'------------------------------------------------------------------
'funicones usadas...
<%
function nomb(id,dato,peri,anio)'
dim nombre
carac = len(id)
fre = left(peri,1)
if carac = 1 then
id = "0" & id
end if
if fre <> "A" then
nombre = "T" & id & fre & "_" & dato & "_" & anio & ".pdf"
else
nombre = "T" & id & fre & "_" & anio & ".pdf"
end if
nomb = nombre
end function
function valor(val)
dim dat
select case val
case "Enero"
dat = "01"
case "Febrero"
dat = "02"
case "Marzo"
dat = "03"
case "Abril"
dat = "04"
case "Mayo"
dat = "05"
case "Junio"
dat = "06"
case "Julio"
dat = "07"
case "Agosto"
dat = "08"
case "Septiembre"
dat = "09"
case "Octubre"
dat = "10"
case "Noviembre"
dat = "11"
case "Diciembre"
dat = "12"
case "Trimestre 1", "Semestre 1"
dat = "01"
case "Trimestre 2", "Semestre 2"
dat = "02"
case "Trimestre 3"
dat = "03"
case "Trimestre 4"
dat = "04"
end select
valor = dat
end function
%>
Atte. yesmina
Nota: este es el codigo donde sube el archivo, recibe datos de otro..y se acompña con el codigo del xelupload puro ke est aen otra pagina...si kiren mas detalle..este esmi email
[email protected]