Ir para conteúdo

POWERED BY:

Arquivado

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

clayton-mer

[Resolvido] loop na horizontal mais limitar a quantidade colunas

Por , em ASP Clássico

Recommended Posts

clayton-mer    0

clayton-mer
Postado

boa noite estou aqui novamente para pedir a ajuda de vcs, estou com o seguinte problema eu preciso de um loop na horizontal mais tenho que limitar a quantidade de colunas. segue abaixo o código esse código de loop na horizontal mais fica assim

 

ex de como está ficando

 

img1 img2 img3 img4 img5

 

eu preciso que fique assim

 

img1 img2 img3

img4 img5 ...

.... .... ....

 

segue o meu código

 

CODE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="includes/ismConexao.asp" -->

 

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open MM_ismConexao_STRING

 

'*** Abrindo conexão ao Recordset

Set rsFotos = Server.CreateObject("ADODB.Recordset")

 

'*** Número de registros na memória

rsFotos.CacheSize = 8

 

'*** Seleciona a tabela, conexão e o ponteiro

rsFotos.Open "select * from Teste where IdGaleria=" & Request.Querystring("ID"), Conexao, 3,3

 

%>

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Untitled Document</title>

</head>

 

<body>

 

<table width="98%" border="0" cellspacing="0" cellpadding="0">

<tr>

<%

If rsFotos.EOF <> True Then

nConta = 1

 

Do Until rsFotos.EOF or nConta > rsFotos.PageSize

 

' Guardamos as fotos em uma váriavel

fotos = rsFotos("Foto")

 

'Criamos o Objeto

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' caminho da imagem

' Selecionamos quais fotos serão dimensionadas

Path = Server.MapPath("img/") & "\"&fotos

 

' abrindo codigo da imagem

Jpeg.Open Path

 

' Definimos os tamanhos que serão gerados os thumbs.

Jpeg.Width = 250

Jpeg.Height = 188

 

' Gerando o nome dos arquivos de thumbs

fotos_cria = left(fotos, len(fotos) - 4)

 

' Criamos aqui as fotos menores.

Jpeg.Save Server.MapPath("img/") & "\"&fotos_cria&"_small.jpg"

%>

 

<td><IMG SRC="img/<%= fotos_cria&"_small.jpg" %>"></td>

 

 

<%

rsFotos.Movenext

nConta = nConta + 1

Loop

 

End If

 

rsFotos.Close

Set rsFotos = Nothing

%>

</tr>

</table>

 

 

</body>

</html>

 

preciso da ajuda de vcs.

 

obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

clayton-mer    0

clayton-mer
Postado

Coloque um contador dentro do loop e sempre q atingir o valor 3, você pula a linha e zere o contador

tem algum exempro? por favor.

Compartilhar este post

Link para o post
Compartilhar em outros sites

andreia_sp    1

andreia_sp
Postado 

cont=1

while not tab.eof

 

'imprime

 

cont = cont + 1

 

if cont > 3 then

response.write "<br>"

cont = 1

end if

 

tab.movenext

wend

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tem no tópico pendurado "Duvidas Freqüentes"

Compartilhar este post

Link para o post
Compartilhar em outros sites

clayton-mer    0

clayton-mer
Postado

Tem no tópico pendurado "Duvidas Freqüentes"

eu já tinha visto esses modelos, o problema é que não consigo adapitar no meu código, se possivel gostaria que alguem me desse uma diza de como posso adapitar esse código de colunas no meu código, eu outro código que tenho aqui funcionando o problema se mudar alguma coisa nesse código que estou usnado o sistema não gera as thumb com aspjpeg.

Compartilhar este post

Link para o post
Compartilhar em outros sites

clayton-mer    0

clayton-mer
Postado

pessoal eu consegui resolver meu problema com loop deu certinho do jeito que estava precisando, gostaria de agrdecer a andreia_sp e o salgado que me ajudaram com algumas dicas, e também gostaria de agradrecer o forum do imasters.

 

obrigado.

 

até mais

 

clayton

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