pagina guardar_archivo2.asp
<!--#include file="Loader.asp"-->
<%
'load object
Dim load
Set load = new Loader
' calling initialize method
load.initialize
'Ot = load.form("Ot")
'Id_Ot = request.QueryString("id")
'----------------------------------- url_boceto --------------------------------------------
titulo=load.getValue("txt_titulo")
DetalleT=load.getValue("txt_Detalle")
dia = load.getValue("dia")
Mes = load.getValue("Mes")
ano = load.getValue("Ano")
VFecha = dia & "/" & mes & "/" & ano
'NomArch=load.getValue("seleccion")
publica=load.getValue("publica")
'0comentario=replace(comentario,chr(13),"")
'comentario=replace(comentario,chr(10),"")
' File binary data
Dim fileData, fileData2
fileData = load.getFileData("seleccion")
' File name
Dim fileName
fileName = LCase(load.getFileName("seleccion"))
' File path
Dim filePath
filePath = load.getFilePath("seleccion")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("seleccion")
' File size
Dim fileSize
fileSize = load.getFileSize("seleccion")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("seleccion")
' Content Type
Dim contentType
contentType = load.getContentType("seleccion")
'sql2="select max(id_prensa) from Prensa"
'response.write(id_archivo)
'set rs2 = Server.CreateObject("ADODB.Recordset")
'rs2.open SQL2, conn, 3, 3
'id_archivo=rs2(0)
'SQL3="select max(nombre_archivo) from prensa"
'set rs3 = Server.CreateObject("ADODB.Recordset")
'rs3.open SQL3, conn, 3, 3
'nombre=rs3(0)
'----------------------------------------------------------
Dim pathToFile
NomArch = id_archivo &"_"& fileName
pathToFile = Server.mapPath("Archivador/") & "\" & NomArch
'response.write pathToFile
'response.End()
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("seleccion", pathToFile)
'-------------------------------------------------------------------------------------
' No. of Form elements
Dim countElements
countElements = load.Count
Set load = Nothing
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "DSN=convivir"
'----Insertamos los datos a la BD---------------------------------------------------------------------
sql2 = "insert into Prensa (Titulo,detalle,Fecha_publicado,nombre_archivo,est ado) values("
sql2 = sql2 & "'" & trim(titulo) & "',"
sql2 = sql2 & "'" & trim(DetalleT) & "',"
sql2 = sql2 & "#" & trim(VFecha) & "#"
sql2 = sql2 & ",'" & trim(NomArch) & "',"
sql2 = sql2 & "'" & trim(publica) & "')"
'response.write sql2
'response.End()
On Error resume Next
conn.execute(sql2)
%>
<%
If Err.Number <> 0 then %>
<body background="../../imagenes/fondo_noticias.gif">
<table align="center" width="100%">
<tr>
<td width="33%" bgcolor="#FBE9A4"> <div align="center">
<p class="titulos">ADMINISTRADOR</p>
</div></td>
<td width="33%" bgcolor="#FBE9A4"> <div align="center">
<p class="titulos">CONVIVIR</p>
</div></td>
</tr>
<tr>
<td class="titulos" colspan="2" headers="30%"><div align="center" class="texto">
<p> </p>
<p>Error al subir el archivo</p>
</p>
</div></td>
</tr>
<tr>
<td class="titulos" colspan="2" headers="30%"><div align="center" class="texto"><a href="Agregarprensa.asp">intentar nuevamente</a></div></td>
</tr>
</table>
<% else%>
<body background="../../imagenes/fondo_noticias.gif">
<table align="center" width="100%">
<tr>
<td width="33%" bgcolor="#FBE9A4"> <div align="center">
<p class="titulos">ADMINISTRADOR</p>
</div></td>
<td width="33%" bgcolor="#FBE9A4"> <div align="center">
<p class="titulos">CONVIVIR</p>
</div></td>
</tr>
<tr>
<td class="titulos" colspan="2" headers="30%"><div align="center" class="texto">
<p> </p>
<p> Los datos fueron ingresados satisfactoriamente</p>
</p>
</div></td>
</tr>
<tr>
</tr>
<tr>
</tr>
<tr>
<td width="444" class="texto"><div align="center" class="texto">
<a href="Agregarprensa.asp">Ingresar nueva prensa</a></div></td>
<td width="444" class="texto"><div align="center" class="texto"><a href="listadopre.asp"> ver listado</a></div></td>
</tr>
</table>
<% End If %>