<%
fAbreCon()
estado = replace(request("estado"),"'","")
if estado <> "" then
sql = "select a1_mun from sa1odc where a1_est like'%" &estado& "%' and a1_tipo=1 group by a1_mun order by a1_mun"
set rs = cn.execute(sql)
end if
cidade = replace(request("cidade"), "'", "")
if cidade <> "" then
sql = "select distinct(a1_nome), * from sa1odc where a1_mun='" & cidade & "' and a1_tipo=1 order by a1_nome"
set rs = cn.execute(sql)
end if
function formatafone(fone)
fone = trim(replace(fone, " ", ""))
fone = replace(fone, "-", "")
ddd = left(fone, 3)
if len(fone)>=11 then
foneTotal = right(fone, 8)
fone1 = left(foneTotal, 4)
fone2 = right(foneTotal, 4)
foneNovo = ddd&"-"&fone1&" "&fone2
else
foneTotal = right(fone, 7)
foneNovo = ddd&"-"&foneTotal
end if
formatafone = foneNovo
end function
%>
.:: TecScreen - 2005-<%=year(now)%> ::.
Escolha um Estado para encontrar as Revendas / Lojas
Digite aqui o nome de sua cidade em letras maiúsculas (ex: RIO DE JANEIRO)
<% if estado <> "" then %>
<%
Response.Write("")
%>
<% End If %>
<%
if cidade <> "" then
if rs.eof then
response.write "Não há representante"
else
while not rs.eof
%>
