Salve a tutti o questo codice che invia password dimenticata e funziona benissimo, vorrei aggiungere del testo ( formattare ) con altre informzìazioni e magari inserire un'immagine al corpo del messaggio, o provato varie soluzioni ma niente.
Qualcuno mi potrebbe dare delle indicazioni.
Grazie

<%
' Dichiaro le variabili
Dim strEmail, objRs, bitPagina

' Recupero i dati dal campo del form
strEmail = Trim(Request.Form("recpassword"))

' La variabile bitPagina mi dirà quale pagina caricare
urlPagina = ""

' Preparo il database
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.ActiveConnection = [MM_Reg_STRING]
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 3

' Quindi predispongo la query
objRs.Source = " SELECT Username,Password FROM Utenti " &_
" WHERE Email LIKE '" & Replace(strEmail, "'", "''") & "' "
objRs.Open()

' Verifica presenza/assenza record
If Not objRs.EOF or Not objRs.BOF then
' Il record esiste, richiamo la procedura d'invio email
InviaMail "MIA@EMAIL.XX", _
strEmail, _
"Invio Password da ", _
"Ti invio i tuoi dati per fare Login grazie : " & chr(13) & chr(13) &_
"User: " & objRs.Fields("Username") & chr(13) &_
"Pass: " & objRs.Fields("Password") & chr(13)

' Imposto urlPagina con l'indirizzo della pagina di conferma
urlPagina = "passwordinviata.asp"
Else
' Imposto urlPagina con l'indirizzo della pagina d'errore
urlPagina = "errato.asp"
End If

objRs.Close()
Set objRs = Nothing

' Ed ora ... richiamiamo le pagine corrette
Response.Redirect urlPagina
Response.End

Sub InviaMail(PAR_Mittente, PAR_Destinatario, PAR_Soggetto, PAR_MailBody )

Dim VAR_MailServer
Dim OBJ_SMTP


Set OBJ_SMTP = Server.CreateObject("CDONTS.NewMail")

OBJ_SMTP.From = PAR_Mittente
OBJ_SMTP.To = PAR_Destinatario
OBJ_SMTP.Subject = PAR_Soggetto
OBJ_SMTP.Body = PAR_MailBody
OBJ_SMTP.MailFormat = 1
obj_SMTP.BodyFormat = 0

OBJ_SMTP.Send


Set OBJ_SMTP = Nothing


End Sub
%>