Dall'archivio script > Classic ASP

Segnala questa pagina via ICQ

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Misc, Coding,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi