Ir para conteúdo

POWERED BY:

Arquivado

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

rzcoimbra

Região Repetida

Por , em ASP Clássico

Recommended Posts

rzcoimbra    0

rzcoimbra
Postado

ae galera estou precisando urgentemente da ajuda de voces.

estou criando uma página em Dreamweaver mx através do painel de ligações e comportamentos de servidor para que o dw possa gerar o código para mim, sendo que nao consigo fazer uma região repetida da forma como desejo. gostaria de exibir as fotos em 4 colunas e a quantidade de linhas necessárias para exibir o restante das fotos até terminar.

 

Já consegui fazer repetir 4 fotos, mas nao consigo fazer repetir o restante para baixo. Vejam o código e o que posso modificar.

 

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/mdbfotos.asp" -->

<%

Dim qfotos

Dim qfotos_numRows

 

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

qfotos.ActiveConnection = MM_mdbfotos_STRING

qfotos.Source = "SELECT * FROM [Consulta Mostrar Sim]"

qfotos.CursorType = 0

qfotos.CursorLocation = 2

qfotos.LockType = 1

qfotos.Open()

 

qfotos_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = 4

Repeat1__index = 0

qfotos_numRows = qfotos_numRows + Repeat1__numRows

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html><!-- InstanceBegin template="Templates/pinicial.dwt.asp" codeOutsideHTMLIsLocked="false" -->

<head>

<!-- InstanceBeginEditable name="doctitle" -->

<title>.:: Pousada Olívia ::.</title>

<!-- InstanceEndEditable -->

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

<style type="text/css">

<!--

.padraomenu {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 12px;

font-weight: bold;

color: #000000;

}

a:link {

color: #000000;

text-decoration: none;

}

a:visited {

color: #000000;

text-decoration: none;

}

a:hover {

color: #FF0000;

text-decoration: none;

}

-->

</style>

<!-- InstanceBeginEditable name="head" -->

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0

window.open(theURL,winName,features);

}

//-->

</script>

<!-- InstanceEndEditable -->

</head>

 

<body bgcolor="#FFFFCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

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

<tr>

<td width="150" height="0" align="left" valign="top">

<!--#include file="menu.htm" -->

</td>

<td width="620" height="0" align="left" valign="top">

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

<tr>

<td><!-- InstanceBeginEditable name="inserirpag" -->

<TABLE cellSpacing=0 cellPadding=0 width=620 border=0>

<TBODY>

<TR>

<TD vAlign=top width=25 height=16></TD>

<TD vAlign=top width=588 height=16></TD>

<TD vAlign=top width=1 height=16></TD>

</TR>

<TR>

<TD vAlign=top width=25 height=65></TD>

<TD vAlign=top width=588 height=65><IMG height=47

src="imagens/fotos.jpg" width=130></TD>

<TD vAlign=top width=1 height=65></TD>

</TR>

<TR>

<TD vAlign=top></TD>

<TD vAlign=top> </TD>

<TD vAlign=top></TD>

</TR>

</TBODY>

</TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=620 border=0>

<TBODY>

<TR>

<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>

<TBODY>

<TR vAlign=center align=middle>

<TD width="25"> </TD>

<%

While ((Repeat1__numRows <> 0) AND (NOT qfotos.EOF))

%>

<TD width="125"><a href="#"><img src="<%=(qfotos.Fields.Item("fotominiatura").Value)%>" alt="Clique para Ampliar" border="0" onClick="MM_openBrWindow('fotodesc.asp?codfotos=<%=(qfotos.Fields.Item("codfotos").Value)%>','','width=500,height=400')"></a></TD>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

qfotos.MoveNext()

Wend

%>

</TR>

<TR vAlign=center align=middle>

<TD width="25"> </TD>

<TD width="125"> </TD>

</TR>

</TBODY>

</TABLE></TD>

</TR>

<TR>

<TD> </TD>

</TR>

<TR>

<TD class=texto> <DIV align=center>Clique na imagem para exibir

ampliada.</DIV></TD>

</TR>

</TBODY>

</TABLE>

<p> </p>

<p> </p>

<!-- InstanceEndEditable --></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

<!-- InstanceEnd --></html>

<%

qfotos.Close()

Set qfotos = Nothing

%>

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