<% @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 ::  
1
11
1
1 1
Freguesia do Ó,
1

Anuncie

 1

Classificados

 1

Promoções

 1

Tel.Úteis

 1

Expediente

 1

Contato

ACADEMIAS
Você está em:  Índice > Academias

<% 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 %>
ACADEMIA CICLO ESPORTE
R. Brito Peixoto, 100
Tel.: (11) 3932-3341
 
ACTIVA FITNESS
R. Sete Barras, 306
Tel.: (11) 3998-0725
 
FITNESS FRIENDS
R. Baião Parente, 235
Tel.: (11) 3976-0152
 
NUNES - NATAÇÃO E FITNESS
R. Moinho Velho, 637
Tel.: (11) 3975-6746
 
PIRAMIDAL
Av. Itaberaba, 820
Tel.: (11) 3991-9993
 
ROCHA FITNESS
R. André Olindo Lidinik, 17
Tel.: (11) 3923-0172
 
SPORT TOTAL
R. Chico de Paula, 365
Tel.: (11) 3931-0101
 
STILLE ACADEMIA
R. Marilândia, 88
Tel.: (11) 3998-9124
 
TOTAL BURNING
Av. Min. Petrônio Portela, 461
Tel.: (11) 3978-3478
 
WATERSIDE
R. Javorahú, 400
Tel.: (11) 3932-3809
 

 

 

Voltar

  Copyright © 2011 - Quatro Estações Internet

<% rsEmp.Close Set rsEmp = Nothing dataconn.Close Set dataconn = Nothing %>