cartoline virtuali non inviate

**giangarotto** · 03-12-2004, 16:37

Save amici volevo chiedere se qualcuno mi sa dire dov'è l'errore. Quando do l'invia non mi restituisce nessun errore però la mail NON la manda ... perchè???

PS. questo script invia cartoline virtuali.

Grazie 1000

codice:

<%@ LANGUAGE = JScript %>

<%
var fso = new ActiveXObject("Scripting.FileSystemObject");

function getForm(key,min,max) {
  var aux = new String(Request.Form(key));
  var inErr = false;
  if (aux=="" || aux=="undefined") inErr = true;
  if (min!=-1 && aux.length<min) inErr = true;
  if (max!=-1 && aux.length>max) inErr = true;
  if (inErr) {
    Response.Write("Campo " + key + " non valido. Torna indietro e correggi.");
    Response.End();
  }
  return Server.HTMLEncode(aux);
}

function randomPass(l) {
  var ammesse = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  var retValue = "";
  for (i = 0; i < l; i++)
    retValue += ammesse.charAt(Math.floor(Math.random() * ammesse.length));
  return retValue;
}

var img = getForm("img",1,50);
var destinatario = getForm("destinatario",9,50);
var mittente = getForm("mittente",9,50);
var oggetto =  getForm("oggetto",1,50);
var messaggio = getForm("messaggio",1,-1);
var sfondo = getForm("sfondo",7,7);
var testo = getForm("testo",7,7);
var audio = getForm("audio",1,50);

if (!fso.FileExists(Server.MapPath("miniature/" + img)) || !fso.FileExists(Server.MapPath("immagini/" + img))) Response.Redirect("default.asp");

if (audio!="#" && !fso.FileExists(Server.MapPath("audio/" + audio))) Response.Redirect("default.asp");

var ADOConnection = new ActiveXObject("ADODB.Connection");
var ADORecordset = new ActiveXObject("ADODB.Recordset");

var randPass = randomPass(15);
var d = new Date();

ADOConnection.Open(sdc);
ADORecordset.Open("Cartoline",ADOConnection,1,3);
ADORecordset.AddNew();
ADORecordset("Password") = randPass;
ADORecordset("Data") = d.getVarDate();
ADORecordset("Img") = img;
ADORecordset("Mittente") = mittente;
ADORecordset("Destinatario") = destinatario;
ADORecordset("Oggetto") = oggetto;
ADORecordset("Messaggio") = messaggio;
ADORecordset("Sfondo") = sfondo;
ADORecordset("Testo") = testo;
ADORecordset("Audio") = audio;
ADORecordset.Update();

var id = parseInt(ADORecordset("ID"));

ADORecordset.Close();
ADOConnection.Close();

var path = new String(Request.ServerVariables("SCRIPT_NAME"));
path = path.substring(0,path.lastIndexOf("/"));

var link = "http://" + Request.ServerVariables("SERVER_NAME") + path + "/cartolina.asp?id=" + id + "&password=" + randPass;

var corpo = "";
corpo += "<html>\n";
corpo += "<head>\n";
corpo += "  <title> C'è un cartolina per te! </title>\n";
corpo += "</head>\n";
corpo += "<body>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\" color=\"#0000CC\">" + mittente + " ti ha inviato una cartolina.</font></div>\n";
corpo += "  <div></div>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\">[<a href=\"" + link + "\" target=\"_blank\">CLICCA QUI PER VISUALIZZARLA ORA</a>]</font></div>\n";
corpo += "  <div></div>\n";
corpo += "</body>\n";
corpo += "</html>\n";

var inError = false;

