modifica script cdont

[giangarotto]

Salve amici come posso modificare che parte di script, che utilizza il CDONT, con il CDOSYS.

objMail = new ActiveXObject("CDONTS.NewMail");
objMail.From = "adm@host.com";
objMail.To = "adm@host.com";
objMail.Subject = "ORDINE PER TE!";
objMail.Body = corpo;
objMail.Importance = 1;
objMail.Send();

Grazie a tutti

[deleted_c]

cercato sul forum ?!

[Sclerato]

cosi':

Dim Mail
Set Mail = Server.CreateObject("CDO.Message") 
	Mail.From = "mittente"
	Mail.To = "destinatario"
	Mail.Subject = "soggetto"
	Mail.HTMLBody = "testo email"
	Mail.Send 
Set Mail = Nothing

[giangarotto]

Ecco cosa mi restituisce

Microsoft JScript compilation error '800a03ec'

Expected ';'

/e-commerce/inoltra2.asp, line 122

Dim Mail
----^


Grazie 10000

[giangarotto]

Ti posto tutto lo script

<%
  Response.End;
}

function recupera(nomeCampo,messaggioErrore) {
  temp = new String(Request.Form(nomeCampo));
  if (temp=="" || temp=="undefined") die(messaggioErrore);
  return temp;
}

var carrello = recuperaArticoli();

if (carrello.length==0) die("il carrello è vuoto");

dati = recupera("nome","nome e cognome non validi") + " " +
       recupera("indirizzo","indirizzo non valido") + " " +
       recupera("cap","CAP non valido") + " " +
       recupera("comune","comune non valido") + " (" +
       recupera("provincia","provincia non valida") + ")\n\n" +
       "Telefono: " + recupera("telefono","telefono non valido") + "\n" +
       "E mail: " + recupera("email","e-mail non valida") + "\n";

totale = 0;
ordine = "";

function euroLire(eu) {
  lit = new String(Math.floor(eu * 1936.27));
  pLit = "";
  cp = 0;
  for (i=lit.length-1;i>=0;i--) {
    if (cp==3) {
      pLit = "." + pLit;
      cp = 0;
    }
    pLit = lit.charAt(i) + pLit;
    cp++;
  }
  return pLit;
}

function calcolaPrezzo(euro) {
  euro = parseFloat(euro);
  euroString = new String(euro);
  punto = euroString.indexOf(".");
  if (punto!=-1)
    euroString = euroString.substring(0,punto + 3);
  else
    euroString += ".00";
  str = "€ " + euroString + " (L. " + euroLire(euro) + ")";
  return str;
}

var ADOConnection = new ActiveXObject("ADODB.Connection");
ADOConnection.Open(sdc);

var totale = 0;

for (k=0;k<carrello.length;k++) {
  titolo = "";
  prezzo = "";
  sql = "";
  sql += "SELECT * FROM Articoli ";
  sql += "WHERE Articolo_ID = " + carrello[k].codice;
  recSet = ADOConnection.Execute(sql);
  if (!recSet.EOF) {
    titolo = new String(recSet("Titolo"));
    fv = parseFloat(recSet("Prezzo"));
    tmp = new String(fv);
    punto = tmp.indexOf(".");
    if (punto!=-1) tmp = tmp.substring(0,punto + 3);
    else tmp += ".00";
    fv *= carrello[k].quantita;
    totale += fv;
    prezzo += "€ " + tmp + " x " + carrello[k].quantita;
    prezzo += " = ";
    prezzo += calcolaPrezzo(fv);
  }
  recSet.Close();
  ordine += "Articolo: " + titolo + "\n";
  ordine += "Quantità: " + carrello[k].quantita + "\n";
  ordine += "Costo: " + prezzo + "\n\n";
}

ordine += "Spesa complessiva: " + calcolaPrezzo(totale);

ADOConnection.Close();
svuotaCarrello();

d = new Date();
corpo = "";
corpo += "ORDINE INOLTRATO IN DATA " + d.toString() + "\n\n";
corpo += "DATI PERSONALI:\n\n";
corpo += dati;
corpo += "\n";
corpo += "DETTAGLIO DELL'ORDINE:\n\n";
corpo += ordine;

objMail = new ActiveXObject("CDONTS.NewMail");
objMail.From = "adm@host.com";
objMail.To = "adm@host.com";
objMail.Subject = "ORDINE PER TE!";
objMail.Body = corpo;
objMail.Importance = 1;
objMail.Send();
%>

Grazie dell'aiuto

[weppos]

Usa il codice di Sclerato (in vbscript) ed adattalo a jscript.
Dati gli esempi ed il vecchio codice non è difficile.

[giangarotto]

non puoi darmi una mano ....

[weppos]

Originariamente inviato da giangarotto
non puoi darmi una mano ....

Litigo troppo spesso con il jscript.

[giangarotto]

sono disperato ...........

[giangarotto]

C'è qulcuno che sa modificarmi questa parte di codice da CDONT a CDOSYS

objMail = new ActiveXObject("CDONTS.NewMail");
objMail.From = "adm@host.com";
objMail.To = "adm@host.com";
objMail.Subject = "ORDINE PER TE!";
objMail.Body = corpo;
objMail.Importance = 1;
objMail.Send();

Scusate della mia ignoranza