<% '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 tipo = request.QueryString("tipo") SqlUFrod = "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 RsUFrod = Conn.Execute(SqlUFrod) %> TERMINAIS - Socicam - Terminais de Passageiros
<% call nav(espaco) %>

TERMINAIS RODOVIÁRIOS

<% if not RsUFrod.EOF Then cont = 1 do while not RsUFrod.EOF terSQLrod = "Select t.terCode, c.corNome, t.terNome, c.corEstado "_ & " From Terminais t, CidadeOrigem c "_ & " Where t.terDeleted = '0' And c.corCode = t.corCode And t.tipo = 1 AND t.ativo = 1 AND c.corEstado = '"&RsUFrod("corEstado")&"' Order By c.corNome, t.terNome" Set RsTerRod = Conn.Execute(terSQLrod) %>

<%=estado(RsUFrod("corEstado"))%>

    <% if not RsTerRod.EOF Then do while not RsTerRod.EOF if RsTerRod("corNome") = RsTerRod("terNome") Then terminal = RsTerRod("corNome") else terminal = RsTerRod("corNome") &" - "& RsTerRod("terNome") end if %>
  • "><%=terminal%>
    • <% RsTerRod.MoveNext loop end if %>
<% cont = cont+1 RsUFrod.MoveNext loop end if %>

CHILE