[Resolvido] Botão para proxima foto

hargon · Setembro 20, 2008

O SELECT CASE tem que vir abaixo da linha do Acao = Request("acao").

Darlan Evandro · Setembro 20, 2008

O SELECT CASE tem que vir abaixo da linha do Acao = Request("acao").

código corrigido

<%
Set objCol = Server.CreateObject("ADODB.Connection")
objCol.Open fm_img_cidades
  
id = request.querystring("id")
Acao = Request("acao")
Select Case LCase(Acao)
Case "anterior"
	Sinal = "<="
Case "proximo"
	Sinal = "=>"
Case Else
	Sinal = "="
End Select
If id = "" then
	ComandoSQL = " SELECT * FROM cidades ORDER BY id DESC"
else
	ComandoSQL = " SELECT Top 1 * FROM cidades WHERE id "& Sinal &" " & id &";"
end If
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 2
objRS.CursorType = 1
objRS.LockType = 1
objRS.Open ComandoSQL, objCol,,, &H0001 %>

Hargon. Agora não acusa mais o erro, mas o botão "anterior - próximo" nao está funcionando.

Salgado · Setembro 20, 2008

Retire o excesso de espaços dos links.

Darlan Evandro · Setembro 20, 2008

Retire o excesso de espaços dos links.

Retirei os espaços, mas sem sucesso ainda.

<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&"&Acao=anterior">Anterior</a>|<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&"&Acao=proximo">próximo</a>

Salgado · Setembro 20, 2008

Tem um link online para vermos?

desisto · Setembro 20, 2008

e se forem milhares de imagens carregará tudo né?

se eu abrisse um site assim nao demoraria muito para sair em definitivo

você viu em algum momento todas imagens carregando?

pelo menos você leu o codigo?

pode ter 1 trilhao de fotos, cada uma vai abrir quando o botao for pressionado, eu so pego a url da foto, eu nao carrego nada de imediato a nao ser a FOTO 1

vai pra foto 2 quando clicar no proximo

e nao ha problema nenhum carregar os thumbs ao mesmo tempo, é pra isso que servem, sao imagens pequenas com tamanho minimo

Darlan Evandro · Setembro 22, 2008

pessoal... seguinte:

qndo clico na foto de de id=1

aparece lá embaixo os 2 botoes

"anterior - proxima"

qndo passo o mouse em cima do "anterior" - a barra de status exibe:

ver_terrenos.asp?id=1&

e qndo passo o mouse em cima do "proximo" - a barra de status exibe:

ver_terrenos.asp?id=1&

isso vai... de cada foto q eu abro: se abro a foto 2, os botões linkam pro id=2

assim por diante.

qualqer dos 2 botoes (anterior - proximo) q eu clique .. retorna o erro

___________________

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'codigo ='.

/ver_terrenos.asp, line 30

___________________

Darlan Evandro · Setembro 22, 2008

"desisto", é o seguinte.

esse sistema foi feito por outra pessoa q trabalhava comigo! (o codigo pode estar meio desestruturado)

são terrenos de determinadas cidades.

Então .. a pessoa (administrador) adiciona... o codigo, titulo, imagem, e descricao. do terreno

Ai OK.. esses dados são exibidos... na pagina "terrenos"

exibe uma miniatura da foto adicionada e os dados.

ate ai td bem...

qndo clico nesses dados. abre uma pagina,

ver_terrenos, com todas as miniaturas.

essas miniaturas são adicionadas da seguinte forma..

pela pagina add_img_terrenos

dai eu adiciono essas fotos com um codigo igual ao codigo q adicionei a descricao, titulo, etc.

ai ele puxa as imagens referente ao codigo adicionado.

"Terreno codigo 1

imagens referentes ao codigo 1"

Ok.

você citou o exemplo de js, (eu testei sim) mas teria como eu colocar codigos dentro do js. para puxar as imagens do banco??

desisto · Setembro 22, 2008

o link correto é assim:

<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&Acao=anterior">Anterior</a>|

