% @Language="VBScript" %> <% Option Explicit Response.Expires = 0 %> <% Dim conexao, registro, string_de_conexao, comando_consulta, linha, contador_de_registros Dim cnpath set conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\dados.mdb" conexao.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;" 'Fim - Adicionado pela Equipe InfoLink em 09/02/2004 Set registro = Server.CreateObject("ADODB.Recordset") Set registro.ActiveConnection = conexao comando_consulta = "SELECT * FROM Flowers" registro.Open comando_consulta %>
|