Problemas ao listar fotos

[fazanaro 0]

Pessoal, eu possuo já as fotos cadastradas em meu BD, mas no site está aparecendo somente uma foto, sendo que eu já alterei no Dreamweaver a opção pr repetir a região até 8 fotos por página, mas msm assim ainda não aparece todas.Por favor me ajudem, o q estou fazendo errado....Se quiserem posso postar o código pr verem..

[allan.web 0]

POsta seu codigo ai para que posamos analizar melhor.Um abraço

[fazanaro 0]

Ai vai..........verifique pr mim o q esta relamente acontecendo, pois as fotos ja estao cadastradas no bd......

 

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

<!--#include virtual="/Connections/aerostarleme_conn_aero.asp" -->

<%

Dim rs_eventos__MMColParam

rs_eventos__MMColParam = "1"

If (Request.QueryString("id") <> "") Then

rs_eventos__MMColParam = Request.QueryString("id")

End If

%>

<%

Dim rs_eventos

Dim rs_eventos_numRows

 

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

rs_eventos.ActiveConnection = MM_aerostarleme_conn_aero_STRING

rs_eventos.Source = "SELECT * FROM eventos WHERE id = " + Replace(rs_eventos__MMColParam, "'", "''") + " AND id ORDER BY data ASC"

rs_eventos.CursorType = 0

rs_eventos.CursorLocation = 2

rs_eventos.LockType = 1

rs_eventos.Open()

 

rs_eventos_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = 8

Repeat1__index = 0

rs_eventos_numRows = rs_eventos_numRows + Repeat1__numRows

%>

<%

' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

 

Dim rs_eventos_total

Dim rs_eventos_first

Dim rs_eventos_last

 

' set the record count

rs_eventos_total = rs_eventos.RecordCount

 

' set the number of rows displayed on this page

If (rs_eventos_numRows < 0) Then

rs_eventos_numRows = rs_eventos_total

Elseif (rs_eventos_numRows = 0) Then

rs_eventos_numRows = 1

End If

 

' set the first and last displayed record

rs_eventos_first = 1

rs_eventos_last = rs_eventos_first + rs_eventos_numRows - 1

 

' if we have the correct record count, check the other stats

If (rs_eventos_total <> -1) Then

If (rs_eventos_first > rs_eventos_total) Then

rs_eventos_first = rs_eventos_total

End If

If (rs_eventos_last > rs_eventos_total) Then

rs_eventos_last = rs_eventos_total

End If

If (rs_eventos_numRows > rs_eventos_total) Then

rs_eventos_numRows = rs_eventos_total

End If

End If

%>

<%

Dim MM_paramName

%>

<%

' *** Move To Record and Go To Record: declare variables

 

Dim MM_rs

Dim MM_rsCount

Dim MM_size

Dim MM_uniqueCol

Dim MM_offset

Dim MM_atTotal

Dim MM_paramIsDefined

 

Dim MM_param

Dim MM_index

 

Set MM_rs = rs_eventos

MM_rsCount = rs_eventos_total

MM_size = rs_eventos_numRows

MM_uniqueCol = ""

MM_paramName = ""

MM_offset = 0

MM_atTotal = false

MM_paramIsDefined = false

If (MM_paramName <> "") Then

MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")

End If

%>

<%

' *** Move To Record: handle 'index' or 'offset' parameter

 

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

 

' use index parameter if defined, otherwise use offset parameter

MM_param = Request.QueryString("index")

If (MM_param = "") Then

MM_param = Request.QueryString("offset")

End If

If (MM_param <> "") Then

MM_offset = Int(MM_param)

End If

 

' if we have a record count, check if we are past the end of the recordset

If (MM_rsCount <> -1) Then

If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last

If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

End If

End If

 

' move the cursor to the selected record

MM_index = 0

While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

If (MM_rs.EOF) Then

MM_offset = MM_index ' set MM_offset to the last possible record

End If

 

End If

%>

<%

' *** Move To Record: if we dont know the record count, check the display range

 

If (MM_rsCount = -1) Then

 

' walk to the end of the display range for this page

MM_index = MM_offset

While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

 

' if we walked off the end of the recordset, set MM_rsCount and MM_size

If (MM_rs.EOF) Then

MM_rsCount = MM_index

If (MM_size < 0 Or MM_size > MM_rsCount) Then

MM_size = MM_rsCount

End If

End If

 

' if we walked off the end, set the offset based on page size