try {
  var mail = new ActiveXObject("CDOSYS.NewMail");
  mail.MailFormat = 0;
  mail.BodyFormat = 0;
  mail.To = destinatario;
  mail.From = mittente;
  mail.Subject = " C'è una cartolina per te! ";
  mail.Body = corpo;
  mail.Send();
} catch (e1) {
  try {
    var mail = new ActiveXObject("Persits.MailSender");
    mail.isHTML = true;
    mail.From = mittente;
    mail.AddAddress(destinatario);
    mail.Subject = " C'è una cartolina per te! ";
    mail.Body = corpo;
    mail.Send();
  } catch (e2) {
    inError = true;
  }
}
%>

**giangarotto** · 03-12-2004, 17:18

Ho inserito il cosice di weppos ma mi rimanda questo errore

Microsoft JScript compilation error '800a03ec'

Expected ';'

/Cartoline/invia.asp, line 87

Dim objMail, objConfig
----^

Ecco come ho modificato:

codice:

<%@ LANGUAGE = JScript %>

<%
var fso = new ActiveXObject("Scripting.FileSystemObject");

function getForm(key,min,max) {
  var aux = new String(Request.Form(key));
  var inErr = false;
  if (aux=="" || aux=="undefined") inErr = true;
  if (min!=-1 && aux.length<min) inErr = true;
  if (max!=-1 && aux.length>max) inErr = true;
  if (inErr) {
    Response.Write("Campo " + key + " non valido. Torna indietro e correggi.");
    Response.End();
  }
  return Server.HTMLEncode(aux);
}

function randomPass(l) {
  var ammesse = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  var retValue = "";
  for (i = 0; i < l; i++)
    retValue += ammesse.charAt(Math.floor(Math.random() * ammesse.length));
  return retValue;
}

var img = getForm("img",1,50);
var destinatario = getForm("destinatario",9,50);
var mittente = getForm("mittente",9,50);
var oggetto =  getForm("oggetto",1,50);
var messaggio = getForm("messaggio",1,-1);
var sfondo = getForm("sfondo",7,7);
var testo = getForm("testo",7,7);
var audio = getForm("audio",1,50);

if (!fso.FileExists(Server.MapPath("miniature/" + img)) || !fso.FileExists(Server.MapPath("immagini/" + img))) Response.Redirect("default.asp");

if (audio!="#" && !fso.FileExists(Server.MapPath("audio/" + audio))) Response.Redirect("default.asp");

var ADOConnection = new ActiveXObject("ADODB.Connection");
var ADORecordset = new ActiveXObject("ADODB.Recordset");

var randPass = randomPass(15);
var d = new Date();

ADOConnection.Open(sdc);
ADORecordset.Open("Cartoline",ADOConnection,1,3);
ADORecordset.AddNew();
ADORecordset("Password") = randPass;
ADORecordset("Data") = d.getVarDate();
ADORecordset("Img") = img;
ADORecordset("Mittente") = mittente;
ADORecordset("Destinatario") = destinatario;
ADORecordset("Oggetto") = oggetto;
ADORecordset("Messaggio") = messaggio;
ADORecordset("Sfondo") = sfondo;
ADORecordset("Testo") = testo;
ADORecordset("Audio") = audio;
ADORecordset.Update();

var id = parseInt(ADORecordset("ID"));

ADORecordset.Close();
ADOConnection.Close();

var path = new String(Request.ServerVariables("SCRIPT_NAME"));
path = path.substring(0,path.lastIndexOf("/"));

var link = "http://" + Request.ServerVariables("SERVER_NAME") + path + "/cartolina.asp?id=" + id + "&password=" + randPass;

var corpo = "";
corpo += "<html>\n";
corpo += "<head>\n";
corpo += "  <title> C'è un cartolina per te! </title>\n";
corpo += "</head>\n";
corpo += "<body>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\" color=\"#0000CC\">" + mittente + " ti ha inviato una cartolina.</font></div>\n";
corpo += "  <div></div>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\">[<a href=\"" + link + "\" target=\"_blank\">CLICCA QUI PER VISUALIZZARLA ORA</a>]</font></div>\n";
corpo += "  <div></div>\n";
corpo += "</body>\n";
corpo += "</html>\n";

var inError = false;

