<%=v_titulo%>
Voltar
<%=v_descricao%>
<%=v_texto%> <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") SQL = "Select * From fotos where codigo ='"&v_id&"'" RS.Open SQL, conn, 3 if RS.RecordCount <> 0 then Do While Not RS.EOF %> " rel="lightbox[roadtrip]">
<%'---------------------------------------------------------------------------------------------
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Galeria where categoria = '"& v_categ &"' order by categoria, c1"
RS.Open SQL, conn, 3
if RS.RecordCount <> 0 then
if RS.RecordCount > 1 then%>
<% end if DO WHILE NOT RS.EOF %> <%if rs("id") <> v_id then%> ">
<%end if%>
<%
filtro = rs("categoria")
RS.MoveNext
LOOP
end if
rs.Close
Set rs = Nothing
Set Conex = Nothing
%>
Mais <%=v_categ%>
<% end if DO WHILE NOT RS.EOF %> <%if rs("id") <> v_id then%> ">
<%=rs("c1")%>
- <%=rs("c2")%>