Ciao a tutti

mi hanno dato un nuovo server e non riesco + inviare email dal sito come faccio in altri 2 server!

Potete aiutarmi a modificare il codice il codice dello script x inviare le email e addattarlo ad un esempio d modificare che mi ha dato il mio server?

Anticipo che il mio server NON è Aruba.

Questo è lo script x mandare le emai:

---------------------------------------------------------------------------------------------
<%
'---ELENCO DI FUNZIONI UTILIZZATE DI FREQUENTE

'---Funzioni per la conversione della data

Dim N_Caratteri, Stringa, Anno, Mese, Giorno, N

Function DataToStr(Data)
Anno = CStr(Year(Data))
Mese = CStr(Month(Data))
If Len(Mese) = 1 Then
Mese = "0" & Mese
End If
Giorno = CStr(Day(Data))
If Len(Giorno) = 1 Then
Giorno = "0" & Giorno
End If
DataToStr = Anno & Mese & Giorno
End Function

Function StrToData(Stringa)
Anno = Mid(Stringa, 1, 4)
Mese = Mid(Stringa, 5, 2)
Giorno = Mid(Stringa, 7, 2)
StrToData = CDate(Giorno & "/" & Mese & "/" & Anno)
End Function

'---Funzioni per la conversione oraria

Function OraToStr(Data)
Ora = CStr(Hour(Data))
If Len(Ora) = 1 Then
Ora = "0" & Ora
End If
Minuto = CStr(Minute(Data))
If Len(Minuto) = 1 Then
Minuto = "0" & Minuto
End If
Secondo = CStr(Second(Data))
If Len(Secondo) = 1 Then
Secondo = "0" & Secondo
End If
OraToStr = Ora & Minuto & Secondo
End Function

Function StrToOra(Stringa)
Ora = Mid(Stringa, 1, 2)
Minuto = Mid(Stringa, 3, 2)
Secondo = Mid(Stringa, 5, 2)
StrToOra = CDate(Ora & ":" & Minuto & ":" & Secondo)
End Function

'---Funzioni per inviare mail

Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)

'---Script per CDOSYS
Dim Mail
set Mail = server.CreateObject("CDO.Message")
With Mail
.From = mittente
.To = destinatario
.Subject = titolo
.TEXTBody = corpo
.Send
end With
set Mail=nothing
End Function

'---Funzione per generare un SessionID casuale

Function Casuale()
Dim N_Caratteri, Stringa, I, N
N_Caratteri = 15
Stringa = ""
Randomize Timer
For I = 1 To N_Caratteri
Do
N = Int(Rnd * 75) + 48
Loop Until ((N >= 48) AND (N <= 57)) OR ((N >= 65) AND (N <= 90)) OR ((N >= 97) AND (N <= 122))
Stringa = Stringa & Chr(N)
Next
Casuale = Stringa
End Function

'---Encode e decode UserID per mail di conferma
Function UserIDEncode(UserID)
Dim SetCaratteri, Lunghezza, I, Char, NewString, NewString2, LenUserID
SetCaratteri = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
Lunghezza = Round(Len(UserID) / 2) * 2
LenUserID = Hex(Instr(UserID, "{~}") - 1)
UserID = UCase(Replace(UserID, "{~}", ""))
For I = 1 To Lunghezza
Char = Mid(UserID, I, 1)
If InStr(SetCaratteri, Char) = 0 Then
Char = "_"
End If
NewString = NewString & Char
Next
For I = 1 To Lunghezza Step 2
NewString2 = NewString2 & Mid(NewString, I + 1, 1) & Mid(NewString, I, 1)
Next
UserIDEncode= "A" & Mid(LenUserID, 1, 1) & StrReverse(NewString2) & "A"
End Function

Function UserIDDecode(Stringa)
Dim Lunghezza, I, NewString, LenUserIDS, LenUserID
LenUserIDS = (Mid(Stringa, 2, 1))
Stringa = StrReverse(Mid(Stringa, 3, Len(Stringa) - 3))
If LenUserIDS = "A" Then LenUserID = 10 Else LenUserID = CInt(LenUserIDS)
Lunghezza = Int(Len(Stringa) / 2) * 2
For I = 1 To Lunghezza Step 2
NewString = NewString & Mid(Stringa, I + 1, 1) & Mid(Stringa, I, 1)
Next
If Len(Stringa) / 2 <> Len(Stringa) \ 2 Then NewString = NewString & Right(Stringa, 1)
NewString = Mid(NewString, 1, LenUserID) & "+" & Mid(NewString, LenUserID + 1)
UserIDDecode = Replace(NewString, "+", "{~}")
End Function

'---Funzione per gestire l'arrotondamento dell'Euro
Function ArrotondamentoPrezzo(ArrotondamentoPrezzo_Valore)
ArrotondamentoPrezzo = Round(ArrotondamentoPrezzo_Valore)
End Function

