Da cdont a cdosys

[silvio trisorio]

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

[Roby_72]

Non funziona che vuol dire??

Roby

[silvio trisorio]

non trova la pagina, dava quel problema anche con questa:

<%
sql = "SELECT Passw, email, Nickname, Nome, Cognome FROM Membri WHERE Nickname = '" & Nickname & "' AND show = True"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
On error resume next
Set objMail = CreateObject("CDO.Message")

if err.number <> 0 then
noObj = True
else
mailbody = "Ciao " & rsUser("Nome")& " " & rsUser("Cognome") & vbcrlf & vbcrlf
mailbody = mailbody & "Come da te richiesto eccoti la tua password :" & vbcrlf & vbcrlf
mailbody = mailbody & "Password : " & rsUser("Passw") & vbcrlf
mailbody = mailbody & "Nickname : " & rsUser("Nickname") & vbcrlf & vbcrlf
mailbody = mailbody & "----------------------------------------------------" & vbcrlf
mailbody = mailbody & "Community Powered by "& Live_server
objMail.TextBody = mailbody
objMail.to = rsUser("email")
objMail.from = webmaster_email_pass
objMail.subject = Oggetto_Email_pass
objMail.send
set objMail = nothing
sentok = True
end if
end if
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>

L'ho modificata così (non so come ci sono riuscito) ma invia le email....mentre il codice che ho sopra non invia un tubo.

[Roby_72]

Tolgi On Error Resume Next

Roby

[silvio trisorio]

Questa funziona bene così, è questa quella che non funziona:
################################################## ##########################
'# 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

[Roby_72]

E' la terza volta....
Cosa non funziona???????
Da errore?

Roby

[silvio trisorio]

Scusami mi spiego da schifo...quando creo un utente nuovo da questo link(http://www.stampadacasa.com/public/membri/creasito.asp) il sistema crea un utenza nuova con i dati appena inseriti, scrive tutto nel database ma non trova la pagina e non spedisce l'email di conferma... se vuoi prova tu stesso a creare un utente nuovo.

[Roby_72]

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objMailMailFormat'

/public/membri/creazionesito.asp, line 223


Ecco l'errore!

Roby

[silvio trisorio]

Si può correggere?

[Roby_72]

Questa la togli:
objMail.objMailMailFormat = html

E sotto scrivi
objMail.TextBody = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")

Roby