<% num = request.QueryString("var") set conn = createobject("adodb.connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados\infor.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" 'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\c2wd\eduhot\dados\banco.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=" set rs = createobject("adodb.recordset") set rs.activeconnection = conn 'DEFININDO A CONSULTA NO BANCO (TABELA, CAMPO) sql = "SELECT * FROM galeria where id = " &num 'ABRINDO A CONSULTA rs.open sql %> PEDRO BENTO & ZÉ DA ESTRADA - Os Amantes da Rancheira <% rs.close conn.close set rs = nothing set conn = nothing %>

<%=RS("galeria")%>


<%if rs("foto1") <> "vazio" then%> ">
<%end if%> <%if rs("leg1") <> "vazio" then%>

<%=RS("leg1")%>





<%end if%> <%if rs("foto2") <> "vazio" then%> ">
<%end if%> <%if rs("leg2") <> "vazio" then%>

<%=RS("leg2")%>





<%end if%> <%if rs("foto3") <> "vazio" then%> ">
<%end if%> <%if rs("leg3") <> "vazio" then%>

<%=RS("leg3")%>





<%end if%> <%if rs("foto4") <> "vazio" then%> ">
<%end if%> <%if rs("leg4") <> "vazio" then%>

<%=RS("leg4")%>





<%end if%> <%if rs("foto5") <> "vazio" then%> ">
<%end if%> <%if rs("leg5") <> "vazio" then%>

<%=RS("leg5")%>





<%end if%> <%if rs("foto6") <> "vazio" then%> ">
<%end if%> <%if rs("leg6") <> "vazio" then%>

<%=RS("leg6")%>





<%end if%> <%if rs("foto7") <> "vazio" then%> ">
<%end if%> <%if rs("leg7") <> "vazio" then%>

<%=RS("leg7")%>





<%end if%> <%if rs("foto8") <> "vazio" then%> ">
<%end if%> <%if rs("leg8") <> "vazio" then%>

<%=RS("leg8")%>





<%end if%> <%if rs("foto9") <> "vazio" then%> ">
<%end if%> <%if rs("leg9") <> "vazio" then%>

<%=RS("leg9")%>





<%end if%> <%if rs("foto10") <> "vazio" then%> ">
<%end if%> <%if rs("leg10") <> "vazio" then%>

<%=RS("leg10")%>





<%end if%>

Voltar