Da CDONTS a CDOSYS

[ffilogamo]

<%

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

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")

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

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

email.Subject =  "Segnalazione pagina web dal sito degli Scout"

email.Body = messaggio

email.Send

set email = Nothing


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

else

%>

Dovrei convertire questo script basato su CDONTS con CDOSYS perche il server non supporta CDONTS.
Grazie

[Roby_72]

http://www.weppos.com/asp/script/categoria_email.asp

Roby