è da qualche mese che aruba.it non mi consente più di inviare aspmail, mi dice che ha cambiato modalità. Nel vademecum c'è uno script che non funziona.
help please
help please
il talento è il potere degli uomini, il genio è ciò che ha l'uomo a suo potere
www.iperserv.com
servizi on-line
chiedi aiuto in merito a?
es. di invio aspemail che utilizzavo:
una pagina html con un form che aveva come action questo script send.asp che segue, nel form erano inseriti tre campi.
Una pagina di conferma invio completava il tutto.
<%
nome=request.form("nome")
cognome=request.form("cognome")
email=request.form("email")
testo= testo & "nome: " & nome & chr(13)
testo= testo & "cognome: " & cognome& chr(13)
testo= testo & "email: " & email& chr(13)
testo= testo & chr(10) & chr(13)
Set Mail = Server.CreateObject("Persits.MailSender")
mail.host = "www.tuosito.com"
mail.from = email
mail.fromname = nome
mail.addaddress "tuamail@tuosito.com"
mail.subject = "account"
Mail.body = testo
Mail.IsHTML = False
on error resume next
Mail.Send
response.redirect("tuapagina.htm")
%>
dopo una manutenzione di aruba non ha più funzionato
Ora nel vademecum mette questo script
<%
Set link = CreateObject("CDONTS.Newmail")
link.From = request.form("email")
link.To = "info@iperserv.com"
link.Subject = "Mail creata da un server"
link.Body = request.form("mex")
link.Send
Set link = Nothing
%>
<html>
<head>
<title>inviata</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#ffcb8c">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#996633">Caro utente
<%Response.Write(request.Form ("nome"))%> ( hai lasciato questo indirizzo mail:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#996633"><%Response.Write(request.Form ("email"))%>)
Grazie per aver scritto questo messaggio al Webmaster del sito
</font></p>
<table width="75" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffcb8c">
<tr>
<td>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#996633">"<%Response.Write(request.For m ("mex"))%>"</font></div>
</td>
</tr>
</table>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#996633">Torna a trovarci!
</font></p>
</p>
</body>
</html>
ma non funzionaaaaa
ciao
il talento è il potere degli uomini, il genio è ciò che ha l'uomo a suo potere
www.iperserv.com
servizi on-line
ciao
su aruba nn funziona cdonts
devi sostituirlo con cdosys
ciaoo
vedi che su aruba sono pubblicati vari esempi di mail già fatti
Permessi di invio
Rispondi quotando