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>
Rispondi quotando