Deec.it » ASP

Email da script ASP con l’oggetto CDSYS

Pidicci — Mon, 24 Aug 2009 18:03:16 +0000

Il componente CDONTS e’ diventato obsoleto dalla versione Windows 2003. Per poter inviare email conviene utilizzare il componente CDOSYS. In particolare

Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject(”CDO.Message”)

Set objCDOSYSCon = Server.CreateObject (”CDO.Configuration”)

‘Il server SMTP va inserito nella riga successiva
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “localhost”
‘porta SMTP
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
‘Timeout
objCDOSYSCon.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = “mittente@test.net”
objCDOSYSMail.To = “destinatario@anywhere.com”
objCDOSYSMail.Subject = “Il subject va inserito qui”
‘Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = “Il corpo del messaggio va inserito qui”
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Lo script in questione non prevede l’autenticazione in uscita, a breve verra’ postato un articolo per il sistema con autenticazione in uscita.

Redirect da una pagina ASP o HTML

Luca — Thu, 20 Aug 2009 16:18:14 +0000

Ci sono diversi metodi per fare un redirect da una pagina web. Di seguito ci sono 3 esempi.
Mentre nei primi due l’utente si rendera’ conto del redirect e verra’ modificata la URL del sito internet nella barra di navigazione del suo browser web,
con il terzo esempio il visitatore non si rendera’ conto di nulla, ma per funzionare e’ necessario che nel suo browser siano abilitati i javascript (nel 99% dei casi e’ cosi).

1) Redirect da una pagina html

2) Redirect da una pagina asp

<%response.redirect(”http://www.sito-verso-cui-fare-il-redirect.it”)%>

3) Redirect da una pagina asp

Titolo della pagina

Email da script ASP con l’oggetto CDONTS

Luca — Mon, 17 Aug 2009 15:53:19 +0000

Che vogliate progettare un form di contatti per il vostro sito oppure piu’ semplicemente inviate un messaggio email
da una pagina asp, questo e’ il codice che fa al caso vostro:

Create una pagina chiamata contatti.html in questo modo:

Tua Email:

Nome:

Soggetto:

Messaggio:

ed una chiamata invia.asp:

<%
DIM strEmail, strNome, strMessaggio, email, objMail

strEmail = request.form(”IndirizzoEmail”)
strNome = request.form(”NomeMittente”)
strMessaggio = request.form(”Messaggio”)

strSoggetto=request.form(”Soggetto)

email = “il_tuo_indirizzo@email.it”

Set objMail = Server.CreateObject(”CDONTS.NewMail”)
objMail.From = strEmail
objMail.Subject = strSoggetto
objMail.To = email
objMail.Body = strMessaggio

objMail.Send
Set objMail = nothing
%>

Messaggio inviato!

Visitando la contatti.asp e compilando il form verra’ spedita un’email all’indirizzo definito nella variabile “email” del file invia.asp