<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&Acao=proximo">próximo</a>

me diga uma coisa:

qtas fotos sao castradas?

como você guarda na tabela? em odrem foto1; foto2; foto3?

se for de forma ordenada nao precisa disso tudo

desisto · Setembro 22, 2008

so me responde o que perguntei acima pro case de postar uma solucao em asp memso de acordo com o necessario

no caso do js você usaria assim:

quando abrir a pagina com as miniaturas, dentro do loop que as gera, você coloca os valores das fotos dentro do input que postei

e ai pronto, pega o total de fotos e joga dentro do

var total = 5;

var total = <%=total_foto%>;

se você testou o que postei viu que funciona

[]s

Darlan Evandro · Setembro 22, 2008

apenas 1 foto é cadastrada junto com a descricao e o titulo.

dai as outras fotos, são inúmeras, o qnto necessário pelo administrador.

elas nao estão em ordem. somente eh necessário colocar o mesmo codigo, para puxar corretamente.

qnto ao link abaixo, agora está fazendo a função correta.

qndo passo o mouse em cima do botao "proximo ou anterior"... a barra de status exibe:

ver_img_cidade.asp?id=1&Acao=proximo

ver_img_cidade.asp?id=1&Acao=anterior

mas esta dando errroo...

o link correto é assim:

<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&Acao=anterior">Anterior</a>|

<a href="ver_img_cidade.asp?id=<%=objRS("id")%>&Acao=proximo">próximo</a>

me diga uma coisa:

qtas fotos sao castradas?

como você guarda na tabela? em odrem foto1; foto2; foto3?

se for de forma ordenada nao precisa disso tudo

Darlan Evandro · Setembro 22, 2008

apenas 1 foto é cadastrada junto com a descricao e o titulo.

dai as outras fotos, são inúmeras, o qnto necessário pelo administrador.

elas nao estão em ordem. somente eh necessário colocar o mesmo codigo, para puxar corretamente.

qnto ao link abaixo, agora está fazendo a função correta.

qndo passo o mouse em cima do botao "proximo ou anterior"... a barra de status exibe:

ver_img_cidade.asp?id=1&Acao=proximo

ver_img_cidade.asp?id=1&Acao=anterior

mas esta dando errroo...

desisto · Setembro 22, 2008

com js seria mais facil ainda, so jogar tudo no input

mas vamos pro asp

qual erro que deu?

posta o codigo completo que você ta usando na pagina, ainda nao vi criando as miniaturas

Darlan Evandro · Setembro 22, 2008

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'id => 11'.

/ver_img_terrenos.asp, line 30

linha 30:

objRS.Open ComandoSQL, objCol,,, &H0001 %>

com js seria mais facil ainda, so jogar tudo no input

mas vamos pro asp

qual erro que deu?

Darlan Evandro · Setembro 22, 2008

codigo das miniaturas:

<%
Set objCol = Server.CreateObject("ADODB.Connection")
objCol.Open fm_img_terrenos

codigo = request.querystring("codigo")

ComandoSQL = " SELECT * FROM cidade WHERE codigo = " & codigo
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 2
objRS.CursorType = 1
objRS.LockType = 1
objRS.Open ComandoSQL, objCol,,, &H0001 %>
<font face="Arial, Helvetica, sans-serif" color="#FF6600" size="2"><span class='size16 bold c000000'><strong> » Cód. <%=objRS("codigo")%></strong></span></font>
<table width="100%" border="0">
  <tr>
	<td><div align="center">
<%
Do while not objRS.eof
%>
	 <a class="linksmenu" href="ver_img_terrenos.asp?id=<%=objRS("id")%>"><img src="<%=objRS("imagem")%>" alt="ampliar imagem" width="110" height="92" border="0"/>
	<%objRS.movenext
						  loop
objRS.close
Set objcol = nothing %>

Mário Monteiro · Setembro 22, 2008

o que tem neste ComandoSQL ?

poste tambem o seu response.write

