<% 'Arquivo de leitura da configurações dim site, emailsite, logosite, idsite dim dsn_config,Con_config 'para access 97 'dsn_config="DBQ=" & Server.Mappath("jyptv.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 'para acess 2000 dsn_config = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\scripts.mdb;" Set Con_config = Server.CreateObject("ADODB.Connection") Con_config.Open dsn_config '''''''''inicia as variaveis gerais set RS_config = server.createobject("ADODB.Recordset") SQL_Config = "Select * from tblconfig" rs_config.open SQL_config, con_config,3,3 idsite = rs_config("configID") site = rs_config("nomesite") emailsite = rs_config("emailempresa") logosite = rs_config("logosite") rs_config.close 'con_config.close set rs_config = nothing 'set con_config = nothing %>