Foros del Web - Ver Mensaje Individual - como citar los campos elegidos de un formulario

El_Metallick · #1 (**permalink**) 03/04/2005, 18:34

Tengo este codigo:

Código:

<%@ 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">&nbsp;</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 & """>"&"&lt;&lt;"&"</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 & """>"&"&gt;&gt;"&"</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">&nbsp;18</td>
    <td width="12%" class="text"><input type="radio" name="tamanopagina" value="24" checked>&nbsp;24</td>
    <td width="12%" class="text"><input type="radio" name="tamanopagina" value="30">&nbsp;30</td>
    <td width="13%" class="text"><input type="radio" name="tamanopagina" value="36">&nbsp;36</td>
    <td width="13%" class="text"><input type="radio" name="tamanopagina" value="42">&nbsp;42</td>
    <td width="13%" class="text"><input type="radio" name="tamanopagina" value="48">&nbsp;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">&nbsp;100x70</td>
    <td width="12%" class="text"><input type="radio" name="tamanoimg" value="125" checked>&nbsp;125x87</td>
    <td width="12%" class="text"><input type="radio" name="tamanoimg" value="150">&nbsp;150x105</td>
    <td width="13%" class="text"><input type="radio" name="tamanoimg" value="175">&nbsp;175x122</td>
    <td width="13%" class="text"><input type="radio" name="tamanoimg" value="200">&nbsp;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>

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:

estas viendo (n de fotos) por pagina con un tamaño de (tamaño)