<%@LANGUAGE="VBSCRIPT"%>
<%
Public Rs,Cx
%>
<%Response.Expires = 0
dim Recmt, rsblitz, connnews, cnpath, vlogin, vsenha, objRS, varSQL, lin, col, rsdata, vmes, vdia, vano
'----- Conexão com o Banco, Sem ODBC
Call OpenDb()
'----- Montar clusula SQL para consulta
varSQL = "SELECT * from fotosgaleria where galeria="& trim(request("galeria")) &""
set rsblitz=Cx.execute(varSQL)
'===================== banners ===================================================
dim rsnews6, connnews6, cnpath6, cont6
dim rsbanner
'----- Conexão com o Banco, Sem ODBC
set connnews6=server.createobject("adodb.connection")
cnpath6="DBQ=" & server.mappath("bd/dbcm.mdb")
connnews6.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath6
set rsbanner=connnews6.execute("SELECT * from banners where secao='5'")
%>
:: casa das molduras ::
