Archivio

Posts Tagged ‘ASP’

Email da script ASP con l’oggetto CDSYS

24 agosto 2009 Nessun commento

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.

Categorie:Programmazione e scripting Tag: ,

Redirect da una pagina ASP o HTML

20 agosto 2009 Nessun commento

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

<html>
<head>
<meta http-equiv=”REFRESH” content=”0; URL=http://www.sito-verso-cui-fare-il-redirect.it”>
</head>
</html>

2) Redirect da una pagina asp

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

3) Redirect da una pagina asp

<html>

<head>

<title>Titolo della pagina</title>

</head>

<body>

<iframe src=”http://www.sito-verso-cui-fare-il-redirect.it” width=”100%” height=”100%” frameBorder=0 MARGINWIDTH=0 MARGINHEIGHT=0> </iframe>

</body>

</html>

Categorie:Altro Tag: , , ,

Email da script ASP con l’oggetto CDONTS

17 agosto 2009 7 commenti

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:

<form name=”FormContatti” method=”POST” action=”invia.asp”>
<table>
<tr><td>Tua Email: </td>
<td><input type=”text” name=”IndirizzoEmail” size=”44″></td></tr>
<tr><td>Nome: </td>
<td><input type=”text” name=”NomeMittente” size=”44″></td></tr>
<tr><td>Soggetto: </td>
<td><input type=”text” name=”Soggetto” size=”44″></td></tr>
<tr><td>Messaggio: </td>
<td><textarea name=”Messaggio”></textarea></td>
</table>
<input type=”submit” name=”Submit” value=”Invia”>
</form>

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
%>

<P>Messaggio inviato!</P>

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

Categorie:Altro Tag: , ,