If (MM_rs.EOF And Not MM_paramIsDefined) Then

If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then

If ((MM_rsCount Mod MM_size) > 0) Then

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

End If

End If

 

' reset the cursor to the beginning

If (MM_rs.CursorType > 0) Then

MM_rs.MoveFirst

Else

MM_rs.Requery

End If

 

' move the cursor to the selected record

MM_index = 0

While (Not MM_rs.EOF And MM_index < MM_offset)

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

End If

%>

<%

' *** Move To Record: update recordset stats

 

' set the first and last displayed record

rs_eventos_first = MM_offset + 1

rs_eventos_last = MM_offset + MM_size

 

If (MM_rsCount <> -1) Then

If (rs_eventos_first > MM_rsCount) Then

rs_eventos_first = MM_rsCount

End If

If (rs_eventos_last > MM_rsCount) Then

rs_eventos_last = MM_rsCount

End If

End If

 

' set the boolean used by hide region to check if we are on the last record

MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

 

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

 

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

 

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

 

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

 

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

End If

Next

 

' add the Form variables to the MM_keepForm string

For Each MM_item In Request.Form

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

End If

Next

 

' create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "") Then

MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

 

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

' *** Move To Record: set the strings for the first, last, next, and previous links

 

Dim MM_keepMove

Dim MM_moveParam

Dim MM_moveFirst

Dim MM_moveLast

Dim MM_moveNext

Dim MM_movePrev

 

Dim MM_urlStr

Dim MM_paramList

Dim MM_paramIndex

Dim MM_nextParam

 

MM_keepMove = MM_keepBoth

MM_moveParam = "index"

 

' if the page has a repeated region, remove 'offset' from the maintained parameters

If (MM_size > 1) Then

MM_moveParam = "offset"

If (MM_keepMove <> "") Then

MM_paramList = Split(MM_keepMove, "&")

MM_keepMove = ""

For MM_paramIndex = 0 To UBound(MM_paramList)

MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)

If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then

MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)

End If

Next

If (MM_keepMove <> "") Then

MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)

End If

End If

End If

 

' set the strings for the move to links

If (MM_keepMove <> "") Then

MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"

End If

 

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

 

MM_moveFirst = MM_urlStr & "0"

MM_moveLast = MM_urlStr & "-1"

MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)

If (MM_offset - MM_size < 0) Then

MM_movePrev = MM_urlStr & "0"

Else

MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)

End If

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<script RUNAT=SERVER LANGUAGE=VBSCRIPT>

function DoDateTime(str, nNamedFormat, nLCID)

dim strRet

dim nOldLCID

 

strRet = str

If (nLCID > -1) Then

oldLCID = Session.LCID

End If

 

On Error Resume Next

 

If (nLCID > -1) Then

Session.LCID = nLCID

End If

 

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then

strRet = FormatDateTime(str, nNamedFormat)

End If

 

If (nLCID > -1) Then

Session.LCID = oldLCID

End If

 

DoDateTime = strRet

End Function

</SCRIPT>

<html>

<head>

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

<title>AEROSTAR - Compra e Venda de Ultraleves</title>

<style type="text/css">

<!--

@import url("estilo1.css");

body {

margin-top: 0px;

margin-left: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

.style7 { font-family: Arial, Helvetica, sans-serif;

font-size: medium;

color: #FFFFFF;

}

.style8 {font-size: x-small}

.style11 {

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

font-size: small;

}

.style12 {font-family: Arial, Helvetica, sans-serif}

.style14 {

font-size: small;

color: #FF0000;

font-weight: bold;

}

.style15 {font-size: small}

-->

</style>

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

<!--

 

 

 

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

 

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}

}

//-->

</script>

</head>

 

<body>

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

<tr valign="top" >

<td height="100" colspan="4" background="imagens/cabecalho.jpg"> </td>

</tr>

<tr>

<td width="22%" valign="top" bordercolor="#1A50B8" bgcolor="#FFFFFF"> <br>

<table width="90%" border="0" cellpadding="15" cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td><div align="left"><a href="default.asp"><img src="imagens/bt_home.jpg" width="75" height="15" border="0"></a></div></td>

</tr>

<tr>

<td><div align="left"><a href="vendas.asp"><img src="imagens/bt_vendas.jpg" width="75" height="15" border="0"></a></div></td>

</tr>

<tr>

