Buonasera,

codice per invio della mail con immagini:
codice:
	elencovalori=Request.Form
	Dim iMsg, iConf, Flds 
	
	'Crea l'oggetto email 
	Set iMsg = CreateObject("CDO.Message") 
	'Crea l'oggetto configurazione 
	Set iConf = CreateObject("CDO.Configuration") 
	'Impostazione delle configurazioni per l'invio remoto 
	Set Flds = iConf.Fields 
	Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 
	
	With iMsg 
	
	
	.From = "mailer@dominio.it"
	.To = "mia@email.it"
	.Subject = "Prenotazione dal sito"
	
	'Invio di una pagina web 
	.CreateMHTMLBody "http://www.dominio.it/mail.asp?"&elencovalori
	
	'Invia l'email 
	.Send() 
	
	end with
	
	set Flds = Nothing 
	set iConf = Nothing 
	set iMsg = Nothing
codice del file che viene inviato:
codice:
[img]immagini/logo.jpg[/img]
<hr size="1" />
<%
public function URLDecode(url) 
' Esegui il ciclo di decodifica 
for ii = 1 to 255 
' Esegui la decodifica del carattere 
url = Replace(url, Server.URLEncode(chr(ii)),chr(ii)) 
next 
' Ritorna la funzione 
URLDecode = url 
end function 

vdata=Date()
vora=Time()

Response.Write("

Modulo compilato il "&vdata&" alle ore "&vora&"</p>")

elencovalori=Request.QueryString
elencovalori=URLDecode(elencovalori)
ArrayDati = Split(elencovalori, "&")

for i=0 to Ubound(ArrayDati)
ArrayValori=Split(ArrayDati(i), "=")
Response.Write(ArrayValori(0))&": "&ArrayValori(1)&"
"
next
%>
Il sistema funziona, le mail vengono inviate con tanto di immagine.
Il problema sorge se nel modulo inserisco vocali accentate.
In quel caso le mail non arrivano proprio.

Qualche idea?