<% @Language="VBSCRIPT"%>
<%
session.lcid = 1046
Response.buffer = true
Response.Clear
Response.addHeader "pragma", "no-cache"
Response.Expires = 0
Session.Timeout = 5
Dim strSQL, Conexao, rs, varCodCategoria
varCodEmpresa = Request.QueryString("varCodEmpresa")
set dataconn = server.createobject ("ADODB.connection")
set rsEmp = server.createobject ("ADODB.recordset")
dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\web\brnt3sp332\databases\lojas.mdb"
strEmp = "SELECT * FROM Empresas WHERE COD_Empresa = '" & varCodEmpresa & "' ORDER BY Empresa"
rsEmp.open strEmp, dataconn, 1, 3%>
:: Guia Freguesia ::
|
|
|
|
|
AUTOMÓVEIS/ACESSÓRIOS/SOM
|
 |
|
Você está em: |
Índice
> Detalhes |
| Zap
Sound |
| Av.
Santa Marina, 2441 - Freg. do Ó |
|
| Tel.:
(11) 3931-3318 |
|
<%
varemail = rsEmp("Email")
if ISNull(varemail)then
response.write ""
end if
IF Not ISNull(varemail) then
%>
| • SOM
• ALARME • TRAVA • INSULFILME |
|
<%
end if
%>
<%
varsite = rsEmp("Site")
if ISNull(varsite)then
response.write ""
end if
IF Not ISNull(varsite) then
%>
| |
|
<%
end if
%>
<%
vardetalhes = rsEmp("Detalhes")
if ISNull(vardetalhes)then
response.write ""
end if
IF Not ISNull(vardetalhes) then
%>
<%
end if
%>
Voltar
|
|
 |
|
Copyright © 2009 -
Quatro Estações
Internet
<%
rsEmp.Close
Set rsEmp = Nothing
dataconn.Close
Set dataconn = Nothing
%>
