Cdonts & Icq

Grazie al seguente script è possibile inviare da un form un messaggio ad un'utente di Icq sfruttando il cdonts.

<%

Set mail = Server.CreateObject("CDONTS.NewMail")

strFrom = request("nome_mittente") & "<" & request("mail_mittente") &">"

mail.From = strFrom

mail.Body = request.form("messaggio") &" - messaggio inviato dal web www.innovatel.it "

mail.To = Request("UIN_destinatario") & "@pager.icq.com"

mail.Subject = request.form("titolo_messaggio")

mail.Send

set mail = nothing

%>