<%
DIM strLinks, rsLinks
strLinks = "SELECT * FROM links WHERE Ativo = 'S' ORDER BY descricao ASC"
set conexaodb=Server.CreateObject("ADODB.Connection")
conexaodb.Open "DBQ=" & Server.MapPath("../../Dados/cci.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set rsLinks = conexaodb.Execute(strLinks)
%>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||