<% Dim Albuns__MMColParam Albuns__MMColParam = "6" If Album_ID <> "" Then Albuns__MMColParam = Album_ID End If %> <% Dim Albuns Dim Albuns_cmd Dim Albuns_numRows Set Albuns_cmd = Server.CreateObject ("ADODB.Command") Albuns_cmd.ActiveConnection = MM_Loja_STRING Albuns_cmd.CommandText = "SELECT * FROM chamadas Where SessaoID = ? ORDER BY ChamadaID DESC" Albuns_cmd.Prepared = true Albuns_cmd.Parameters.Append Albuns_cmd.CreateParameter("param1", 5, 1, -1, Albuns__MMColParam) ' adDouble Set Albuns = Albuns_cmd.Execute Albuns_numRows = 0 %>

Galeria

Vídeos
Imagens

<% If Not Albuns.Eof Then %>
<% Cont = 0 While Not Albuns.Eof %>
" class="card-img img-zoom">
" class="img-fluid" />
" class="text-decoration-none "> <%=(Albuns.Fields.Item("ChamadaTitulo").Value)%>
<% Cont = Cont + 1 Albuns.MoveNext() Wend %>
<% Else %>
Nenhum álbum cadastrado!
<% End If %>
<% Albuns.Close() Set Albuns = Nothing %>