semplice form mail che supporta ASP

[caseriosante]

Ciao cybernauti!
stò avendo un piccolo problem con un form mail, è cosa semplice ma non capendo dove sbaglio chiedo a voi un supporto e un aiuto, lavoro con mac e ho stò creando un sito (con index.ASP) composto da "inclusioni" html che montano il sito, qui, nella index voglio inserire un semplice form collegato alla casella di post, quindi uno scrive, clikka "invia" e ti arriva il classico messaggio sulla mail, ma non riesco a farlo funzionare perchè ho usato un form forse non compatibile, adesso chiedo umilmente a voi grande popolo della rete, se potete passarmi un form o un link ad un form preipostato che io possa inserire nella index e ciao...almeno la smetto di continuare a sbattere la testa sullo spigolo appuntito della scrivania, che mi anche male...

potrei anche usare ilcgibin? se si me lo cread dreamwvaver? insomma che faccio? aiutooooooo!!!

[Mems]

Cerca CDOSYS nel forum.

[caseriosante]

ma il cgi bin mi risolverebbe il problema? tipo, se collego il form al cgi gli do l'indirzzo direttamente li?

[Mems]

Dipende cosa fa la CGI del sito.
Non è detto che invii email.

[caseriosante]

stò impazzendo..

allora vi riepilogo dove sono arrivato e cosa non mi torna, io credo che manchi poco

ho una pagina.asp che contiene inclusioni Ok? il sito provvisorio l'ho inserito in una sotto cartella che è test/sito/PRIMA PAGINEA DEL SITO ..ok? HO MESSO IL DOMINIOASSOLUTO PERCHè LE INCLUSIONI HTML ME LE LEGGE COSì, QUINDI HO NESATO CHE VALESSE LO STESSO PER EMAIL.ASP MA ANCHE SENZA MI SA CHE NADA..


in questa ho messo il form che deve inviarmi la mail con questo codice:

<form method="post" action="/test/sito/email.asp">
<div align="center">Nome

<input type="text" name="nome">


Email

<input type="text" name="email">


Messaggio

<textarea name="messaggio" rows="5" cols=30></textarea>


<input type="submit" value="Invia">
</div>
</form>



che manda le info al file email.asp con il seguente codice (ho levato tutto head, body ecc...)




<%@LANGUAGE = JScript%>
<%
// Recupero i dati dal modulo
var nome = new String(Request.Form("nome"));
var email = new String(Request.Form("email"));
var messaggio = new String(Request.Form("messaggio"));

// Effettuo un banale controllo sulla validità dei campi
if (nome == "" || email == "" || messaggio == "") {
Response.Write("ERRORE: Tutti i cami sono obbligatori");
Response.End;
}

// Creo l'oggetto (o classe) CDONTS.NewMail
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail"); (QUESTA è LA LINEA 15)
OggettoCDONTS.From = email; // Mittente
OggettoCDONTS.To = "MIA EMAIL"; // Destinatario (inserisci la tua email)
OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
OggettoCDONTS.Body = messaggio; // Corpo
OggettoCDONTS.Send(); // Invio la mail

Response.Write("Email inviata con successo!");
%>




MA UNA VOLTA FATTO IL TEST MI APPARE QUESTO ERRORE:


Microsoft JScript runtime error '800a01ad'

Automation server can't create object

/test/sito/email.asp, line 15


LA LINEA 15 VE L'HO SCRITTA SUL CODICE SU..


DOVE CRIBBIO SBAGLIO MAREMMA BUHAIOLA???!!! STO IMPAZZENDO AIUTATEMI PERFAVORE..

ciao!

[Mems]

Non devi usare il codice di CDONTS, ma quello di CDOSYS.
Il problema è che CDONTS è supportato solo dalle versioni Windows 2000, mentre su XP e Server 2003 ci sta CDOSYS.

[caseriosante]