<td><div align="left"><a href="empresa.asp"><img src="imagens/bt_empresa.jpg" width="96" height="15" border="0"></a></div></td>

</tr>

<tr>

<td><a href="eventos.asp"><img src="imagens/bt_eventos.jpg" width="75" height="15" border="0"></a></td>

</tr>

<tr>

<td><div align="left"><a href="ala.asp"><img src="imagens/bt_ala.jpg" width="50" height="15" border="0"></a></div></td>

</tr>

<tr>

<td><div align="left"><a href="contato.asp"><img src="imagens/bt_contato.jpg" width="86" height="15" border="0"></a></div></td>

</tr>

</table>

<div align="center"><br>

</div></td>

<td width="1%" valign="top" bgcolor="#CCCCCC"><p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p></td>

<td width="76%" valign="top" bgcolor="#CCCCCC"><div align="right">

<span class="texto_data"> </span><br>

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td width="2%" valign="top"><p align="left"> </p>

<p> </p> <p> </p></td>

<td width="95%" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td valign="top"> <img src="imagens/eventos/logo_eventos.jpg" width="263" height="30" align="left"></td>

</tr>

</table>

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

<tr>

<td width="26%" align="left" valign="top" class="style11"><span class="style14">Data da Realização:</span></td>

<td width="74%" align="left" valign="top" class="style11"><strong><%= DoDateTime((rs_eventos.Fields.Item("data").Value), 2, 1030) %></strong></td>

</tr>

<tr>

<td align="left" valign="top" class="style11"><span class="style14">Comentários:</span></td>

<td align="left" valign="top" class="texto_padrao style15"><%=(rs_eventos.Fields.Item("comentario").Value)%></td>

</tr>

</table>

<p> </p>

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

<tr>

<td width="74%" align="right" valign="top"> <% If MM_offset <> 0 Then %>

<A HREF="<%=MM_moveFirst%>">Inicio</A>

<% End If ' end MM_offset <> 0 %></td>

<td width="13%" align="right" valign="top"> <% If MM_offset <> 0 Then %>

<A HREF="<%=MM_movePrev%>">Voltar</A>

<% End If ' end MM_offset <> 0 %></td>

<td width="13%" align="right" valign="top"> <% If Not MM_atTotal Then %>

<A HREF="<%=MM_moveNext%>">Ver mais</A>

<% End If ' end Not MM_atTotal %></td>

</tr>

<tr align="center" valign="middle">

<td colspan="3">

<%

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

%>

<img src="imagens/eventos/<%=(rs_eventos.Fields.Item("fotos").Value)%>" width="75" height="75">

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rs_eventos.MoveNext()

Wend

%></td>

</tr>

<tr align="right" valign="top">

<td> <% If MM_offset <> 0 Then %>

<A HREF="<%=MM_moveFirst%>">Inicio</A>

<% End If ' end MM_offset <> 0 %></td>

<td> <% If MM_offset <> 0 Then %>

<A HREF="<%=MM_movePrev%>">Voltar</A>

<% End If ' end MM_offset <> 0 %></td>

<td>

<% If Not MM_atTotal Then %>

<A HREF="<%=MM_moveNext%>">Ver mais</A>

<% End If ' end Not MM_atTotal %></td>

</tr>

</table> <p align="justify" class="texto_padrao"> </p>

<p align="justify" class="texto_padrao"> </p>

<p align="justify" class="texto_padrao"> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<p> </p></td>

<td width="2%" valign="top"> </td>

</tr>

</table>

<br>

</div></td>

<td width="1%" valign="top" bgcolor="#CCCCCC"> </td>

</tr>

<tr valign="top">

<td colspan="4"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<th height="25%" align="left" valign="top" bgcolor="#FFFF00" scope="col"> </th>

</tr>

<tr>

<td align="center" valign="top" bgcolor="#000099"><p align="center"><strong><span class="style7">AEROSTAR - Compra e Venda de Ultraleves<br>

<span class="style8">Aeroporto Municipal de Leme / Hangar 07 -- Fone: (19) 3554-8401<br>

* Site desenvolvido por Pablo Fazzanaro <br>

<br>

</span></span></strong></p></td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

<%

rs_eventos.Close()

Set rs_eventos = Nothing

%>

[millhouse 0]

tbm uso o dreamweawer para fazer certas coisas ... as vezes tbm tenho problemas... o que que geralmente faço, é refazer o que não está funcionando, já que é pelo dreamweawer não custa muito refazer a parte do repeat....