Otro tipo de galeria de imagenes

toniveas · #1 (**permalink**) 27/08/2002, 21:08

Ya consulté las faq el apartado donde se explica como crear una galeria de imagenes, pero a mi me interesa otro tipo de galerias:

- 1 pagina html que contenga enlaces a una sola pagina asp aunque cada enlace tiene una variable con una id distinta (esta se crearia manualmente) (

Código:

&lt;a href=&quot;verfoto.asp?id=00001&quot;&gt;

- 1 pagina asp (verfoto.asp) que extraiga de un BD la etiqueta html de la imagen que tiene que cargar (

Código:

&lt;IMG SRC=&quot;foto.jpg&quot; ...

) y una breve descripcion de esta foto.

cuales serian los codigos de esta pagina asp (verfoto.asp)?

MUCHISIMAS GRACIAS.

Melissa · #2 (**permalink**) 28/08/2002, 06:24

Lo primero que tienes que hacer es recoger el valor que le pasas a la página:

Código:

	&lt;%id = request.QueryString(&quot;id&quot;)%&gt;

Después establecer la conexión con la base de datos, el tipo de conexión dependerá, entre otras cosas, de dónde la tengas almacenada, ésto lo puedes encontrar <a href='ir.asp?http:// http://www.soloasp.com.ar/vertexto.asp?txt=18 ' target='_blank'> http://www.soloasp.com.ar/vertexto.asp?...</a>
A continuación formula la SQL correspondiente a la información que quieres extraer: imagen y comentario, supongamos que éstos son los nombres de los campos de la tabla que deseas extraer y que el campo del código se llama id:

Código:

 &lt;% sql = &quot;Select imagen, comentario from tu_tabla where id = &quot; &amp; id
'ahora ejecuta la sql y guarda su resultado en un recordset para poder trabajar con ella
set rs = tu_conexion.Execute(sql)
'si hay registros
if rs.EOF = true or rs.BOF = true then
	response.write(&quot;No se han encontrado registros&quot;)
else
	rs.MoveFirst%&gt;
&lt;img src=&quot;&lt;%=rs.fields(&quot;imagen&quot;)%&gt;&quot; width=&quot;100&quot; height=&quot;150&quot;&gt;
	&lt;%=rs.fields(&quot;comentaio&quot;)%&gt;
&lt;%end if%&gt;

Y ya está, bueno, tienes que liberar el RecordSet y cerrar la conexión

Código:

 
&lt;% set rs = nothig
tu_conexion.close%&gt;

Espero que sea esto lo que estás buscando. Un saludete

toniveas · #3 (**permalink**) 29/08/2002, 20:01

cual es el error porque no me va?

Codigo de http://www.tvmataro.com/galeria.asp

Código:

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;%
id = request.QueryString(&quot;id&quot;)
Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
oConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;&amp; Server.MapPath(&quot;../Data/fotos.mdb&quot;)
'ahora ejecuta la sql y guarda su resultado en un recordset para poder trabajar con ella
Set RS = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
sql = &quot;Select imagen, comentario from foto where id = &quot; &amp; id
'si hay registros
if rs.EOF = true or rs.BOF = true then
response.write(&quot;No se han encontrado registros&quot;)
else
rs.MoveFirst%&gt;
&lt;img src=&quot;&lt;%=rs.fields(&quot;imagen&quot;)%&gt;&quot; width=&quot;100&quot; height=&quot;150&quot;&gt;
&lt;%=rs.fields(&quot;comentario&quot;)%&gt;
&lt;%end if%&gt;

&lt;%'Limpiamos y cerramos todo. 
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%&gt;
&lt;/body&gt;
&lt;/html&gt;

Y la base de datos fuera del acceso del dominio en la carpeta "Data" fotos.mdb

Contiene la tabla fotos
con 3 columnas:
id ,imagen y comentario

en la primera fila:
id = 1
imagen = foto1.jpg
comentario = Esta es la primera foto

en la segunda fila:
id = (Autonumerico)

Gracias!

toniveas · #4 (**permalink**) 29/08/2002, 20:04

PERDON!... La tabla de la base de datos se llama foto ...

¿Cual es el error?

Melissa · #5 (**permalink**) 04/09/2002, 07:18

Perdona tony, ¿qué tipo de error te dá? Si es de la conexión, aunque parezca una tontería, prueba dejar unos espacios:

Código:

  
oConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source= &quot; &amp; Server.MapPath(&quot;../Data/fotos.mdb&quot;)

También puede ser que no te encuentre la tabla, pues a mi me ha sucedido alguna vez y he terminado poniendo el Path completo...

Me vendría bien que me dijeses qué te dice el error, pues ahora mismo no caigo... :(

Gracias

Melissa · #6 (**permalink**) 04/09/2002, 07:23

Espera! ¿Qué es lo que te pasa, que sólo te muestra la primera imagen?
Si es así, eso es porque tienes que poner un while, verás sería así (esto es siguiendo tu código)

Código:

'si hay registros
if rs.EOF = true or rs.BOF = true then
response.write(&quot;No se han encontrado registros&quot;)
else
rs.MoveFirst
while not rs.EOF = true%&gt;
&lt;img src=&quot;&lt;%=rs.fields(&quot;imagen&quot;)%&gt;&quot; width=&quot;100&quot; height=&quot;150&quot;&gt;
&lt;%=rs.fields(&quot;comentario&quot;)%&gt;
&lt;%rs.MoveNext
wend%&gt;
&lt;%end if%&gt;

A ver si era eso!