da CDONTS a CDOSYS

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
<%



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:
 

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
<%



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
 
Discussioni simili
Autore Titolo Forum Risposte Data
W Form da CDONTS a CDOSYS Classic ASP 7
D errore 424 da cdonts a cdosys Classic ASP 0
F modificare da cdonts a cdosys Classic ASP 2
I Convertire CDONTS in CDOSYS Classic ASP 7
A da CDONTS a CDOSYS Classic ASP 9
G form con cdosys al posto di cdonts...come fare Classic ASP 1
L Problema con cdonts su aruba Hosting 4
asevenx errore durante l'invio di email con CDONTS Classic ASP 8
seranto cdonts o aspSmartMail Classic ASP 2
J cdonts Classic ASP 2
R Problema con CDONTS Classic ASP 7
R xp e cdonts Classic ASP 1
S usare cdonts Classic ASP 1
A problema con invio e-mail con CDONTS Classic ASP 0
J formattare testo x mails +cdonts Classic ASP 1
C cdonts x inviare una pagina asp Classic ASP 1
G invio email con cdonts? Classic ASP 2
grottafelix Cdonts Classic ASP 15
jan267 Componente CDONTS Classic ASP 2
P Nome del file allegato alla email inviata con CDOSYS Classic ASP 0
I [Risolto] Problemi invio e-mail con CDOSYS con domini @live.it Classic ASP 4
M Cdosys Invio copia email a utente Classic ASP 19
L Newsletter con comando cdosys??? Classic ASP 11
M configurazione cdosys su server web Web Server 0
I problema assurdo con CDOSYS Classic ASP 0
D Usare CDOSYS con il proprio indirizzo Classic ASP 4
M Cdosys aruba e form con allegati Classic ASP 12
I Problema con form ASP-CDOSYS 2: la vendetta Classic ASP 4
C Cdosys Classic ASP 6
I Problema con form ASP-CDOSYS Classic ASP 2
T CDOsys non funziona con le immagini Classic ASP 1
M il loop per l'invio mail con CDOSYS ad un tratto non funziona più Classic ASP 1
J Cdont-cdosys-cdo Classic ASP 27
P Da cdont a cdosys Classic ASP 1

Discussioni simili