Salgado · Setembro 23, 2008

Inverta a ordem do sinal lá no SELECT CASE, de => para >= e teste novamente.

Darlan Evandro · Setembro 23, 2008

troquei o SELECT CASE, de => para >=

agora não aponta mais o erro.

mas o "próximo" não funciona, e o anterior, independente da foto que eu abra, sempre volta para a foto de id=1 :blink:

o código inteiro está abaixo:

<%
Set objCol = Server.CreateObject("ADODB.Connection")
objCol.Open fm_img_terrenos

id = request.querystring("id")
Acao = Request("acao")
Select Case LCase(Acao)
Case "anterior"
	Sinal = "<="
Case "proximo"
	Sinal = ">="
Case Else
	Sinal = "="
End Select
If id = "" then
	ComandoSQL = " SELECT * FROM cidade ORDER BY id DESC"
else
	ComandoSQL = " SELECT Top 1 * FROM cidade WHERE id "& Sinal &" " & id &";"
end If
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 2
objRS.CursorType = 1
objRS.LockType = 1
objRS.Open ComandoSQL, objCol,,, &H0001 %>
					<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
					  <tr>
						<td width="200%" colspan="3" class="texto"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
							<tr>
							  <td width="98%"><font size="1" color="#999999" face="Arial, Helvetica, sans-serif"><span class='c333333'>
							  <% If objRS.eof or objRS.bof then %>
<% response.write "Coluna ainda não disponível"
							  else%>  
							  </span></font>
							   <font face="Arial, Helvetica, sans-serif" color="#FF6600" size="2">
								<span class='size16 bold c000000'><strong>» Cód. <%=objRS("codigo")%></strong></span></font><br />							   <img src="<%=objRS("imagem")%>" alt="" /></td>
							  <td width="1%"></td>
							</tr>
						</table></td>
					  </tr>
					  <tr>
						<td colspan="3" class="arial size11"><div align="center">
						  <table width="90%" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<th scope="col">
	<a href="ver_img_terrenoscidade.asp?id=<%=objRS("id")%>&Acao=anterior">Anterior</a>|
<a href="ver_img_terrenoscidade.asp?id=<%=objRS("id")%>&Acao=proximo">próximo</a>	</th>
  </tr>
</table>
						  <br>
						  <img src="images/botão.jpg" width="120" height="27" border="0" usemap="#Map"></div>
						</tr>
					  <tr>
						<td width="200%"><table width="102%" border="0" align="center" cellpadding="0" cellspacing="0" class="bordaBottom bordaTop bordaLeft bordaRight bcCCCCCC">
							<% end if %>

Salgado · Setembro 23, 2008

Vamos ver se isso resolve parcialmente agora:

<%
Set objCol = Server.CreateObject("ADODB.Connection")
objCol.Open fm_img_terrenos

id = request.querystring("id")
Acao = Request("acao")
Select Case LCase(Acao)
Case "anterior"
Sinal = "<"
Ordem = "Desc"
Case "proximo"
Sinal = ">"
Ordem = "Asc"
Case Else
Sinal = "="
Ordem = "Desc"
End Select
If id = "" then
ComandoSQL = " SELECT * FROM cidade ORDER BY id DESC"
else
ComandoSQL = " SELECT Top 1 * FROM cidade WHERE id "& Sinal &" " & id &" Order By ID "& Ordem &";"
end If

Mas com isso teremos um erro caso os cliques no "próximo" e "anterior" cheguem ao limite final. Veja se consegue tratar isso.

Darlan Evandro · Setembro 23, 2008

Salgado.

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Funcionou! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Thanks Salgado.

Você é fera velho!!!

A questão de chegar no fim das fotos, vou dar uma estudada, para ver o que posso fazer. OK!

Agradeço e muito.

Abraçoooooooo!

Mais uma coisa... Obrigado pela atenção e compreensão de todos!!!

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Arquivado

[Resolvido] Botão para proxima foto

Recommended Posts

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

desisto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Darlan Evandro 0