<% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\inetpub\localuser\grupojat.com.br\db\grupojat.mdb" 'lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\dados\grupojat.mdb" lojaDB.open %> <% Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada,aux aux=0 lista=Request.querystring("lista") cat_id=Request.querystring("cat_id") cat_nome=Request.querystring("cat_nome") nome=Request.querystring("nome") %>
<% Dim layout set layout = lojaDB.Execute("select * from layout where id=3") fototopoesq = layout("fototopoesq") fototopodir = layout("fototopodir") fotocapa = layout("fotocapa") textocapa = layout("textocapa") fotorastreamento = layout("fotorastreamento") hyperlinkrastreamento = layout("hyperlinkrastreamento") fotologo1 = layout("fotologo1") hyperlinkfoto1 = layout("hyperlinkfoto1") fotologo2 = layout("fotologo2") hyperlinkfoto2 = layout("hyperlinkfoto2") fotologo3 = layout("fotologo3") hyperlinkfoto3 = layout("hyperlinkfoto3") fotoarte1 = layout("fotoarte1") textoarte1 = layout("textoarte1") fotoarte2 = layout("fotoarte2") textoarte2 = layout("textoarte2") layout.Close set layout = Nothing %>

border=0>

 

 
<% Dim prod_id,prod_nome,prod_descricaog,prod_imagemp,prod_detalhe,url_comp prod_id = Request.querystring("prod_id") url_comp = Server.UrlEncode(Request.querystring("url_comp")) set prod_detalhe = lojaDB.Execute("SELECT * FROM materias WHERE id="& prod_id &"") prod_nome = prod_detalhe("nome") prod_descricaog = prod_detalhe("descricaog") prod_detalhe.Close set prod_detalhe = Nothing %>
 

<%=prod_nome%>

<%=prod_descricaog%>

"> VOLTAR

Matriz São Bernardo do Campo - SP Tel.: (xx11) 4123-5158 Fax: (xx11) 4123-5171
Filial Belo Horizonte - MG Tel.: (xx31) 3494-7777 Fax: (xx31) 3494-6071
Filial Porto Alegre - RS Tel.: (xx51) 3325-0101

Fax: (xx51) 3325-0100

Filial Salvador - Ba Tel.: (xx71) 3377-1200

Cel: (xx71) 8188-9793