Ho un problema con una form in ASP

[christazio]

Da questo sito esempio di form ho preso lo script e l'ho adattato alla mia pagina

<%
   // 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 indirizzo = new String(Request.Form("indirizzo"));
   var citta = new String(Request.Form("citta"));
   var provincia = new String(Request.Form("provincia"));


   // Effettuo un banale controllo sulla validità dei campi
   if (nome == "" || cognome == "" || email == "" || indirizzo == "" || citta == "" || provincia == "") {
       Response.Write("<div align='center'><span class='titolo_settori'>!!ATTENZIONE!!<span>
TUTTI I CAMPI CONTRASSEGNATI CON IL SIMBOLO DELL' ASTERISCO SONO OBBLIGATORI!</div>");
       Response.End;
   }

   // Creo l'oggetto (o classe) CDONTS.NewMail
   var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
       OggettoCDONTS.From = email; // Mittente
       OggettoCDONTS.To = "miamail@miosito.it"; // Destinatario (inserisci la tua email)
       OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
       OggettoCDONTS.Body = messaggio; // Corpo
       OggettoCDONTS.Send(); // Invio la mail

   Response.Write("<div align='center'>IL VOSTRO CURRICULUM VITAE E' STATO INVIATO CON SUCCESSO</div>");
%>

tutto ok se non compilo i campi obbligatori...ma se cerco di inviare la form con i campi compilati mi restituisce questo errore...

Errore di run-time di Microsoft JScript error '800a01ad'
Il server di automazione non può creare l'oggetto
/demo/lavora/email.asp, line 120

la riga in questione è questa

   var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");

come lo risolvo?
grazie

[Mems]

Devi usare l'oggetto CDOSYS.
Cerca su Google.

[christazio]

sono ignorantissimo in Asp mi occupo di grafica io...

vuoi dire che devo ursare questo codice?

<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "pippo@disney.it"
Mittente = "pluto@disney.it"
Oggetto = "Oggetto della mail..."
Testo = "Testo della mail..."

'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing
%>

nella mia pagina chiamata dalla form?

[Mems]

Yes.
Good luck.

[christazio]

mi restituisce queato...

Errore di compilazione di Microsoft JScript error '800a03f7'

Costante String senza terminazione

/demo/lavora/email.asp, line 104

'Impostiamo le nostre preferenze
--------------------------------^

come devo configurarlo?

i punto è che vorrei fare una form in asp dove passo in una mail che arriva a me i campi della form, ed inolre alcuni di questi sono obbligatori
grazie

[Mems]

Togli la riga dove c'è scritto
@language=JScript

[christazio]

perfetto ora funziona....mi arriva la mail..ma come gli passo i campi che mi servono?

[d4n1]

nomecampo = request.form("nomecampo")
nomecampo1 = request.form("nomecampo1")



if nomecampo = "" and nomecampo = "" then
response.write "Attenzione, tutti i campo solo obbligatori!"
end if

[christazio]

if nomecampo = "" and nomecampo = "" then
response.write "Attenzione, tutti i campo solo obbligatori!"
end if

se voglio mettere altri X campi obbligatori?

[d4n1]

Originariamente inviato da christazio
se voglio mettere altri X campi obbligatori?

Li aggiungi con " AND "

if nomecampo = "" AND nomecampo1 = "" AND nomecampo3 = "" AND nomecampo4 = "" ..... then
response.write "Campi vuoti!"
end if

In questo caso controlla se i campi sono vuoti. Se sono vuoti ti da' l'errore "Campi vuoti!".