% @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 ::
|
CURSOS PROFISSIONALIZANTES |
 |
|
Você está em:
Índice
> Cursos Profissionalizantes |
COLÉGIO 24 DE MARÇO |
| Av. Dep. Cantídio Sampaio, 1248 |
| Tel.:
(11) 3989-6699 |
| |
FED. ESCOLAS CABELEREIROS SÃO PAULO |
| Av. Itaberaba, 1574 |
| Tel.:
(11) 6854-8873 |
| |
INSOFT |
| Av. Itaberaba, 1671 |
| Tel.:
(11) 3998-7409 |
| |
INPE EDITORAÇÃO E TREINAMENTO |
| Av. Itaberaba, 4930 |
| Tel.:
(11) 3851-7482 |
| |
MICROCAMP |
| Av. Santa Marina, 2699 |
| Tel.:
(11) 3936-2525 |
| |
MICROLINS |
| Av. Itaberaba, 485 |
| Tel.:
(11) 3932-0034 |
| |
<%
varemail = rsEmp("Email")
if ISNull(varemail)then
response.write ""
end if
IF Not ISNull(varemail) then
%>
<%
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 © 2011 -
Quatro Estações
Internet
<%
rsEmp.Close
Set rsEmp = Nothing
dataconn.Close
Set dataconn = Nothing
%>