<% SET objconexao = Server.CreateObject("adodb.connection") objconexao.open "Provider = Microsoft.JET.oledb.4.0;data source="& server.mappath("dados/dados.mdb")& ";Jet OLEDB:Database Password=wsbalaminut" blog2_sql = "select * from tab_c_arvore where a_url='"&UrlPaginaAtual&"' order by a_peso asc, a_codigo desc" set blogrs2 = objconexao.execute(blog2_sql) prd_sql = "select * from tab_c_arvore where a_tipo='I' and a_oculto=0 and a_cod_pai="&blogrs2("a_codigo")&" order by a_peso asc, a_codigo desc" set prd_rs = objconexao.execute(prd_sql) a_codigo_galeria = prd_rs("a_codigo") %> <% titulo_galeria_sql = "select * from tab_c_arvore where a_codigo="&prd_rs("a_codigo") set titulo_galeria = objconexao.execute(titulo_galeria_sql) %>

<%=blogrs2("a_nome")%>

<%=blogrs2("a_descricao")%>

<%do until prd_rs.eof%>

" value="<%=request("idp")%>" class="img-wrap" style="z-index:999999999;">

" alt="img04" class="img-responsive"/>

<%=blogrs2("a_nome")%>
<%=blogrs2("a_descricao")%>

<% prd_rs.movenext loop %>

ENQUETE

<%=ws_enquete%>