Salve a tutti,
volevo inserire nelle mie pagine asp, su server aruba, la funzione "segnala questa pagina ad un amico" e "segnala questo sito ad un amico".
Cercando sia in aspitalia che su google trovo solamente script vecchi che utilizzano CDONTS oramai inutilizato anziche il più attuale CDOSYS.

Avete uno script attuale da condividere?

Grazie.

Ciao Alessio,

si che l'ho visto.

Ma; poichè su vari siti che trattano asp (compreso aspitalia vedi questo tips:
http://www.aspitalia.com/script/213/Segnala-Pagina-Amico.aspx ),
sono disponibili script pronti all'uso su "Segnala ad un amico" ma tutti sono realizzati con il vecchio componente,(percui inutilizzabili), chiedevo se qualcuno mettesse a disposizione degli script specifici pronti all'uso ma realizzati con il nuovo componente in oggetto.

"segnala questo sito ad un amico"
"segnala questa pagina ad un amico"

Grazie per la disponibilità

come il link http://www.aspitalia.com/script/213/Segnala-Pagina-Amico.aspx o modificato solo il codice di invio mail.

<b>Segnala questa pagina ad un amico</b><Br>
<form method="post">
E-mail del tuo amico: <input name="e-mail"><br>
Tuo nome: <input name="fromName"><br>
Tua e-mail: <input name="from"><br>
Testo: <textarea name="Text"></textarea><br>
<input type="hidden" name="url" value="<%=Request.ServerVariables("HTTP_REFERER")%>">
<input type="submit">
</form>
<%

if len(Request.Form)>0 then
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds ("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

strFrom = request("fromName") & "<" &_
request("from") &">"

strUrl = request("url")

strTxt = request("Text") & VbcrLf & _
"--" & strUrl

With iMsg
Set .Configuration = iConf
.From = strFrom
.To = Request("e-mail")
.Subject = "Ti segnalo questo sito!"
.TextBody = strTxt
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

Response.write "Segnalazione effettuata con successo!<br />"

end if

%>