try {
Dim objMail, objConfig  ;
Set objMail = CreateObject("CDO.Message") 

Set objConfig = Server.CreateObject ("CDO.Configuration") 

 
With objConfig 
      
'Server SMTP di uscita 
'Esempio mail.dominio.it 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "smtp.aruba.it" 

'Porta SMTP 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25 

'Porta CDO 
   .Fields("http://schemas.microsoft.com/cdo/configuration/send using") = 2 

'Timeout 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60 

'ATTENZIONE: a causa delle impostazioni 
'di formattazione i campi risultano spezzati dopo al 
valore smtp. Ricordarsi di rimuovere gli spazi visibili! 
      
.Fields.Update 
End With 

'Assegna le configurazioni 
Set objMail.Configuration = objConfig 

==================================== 


'Assegna all'oggetto le proprietà necessarie 

'Mittente dell'email (indirizzo) 
objMail.From = "mittente@dominio.xx" 

'Destinatario dell'email (indirizzo) 
objMail.To = "destinatario@dominio.xx" 

'Cc e Bcc (opzionale) 
objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx" 
objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx" 

'Oggetto dell'email 
objMail.Subject = "Oggetto della mail" 

'Valore di priorità 
objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
objMail.Fields.Update() 

'Allegare un file 
objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zi p") 

'Corpo del messaggio 
objMail.TextBody = "Testo della mail" 'Formato Testo 
objMail.HTMLBody = "Testo della mail" 'Formato HTML 

'Invia l'email 
objMail.Send() 

'Distruggi l'oggetto 
Set objMail = Nothing 
} catch (e1) {
  try {
    var mail = new ActiveXObject("Persits.MailSender");
    mail.isHTML = true;
    mail.From = mittente;
    mail.AddAddress(destinatario);
    mail.Subject = " C'è una cartolina per te! ";
    mail.Body = corpo;
    mail.Send();
  } catch (e2) {
    inError = true;
  }
}
%>

**giangarotto** · 03-12-2004, 22:14

Nessuno mi sa aiutare ....

**giangarotto** · 09-12-2004, 23:27

Qualcun mi sa dare una mano!!!!!

**Roby_72** · 10-12-2004, 01:24

Non puoi prendere il codice di weppos e copiarlo brutalmente!
Quello è in VbScript mentre la tua pagina è in JScript!!

In ogni caso, nella tua pagina hai messo questo:

codice:

var mail = new ActiveXObject("CDOSYS.NewMail");

che comunque è sbagliato, visto che mi sembra un mix tra CDONTS e CDOSYS.
Tu quale componente vuoi/puoi usare per inviare le email? Dipende dal server in cui sei...

Roby

**giangarotto** · 10-12-2004, 09:52

Grazie Roby della risposta...
... dovrei usare il cdosys

**Roby_72** · 10-12-2004, 10:17

Ok, allora prima di inserire lo script di weppos trasformalo in js.

Roby

**giangarotto** · 10-12-2004, 10:33

non ho mai usato il vbscript

dovrei fare così?

codice:

<%@ Language=VBScript%>

<%
var fso = new ActiveXObject("Scripting.FileSystemObject");

function getForm(key,min,max) {
  var aux = new String(Request.Form(key));
  var inErr = false;
  if (aux=="" || aux=="undefined") inErr = true;
  if (min!=-1 && aux.length<min) inErr = true;
  if (max!=-1 && aux.length>max) inErr = true;
  if (inErr) {
    Response.Write("Campo " + key + " non valido. Torna indietro e correggi.");
    Response.End();
  }
  return Server.HTMLEncode(aux);
}

function randomPass(l) {
  var ammesse = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  var retValue = "";
  for (i = 0; i < l; i++)
    retValue += ammesse.charAt(Math.floor(Math.random() * ammesse.length));
  return retValue;
}

