Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Júnior Dias

Galeria de fotos com recursos

Por , em ASP Clássico

Recommended Posts

Júnior Dias    0

Júnior Dias
Postado

estou tentando criar um while com duas fotos lado a lado mais não sei o que estou erando que não consigo achar solução, tô colocando recursos na galeria como: envio de torpedos nas fotos, envio de foto por e-mail, legenda nas fotos

 

olha o code abaixo do menu.asp o que estou errando?

 

ASP
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%Option Explicit%>

<!--#include file="conexao.asp"-->

<html>

<head>

<title></title>

<link rel="stylesheet" href="style.css" type="text/css" media="screen">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta name="generator" content="Namo WebEditor v5.0">

</head>

<body bgcolor="#F0F0F0" text="#0066FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

   

<p align="center" style="line-height:100%; margin-top:0; margin-bottom:0;"><!-- Programação e vizualização dos cadastros -->

<%

Dim objRs, x, intpage, strquantidade, data, contador

intpage = request.QueryString("txtpage")

data = request.QueryString("data")

Set objRS = Server.CreateObject("Adodb.recordset")

call  Abreconexao

strquantidade = request.querystring("quantia")

session("quantia") = strquantidade

if session("quantia") = "" then

  objrs.pagesize = 10

end if  

  objRs.open "Select * From fotos where data = '"&data&"' order by id" , Objconn, 3, 3

  if intpage = "" then

    intpage = 1

        end if

        objrs.absolutepage = cint(intpage)

%>

<div align="center">

  <%

          contador=0

          while not objrs.eof and contador < objrs.pagesize

      contador = contador+1

          %>

         

  <table width="200" border="0">

    <tr>

      <td><span style="line-height:25%; margin-top:0; margin-bottom:0;"><a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos/<%=objrs("foto")%>" width="83" height="64" border="1"></a></span></td>

      <td> </td>

      <td><span style="line-height:25%; margin-top:0; margin-bottom:0;"><a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe">

            <%objrs.movenext

                  if not objrs.eof then

                  contador = contador+1

                  %>

                 

      <img src="fotos/<%=objrs("foto")%>" width="83" height="64" border="1"></a></span></td>

    </tr>

  </table>

                        <%

                        objrs.movenext

                        end if

                        %>

  <p style="line-height:25%; margin-top:0; margin-bottom:0;">  <br>

</div>

<%       

 

wend

        %>

<p align="center" style="line-height:25%; margin-top:0; margin-bottom:0;"> 

<a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/anterior.gif" width="16" height="16" border="0" alt="Página anterior"></a>

<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas

%>

<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/proxima.gif" width="16" height="16" border="0" alt="Próxima página"></a>

<%end if%>

<%

objrs.close

set ObjRs= Nothing

call fechaconexao

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

ASP
<div align="center">

<table width="104" border="0" cellspacing="0" cellpadding="0">

  <tr>

<%

Dim objRs, x, intpage, strquantidade, data, contador

intpage = request.QueryString("txtpage")

data = request.QueryString("data")

Set objRS = Server.CreateObject("Adodb.recordset")

call  Abreconexao

strquantidade = request.querystring("quantia")

session("quantia") = strquantidade

if session("quantia") = "" then

  objrs.pagesize = 10

end if  

  objRs.open "Select * From fotos where data = '"&data&"' order by id" , Objconn, 3, 3

  if intpage = "" then

    intpage = 1

        end if

        objrs.absolutepage = cint(intpage)

          contador=0

          while not objrs.eof and contador < objrs.pagesize

      contador = contador+1

%>

    <td width="104" align="center"><table width="101" border="0" cellspacing="6" cellpadding="6">

      <tr>

        <td width="85" align="center"><span style="line-height:25%; margin-top:0; margin-bottom:0;"><a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos/<%=objrs("foto")%>" width="83" height="64" border="1"></a></span></td>

      </tr>

    </table></td>

 <% if contador=2 then %>    

  </tr>

<%

 contador=0

 end if

objrs.movenext

%>

</table>

<br>

<p align="center" style="line-height:25%; margin-top:0; margin-bottom:0;"> 

<a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/anterior.gif" width="16" height="16" border="0" alt="Página anterior"></a>

<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas

%>

<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/proxima.gif" width="16" height="16" border="0" alt="Próxima página"></a>

<%end if%>

<%

objrs.close

set ObjRs= Nothing

call fechaconexao

%>

</div>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito