invio mail da un form

**depifano** · 18-05-2006, 18:27

dal sito di html.it ho trovato questi due script per spedire una mail da un form in cui si chiedono informazioni. non funziona l'invio della mail: mi aiutate a scoprire l'errore? credo che sia nel secondo file ma non riesco a capire dove.

ecco il codice dei due file:
feedback.asp
<HTML>
<HEAD>
<TITLE>Feedback Form</TITLE>
</head>
</HEAD>

<BODY>
<FORM ACTION="manda_feedback.asp" METHOD="post">
<div align="center">
<table border="0" width="85%" celpadding="2" cellspacing="2">
<tr>
<td><h1>Grazie per....<hr align="LEFT" size="1" width="100%" color="navy"></h1></td>
</tr>
<tr>
<td>Se avete....</td>
</tr>
<td align="center">

<table width="60%" border="0" celpadding="2" cellspacing="2">
<tr>
<td>Nome</td>
<td><INPUT NAME="nome" TYPE="TEXT" size=24 MAXLENGTH=50></td>
</tr>
<tr>
<td>email</td>
<td valign="top"><INPUT NAME="email" TYPE="TEXT" ALIGN=left size=24 MAXLENGTH=50></td>
</tr>
<tr>
<tr>
<td valign="top">Commenti</td>
<td><TEXTAREA NAME="commenti" ROWS=7 COLS=40></TEXTAREA></td>
</tr>
<tr>
<td valign="top"></td>
<td>
<table width="100%" border="0" celpadding="2" cellspacing="2">
<tr>
<td><INPUT TYPE=checkbox NAME="dimmelo" VALUE="yes" UNCHECKED></td>
<td>Vi interessa ricevere....</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<table width="50%" border="0" celpadding="6" cellspacing="2">
<tr>
<td><INPUT TYPE="submit" NAME="parla" VALUE="parla con noi"></td>
<td align="right"><INPUT TYPE="reset" NAME="nograzie" VALUE="no grazie"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</FORM>

</BODY>
</HTML>

manda_feedback.asp
<%
Option Explicit
'--------------------------------------------------------
'Purpose: processes the feedback mail
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim form, nome

%>
<Html>
<head>
<title>Manda Feedback</title>
</head>
<body>
<%

call Main()

Sub Main()
'--------------------------------------------------------
'Purpose: la logica dell'applicazione
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
'se la lungezza è 0 non c'e niente nell email
If Len(Request.Form("email")) = 0 then
no_email()
else
manda_posta(form)
ecco_fatto(nome)
end if
End sub

Sub no_email()
'--------------------------------------------------------
'Purpose: manda un messaggio se email è vuoto
'Date: 10 March 2001
'Commenti: potevamo usare javascript per forzare il cliente
'ma questi sono esempi di ASP
'--------------------------------------------------------
'allora diciamo al cliente che senza una email non possiamo rispondergli
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>niente email...?</td></tr>"
response.write "<tr><td>per favore, torna indiedro e... </td></tr>"
response.write "<tr><td align='middlè>"
response.write "Prova di nuovo"
response.write "</td></tr></table></div>"
End Sub

Sub manda_posta(form)
'--------------------------------------------------------
'Purpose: manda la email
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim email, commenti
Dim objMail, mandamiquesto

'facciamo la vendemmia dell'input
nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")

mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti
'costruiamo un NewMail oggetto
Set objMail = Server.CreateObject("CDONTS.NewMail")
'adesso che abbiamo accesso a tuttle le sue proprieta, usiamole
'prendiamo il nome dal Form di input
objMail.From = nome
'mandiamola a me, va…
objMail.To = "depifanoo@hotmail.com"
'mettiamoci un riga per il titolo
objMail.Subject = "Feedback dal sito"
'e nel corpo ci mettiamo la stringa che abbiamo costruito
objMail.Body = mandamiquesto
'al momento è poco importante, direi
objMail.importance = 0
'e via che va
objMail.Send

'e adesso puliamo prima di andarcene
Set objMail = Nothing
end sub

Sub ecco_fatto(nome)
'--------------------------------------------------------
'Purpose: manda un ringraziamento
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>Grazie " & nome & " per il...</td></tr>"
response.write "<tr><td align='middlè>"
response.write "Continua"
response.write "</td></tr></table></div>"
End sub

%>

</body>
</html>

**depifano** · 18-05-2006, 18:49

preciso che le pagine sono su un server gratuito. potrebbe essere questo?
in ogni caso, questo è l'errore che mi da:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/deviola/manda_feedback.asp, line 69

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

**Dirk Pitt** · 18-05-2006, 20:53

Crea un file asp con il codice che segue, caricalo sul server e richiamalo dal browser.
Ti mostrerà quale componente per l'invio email è supportato dal server.

codice:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%

