Buenos dias (en España) a todos
Estoy intentando hacer una galeria de imagenes en ASP, he de aclarar que es la primera vez que uso ASP,esto es lo que tengo hasa el momento:
****************************************COPIO
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Description" content="Vinoteca Venta de vino local ocio"/>
<meta name="Keywords" content="vinos,compra,venta,tierra,barros,tierrade barros,vinostierradebarros,vino,comprar,vender,den ominacion,añada,ocio,local,copas,tapas,pinchos"/>
<meta name="Robots" content="all"/>
<meta http-equiv="expires" content="-1"/>
<title>Tierra de Barros->->Venta de vino ->-> Local de ocio</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #221E1F;
}
body,td,th {
color: #FFFFFF;
}
.Estilo1 {font-size: 9px}
.Estilo5 {font-size: 9px; font-family: Arial, Helvetica, sans-serif; }
-->
</style>
</head>
<body>
<table width="100%" height="100%" border="0">
<tr>
<td width="100%" height="70%" align="center" valign="middle"><table width="485" border="1">
<tr>
<td><span class="Estilo5">
<%
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
'cuantos resultados por pagina
TamPagina=5
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("galeria")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("galeria"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
'Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("basesdatos\bdgaleria.mdb" )&";"
SQL="SELECT IdFotoGaleria,NomFotoGaleria FROM FotosGaleria;"
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open SQL, oConn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Si no existen Fotografías devuelve este mensaje
if PaginasTotales=0 then
Response.Write("No se Encontraron Fotografías.")
else
'Escribiendo la pagina en HTML con ASP
rs.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")
Response.Write("<TABLE width=""100%"" height=""100%"" align=""center"" border=""1"" STYLE=""font-size:75%"">")
Response.Write("<TR>")
Response.Write("<td align=""center""><a href=""galeria\"&rs.Fields("NomFotoGaleria")&""">< img border=""0"" src= ""galeria\"&rs.Fields("NomFotoGaleria")&"""width=" "300"" height=""300""BORDER=""0"" ALIGN=""center""""</td>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("<TABLE width=""100%"" height=""100%"" ALIGN=""center"" STYLE=""font-size:75%"">")
'Response.Write("<TR><TD><B>RESULTADOS</B></TD></tr><tr><td></td></tr>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
Response.Write("<TD>")'&VbCrLf)
'Response.Write("<TD>"&rs.Fields("IdFotoGaleria")& "</TD>")
Response.Write("<td><a href=""galeria\"&rs.Fields("NomFotoGaleria")&""">< img border=""0"" src= ""galeria\"&rs.Fields("NomFotoGaleria")&"""width=" "100"" height=""100""""</td>")
Response.Write("</TD>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</TR>")
Response.Write("</TABLE>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestra los enlaces de a 10 Resultados
'Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1& ">5 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<tr>")
Response.Write("<td><A HREF=rspagina.asp?pagina=" & PaginaActual+1 &">5 Siguientes</A></td>")
Response.Write("</tr>")
end if
'Response.Write("<tr>")
'Response.Write("<td width=""100%"" height=""20%"" align=""center"" valign=""bottom""><img src=""imagenes\logogrande.gif"" width=""762"" height=""117""></td>")
'Response.Write("</tr>")
%>
</td>
</tr>
</table> <p class="Estilo1"> </p>
</td>
</tr>
<tr>
<td width="100%" height="20%" align="center" valign="bottom"><img src="imagenes/logogrande.gif" width="762" height="117"></td>
</tr>
</table>
</body>
</html>
*******************************FIN COPIA
En la parte de arriba tengo se carga la primera imagen, y luego mas pequeñas las 5 primeras. Lo que pretendo es que, al hacer click sobre una imagen pequeña, se cargue en la parte de arriba en grande.
Tengo alguna otra duda al respecto, pero poco a poco.
Muchas gracias y un saludo
