<tr align="left">
<td>Estado:</td>
<td><select name="estado" size="1" id="estado" onchange="ajax();">
<option value="" selected="selected">Selecione o Estado</option>
<%
sql = "SELECT id_estado, estado from estados order by estado"
set ObjRs = banco.Execute(sql)
While NOT ObjRs.EOF
%>
<option value="<%=cint(ObjRs("id_estado"))%>"><%=ObjRs("estado")%></option>
<%
ObjRs.MoveNext
Wend
ObjRs.close
set ObjRs = nothing
%>
</select></td>
</tr>
<tr align="left">
<td>Cidade:</td>
<td><div id="divmodelos"><select name="cidade" class="campos" id="cidade">
<option value="0">Escolha o estado primeiro</option>
</select></div></td>
</tr>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">
<head>
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Content-Language" content="pt-br" />
</head>
<%
Response.Charset="ISO-8859-1"
Dim banco
Dim strConexao
strConexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/dados.mdb")
SET banco = SERVER.CreateObject("ADODB.CONNECTION")
Set rs_cidade = Server.CreateObject("ADODB.Recordset")
banco.OPEN strConexao
estado = request.querystring("estado")
estado = replace(estado,"'","")
estado = cint(estado)
sql_cidade = "SELECT cidade FROM cidades WHERE id_estado = " & estado & " ORDER BY cidade"
rs_cidade.Open sql_cidade, banco,3,3
%>
<select name="cidade" class="campos">
<%
While NOT rs_cidade.eof
%>
<option value="<%=rs_cidade("cidade")%>"><%=rs_cidade("cidade")%></option>
<%
rs_cidade.movenext
wend
rs_cidade.close
set rs_cidade = nothing
%>
</select>
Como vocês podem ver, defini como iso-8859 de todas as maneiras possiveis e em todos os arquivos e mesmo assim o problema de acentuação continua...
Pergunta
yogodoshi
Problema de acentuação dentro do drop-down que lista as cidades do Estado.
Meu java script:
try{ xmlhttp = new XMLHttpRequest();}catch(ee){try{ xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");}catch(e){try{ xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");} catch(E){xmlhttp = false;}}} function ajax() { xmlhttp.open("POST", "sys_cidades.asp?estado=" + document.getElementById('estado').value ,true); xmlhttp.setRequestHeader('Content-type','application/x-www-form-urlencoded; charset=iso-8859-1'); xmlhttp.onreadystatechange=function() { document.getElementById('divmodelos').innerHTML = '<font size="1" face="tahoma">Aguarde...</font>' if(xmlhttp.readyState == 4){ document.getElementById('divmodelos').innerHTML = xmlhttp.responseText }} xmlhttp.send('aloha') }Meu HTML do campo de Estado/ cidade:<tr align="left"> <td>Estado:</td> <td><select name="estado" size="1" id="estado" onchange="ajax();"> <option value="" selected="selected">Selecione o Estado</option> <% sql = "SELECT id_estado, estado from estados order by estado" set ObjRs = banco.Execute(sql) While NOT ObjRs.EOF %> <option value="<%=cint(ObjRs("id_estado"))%>"><%=ObjRs("estado")%></option> <% ObjRs.MoveNext Wend ObjRs.close set ObjRs = nothing %> </select></td> </tr> <tr align="left"> <td>Cidade:</td> <td><div id="divmodelos"><select name="cidade" class="campos" id="cidade"> <option value="0">Escolha o estado primeiro</option> </select></div></td> </tr><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br"> <head> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> <meta http-equiv="Content-Language" content="pt-br" /> </head> <% Response.Charset="ISO-8859-1" Dim banco Dim strConexao strConexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/dados.mdb") SET banco = SERVER.CreateObject("ADODB.CONNECTION") Set rs_cidade = Server.CreateObject("ADODB.Recordset") banco.OPEN strConexao estado = request.querystring("estado") estado = replace(estado,"'","") estado = cint(estado) sql_cidade = "SELECT cidade FROM cidades WHERE id_estado = " & estado & " ORDER BY cidade" rs_cidade.Open sql_cidade, banco,3,3 %> <select name="cidade" class="campos"> <% While NOT rs_cidade.eof %> <option value="<%=rs_cidade("cidade")%>"><%=rs_cidade("cidade")%></option> <% rs_cidade.movenext wend rs_cidade.close set rs_cidade = nothing %> </select>Como vocês podem ver, defini como iso-8859 de todas as maneiras possiveis e em todos os arquivos e mesmo assim o problema de acentuação continua...
alguém sabe a solucao?
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.