lógica para album

[hudsonalves 0]

Neste caso é o código que esta gerando o erro:

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

	<style type="text/css">
	img.wp-smiley,
	img.emoji {
		display: inline !important;
		border: none !important;
		box-shadow: none !important;
		height: 1em !important;
		width: 1em !important;
		margin: 0 .07em !important;
		vertical-align: -0.1em !important;
		background: none !important;
		padding: 0 !important;
	}
	</style>
	



<%
Dim rsTypesGallery__MMColParam
rsTypesGallery__MMColParam = "1"
If (Request.QueryString("iUsuario") <> "") Then 
  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")
End If
%>

<%
Dim rsTypesGallery
Dim rsTypesGallery_numRows
Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")
rsTypesGallery.ActiveConnection = MM_conn_STRING
rsTypesGallery.Source = "SELECT TOP 20 * FROM TYPES, PICTURES WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' AND TYPE_ID = PIC_TYPE ORDER BY TYPE_DATED DESC"
rsTypesGallery.CursorType = 1
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 3
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
	
<main role="main">
	<section>
		<div class="container portfolio" data-id="44">
				<div class="portfolio-list">
					<ul class="row clear">
						<%
						Do while not rsTypesGallery.eof
						%>
						<li class="col col-3 tablet-col-6 mobile-full lightbox">
							<a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">
								<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />
								<span class="icon retroicon-gallery"></span>
								<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
							</a>
							<span class="hidden-gallery hidden">
								<a class="mfp-image" href="../images/<%= rsTypesGallery.Fields.Item("PIC_IMAGE") %>"></a>
							</span>
						</li>	
						<%
						rsTypesGallery.movenext
						loop
						%>
					</ul>
				</div><!-- portfolio-list -->
			</div>
	</section>	
</main>
<%
rsTypesGallery.close
%>

O Connection faço desta forma:

 

conn.asp

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_conn_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\banco\dados.mdb") 
%>

[hudsonalves 0]

Subi para o servidor, fica mais fácil visualizar.

 

Administrativo:

http://www.hudsonalves.com/mono/home/login.asp

 

Para visualizar o album:

http://www.hudsonalves.com/mono/home/user2.asp

 

 

Perceba que criei um album chamado: "agora vai", logo em seguida cadastrei 5 fotos para este álbum. Quando eu chamo ele o html repete 5 albuns e coloca uma foto em cada um.

 

 

Logo acima fiz um album apenas em html e coloquei 3 fotos, neste funcionou.

 

 

Obs.: O album só aparece se houver alguma foto cadastrada para ele.

 

 

Não encontro solução para isso

 

 

Desisto, vou tentar achar outra solução. :(