Convertire CDONTS in CDOSYS

imaui

Nuovo Utente
21 Feb 2008
12
0
0
Salve a tutti,ho un piccolo problema nella conversione da CDONTS in CDOSYS di questo file visto che sul server 2003 in componente CDONTS nn esiste piu...vi posto il codice..

<%

function SendMail(sTo, sFrom, sPriority, sSubject, sBody, bHTML){
cdoLow = 0;
cdoNormal = 1;
cdoHigh = 2;
CdoBodyFormatText = 1;
CdoMailFormatText = 1;

var oMailMessage = new ActiveXObject("aspmail.NewMail");
oMailMessage.To = sTo;
oMailMessage.Value("Reply-To") = sFrom;
oMailMessage.From = sFrom;
oMailMessage.Subject= sSubject;


if (sPriority == "LOW"){
oMailMessage.importance = cdoLow;
} else if(sPriority == "HIGH") {
oMailMessage.importance = cdoHigh;
} else {
oMailMessage.importance = cdoNormal;
}

if (bHTML==1) {
oMailMessage.BodyFormat = CdoBodyFormatText;
oMailMessage.MailFormat = CdoMailFormatText;
} else {
oMailMessage.BodyFormat = 0;
oMailMessage.MailFormat = 0;
}

oMailMessage.Body = sBody;
oMailMessage.Send();
return 1;
}



