 |
|
 |
| |
REPRESENTANTES / SERVIÇOS AUTORIZADOS |
|
 |
|
 |
|
 |
|
| |
|
|
|
|
 |
|
 |
| |
<%
if PalavraChave = "" then
%>
| Atendemos todo território nacional através da nossa rede de representantes, clique nos estados do mapa ao lado para encontrar o representante mais próximo. |
| |
| Se preferir entre em contato conosco: |
| |
 |
| +55 (11) 2146-3600 |
| |
|
|
|
| |
| |
<%
else
'abrir conexao
set conexao = server.CreateObject("ADODB.Connection")
conexao.CursorLocation = 3
quantcaminho = Len(server.MapPath(".")) - 7
caminho = Mid(server.MapPath("."),1,quantcaminho) &"\Adm\Dados\Modulos.mdb"
conexao.Open "DBQ="& caminho &";DRIVER={Microsoft Access Driver (*.mdb)}"
'pegar dados
set reg = server.CreateObject("ADODB.Recordset")
str = "SELECT A.* FROM Representantes AS A WHERE A.PalavraChave='"& PalavraChave &"' ORDER BY A.Representante"
reg.Open str,conexao
if not reg.EOF then
while not reg.EOF
%>
 |
<%=reg.fields("Tipo")%>: <%=reg.fields("Representante")%> |
|
|
| Contato: |
| <%=reg.fields("Contato")%> |
|
| Telefone: |
| <%=reg.fields("Telefone")%> |
|
| Fax: |
| <%=reg.fields("Fax")%> |
|
| Endereço: |
| <%=reg.fields("Endereco")%> |
|
| Área de Atuação: |
| <%=reg.fields("AreaAtuacao")%> |
|
| |
<%
'proximo
reg.MoveNext
wend
else
%>
| Não foram encontrados representantes ou centros de serviços autorizados na região pesquisada. |
| |
| Entre em contato conosco: |
| |
|
| +55 (11) 2146-3600 |
| |
|
|
|
| |
| |
<%
end if
end if
%>
|
|
|
| |
|
