[souza_sp]

Falae gente... blza

To finalizando um flashsite aqui e tem uma área do site que to integrando com banco de dados.. ta tudo zerado já.. porém os textos q vem do banco ACCESS ta dando pau na acentuação qdo exibido no flash.. to fazendo ponte com o XML + ASPX ... alguém tem alguma solução.?

To fazendo o flash ler um XML que é gerado pelo aspx ... no xml to colocando o utf-8 .. cheguei até usar o ISO-8859-1 .. mas mesmo assim ele da uns paus na acentuação..

Quem fez o sistema foi o programador ASPX que trabalha na mesma agência q eu... mas infelizmente ta dando erro na acentuação.. eu costumo usar o PHP e nunca deu pau... mas com ASPX tem esse problema de acentuação.

Segue abaixo o código da pagina ASPX
---------------------------------------------------------------------------------------------------------------------------------------
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>

<script runat="server">
Public strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\App_Data\scopel.mdb") & ";Persist Security Info=False"
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim id As String = Request.QueryString("id")
If ID <> "" Then
Dim dt As New DataTable
Dim cn As New OleDbConnection(strConn)
Dim cmd As New OleDbCommand("SELECT * FROM exibe_empreendimentos WHERE codRegiao=" & id & " order by data_cad desc", cn)
Dim dr As OleDbDataReader
Try
cn.Open()
dr = cmd.ExecuteReader
dt.Load(dr)
Catch ex As Exception
Response.Write(ex.Message)
Finally
cn.Close()
End Try
printXML(dt)
End If
End Sub

Sub printXML(ByVal dt As DataTable)
Dim str As String
Str = "<empreendimento>" & vbCrLf
For i As Integer = 0 To dt.Rows.Count - 1
'foto1_thumb()
'foto2_thumb()
'foto3_thumb()
'foto4_thumb()
'foto1_grande()
'foto2_grande()
'foto3_grande()
'foto4_grande()
'mapa_thumb()
Str &= "<item id_empreendimento='" & dt.Rows(i)("codEmpreendimento") & "' regiao='" & dt.Rows(i)("regiao") & "' empreendimento='" & dt.Rows(i)("nome") & "' texto='" & dt.Rows(i)("texto") & "' empreendedores='" & dt.Rows(i)("empreendedores") & "' mapa_thumb='" & dt.Rows(i)("mapa_thumb") & "' mapa_grande='" & dt.Rows(i)("mapa") & "' " & carregaFotos(dt.Rows(i)("codEmpreendimento")) & " />" & vbCrLf
Next
Str &= "</empreendimento>"
Response.Write(Str)
End Sub

Private Function carregaFotos(ByVal codEmpreendimento) As String
Dim str As String = ""
Dim dt As New DataTable
Dim cn As New OleDbConnection(strConn)
Dim cmd As New OleDbCommand("SELECT * FROM IMAGEM WHERE codEmpreendimento=" & codEmpreendimento, cn)
Dim dr As OleDbDataReader
Try
cn.Open()
dr = cmd.ExecuteReader
dt.Load(dr)
Catch ex As Exception
Response.Write(ex.Message)
Finally
cn.Close()
End Try
For i As Integer = 0 To dt.Rows.Count - 1
if i < 4 then
str &= "foto" & i + 1 & "_thumb='" & dt.Rows(i)("thumb") & "' foto" & i + 1 & "_grande='" & dt.Rows(i)("imagem") & "' "
end if
Next
Return str
End Function
</script>
---------------------------------------------------------------------------------------------------------------------------------------
Se alguém puder ajudar... eu agradeço de coração.
[]´s.
Souza.

[Natan]

Eu não conheço nada de ASP, pergunte ao programador que fez esse arquivo em ASP se no ASP possui uma função parecida com uma função que o PHP possui, as funções utf8_decode() e utf8_encode().

Pergunta para ele se existe algo parecido (deve existir) e pede para ele dar uma adaptada no código implementando esse função.

[]s