ah ok.. posso modificare questo codice? o ne ho bisogno di uno nuovo?


ne avete mica da passere gentilmente?

[caseriosante]

ok ci sono un passettino alla volta, adesso ho usato questo codice dice che la mail è inviata ma non mi arriva.

nella prima parte:

<form method="POST" action="/test/sito/email.asp">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:
</font>

<input type="text" id="mail" name="mail" size="36">


<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Richiesta:</font>

<textarea rows="6" id="richiesta" name="richiesta" cols="35"></textarea>


<input type="submit" value="Invia Dati">
</div>
</form>


nella seconda


<%
mail = Request.form("mail")
richiesta = Request.form("richiesta")

If IsNull(mail) Or mail = "" Then
Response.Write ("ERRORE !!
Controlla il campo
E-MAIL
Indietro.")
Response.End
End if


Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = Request.Form("mail")
MiaMail.To = "mia e-mail"
MiaMail.Subject = "Questo è l'oggetto della mail che riceverai"
MiaMail.HTMLBody = "E-Mail dal sito

INDIRIZZO E-MAIL : " & Request.Form("mail") & "
RICHIESTA : " & Request.Form("richiesta")
MiaMail.Send()
Set MiaMail = Nothing


Dim MiaMail2
Set MiaMail2 = Server.CreateObject("CDO.Message")
MiaMail2.From = "mia email"
MiaMail2.To = Request.Form("mail")
MiaMail2.Subject = "Conferma di ricezione Dati"
MiaMail2.HTMLBody = Richiesta ricevuta! Sarai contattato prima possibile."
MiaMail2.Send()
Set MiaMail2 = Nothing



Response.Write ("La tua richiesta è stata correttamente inviata, sarai contattato al più prestoTorna al Form")
%>




dove sbaglio?

[Mems]

Sbagli a non dirci che errore ti da...

[caseriosante]

hai ragione anche te, scusa...





allora mi sa che facevo uno sbaglio doppio perchè la stringa che appariva con scritto "mail inviata" mi sa che appariva come errore e la crevevo un messaggio, scusate ancora, ma cmq ricapitolando:

lavoro su Mac, nella home.asp fatta da inclusioni metto il form con il seguente codice:

premessa: il sito prova come già detto è on-line in una sotto cartella (test/sito/prima pagina del sito)

<form method="POST" action="/test/sito/email.asp">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:
</font>

<input type="text" id="mail" name="mail" size="36">


<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Richiesta:</font>

<textarea rows="6" id="richiesta" name="richiesta" cols="35"></textarea>


<input type="submit" value="Invia Dati">
</div>
</form>


nel secondo file (email.asp) metto il seguente

<%
mail = Request.form("mail")
richiesta = Request.form("richiesta")
If IsNull(mail) Or mail = "" Then
Response.Write ("ERRORE !!
Controlla il campo
E-MAIL
Indietro.")
Response.End
End if
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = Request.Form("mail")
MiaMail.To = "mia mail"
MiaMail.Subject = "Questo è l'oggetto della mail che riceverai"
MiaMail.HTMLBody = "E-Mail dal sito

INDIRIZZO E-MAIL : " & Request.Form("mail") & "
RICHIESTA : " & Request.Form("richiesta")
MiaMail.Send("mail")
Set MiaMail = Nothing
Dim MiaMail2
Set MiaMail2 = Server.CreateObject("CDO.Message")
MiaMail2.From = ("mail")
MiaMail2.To = Request.Form("mia mail")
MiaMail2.Subject = "Conferma di ricezione Dati"
MiaMail2.HTMLBody = "Richiesta ricevuta! Sarai contattato prima possibile."
MiaMail2.Send("mail")
Set MiaMail2 = Nothing
Response.Write ("La tua richiesta è stata correttamente inviata, sarai contattato al più prestoTorna al Form")
%>


e l'errore che esce è:


Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Send'

/test/sito/email.asp, line 14