if (Request("conferma")=="OK") {
curDir = Server.MapPath("gest.mdb");
connNews = Server.CreateObject("ADODB.Connection");
connNews.Open("DBQ=" + curDir + ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;");

re = new RegExp("'", "g");

cUserName = new String( Request("Username") );
cUserName = cUserName.substr(0,28);
cUserName = cUserName.replace( re, "-");

cPassword = new String( Request("Password") );
cPassword = cPassword.substr(0,28);
cPassword = cPassword.replace( re, "-");

cEmail = Request(String("email"));

cview_dati = Request(String("view_dati"));

cview_profilo = Request(String("view_profilo"));

cmessaggi_check = Request(String("messaggi_check"));

cStatus = Request("Status");

today=new Date();
// cData = today.getDate()+"/"+(today.getMonth()+1)+"/"+today.getYear();
cData = today.getDate()+"/"+(today.getMonth()+1)+"/"+today.getYear()+" "+today.getHours()+"."+today.getMinutes()+"."+today.getSeconds();

rsDBASE = Server.CreateObject("ADODB.Recordset");
rsDBASE.ActiveConnection = connNews;
rsDBASE.Source = "SELECT * FROM Utenti WHERE (Username = '" + cUserName + "') or (email='" +cEmail+ "')";
rsDBASE.LockType = 2;
rsDBASE.Open();
cRandom=Math.ceil( Math.random()*32323212 );
if (rsDBASE.EOF)
{
rsDBASE.AddNew();
rsDBASE("Username")=cUserName;
rsDBASE("Password")=cPassword;
rsDBASE("Email")=cEmail;
rsDBASE("view_dati")=cview_dati;
rsDBASE("view_profilo")=cview_profilo;
rsDBASE("messaggi_check")=cmessaggi_check;
rsDBASE("Status")=cStatus;
rsDBASE("Data")=cData;
rsDBASE("Attivazione")= cRandom;
rsDBASE.Update();
cMessaggio = "Per attivare il tuo account sul sito clicca questo link: http://www.ciccio.it/account.asp?id="+cRandom+"";

SendMail( cEmail,"[email protected]","HIGH","Attivazione",cMessaggio, 0 );
%>
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
Ciao!

Vedo che crei questo oggetto:

var oMailMessage = new ActiveXObject("aspmail.NewMail");

Non è mica CDONTS!

Su che server sei?

Prova a chiedere loro che oggetto stai usando con questo script: la classe aspmail.NewMail non mi dice nulla... non è nemmeno la classe per usare ASPEmail...

Lo script (temo) va proprio ristrutturato da zero.

Fammi sapere
 

imaui

Nuovo Utente
21 Feb 2008
12
0
0
Si avevo fatto un po di confusione io comunque...
ho chiesto a loro e sono su un server win 2003 ..mi hanno dato questo script che ho provato in una pagina a se e funziona ma nn so inglobarlo all'interno della pagina di prima in sostituzione del cdonts


<%
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverPort") = 8025

Fields.Update


Set myMail=CreateObject("CDO.Message")
Set myMail.Configuration = Config

myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.Send
Set myMail = nothing
Set Fields = Nothing
Set Config = Nothing
%>
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
Tieni presente che lo script che hai appena postato è scritto in VBScript mentre la tua pagina è in JScript.

Mi sa che c'è un po troppa confusione...

Ti consiglio di studiare un po di ASP :)
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
E' una prova, vedi se va:

<%

function SendMail(sTo, sFrom, sPriority, sSubject, sBody, bHTML){
cdoLow = 0;
cdoNormal = 1;
cdoHigh = 2;
CdoBodyFormatText = 1;
CdoMailFormatText = 1;

var Config = Server.CreateObject("CDO.Configuration");
var Fields = Config.Fields;
Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2;
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost";
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverPort") = 8025;
Fields.Update;

var oMailMessage = Server.CreateObject("CDO.Message");
oMailMessage.Configuration = Config;
oMailMessage.To = sTo;
oMailMessage.Value("Reply-To") = sFrom;
oMailMessage.From = sFrom;
oMailMessage.Subject = sSubject;

if (sPriority == "LOW"){
oMailMessage.importance = cdoLow;
} else if(sPriority == "HIGH") {
oMailMessage.importance = cdoHigh;
} else {
oMailMessage.importance = cdoNormal;
}

if (bHTML==1) {
oMailMessage.BodyFormat = CdoBodyFormatText;
oMailMessage.MailFormat = CdoMailFormatText;
} else {
oMailMessage.BodyFormat = 0;
oMailMessage.MailFormat = 0;
}

oMailMessage.HTMLBody = sBody;
oMailMessage.Send();
return 1;
}



if (Request("conferma")=="OK") {
curDir = Server.MapPath("gest.mdb");
connNews = Server.CreateObject("ADODB.Connection");
connNews.Open("DBQ=" + curDir + ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;");

re = new RegExp("'", "g");

cUserName = new String( Request("Username") );
cUserName = cUserName.substr(0,28);
cUserName = cUserName.replace( re, "-");

cPassword = new String( Request("Password") );
cPassword = cPassword.substr(0,28);
cPassword = cPassword.replace( re, "-");

cEmail = Request(String("email"));

cview_dati = Request(String("view_dati"));

cview_profilo = Request(String("view_profilo"));

cmessaggi_check = Request(String("messaggi_check"));

cStatus = Request("Status");

today=new Date();
// cData = today.getDate()+"/"+(today.getMonth()+1)+"/"+today.getYear();
cData = today.getDate()+"/"+(today.getMonth()+1)+"/"+today.getYear()+" "+today.getHours()+"."+today.getMinutes()+"."+toda y.getSeconds();

rsDBASE = Server.CreateObject("ADODB.Recordset");
rsDBASE.ActiveConnection = connNews;
rsDBASE.Source = "SELECT * FROM Utenti WHERE (Username = '" + cUserName + "') or (email='" +cEmail+ "')";
rsDBASE.LockType = 2;
rsDBASE.Open();
cRandom=Math.ceil( Math.random()*32323212 );
if (rsDBASE.EOF)
{
rsDBASE.AddNew();
rsDBASE("Username")=cUserName;
rsDBASE("Password")=cPassword;
rsDBASE("Email")=cEmail;
rsDBASE("view_dati")=cview_dati;
rsDBASE("view_profilo")=cview_profilo;
rsDBASE("messaggi_check")=cmessaggi_check;
rsDBASE("Status")=cStatus;
rsDBASE("Data")=cData;
rsDBASE("Attivazione")= cRandom;
rsDBASE.Update();
cMessaggio = "Per attivare il tuo account sul sito clicca questo link: http://www.ciccio.it/account.asp?id="+cRandom+"";

SendMail( cEmail,"[email protected]","HIGH","Attivazione",cMessaggi o, 0 );
%>

Fammi sapere!
 

imaui

Nuovo Utente
21 Feb 2008
12
0
0
Ciao Luka

Ciao Luca,ho provato con questo codice ma nn va e nn mi dice nemmeno qual'è la riga errata...forse eliminando il discorso della priorità dell'email..grazie per il tuo aiuto e appena avro un secondo studierò l'asp :)))
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
Si, esatto, prova ad eliminare tutte le voci inerenti alla priorità ed atre caratteristiche non indispensabili per l'email.

Ricorda anche di eliminare le voci dai parametri all'atto della creazione della funzione.

Ad esempio:

function SendMail(sTo, sFrom, sPriority, sSubject, sBody, bHTML)

Se non ti interessa la priorità eliminala:

function SendMail(sTo, sFrom, sSubject, sBody, bHTML)

ed eliminala dal codice che la valorizza all'interno di questa funzione.
 

imaui

Nuovo Utente
21 Feb 2008
12
0
0
...

Ho provato anche cosi ma nn va...mi arrendo..grazie Luca per la tua collaborazione...buon lavoro!!!
 
Discussioni simili
Autore Titolo Forum Risposte Data
T [A pagamento] convertire database Offerte e Richieste di Lavoro e/o Collaborazione 5
MarcoGrazia Convertire una data da un formato all'altro Snippet PHP 0
R Convertire slides Powerpoint in Pagine Web HTML e CSS 7
F Convertire JavaScript per la compatibilità nei browser obsoleti Javascript 0
P Convertire Excel in PHP PHP 1
Shyson [PHP] Convertire lunghezza di focale PHP 13
S [PHP] Convertire un orario in un numero decimale PHP 2
L [PHP] convertire gli url ad forma semplice PHP 3
G [PHP] Oracle, convertire una query multiline in Json PHP 3
L [PHP] Drupal convertire sito dinamico. Content Management System (CMS) 1
fida convertire i video in mp3 Discussioni Varie 2
G [PHP] convertire data in formato italiano dopo query PHP 6
M [PHP] Convertire date da americana a italiana direttamente nel db PHP 6
jonnino2004 sito spa da convertire in app Sviluppo app per Android 1
L [PHP] Convertire web codeigniter in App PHP 0
C Convertire sito web in app Android o per Windows Sviluppo app per Android 0
ivarello C# Convertire i numeri in note Programmazione 1
D [Javascript] Convertire ed adattare una data Javascript 1
B preventivo per convertire variabili js Offerte e Richieste di Lavoro e/o Collaborazione 1
alexbrasile PHP convertire la funzione fsockopen in curl PHP 0
T [PHP] Convertire Codice JAVA a PHP PHP 3
M [PHP] Come convertire data in formato testo PHP 4
felino [MySQL][phpMyAdmin] Convertire colonna da VARCHAR a DATE MySQL 3
M Script per convertire video youtube in mp3 PHP 1
M Mostrare il contenuto del database e convertire la data da timestamp PHP 2
M Convertire piccolo codice da lato server a client Javascript 1
Lui199909 Convertire numero decimale in binario PHP 11
il_bauscia Convertire router wireless in access point Reti LAN e Wireless 1
S convertire html5/jquery app in apk per android jQuery 0
A convertire php in apk Smartphone e tablet 0
J Convertire sito Desktop in versione Mobile HTML e CSS 0
Marcolotto Convertire PDF in Word [Era: PDF2Word] Discussioni Varie 1
D Convertire una stringa html in php PHP 5
C Convertire una data PHP 1
U php-mysql script per convertire valori $_POST PHP 2
M Convertire DB Access in MySQL MySQL 2
M Convertire data da formato italiano a timestamp PHP 2
Web Designer Come convertire pixel in cm con px2in converter Windows e Software 0
novello88 Da MKV ad AVI [Era: convertire file Matroska] Windows e Software 0
V Convertire video youtube in mp3 YouTube 2
O Convertire sito php procedural in php object oriented PHP 4
M Convertire il proprio sito personale in wordpress WordPress 4
A Convertire pagina php in .doc PHP 6
voldemort Convertire un file VOB in MOV Mac e Software 0
B Trasformare/convertire codice javascript in link URL Javascript 11
G Convertire le date in italiano mysql PHP 5
G Convertire KML in XML XML 2
Nyl Convertire sito passando a Drupal Content Management System (CMS) 3
K [J2ME] "convertire" file .txt in array o simili Java 1
A Esiste un metodo per convertire HLTM in XML? XML 1

Discussioni simili