var img = getForm("img",1,50);
var destinatario = getForm("destinatario",9,50);
var mittente = getForm("mittente",9,50);
var oggetto =  getForm("oggetto",1,50);
var messaggio = getForm("messaggio",1,-1);
var sfondo = getForm("sfondo",7,7);
var testo = getForm("testo",7,7);
var audio = getForm("audio",1,50);

if (!fso.FileExists(Server.MapPath("miniature/" + img)) || !fso.FileExists(Server.MapPath("immagini/" + img))) Response.Redirect("default.asp");

if (audio!="#" && !fso.FileExists(Server.MapPath("audio/" + audio))) Response.Redirect("default.asp");

var ADOConnection = new ActiveXObject("ADODB.Connection");
var ADORecordset = new ActiveXObject("ADODB.Recordset");

var randPass = randomPass(15);
var d = new Date();

ADOConnection.Open(sdc);
ADORecordset.Open("Cartoline",ADOConnection,1,3);
ADORecordset.AddNew();
ADORecordset("Password") = randPass;
ADORecordset("Data") = d.getVarDate();
ADORecordset("Img") = img;
ADORecordset("Mittente") = mittente;
ADORecordset("Destinatario") = destinatario;
ADORecordset("Oggetto") = oggetto;
ADORecordset("Messaggio") = messaggio;
ADORecordset("Sfondo") = sfondo;
ADORecordset("Testo") = testo;
ADORecordset("Audio") = audio;
ADORecordset.Update();

var id = parseInt(ADORecordset("ID"));

ADORecordset.Close();
ADOConnection.Close();

var path = new String(Request.ServerVariables("SCRIPT_NAME"));
path = path.substring(0,path.lastIndexOf("/"));

var link = "http://" + Request.ServerVariables("SERVER_NAME") + path + "/cartolina.asp?id=" + id + "&password=" + randPass;

var corpo = "";
corpo += "<html>\n";
corpo += "<head>\n";
corpo += "  <title> C'è un cartolina per te! </title>\n";
corpo += "</head>\n";
corpo += "<body>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\" color=\"#0000CC\">" + mittente + " ti ha inviato una cartolina.</font></div>\n";
corpo += "  <div></div>\n";
corpo += "  <div align=\"center\"><font face=\"Georgia, Arial, Helvetica, sans-serif\">[<a href=\"" + link + "\" target=\"_blank\">CLICCA QUI PER VISUALIZZARLA ORA</a>]</font></div>\n";
corpo += "  <div></div>\n";
corpo += "</body>\n";
corpo += "</html>\n";

var inError = false;

try {
  var mail = new ActiveXObject("CDONTS.NewMail");
  mail.MailFormat = 0;
  mail.BodyFormat = 0;
  mail.To = destinatario;
  mail.From = mittente;
  mail.Subject = " C'è una cartolina per te! ";
  mail.Body = corpo;
  mail.Send();
} catch (e1) {
  try {
    var mail = new ActiveXObject("Persits.MailSender");
    mail.isHTML = true;
    mail.From = mittente;
    mail.AddAddress(destinatario);
    mail.Subject = " C'è una cartolina per te! ";
    mail.Body = corpo;
    mail.Send();
  } catch (e2) {
    inError = true;
  }
}
%>

**giangarotto** · 10-12-2004, 21:48

Roby mi dici almeno da dove devo iniziare

**Roby_72** · 10-12-2004, 22:51

Questo pezzo qui

codice:

  var mail = new ActiveXObject("CDONTS.NewMail");
  mail.MailFormat = 0;
  mail.BodyFormat = 0;
  mail.To = destinatario;
  mail.From = mittente;
  mail.Subject = " C'è una cartolina per te! ";
  mail.Body = corpo;
  mail.Send();

è tutto sbagliato e:
1) devi metterlo per il CDOSYS (mentre quello è per CDONTS)
2) devi tradurlo in js

Roby

Discussione: cartoline virtuali non inviate

Strumenti discussione

Ricerca discussione

Visualizza

cartoline virtuali non inviate

Permessi di invio