%
'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) %>
TERMINAIS RODOVIÁRIOS
<%
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
%>
');">
<%
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
%>
<< Voltar
<%
Conn.close()
%>