Ir para conteúdo

POWERED BY:

Arquivado

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

WEBIER

Exibir fotos armazenadas

Por , em ASP Clássico

Recommended Posts

WEBIER    0

WEBIER
Postado

peguei o sistema de album de foto de nosso amigo Cido Silva aqui do Imaster....

 

Mas está dando um problema que inclussive foi relatado por outros usuarios.

 

Exemplo:

-Criou uma catergoria chamada MINHAS FOTOS....

-Coloco nela 10 fotos...

-quando eu for exibir essa categoria, vai aparecer 10 miniaturas do lado esquerdo e 1 foto grande do lado direito... essa foto eh a primeira daquela categoria

-quando clico em uma miniatura... a foto grande eh trocada por aquela q cliquei.

 

até ai tudo bem!

 

-criou outra categoria chamada VIAGEM PRO JAPAO

-coloco 10 novas fotos nessa categoria.

-quando eu for exibir essa categoria, vai aparecer 10 miniaturas do lado esquerdo e 1 foto grande do lado direito... onde tá o problema? está na foto grande... inves de aparecer a 1 foto dessa categoria, aparece a da categoria "MINHAS FOTOS"... as miniaturas aparecem normal... o problema eh soh na foto grande...

 

olha o codigo da pagina ai:

 

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<!--#include file="conexao.asp"-->
<%
'==================================================|
'Sistema de Fotos desenvolvido por Filipe Bragança | 
'27/05/2004										   |
'www.primeiroestilo.com.br                         |
'Pode ser uzado livremente! Duvidas e              |
'sugestoes entre em contato:                       |
'filipe@primeiroestilo.com.br                      |                
'==================================================|
%>
<!-- Programação e vizualização dos cadastros -->
  <%
Dim objRs, x, intpage, codigo

codigo = request.querystring("foto")

intpage = request.QueryString("txtpage")
Set objRS = Server.CreateObject("Adodb.recordset")
call  Abreconexao
  objrs.pagesize = 1
  objRs.open "Select * From fotos where id=" + codigo + "" , Objconn, 3, 3
  if intpage = "" then
    intpage = 1
	end if
	objrs.absolutepage = cint(intpage)
 x = 1
  while  NOT objRs.EOF and x <= objrs.pagesize
%>
<html>
<head>
<title>Cido Silva - Sites, softwares e aplicações para web</title>
<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">
<div align="center">
                <p style="line-height:100%; margin-top:0; margin-bottom:0;"><img src="fotos/<%=objrs("foto")%>" width="580" height="435"></div>
            <p style="line-height:100%; margin-top:0; margin-bottom:0;" align="center"><%
  x = x + 1
ObjRs.movenext
wend
%>
<%
objrs.close
set ObjRs= Nothing
call fechaconexao
%>
            </p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

naun gera erro, apenas essa instabilidade de sua funcionalidade, tente criar outra categoria , verifique no code, onde é exibido a foto grande, provavelmente esta pegando o path da 1º categoria...

Compartilhar este post

Link para o post
Compartilhar em outros sites

WEBIER    0

WEBIER
Postado

para testar...

 

apaguei todas as fotos da primeira categoria...

 

e adicionei outras!

 

todas as 3 categorias q tenho, quando entro a invez de aparecer a foto grande agora dar o seguinte erro:

 

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/galeriadefotos/config/exibefoto.asp, line 28

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ele não está recuperando algo que está tentando exibir

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Ao fazer pesquisas ou outras consultas SQL, você pode encontrar este erro,

A causa mais provável, é que não há qualquer registro. Para evitar este erro de "blowing up", geralmente resolvemos com um

 

if not rs.eof then

 

agora se você estiver certo de que haverá resultados, você poderá verificar que a versão mais recente do MDAC, e verifique se o codigo passado esta correto..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é a linha de código do erro

 

qual o select que você usa para selecionar os dados

Compartilhar este post

Link para o post
Compartilhar em outros sites

WEBIER    0

WEBIER
Postado

qual é a linha de código do erro

 

qual o select que você usa para selecionar os dados

 

disponibilizei na primeiro post lah em cima o codigo inteiro da pagina exibefoto.asp

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