<% 'Declaração de variaveis locais Dim espaco, terminal Dim strConn, Conn Dim SqlTer, SqlEstados, SqlServ, SqlOut, SqlGeral, SqlText, SqlFotos, SqlTerTit Dim RsTer, RsInfo, RsServ, RsOut, RsGeral, RsText, RsFotos espaco = "../" pastaImg = acertaCasa(Cdbl(sqlTextFilter(Request("Cod"))),6) Cod = sqlTextFilter(Cdbl(Request("Cod"))) if(Cod = "9999")then response.Redirect("chile_puerto_montt.asp") end if 'Seleciono as UF existente para a consulta no combo HTMl SELECT. SqlUF = "Select Distinct c.corEstado "_ & "From Terminais t "_ & "INNER JOIN CidadeOrigem c on (c.corCode = t.corCode) "_ & "Where t.terDeleted = '0' And t.tipo = 1 AND t.ativo = 1 Order By c.corEstado" Set RsUF = Conn.Execute(SqlUF) If Cod > 0 Then 'Faço um select que ira trazer outros serviços da empresa SqlOut = "Select S.Servnome, S.ServCod "_ & " From Servicos S, Serv_Text ST, Lig_Ter_Serv L, Terminais T "_ & " Where L.LigDelete = '0' "_ & " And S.ServCod = ST.ServCod "_ & " And ST.ServTextCode = L.ServTextCode "_ & " And L.TerCode = T.TerCode "_ & " And L.TerCode = '" & Cod & "' "_ & " And ServTipo = '2' "_ & " Order By ServNome " Set RsOut = Conn.Execute(SqlOut) Set RsISO = Conn.Execute(SqlOut) SqlEstados = "Select t.terCode, c.corCode, t.terNome, t.terEndereco, t.terBairro, t.terCEP, "_ & " t.terDdd, t.terTelefone, t.terObservacao, t.terImagem, t.terPlanta, c.corNome, c.corEstado "_ & " From Terminais t, CidadeOrigem c "_ & " Where terDeleted = '0' "_ & " And c.corCode = t.corCode "_ & " And t.tipo = 1 "_ & " And t.terCode = "& Cod Set RsInfo = Conn.Execute(SqlEstados) if(RsInfo.EOF)then 'response.write(SqlEstados) end if 'Trará a referência de serviços que o terminal tem. SqlCat = "SELECT DISTINCT (S.categoria) "_ & " FROM Servicos S "_ & " INNER JOIN Serv_Text ST on (S.ServCod = ST.ServCod) "_ & " INNER JOIN Lig_Ter_Serv LTS on (ST.ServTextCode = LTS.ServTextCode) "_ & " INNER JOIN Terminais T on (LTS.TerCode = T.TerCode) "_ & " Where LTS.LigDelete = '0' "_ & " AND S.ServTipo = '1' "_ & " AND T.TerCode = '"& Cod &"' "_ & " AND S.ServDelete = '0' "_ & " AND S.categoria <> '' Order By categoria " Set RsCat = Conn.Execute(SqlCat) Sql = "Select Distinct (empresas.empCode) "_ &" From Terminais, Linhas, Empresas "_ &" Where Terminais.terCode = Linhas.terCode " _ &" And Empresas.empCode = Linhas.empCode " _ &" And Terminais.terCode = '" & Cod & "'" _ &" And Linhas.linDeleted = '0'" Set Emp = Conn.Execute(Sql) End If %> TERMINAIS RODOVIÁRIOS - Socicam - Terminais de Passageiros <% if Request("aba") = "espacocultural" then %> <% else %> <% end if %>
<% call nav(espaco) %>
Outros Terminais:

TERMINAIS RODOVIÁRIOS

<% if Cod <> 1 and Cod <> 358 and Cod <> 307 Then if RsInfo("terImagem") <> empty then %> " rel="terminais" title="">" width="320" height="180" class="imagem" />
<% else %> <% end if else if Cod = 1 Then %> Terminal Rodoviário Tietê Terminal Rodoviário Tietê Terminal Rodoviário Tietê Terminal Rodoviário Tietê
1 2 3 4
<% elseif Cod = 307 Then %> TERMINAL RODOVIÁRIO CTRC - Ramos de Azevedo TERMINAL RODOVIÁRIO CTRC - Ramos de Azevedo TERMINAL RODOVIÁRIO CTRC - Ramos de Azevedo TERMINAL RODOVIÁRIO CTRC - Ramos de Azevedo
1 2 3 4
<% else %> Terminal Rodoviário Antônio Mendes Canale Terminal Rodoviário Antônio Mendes Canale Terminal Rodoviário Antônio Mendes Canale
1 2 3
<% end if end if %>
<% terminal = "TERMINAL RODOVIÁRIO" if RsInfo("terNome") = "Complexo Rodoviário Severino Tomaz da Silveira" then terminal = "" end if %>

<%=estado(RsInfo("corEstado"))%> - <%=terminal%> <%=RsInfo("terNome")%>

  • ENDEREÇO: <%=RsInfo("terEndereco")%>
  • BAIRRO: <%=RsInfo("terBairro")%>
  • CIDADE: <%=RsInfo("corNome")%>
  • ESTADO: <%=estado(RsInfo("corEstado"))%>
  • CEP: <%=RsInfo("terCep")%>
  • <% telefone = "TELEFONE:" if Cod = 1 or Cod = 10 or Cod = 307 or Cod = 308 or Cod = 7 then telefone = "CENTRAL DE ATENDIMENTO:" end if %>
  • <%=telefone%> (<%=RsInfo("terDdd")%>) <%=RsInfo("terTelefone")%>
  • <%=RsInfo("terObservacao")%>
<% if not RsISO.EOF Then do while not RsISO.eof if RsISO("Servnome") = "Certificado ISO" then %> ');">Certificado ISO <% end if RsISO.movenext loop end if if not RsOut.EOF Then %>

OUTRAS INFORMAÇÕES

    <% do while not RsOut.eof if not RsOut("Servnome") = "Certificado ISO" then %>
  • ');"><%=RsOut("Servnome")%>
  • <% end if RsOut.movenext loop %>
<% end if %>
    <% if not RsCat.EOF Then do while not RsCat.eof retorno = Servicos(RsCat("categoria")) response.Write retorno RsCat.movenext loop end if function Servicos(categoria) Select Case categoria Case 1 categoria = "
  • Acessibilidade
  • " Case 2 categoria = "
  • Achados e Perdidos
  • " Case 3 categoria = "
  • Áreas Comerciais
  • " Case 4 categoria = "
  • Caixas Eletrônicos
  • " Case 6 categoria = "
  • Estacionamento
  • " Case 7 categoria = "
  • Guarda Volumes
  • " Case 8 categoria = "
  • Histórico
  • " Case 9 categoria = "
  • Informações
  • " Case 10 categoria = "
  • Links de Interesse
  • " Case 11 categoria = "
  • Sanitários
  • " Case 12 categoria = "
  • Táxi
  • " Case 13 categoria = "
  • Telefone Público
  • " end select Servicos = categoria end function if RsInfo("terPlanta") <> empty then %>
  • " title="Planta do Terminal" class="foto" rel="planta"> Planta do Terminal
  • <% end if if not Emp.EOF Then %>
  • Empresas de ônibus que atuam no terminal
  • <% end if %>

<< Voltar

<% Conn.close() %>