Código:
Como hago para que segun la opciónes que eliga el usuario (n de fotos y tamaño), estas se muestren al inicio de la pagina algo asi como:<%@ Language="VBScript" %> <% Option Explicit %> <!--#include file="adovbs.inc" --> <!--#include file="lenguaje.asp" --> <html> <head> <title><% = Titulo %></title> <!--#include file="meta_tangs.asp" --> <SCRIPT> <!-- function displayWindow(url, width, height) { var Win = window.open(url,"displayWindow",'width=' + width + ',height=' + height + ',resizable=no,scrollbars=no,menubar=no,status=no' ); } //--> </SCRIPT> <link rel="stylesheet" type="text/css" href="estilo1.css"> </head> <body> <table border="1" bordercolor="<% = ColorBorde %>" width="<% = AnchoTabla %>" cellpadding="0" align="center"> <tr> <td width="15%" bgcolor="<% = ColorFondo3 %>" valign="top" align="center"> <!--#include file="lateral_i.asp" --> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"> </td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_james.asp">Galería de James</a></td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_kirk.asp">Galería de Kirk</a></td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_lars.asp">Galería de Lars</a></td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_jason.asp">Galería de Jason</a></td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_cliff.asp">Galería de Cliff</a></td> </tr> <tr> <td width="100%" bgcolor="<% = ColorFondo3 %>" valign="top" class="text"><a href="galeria_banda.asp">Galería de la Banda</a></td> </tr> </table> </td> <td width="75%" valign="top"> <p align="center"><font face="Blade Runner Movie Font" color="#ff0000" size="6">Galeria James</font></p> <% Dim rs Dim Conn Dim sqltxt Dim tamanopagina Dim tamanoimg Dim paginaabsoluta Dim inicio Dim fin Dim contador Dim j Dim n Dim i Dim atras Server.ScriptTimeOut=180 tamanoimg=request.querystring("tamanoimg") tamanopagina=request.querystring("tamanopagina") if tamanopagina = "" then tamanopagina=24 end if paginaabsoluta=request.querystring("paginaabsoluta") if paginaabsoluta="" then paginaabsoluta=1 end if set rs = CreateObject("ADODB.Recordset") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("james.mdb")) rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic sqltxt="SELECT * FROM imagenes" rs.Open sqltxt, conn if tamanopagina <> "all" then rs.pagesize= cint(tamanopagina) rs.absolutepage=cint(paginaabsoluta) contador=1 %> <p align="center" class="text">Hay <% = rs.recordcount %> imágenes de James</p> <p align="center"><% do while not rs.eof and contador <= cint(tamanopagina) %> <% if tamanoimg="" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="150" width="105" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% if tamanoimg="100" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="100" width="70" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% if tamanoimg="125" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="125" width="87" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% if tamanoimg="150" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="150" width="105" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% if tamanoimg="175" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="175" width="122" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% if tamanoimg="200" then %> <a href="javascript:displayWindow('img_james.asp?id=<% = RS("ID") %>',<% = RS("Ancho") %>,<% = RS("Alto") %>)"><img src="<% = Img %>/<% = RS("Imagen") %>.<% = RS("Formato") %>" height="200" width="140" border="0" alt="Pulsa para ampliar"></a> <% end if %> <% rs.movenext contador=contador+1 loop %> </p> <div align="center" class="text">Galería: </div><table align="center"> <tr> <%j=0 if cint(paginaabsoluta) <> 1 then atras=cint(paginaabsoluta)-1 response.write "<td align=""center""><a href=""galeria_james.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & """>"&"<<"&"</a></td>" j=j+1 end if for i = 1 to rs.pagecount j=j+1 if j>30 then response.write "</tr><tr>" j=1 end if if cint(i) = cint(paginaabsoluta) then response.write "<td align=""center"" class=""text"">"&i&"</td>" else response.write "<td align=""center""><a href=""galeria_james.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & i & """>"&i&"</a></td>" end if next end if %> <% if cint(paginaabsoluta) <> rs.pagecount then atras=cint(paginaabsoluta)+1 response.write "<td align=""center""><a href=""galeria_james.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & """>"&">>"&"</a></td>" end if %> </tr> </table> <form method="GET" action="galeria_james.asp"> <table border="0" width="100%"> <tr> <td width="25%" class="text">Número de imágenes</td> <td width="12%" class="text"><input type="radio" name="tamanopagina" value="18"> 18</td> <td width="12%" class="text"><input type="radio" name="tamanopagina" value="24" checked> 24</td> <td width="12%" class="text"><input type="radio" name="tamanopagina" value="30"> 30</td> <td width="13%" class="text"><input type="radio" name="tamanopagina" value="36"> 36</td> <td width="13%" class="text"><input type="radio" name="tamanopagina" value="42"> 42</td> <td width="13%" class="text"><input type="radio" name="tamanopagina" value="48"> 48</td> </tr> <tr> <td width="25%" class="text">Tamaño de la imagen</td> <td width="12%" class="text"><input type="radio" name="tamanoimg" value="100"> 100x70</td> <td width="12%" class="text"><input type="radio" name="tamanoimg" value="125" checked> 125x87</td> <td width="12%" class="text"><input type="radio" name="tamanoimg" value="150"> 150x105</td> <td width="13%" class="text"><input type="radio" name="tamanoimg" value="175"> 175x122</td> <td width="13%" class="text"><input type="radio" name="tamanoimg" value="200"> 200x140</td> <td width="13%" class="text" align="center"><input type="submit" value="Ver" name="B1" style="background-color: #333333; color: #CCCCCC; font-weight: bold; font-size: 10 px; border-style: solid; border-color: #CCCCCC"></td> </tr> </table> </form> <br> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"><span class="text"><% = Pie %><p><% = Derechos %></p></span></td> </tr> </table> </td> <!--#include file="lateral_d.asp" --> </tr> </table> </body> </html>
estas viendo (n de fotos) por pagina con un tamaño de (tamaño)