<% fAbreCon() estado = replace(request("estado"), "'", "") if estado <> "" then ssql = "select * from representantes_tec where rt_estado='" & estado & "' and rt_ativo = 1 order by rt_nome" set rs = cn.execute(ssql) end if 'cidade = replace(request("cidade"), "'", "") 'if cidade <> "" then 'sql = "select distinct(a1_nome), * from sa1odc where a1_est='" & estado & "' and a1_tipo=1 order by a1_nome" 'set rs = cn.execute(sql) 'end if %> .:: TecScreen - 2005-<%=year(now)%> ::.
Escolha um Estado para encontrar os Representantes



Selecione o estado desejado, clicando no menu acima.
<% if estado <> "" then if rs.eof then 'response.write "

Não há representante cadastrado nesta região.


" response.write "
Vendas diretamente com a fábica.
Contato:Tel (15) 3238-5821 Fax (15) 3238-5816
E-mail:caetano@tec-screen.com.br
E-mail:fernanda@tec-screen.com.br
E-mail:roberta@tec-screen.com.br
" else while not rs.eof email = rs("rt_email") strEmail = "" if instr(email,";") then email = split(email,";") for each valor in email strEmail = strEmail & valor & "
" next else strEmail = email end if %>
Nome: <%=rs("rt_nome")%>
Contato: <%=rs("rt_endereco")%> <%=rs("rt_telefone")%>
E-mail: <%=strEmail%>
Regiões: <%=rs("rt_regioes")%>


<% rs.movenext wend response.write "" end if end if %>