Di: pepe68

ciao sto impazzendo ed ho provato di tutto, sapreste indicarmi su questo codice come posso fare per la codifica dei caratteri speciali?

<%
' Session.CodePage=65001
' Response.Charset="UTF-8"
' Response.ContentType = "text/xml"

On Error Resume Next

Dim database, nome, id

Dim contatore, pag, quanti, inizio, fine

pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1

quanti = 5

Set database = Server.CreateObject("Microsoft.XMLDOM")

database.Async = False
database.Load Server.MapPath("db/bookmark.xml")

Set id = database.getElementsByTagName("utente/id")
Set nome = database.getElementsByTagName("utente/nome")

If pag = 1 Then
inizio = 1
fine = quanti
Else
inizio = ((pag * quanti) – quanti) + 1
fine = Round((quanti / 2) + inizio)
End If

With Response
For contatore = inizio To fine
.Write "”
.Write id(contatore – 1).Text & “. ”
.Write nome(contatore – 1).Text
.Write “”
Next
End With

contatore = 1

With Response
.Write “”
For contatore = 1 To Round(nome.Length / quanti)
If CInt(contatore) = CInt(pag) Then
.Write “[” & contatore & “] ”
Else
.Write “[”
.Write contatore
.Write “] ”
End If
Next
.Write “”
End With

Set nome = Nothing
Set database = Nothing
%>