Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Preciso de ajuda com uma lógica para album de fotos.
Tenho um BD com duas tabelas:
- A primeira chamada TYPES onde cadastro o nome do album e a foto, nele tenho as seguintes colunas: TYPE_ID, TYPE_NAME e TYPE_IMAGE
- A segunda chamada PICTURES onde cadastro as fotos do álbum, nele tenho as seguintes colunas: PIC_ID, PIC_TYPE (onde uso os dados do TYPE_ID para relacionar), PIC_NAME e PIC_IMAGE.
Bem, chamo os albuns desta forma:
<%
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 WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' ORDER BY TYPE_DATED DESC"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
<%
Do while not rsTypesGallery.eof
%>
<li id="item-91" class="col col-3 tablet-col-6 mobile-full lightbox" data-cat="design photography t-shirts">
<a href="user.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>" >
<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" class="attachment-post-thumbnail wp-post-image" />
<span class="icon retroicon-gallery"></span>
<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
</a>
<span class="hidden-gallery hidden">
</span>
</li><%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%>
Até ai sem problema, o proximo passo é clicar no album para abrir as fotos, não estou encontrando uma maneira de fazer isso, vocês podem me ajudar?
continuo na mesma, fazendo desta forma aparece todos os albuns mas se o album tiver mais de uma foto o album também repete
:(
<%
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 = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
<main role="main">
<section>
<div class="section-inner " style="background-color: #9899a8; ">
<div class="container portfolio" data-id="44">
<div class="portfolio-list">
<ul class="row clear">
<li class="col col-3 mobile-full lightbox">
<a href="[http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/](http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/)" >
<img width="480" height="360" src="graphic-06-thumb11-480x360.jpg" alt="graphic-06-thumb" />
<span class="icon retroicon-gallery"></span>
<h3>Image galleries are funny</h3>
</a>
<span class="hidden-gallery hidden">
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg)"></a>
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg)"></a>
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg)"></a>
</span>
</li><li class="col col-3 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></ul>
</div><!-- portfolio-list -->
</div>
</div>
</section>
</main>O correto seria rever sua estrutura de como está exibindo os dados, inserindo e mostrando (INSERT e SELECT) está fazendo, mas na hora de exibir que está com erros. Hoje para visualizar álbuns eu costuma exibir tudo com efeitos de jquery, fica muito mais bonito e tem vários tipos de efeitos, apenas insira no bd e faça pegar o jquery pegar o path dele.
Nunca tentei assim, você tem algum exemplo que eu possa seguir?
amigo o erro está em seu SQL. tenta isso aqui, LEGAL DEBUGAR direto no banco.
SELECT
TOP 20 tbALBUM.*>
amigo o erro está em seu SQL. tenta isso aqui, LEGAL DEBUGAR direto no banco.
SELECT
TOP 20 tbALBUM.*Aparente parou no segundo album, mostrou dois albuns mas travou no terceiro, mudei o trecho que sugeriu:
<%
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_connDUportal_STRING
rsTypesGallery.Source = "SELECT TOP 20 tbALBUM.* FROM TYPES AS tbALBUM INNER JOIN PICTURES AS tbFOTOS ON tbALBUM.TYPE_ID = tbFOTOS.PIC_TYPE WHERE tbALBUM.TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' ORDER BY tbALBUM.TYPE_DATED DESC"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
<main role="main">
<section>
<div class="section-inner " style="background-color: #9899a8; ">
<div class="container portfolio" data-id="44">
<div class="portfolio-list">
<ul class="row clear">
<li class="col col-3 mobile-full lightbox">
<a href="[http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/](http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/)" >
<img width="480" height="360" src="graphic-06-thumb11-480x360.jpg" alt="graphic-06-thumb" />
<span class="icon retroicon-gallery"></span>
<h3>Image galleries are funny</h3>
</a>
<span class="hidden-gallery hidden">
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg)"></a>
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg)"></a>
<a class="mfp-image" href="[http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg](http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg)"></a>
</span>
</li>
<%
Do while not rsTypesGallery.eof
%>
<li class="col col-3 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>
</div>
</section>
</main>Ainda não rolou mas parou de repetir
Tem um exemplo de sistema administrativo no fórum que coloquei, dá uma olhada.
E dá um response.write na sua string SQL para ver o que está sendo pasasda
Olá Xan, na verdade o código esta funcionando, mas não como deveria, enxuguei algumas partes conforme abaixo.
Atualmente esta funcionando assim:
Ao cadastrar um album com 3 fotos nele chamo no ASP o código abaixo; o sistema multiplica o album por 3 e insere uma foto em cada um. É como se o sistema não entendesse que o album deve ter 3 fotos.
Como deve funcionar: ao cadastrar um album e inserir fotos nele, ao chamar o código abaixo mostrar apenas um album com suas fotos dentro
<%Dim rsTypesGallery__MMColParamrsTypesGallery__MMColParam = "1"If (Request.QueryString("iUsuario") <> "") Then rsTypesGallery__MMColParam = Request.QueryString("iUsuario")End If%><%Dim rsTypesGalleryDim rsTypesGallery_numRowsSet rsTypesGallery = Server.CreateObject("ADODB.Recordset")rsTypesGallery.ActiveConnection = MM_conn_STRINGrsTypesGallery.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 = 0rsTypesGallery.CursorLocation = 2rsTypesGallery.LockType = 1rsTypesGallery.Open()rsTypesGallery_numRows = 0%> <main role="main"> <section> <div class="section-inner " style="background-color: #9899a8; "> <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 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> </div></section> </main><%rsTypesGallery.close%>Help
Ele cria 3 álbuns diferentes. Como vc está criando eles. e como está exibindo os mesmo.
Olá Xan, insiro ele normalmente no BD via script. Mas acho mesmo que o problema deve ser na lógica que estou usando para exibi-lo
Na foto 1 abaixo mostra como esta ficando no html:
/applications/core/interface/imageproxy/imageproxy.php?img=http://www.hudsonalves.com/mercadolivreimg/foto1.jpg&key=2f4c602b560e10ebff62360a69104d4b2299f8fe4277dd84d2b551826b5b4153" alt="foto1.jpg" />
Foto 2: onde cadastro meu album na Tabela "Types"
/applications/core/interface/imageproxy/imageproxy.php?img=http://www.hudsonalves.com/mercadolivreimg/foto.2.jpg&key=08e9bdaaa9f1760e18bdea10468af4765d16ef56ba3c0d4bc3e67699545ead5c" alt="foto.2.jpg" />
Foto 3: onde cadastro as fotos e onde informo em qual album devem aparecer:
/applications/core/interface/imageproxy/imageproxy.php?img=http://www.hudsonalves.com/mercadolivreimg/foto3.jpg&key=799887c33fd00d92de2fd8f3394ac797265c8c9c86912e5d6c6074867b4f203f" alt="foto3.jpg" />
é a estrutura do view ( na exibição) veja se não tem uma linha duplicando álbum
Olá Xan
Na verdade andei olhando o código para identificar justamente esta questão e duplicidade, na verdade não tem nada que gere a duplicidade, estranho não?
Mudei um pouco a forma onde seleciono as tabelas e mesmo assim esta gerando a duplicidade. Na verdade, o sistema esta entendendo que apenas uma foto deve permanecer em um album, se eu cadastro mais de uma ele duplica o album para colocar uma foto.
<ul>
<%
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 = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
<%
Do while not rsTypesGallery.eof
%>
<li class="col col-3 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><%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%>
</li>
</ul>olha a melhor forma, seria fazendo um teste de mesa no seu código para identificar isso em seu code.
Ola Xan,
É o que mais tenho feito, mas sinceramente o problema esta este trecho que postei. quando rodo ele isolado de qualquer outra aplicação o resultado é o mesmo. Creio que a forma como fiz este trecho não esteja correta.
a class="col col-3 mobile-full lightbox" está tudo OK,
dê um response.write em rsTypesGallery.Fields.Item("TYPE_ID").Value), rsTypesGallery.Fields.Item("TYPE_IMAGE") e rsTypesGallery.Fields.Item("TYPE_NAME").Value) para ver o que está sendo passado.
e coloque o cursortype=1 e locktype=3
apliquei um response.write em (rsTypesGallery.Fields.Item("TYPE_ID").Value), passou o ID do album
apliquei um response.write em rsTypesGallery.Fields.Item("TYPE_IMAGE") passou o ID da foto
apliquei um response.write em (rsTypesGallery.Fields.Item("TYPE_NAME").Value), passou o nome do album
Troquei o cursortype para 1 e locktype para 3
Continua repetindo o album
qual o code que cria o a´álbum, somente onde cria e insere as imgs
Eu faço separado para ambos processos:
No album, insiro desta forma:
<%
' *** Insert Record: (Modified for File Upload) set variables
If (CStr(UploadFormRequest("MM_insert")) = "form1") Then
MM_editConnection = MM_conn_STRING
MM_editTable = "TYPES"
MM_editRedirectUrl = "imagem.asp"
MM_fieldsStr = "TYPE_NAME|value|TYPE_PICTURE|value|TYPE_DATED|value|TYPE_DESCRIPTION|value|TYPE_HEIGHT|value|TYPE_WIDTH|value|TYPE_ACTIVE|value"
MM_columnsStr = "TYPE_NAME|',none,''|TYPE_IMAGE|',none,''|TYPE_DATED|',none,NULL|TYPE_DESCRIPTION|',none,''|TYPE_HEIGHT|',none,''|TYPE_WIDTH|',none,''|TYPE_ACTIVE|none,1,0"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(UploadFormRequest("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ", TYPE_APPROVED, TYPE_USER) values (" & MM_dbValues & ", 2, '" & rsUser.Fields.Item("USUARIO").Value & "')"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End IfEnd If
%>
Para carregar as imagens (individualmente) faço desta forma:
<%
' *** Insert Record: (Modified for File Upload) set variables
If (CStr(UploadFormRequest("MM_insert")) = "form1") Then
MM_editConnection = MM_conn_STRING
MM_editTable = "PICTURES"
MM_editRedirectUrl = "enviaimagens.asp"
MM_fieldsStr = "PIC_TYPE|value|PIC_NAME|value|PIC_PICTURE|value|PIC_DATED|value|PIC_DESCRIPTION|value|PIC_HEIGHT|value|PIC_WIDTH|value|PIC_APPROVED|value|PIC_ACTIVE|value|PIC_STATUS|value"
MM_columnsStr = "PIC_TYPE|none,none,NULL|PIC_NAME|',none,''|PIC_IMAGE|',none,''|PIC_DATED|',none,NULL|PIC_DESCRIPTION|',none,''|PIC_HEIGHT|',none,''|PIC_WIDTH|',none,''|PIC_APPROVED|none,none,NULL|PIC_ACTIVE|none,1,0|PIC_STATUS|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(UploadFormRequest("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ", PIC_USER) values (" & MM_dbValues & ", '" & rsUser.Fields.Item("USUARIO").Value & "')"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End IfEnd If
%>
<%
Dim rsType
Dim rsType_numRows
Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_conn_STRING
rsType.Source = "SELECT * FROM TYPES WHERE TYPE_USER = '" & Session("MM_Username") & "' ORDER BY TYPE_NAME ASC"
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()
rsType_numRows = 0
%>
Em ambos uso também o "Smart Image Processor" para redimensionar a imagem do álbum e das fotos
e a renderização do álbum
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>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")
%>
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. :(
Evoluiu um pouco mas ainda estou com problema:
Quando cadastro 5 albuns e coloco uma foto apenas, o sistema mostra os 5 albuns e quando eu clico em cada um aparece a foto. até ai tudo ok
Quando cadastro 5 albuns e um deles possui mais de uma foto, o sistema mostra 6 albuns na tela, ele duplica o album que contem duas fotos:
O que pode ser? Estou martelando aqui e não achei
<%
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 = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
<%
Do while not rsTypesGallery.eof
%>
<%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%>