Function FormattaValore(Valore, Decimali, SeparatoreDecimale)
Dim ParteIntera, ParteDecimale
ParteIntera = CStr(Int(Valore))
If Decimali > 0 Then
ParteDecimale = Cstr(Int((Valore - Int(Valore))*(10 ^ Decimali)))
Do While Len(ParteDecimale) < Decimali
ParteDecimale = "0" & ParteDecimale
Loop
Else
SeparatoreDecimale = ""
ParteDecimale = ""
End If

FormattaValore = ParteIntera & SeparatoreDecimale & ParteDecimale

End Function

Function VisualizzaPrezzo(VisualizzaPrezzo_StringaPrezzo)
VisualizzaPrezzo_StringaPrezzo = Int(VisualizzaPrezzo_StringaPrezzo)
Do While Len(VisualizzaPrezzo_StringaPrezzo) < 3
VisualizzaPrezzo_StringaPrezzo = "0" & VisualizzaPrezzo_StringaPrezzo
Loop
Dim VisualizzaPrezzo_StringaDecimale, VisualizzaPrezzo_StringaIntero
VisualizzaPrezzo_StringaDecimale = Mid(VisualizzaPrezzo_StringaPrezzo, Len(VisualizzaPrezzo_StringaPrezzo) - 1, 2)
VisualizzaPrezzo_StringaIntero = Mid(VisualizzaPrezzo_StringaPrezzo, 1, Len(VisualizzaPrezzo_StringaPrezzo) - 2)
VisualizzaPrezzo = VisualizzaPrezzo_StringaIntero & "," & VisualizzaPrezzo_StringaDecimale
End Function

Function FormattaPrezzoPerDB(FormattaPrezzoPerDB_StringaPre zzo)

Dim FormattaPrezzoPerDB_StringaIntero, FormattaPrezzoPerDB_StringaDecimale

If InStr(FormattaPrezzoPerDB_StringaPrezzo, ",") > 0 Then
FormattaPrezzoPerDB_StringaDecimale = Mid(FormattaPrezzoPerDB_StringaPrezzo, Instr(FormattaPrezzoPerDB_StringaPrezzo, ",") + 1)
If Len(FormattaPrezzoPerDB_StringaDecimale) > 2 Then
FormattaPrezzoPerDB_StringaDecimale = Cstr(Round(CLng(FormattaPrezzoPerDB_StringaDecimal e)/(10 ^ (Len(FormattaPrezzoPerDB_StringaDecimale) - 2))))
Do While Len(FormattaPrezzoPerDB_StringaDecimale) < 2
FormattaPrezzoPerDB_StringaDecimale = "0" & FormattaPrezzoPerDB_StringaDecimale
Loop
Else
Do While Len(FormattaPrezzoPerDB_StringaDecimale) < 2
FormattaPrezzoPerDB_StringaDecimale = FormattaPrezzoPerDB_StringaDecimale & "0"
Loop
End If
FormattaPrezzoPerDB_StringaIntero = Mid(FormattaPrezzoPerDB_StringaPrezzo, 1, Instr(FormattaPrezzoPerDB_StringaPrezzo, ",") - 1)
Else
FormattaPrezzoPerDB_StringaDecimale = "00"
FormattaPrezzoPerDB_StringaIntero = FormattaPrezzoPerDB_StringaPrezzo
End If

FormattaPrezzoPerDB = FormattaPrezzoPerDB_StringaIntero & "" & FormattaPrezzoPerDB_StringaDecimale
End Function

Function UtilizzaPrezzo(UtilizzaPrezzo_StringaPrezzo)
UtilizzaPrezzo = CLng(UtilizzaPrezzo_StringaPrezzo)
End Function

Function CalcoloSpeseSpedizione(Totale, QuantitaTotale)
If AttenuaSS Then
If Totale > 0 And QuantitaTotale > 0 Then
'Funzione logaritmica sconsigliata
'CalcoloSpeseSpedizione = UtilizzaPrezzo(Log(QuantitaTotale + 2)/log(3) * (Totale / QuantitaTotale))
CalcoloSpeseSpedizione = UtilizzaPrezzo((Totale) - ((Totale/QuantitaTotale) * (QuantitaTotale - 1) / 2))
Else
CalcoloSpeseSpedizione = 0
End If
Else
CalcoloSpeseSpedizione = Totale
End If
End Function
%>
---------------------------------------------------------------------------------------------

questo è il codice che mi ha fornito il mio server:

---------------------------------------------------------------------------------------------
<%@ Language=VBScript%>

<%

mes = ""
IsSuccess = false

sTo = "name@dominio.ltd" ' email del mittente
sFrom = "name@dominio1.ltd" ' email del destinatario
sSubject = "Messaggio di prova per CDO.Messsage (1)"
sMailServer = "127.0.0.1"
sBody = "Messaggio di prova per CDO.Messsage (1)"

'creazione degli oggetti necessari
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With

Err.Clear
on error resume next

objMail.Send
if len(Err.Description) = 0 then
mes = " Message sent to " + sTo
mes = mes + " TESTS COMPLETED SUCCESSFULLY!"
IsSuccess = true
else
mes = " " + Err.Description + " TESTS FAILED!"
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

if IsSuccess then
Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
else
Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
end if
%>
---------------------------------------------------------------------------------------------

Pier#ff0000red