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
%>
<%
elseif Cod = 307 Then %>
<%
else
%>
<%
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
%>
');">
<%
end if
RsISO.movenext
loop
end if
if not RsOut.EOF Then
%>
<%
end if
%>

OUTRAS INFORMA��ES
-
<%
do while not RsOut.eof
if not RsOut("Servnome") = "Certificado ISO" then
%>
- ');"><%=RsOut("Servnome")%> <% end if RsOut.movenext loop %>
-
<%
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 = "
- " title="Planta do Terminal" class="foto" rel="planta">