Segnala questa pagina via ICQ
Molti di voi mi hanno chiesto come fare per realizzare qualcosa di analogo al "Segnala via ICQ" presente su ASPItalia.com.
Bene, uno dei modi, spiegato nello script seguente, permette di realizzare un qualcosa di simile inviando semplicemente un'e-mail:
<form method="post">
UIN: <input name="UIN"><br>
Tuo nome: <input name="fromName"><br>
Tua e-mail: <input name="from"><br>
Testo: <textarea name="Text"></textarea><br>
<input type="submit">
</form>
<%
if len(Request.Form)>0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
strFrom = request("fromName") & "<" &_
request("from") &">"
objMail.From = strFrom
objMail.Body = request("Text")
objMail.To = Request("UIN") & "@pager.icq.com"
objMail.Subject = "Ti segnalo questo sito!"
objMail.Send
set objMail = nothing
Response.write "<p>Segnalazione effettuata con successo!</p>"
end if
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
