Álbuns dos Cursos
<%
caminho_sistema = "D:\http\rommy\web\sistema\galeria\"
caminho_http_sistema = "http://www.rommy.com.br/sistema/galeria/"
pastaPrincipal = "galerias"
'pega o(s) conteudo(s)
sqlConteudo = "select * from galerias order by cdate(data) DESC"
Set rsConteudo = Server.CreateObject("ADODB.Recordset")
set rsConteudo.activeconnection = conexao
rsConteudo.cursortype = 3 'Definimos o cursor a ser utilizado
rsConteudo.open(sqlConteudo)
numeroRs = rsConteudo.recordCount
x = 0
if not rsConteudo.eof Then
x = 1
while not rsConteudo.eof
'dados que virão do banco pra listagem
id = rsConteudo("id")
titulo = rsConteudo("titulo")
descricao = rsConteudo("descricao")
data = rsConteudo("data")
If x = 1 Then
%>
<%
Else
%>Ainda não existem álbuns de fotos publicados.
<%
end if
%>
Voltar