da CDONTS a CDOSYS

[grottafelix]

<%



modo = Request.QueryString("modo")
if modo = "ok" then

' ----- INVIO EMAIL ALL'AMICO

' ----- FUNZIONE aCapo,
aCapo = Chr(13) & Chr(10)



msg = Request.Form("msg") & aCapo & aCapo
msg = msg & "------------------------------" & aCapo & aCapo
msg = msg & "Questo messaggio ti è stato inviato da : " & aCapo

msg = msg & Request.Form("yname") & aCapo

msg = msg & Request.Form("yemail") & aCapo

msg = msg & "http://www.miosito.it" & aCapo & aCapo


msg = msg & "------------------------------" & aCapo


msg = msg & "La redazione del sito non è responsabile dell'utilizzo di questo servizio " & aCapo
msg = msg & "e del suo uso improprio che se ne potrebbe fare." & aCapo
messaggio = msg

Set email = CreateObject("CDONTS.NewMail")

' INVIO EMAIL ALL'AMICO

email.From = Request.Form("yemail")

email.To = Request.Form("email")

email.Subject = "Segnalazione news web dal sito internet Mio"

email.Body = messaggio

email.Send

set email = Nothing

' MODIFICARE CON L'INDEX DELLA PAGINA DEL TUO SITO WEB

Response.Redirect "blank_segnala_ok.asp" 'oppure inserire un link ad un'altra pagina del sito

else

%>

come trasformo l'oggetto da CDONTS a CDOSYS :vampiro:

 

[lukeonweb]

cosi

http://www.aspcenter.net/75.asp?Inviare_email_con_CDOSYS/

e poi la configuri

http://www.aspcenter.net/76.asp?Configurazione_corretta_di_CDOSYS/

ciao

 

[grottafelix]

cosi

http://www.aspcenter.net/75.asp?Inviare_email_con_CDOSYS/

e poi la configuri

http://www.aspcenter.net/76.asp?Configurazione_corretta_di_CDOSYS/

ciao

ok thanks

provo e faccio sapere :fonzie:

 

[lukeonweb]

vadi vadi, facci pure e mi facci sapere fantocci

 

[grottafelix]

<%



modo = Request.QueryString("modo")
if modo = "ok" then

' ----- INVIO EMAIL ALL'AMICO

' ----- FUNZIONE aCapo,
aCapo = Chr(13) & Chr(10)



msg = Request.Form("msg") & aCapo & aCapo
msg = msg & "------------------------------" & aCapo & aCapo
msg = msg & "Questo messaggio ti è stato inviato da : " & aCapo

msg = msg & Request.Form("yname") & aCapo

msg = msg & Request.Form("yemail") & aCapo

msg = msg & "http://www.sito.it" & aCapo & aCapo


msg = msg & "------------------------------" & aCapo


msg = msg & "La redazione del sito non è responsabile dell'utilizzo di questo servizio " & aCapo
msg = msg & "e del suo uso improprio che se ne potrebbe fare." & aCapo
messaggio = msg

Set email = Server.CreateObject("COD.Message")

' INVIO EMAIL ALL'AMICO

email.From = Request.Form("yemail")

email.To = Request.Form("email")

email.Subject = "Segnalazione news web dal sito internet "

HTML.Body = messaggio

email.Send

set email = Nothing

' MODIFICARE CON L'INDEX DELLA PAGINA DEL TUO SITO WEB

Response.Redirect "blank_segnala_ok.asp" 'oppure inserire un link ad un'altra pagina del sito

else

%>

ho provato cosi ma
mmm ma nn funziona..devo aver fatto qualche casino

 

[lukeonweb]

HTML.Body = messaggio

sostituiscilo con

email.HtmlBody = messaggio

fammi sapere