<% @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 ::
|
|
|
|
 |
|
Você está em:
Índice
>Planos de Saude |
MULTIPLAN - SRA. DEISE |
Tel.:
(11) 9598-4722
|
<%
varemail = rsEmp("Email")
if ISNull(varemail)then
response.write ""
end if
IF Not ISNull(varemail) then
%>
• O MELHOR SAÚDE BEM PERTO DE VOCÊ.
• VÁRIOS PLANOS A SUA ESCOLHA |
<%
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
%>