Dim theComponent(14)													' modified by ninjaweb.it
Dim theComponentName(14)

' the components
theComponent(0) = "SMTPsvg.Mailer"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "CDONTS.NewMail"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "dkQmail.Qmail"
theComponent(6) = "Geocel.Mailer"
theComponent(7) = "iismail.iismail.1"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10)= "CDO.Message"								' modified by ninjaweb.it
theComponent(11)= "aspSmartMail.SmartMail"		' modified by ninjaweb.it
theComponent(12)= "ArclabEmailToolBox.Mailer" ' modified by ninjaweb.it
theComponent(13)= "VSEmail.SMTPSendMailEx" 		' modified by ninjaweb.it
theComponent(14)= "VSEmail.SMTPSendMail" 			' modified by ninjaweb.it

' the name of the components
theComponentName(0) = "ASPMail"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPQMail"
theComponentName(3) = "CDONTS"
theComponentName(4) = "Chili!Mail"
theComponentName(5) = "dkQMail"
theComponentName(6) = "GeoCel"
theComponentName(7) = "IISMail"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10)= "CDOSYS"								' modified by ninjaweb.it
theComponentName(11)= "SmartMail"							' modified by ninjaweb.it
theComponentName(12)= "Emailtoolbox"					' modified by ninjaweb.it
theComponentName(13)= "VSEmail2.0"						' modified by ninjaweb.it
theComponentName(14)= "VSEmail1.0"						' modified by ninjaweb.it

Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>EMail Component Test</TITLE>
</HEAD>
<BODY bgColor="white" text="midnightblue" link="darkblue" aLink="red" vLink="red">
<font face="Verdana, Arial, Helvetica">
<table border=0 cellspacing=0 cellpadding=0 align=center>
  <tr valign="top">
    <td bgcolor="black">
    <table border=0 cellspacing=1 cellpadding=4>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">Test
          componenti Email</font></td>
      </tr>
      <tr valign="top">
        <td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">COMPONENTE</font></td>
				<td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">STATUS</font></td>
      </tr>
        <% Dim i
           For i=0 to UBound(theComponent)
             Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & theComponentName(i) & "</td><td bgColor=""A0B0E0"" align=""center"">"
	     If Not IsObjInstalled(theComponent(i)) Then
	       Response.Write "non installato"
	     Else
	       Response.Write "installato!"
	     End If
	     Response.Write "</td></font></tr>" & vbCrLf
	   Next %>
    </table>
    </td>
  </tr>
</table>
    </td>
  </tr>
</table>
</font>
</BODY>
</HTML>

**depifano** · 18-05-2006, 21:34

grazie x la risposta.

questo è il risultato:
Test componenti Email
COMPONENTE STATUS
ASPMail non installato
ASPEMail non installato
ASPQMail non installato
CDONTS installato!
Chili!Mail installato!
dkQMail non installato
GeoCel non installato
IISMail non installato
JMail non installato
SMTP non installato
CDOSYS installato!
SmartMail non installato
Emailtoolbox non installato
VSEmail2.0 non installato
VSEmail1.0 non installato

significa che non posso spedire mail?

**Dirk Pitt** · 18-05-2006, 21:45

Originariamente inviato da depifano

COMPONENTE STATUS
ASPMail non installato
ASPEMail non installato
ASPQMail non installato
CDONTS installato!
Chili!Mail installato!
dkQMail non installato
GeoCel non installato
IISMail non installato
JMail non installato
SMTP non installato
CDOSYS installato!
SmartMail non installato
Emailtoolbox non installato
VSEmail2.0 non installato
VSEmail1.0 non installato

significa che non posso spedire mail?

Ma come "significa che non posso inviare email"? Sbaglio o ci sono degli oggetti con la scritta "installato"? Devi usare quelli per inviare le email.

**depifano** · 18-05-2006, 22:28

è vero che ci sono degli oggetti installati, ma non arrivano mail.
guarda tu stesso:
http://free.7host07.com/depifano/

**Dirk Pitt** · 18-05-2006, 22:35

Io ho compilato il form, però ovviamente non ti so dire se la mail arriva.

L'uso di CDONTS pare essere giusto.

Domanda, ma con i prezzi dell'hosting pari a quelli delle patate, perchè non registri un dominio e acquisti spazio web? Risolvi un sacco di problemi (vedi la fastidiosa popup che si apre al link che mi hai mandato).

**depifano** · 18-05-2006, 22:52

hai ragione ma stavo facendo delle prove. ho iniziato da poco ad usare asp e voglio vedere come funzionano gli script che stavo studiando.

in ogni caso grazie per il tuo aiuto

**Dirk Pitt** · 18-05-2006, 22:56

Di nulla.

Discussione: invio mail da un form

Strumenti discussione

Ricerca discussione

Visualizza

invio mail da un form

Permessi di invio