Hola!, necesito ayuda!, descargue un codigo en ASP, que ingresa datos en Access y una imagen que se almacena en una carpeta, teniendo como tipo de campo Objeto OLE.
El detalle es que deseo mostrar en mi pagina show.asp en el campo imagen de la tabla html, la imagen ingresada del formulario, y que al darle clic, me enlace a otra pagina con la misma imagen junto con su descripcion.
Necesito que tambien cargue otras imagenes en orden de "ver siguiente", junto con los datos de la base de datos y mostrarlos en la pagina que se le de clic. como un tipo clasificado. Por ejemplo: http://www.zihuadirectorio.com/clasificados/
espero me haya explicado, por favor me podria decir que codigo agregar o que tengo que modificar para acompletar esto.
Este es el codigo:
--------------------------------------------------------------------------------------------------
<html>
<head>
<title>Probando xelUpload</title>
</head>
<body>
<form action="recibir.asp" method="post" enctype="multipart/form-data">
Nombre: <input type="text" name="nombreusuario" size="20"><br />
Edad: <input type="text" name="edad" size="5"><br />
Fichero: <br />
<input type="file" name="fichero"><br />
<input type="submit" value="Enviar">
</form>
</body>
</html>
--------------------------------------------------------------------------------------------------------
<!--#include file="xelupload.asp"-->
<%
Dim up, fich
set up = new xelUpload
up.Upload()
Response.Write("Número de ficheros subidos: " & up.Ficheros.Count & "<br>")
Response.Flush
For each fich in up.Ficheros.Items
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 MIME: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")
'Para guardarlo
' Con el nombre de fichero original:
fich.Guardar Server.MapPath("/upload/")
' Con otro nombre:
fich.GuardarComo nombrefichero, Server.MapPath("/upload/usuarios.mdb")
'----------------------------------------------------------------
Next
'Limpiamos objeto
set up = nothing
%>
--------------------------------------------------------------------------------------------------------
<%
' -- show.asp --
' Generates a list of uploaded files
Response.Buffer = True
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("usuarios.mdb")
%>
<html>
<head>
<title>Inserts Images into Database</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Mostrando datos</b><br>
<a href="form.html">Haz clic para insertar otro registro</a>
</p>
<table width="700" border="1" cellspacing="0" cellpadding="0" bgcolor="#99FFCC" bordercolor="#FFFFFF" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID_Usuario],[Nombre],[Edad],[NombreFichero],[Imagen] from usuarios order by [ID_Usuario] desc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "No. de Registros: " & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
Response.Write "</td></tr>"
While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID_Usuario") & "</td><td>"
Response.Write rs("Nombre") & "</a></td><td>"
Response.Write rs("Edad") & "</td><td>"
Response.Write rs("NombreFichero") & "</td><td>"
' Response.Write rs("Imagen") & "</td><td>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
--------------------------------------------------------------------------------------------------------
La base de datos contiene:
Id_Usuario Autonumerico
Nombre Texto
Edad Texto
NombreFichero Texto
Imagen Objeto OLE
y Esta es la pagina de pruebas:
http://www.mejoresanuncios.com/upload/show.asp
Ojala y me puedan ayudar, les agradecería mucho.