Newsgroup: it.comp.www.asp
Titolo: Non invia l'email

salve, 
sono un novizio di asp,
ho trovato uno script che serve a mandare un'email contenente un testo
digitato in un form.
si suddivide in due pagine;
la prima in cui c'è il form,
la seconda che manda l'email.
L'email non mi arriva;
sapete trovarci l'errore?
ho anche due dubbi in particolare; 
In quanto tempo mi dovrebbe arrivare??
objMail.importance = 0 è un parametro importante? come va impostato?
grazie dell'aiuto
Copio entrambe le pagine:
Pagina col form:
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Benvenuti</title>
</head>
<body bgcolor="#000000" text="#0000FF" vlink="#0000FF" alink="#0000FF"
style="font-family: Lucida Console; font-size: 14 pt">
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">Maurizio Petrini Web Space</p>
<p align="center">&nbsp;</p>
<p align="center">Per accedere alla mia pagina web devi lasciarmi
scritto
qualcosa di te...</p>
<p align="center">qualsiasi cosa... la tua e-mail, il tuo nome, oppure
una
frase... </p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<FORM ACTION="manda_feedback.asp" METHOD="post">
<%
Dim lapagina, ilcliente, lalingua
Response.Write "<form action='manda_feedback.asp' method='post'>"
'raccogli le informazioni che vuoi scrivere
lapagina = Request.ServerVariables("PATH_INFO")
ilcliente = Request.ServerVariables("REMOTE_ADDR")
lalingua = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
%>
<h1>Scrivi qua il messaggio
<table>
<td align="center"><br>
<TEXTAREA NAME="commenti" ROWS=7 COLS=40></TEXTAREA></td>
<tr> 
<td width="245" height="41">
<p align="left"><INPUT TYPE="submit" NAME="parla" VALUE="Entra nel
sito"></p>
</td>
</tr>
</table>
</FORM>
</body>
PAGINA CHE DOVREBBE INVIARE L'EMAIL:
<%
Option Explicit
'--------------------------------------------------------
'Purpose: processes the feedback mail
'Date: 10 March 2001
'Commenti: 
'--------------------------------------------------------
Dim form
%>
<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("commenti")) = 0 then
no_commenti()
else 
manda_posta(form)
ecco_fatto()
end if
End sub
Sub no_commenti()
'--------------------------------------------------------
'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 commenti nn puo accedere
response.write "<a href='Javascript:history.go(-1)'>Torna indietro e
scrivi qualcosa altrimenti non potrai accedere!</a>"
End Sub
Sub manda_posta(form)
'--------------------------------------------------------
'Purpose: manda la email
'Date: 10 March 2001
'Commenti: 
'-------------------------------------------------------- 
Dim commenti, lapagina, ilcliente, lalingua
Dim objMail, mandamiquesto
'facciamo la vendemmia dell'input
commenti = Request.Form("commenti")
mandamiquesto = commenti & lapagina & ilcliente & lalingua 
'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 = "Visitatore sito mio"
'mandiamola a me, va--
objMail.To = "
siddh...@tin.it
"
'mettiamoci un riga per il titolo
objMail.Subject = "Discorsi a bischero dei visitatori del mio sito"
'e nel corpo ci mettiamo la stringa che abbiamo costruito
objMail.Body = mandamiquesto 
'chr(44) è una virgola, VBcrlf è un carriage return+line feed
'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()
'--------------------------------------------------------
'Purpose: manda un ringraziamento
'Date: 10 March 2001
'Commenti: 
'-------------------------------------------------------- 
Response.Redirect "
http://www.mauriziopetrini.it/benvenuti.html
"
End sub
%>
</body>
</html>
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sapete trovarci l'errore?
Mah non son stato lě a cercare in mezzo a diemila righe, tra commenti e 
codice.
SICURAMENTE un errore c'č: devi per forza indicare il mittente, con un 
indirizzo email potenzialmente valido. Non ritorna errore ma non 
spedisce.
objMail.From = "Visitatore sito mio"
Richiedi l'indirizzo con un altro campo, o mettilo fissao come il 
destinatario
objMail.From = "
siddh...@tin.it
"