Asp Fatto In Casa

[MARBLBORO]

buonasera dopo aver provato il formmail.pl e vari php per inviare il form direttamente sulla casella postale mi sono accorto che il server non supporta il perl ma solo appoggiandomi al cdonts.dll
e cosi mi sono scaricato un email.asp e sto provando a farlo funzionare ma non ci riesco ( cioe con la versione che scarico la demo l'email mi arriva subito) ma quando modifico da gran presuntuoso che sono mi dice che email inviata ma non arriva nulla.... ecco la pagina del form http://www.atspanishsteps.com/protetto/voucherprova.htm

ed ecco il file asp

<%@LANGUAGE = JScript%>
<%
// Recupero i dati dal modulo
var nome = new String(Request.Form("nome"));
var cognome = new String(Request.Form("cognome"));
var indirizzo = new String(Request.Form("indirizzo"));
var citta = new String(Request.Form("citta"));
var nazione = new String(Request.Form("nazione"));
var email = new String(Request.Form("email"));
var camere = new String(Request.Form("camere"));
var checkin = new String(Request.Form("checkin"));
var checkout = new String(Request.Form("checkout"));
var oraarrivo = new String(Request.Form("oraarrivo"));
var adult = new String(Request.Form("adult"));
var chl = new String(Request.Form("chl"));
var cartadicredito = new String(Request.Form("cartadicredito"));
var datanascita = new String(Request.Form("datanascita"));
var tipocarta = new String(Request.Form("tipocarta"));
var numerocarta = new String(Request.Form("numerocarta"));
var scadenza = new String(Request.Form("scadenza"));
var messaggio = new String(Request.Form("messaggio"));

// Creo la classe CDONTS.NewMail ed invio lemail
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = email; // Mittente
OggettoCDONTS.To = "mimmitto@aliceposta.it"; // Destinatario (inserisci la tua email)
OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
OggettoCDONTS.Body = messaggio; // Corpo
OggettoCDONTS.Send(); // Invio la mail


// Reindirizzo il mittente verso la pagina di conferma
Response.Redirect("conferma.htm");
%>

mi aiutate o dovro morire gonfio..........

[Corinna]

Provata online mi dice "mail inviata con successo".
Cosa mi sfugge? non c'è altro nell'action?

[MARBLBORO]

http://www.atspanishsteps.com/protetto/email.htm ecco l'originale.

[Corinna]

Del form htm non me ne faccio niente, casomani dell'action ASP

[MARBLBORO]

<%@LANGUAGE = JScript%>
<%
/*
Autore: Luca Ruggiero - http://www.lukeonweb.net
Fonte: freeAsp.it - http://freeasp.html.it
*/

var destinatario = "tua@email.ext"; // Inserisci qui il tuo indirizzo email

// Recupero i dati dal modulo
var nome = new String(Request.Form("nome"));
var cognome = new String(Request.Form("cognome"));
var email = new String(Request.Form("email"));
var oggetto = new String(Request.Form("oggetto"));
var importanza = new String(Request.Form("importanza"));
var messaggio = new String(Request.Form("messaggio"));
var html = new String(Request.Form("html"));

// RegExp per l'email
var valida = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

// Imposto la data
var oggi = new Date();
var data = oggi.getDate() + "/" + (oggi.getMonth() + 1) + "/" + oggi.getYear() + " alle ore " + oggi.getHours() + ":" + oggi.getMinutes();

// Imposto l'indirizzo IP del mittente
var ip = Request.ServerVariables("REMOTE_ADDR");

// Controllo la validità dei campi
if ((nome == "") || (nome == "undefined")) Response.Redirect("errore.htm?id=1");
if ((cognome == "") || (cognome == "undefined")) Response.Redirect("errore.htm?id=2");
if (!valida.test(email)) Response.Redirect("errore.htm?id=3");
if ((oggetto == "") || (oggetto == "undefined")) Response.Redirect("errore.htm?id=4");
if ((messaggio == "") || (messaggio == "undefined")) Response.Redirect("errore.htm?id=5");

// Creo la classe CDONTS.NewMail ed invio l'email
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.Importance = importanza;
OggettoCDONTS.From = email;
OggettoCDONTS.To = destinatario;
OggettoCDONTS.Subject = oggetto;
// Verifica se la mail è in formato Html
if ((html == "") || (html == "undefined")) {
OggettoCDONTS.BodyFormat = 1;
OggettoCDONTS.MailFormat = 1;
OggettoCDONTS.Body = "Dati del mittente\n\nNome: " + nome + "\nCognome: " + cognome + "\nEmail: " + email + "\nIP: " + ip + "\n\nMessaggio spedito il " + data + "\n\nQuesto è il corpo del messaggio:\n\n" + messaggio;
}
else {
OggettoCDONTS.BodyFormat = 0;
OggettoCDONTS.MailFormat = 0;
OggettoCDONTS.Body = "Dati del mittente

Nome: " + nome + "
Cognome: " + cognome + "
Email: " + email + "
IP: " + ip + "

Messaggio spedito il " + data + "

Questo è il corpo del messaggio:

" + messaggio;
}
OggettoCDONTS.Send();

// Reindirizzo il mittente verso la pagina di conferma
Response.Redirect("conferma.htm");
%>