Ciao a tutti,
sono nuovo su questo forum ed ho questo problema:

Avevo questo codice:


'################################################# ###########################
'# Conferma email #
'################################################# ###########################

Dim strMsgHeader,Mail,html

strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf
strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site "& vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & "Nome e Cognome "

Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = html
Mail.from = webmaster_email
Mail.to = Email
Mail.Subject = Oggetto_Email
Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail.Importance = 2
Mail.Send

'################################################# ###########################
'# Email Anche al Webmaster #
'################################################# ###########################

strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf
strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site "& vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & "Nome e Cognome "

Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = html
Mail.from = webmaster_email
Mail.to = webmaster_email
Mail.Subject = "Nuovo Utemte si è registratto alla Comunity"
Mail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
Mail.Importance = 2
Mail.Send

Else


L'ho modificato così ma non funziona, sicuramente ho scritto qualche stupidaggine ma non m'accorgo quale.

'################################################# ###########################
'# Conferma email #
'################################################# ###########################

Dim strMsgHeader,Mail,html, objMail

strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf
strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site "& vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & "Nome e Cognome "

SET objMail = CreateObject("CDO.Message")
objMail.objMailMailFormat = html
objMail.from = webmaster_email
objMail.to = Email
objMail.Subject = Oggetto_Email
objMail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
objMail.Importance = 2
objMail.Send
SET objMail = Nothing

'################################################# ###########################
'# Email Anche al Webmaster #
'################################################# ###########################

strMsgHeader = "Ciao " & Nome & " " & Cognome & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Benvenuto nella nuova Community : " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Questo è il tuo indirizzo Web : " & vbCrLf
strMsgHeader = strMsgHeader & ServerURL & Repertorio & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Adesso corri a realizzare il tuo nuovo Web Site " & ServerURL & "ftp_online.asp" & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Ti ricordo il tuo Nickname e Password " & vbCrLf & vbCrLf
strMsgHeader = strMsgHeader & "Nickname: "& Nickname & vbCrLf
strMsgHeader = strMsgHeader & "Password: "& Passw & vbCrLf & vbCrLf& vbCrLf
strMsgHeader = strMsgHeader & "Buon divertimento con il tuo nuovo web site "& vbCrLf
strMsgHeader = strMsgHeader & "----------------------------------------------------" & vbcrlf
strMsgHeader = strMsgHeader & "Community Powered by "& Live_server & vbcrlf
strMsgHeader = strMsgHeader & "Nome e Cognome "

SET objMail = CreateObject("CDO.Message")
objMail.objMailMailFormat = html
objMail.from = webmaster_email
objMail.to = webmaster_email
objMail.Subject = "Nuovo Utemte si è registratto alla Comunity"
objMail.Body = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")
objMail.Importance = 2
objMail.Send
SET objMail = Nothing

Else