<%Set BDCON = Server.CreateObject("ADODB.connection") BDCON.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/cafe_db_cardapio.mdb") & "; Jet OLEDB:Database Password=studio80virtual;" Set BDREG = Server.CreateObject("ADODB.RecordSet") categoria="":descat="" if not IsEmpty(Request.QueryString("CAT")) then categoria=Request.QueryString("CAT") sql = "SELECT NOME FROM CATEGORIAS WHERE ((COD=0)AND(CATEGORIA='"&categoria&"'))" BDREG.open sql, BDCON, 3, 3 if not BDREG.EOF then BDREG.movefirst() descat=BDREG.Fields("NOME") end if BDREG.close end if%> :: Cardápio :: Restaurante Café do Mercado :: Cozinha Contemporânea Light ::
   
<%=descat%>    
 
 
<% if categoria=""then%> <% else%> <% end if%>
<%Set BDREG = Nothing BDCON.close Set BDCON = Nothing%>