If conf_email = "True" AND tipoMail <> "None" Then
strFromName = pageTitle & " Webmaster"
strFromEmail = adminEmail
strRecipientsEmail = new_email
strRecipientsName = new_name
strSubject = pageTitle & " Registration"
strMessage = "------------------------------------------" & vbCrLf & _
"Grazie per esserti registrato, " & strRecipientsName & "! Per completare la registrazione, inserisci un indirizzo email valido." & vbCrLf & _
"Per completare la registrazione, clikka sul seguente indirizzo:" & vbCrLf & _
" " & homePage & curSubFolders & "attivo.asp?userCode=" & str_new_usercode & vbCrLf & vbCrLf & _
"Grazie," & vbCrLf & pageTitle & " Webmaster"
Case "cdosys"
Set objMessage = CreateObject("CDO.Message")
objMessage.Sender = strFromEmail
objMessage.TextBody = strMessage
objMessage.To = strFromEmail
objMessage.Subject = strSubject
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore