problemi con database

**Luis_Cypher** · 16-09-2008, 12:51

buongiorno a tutti ho acquistato l'ennesimo spazio su aruba cambiado da nome sito.it in nome sito .com

ho caricato tutto contento la sezione news letter
et voila' i problemi arrivano sempre

se nel sito .it tutto filava liscio ...in questo .com
quando provo ad inviar ela mail a tuti gli uteti mi viene fuori

> Invia newsletter!

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

/script/newsletter/admin/Gestione_Newsletter.asp, line 55

ovviamente non gira ne su Ie ne su Firefox

qualcuno sa aiutarmi

i signori di aruba mi hanno lasciato a marcire

**yro** · 16-09-2008, 14:42

da win. server 2003 non esiste piu' CDONTS ma esiste CDOSYS.

**Luis_Cypher** · 16-09-2008, 15:06

grazie della notizia ma non e' cambiato nulla
continua a riproporre l'errore

--------------------

<%
' CONTROLLA SE SI E' IDENTIFICATI
IF session("amministratore")<>true then
Response.Redirect "index.asp"
End IF
%>
<html>

<head>
<title>GESTIONE NEWSLETTER</title>
</head>

<body>

<font size="4" face="Verdana">> Invia newsletter!</font></p>

<%
' LEGGE QUELLO CHE DEVE FARE
operazione = Request.QueryString("tipo")

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

' OPERAZIONE = INVIA IL MESSAGGIO DI NEWSLETTER
IF operazione = "invia" then

' VERIFICA CHE I CAMPI SIANO STATI COMPILATI
IF Request("oggetto") <> "" and Request("testo") <> "" then

' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

IF not RecSet.Eof then

' INDIRIZZO EMAIL NOSTRO
mittente = "info@atuosito.com"

Do until Recset.eof

' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")

' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")

' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")

' INVIA IL MESSAGGIO
Set email = CreateObject("CDOSYS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject = oggetto

' FORMATO EMAIL
email.BodyFormat = Request.Form("formato")
email.MailFormat = Request.Form("formato")

email.Body = testo

' INVIA L'EMAIL E..
email.Send

Set email = nothing

' PASSA AVANTI...
RecSet.Movenext
loop

End If

RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing

' VISUALIZZA UN MESSAGGIO DI CONFERMA:
%>
<hr>
<p align="center"><font face="Verdana" size="4">Messaggio inviati
correttamente!</font></p>
<hr>
<%
Else
%>
<hr>
<p align="center"><font face="Verdana" size="4">Compila tutti i campi!</font></p>
<hr>
<%
End IF
Else
%>
<form method="POST" action="Gestione_Newsletter.asp?tipo=invia">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="26%"><font face="Verdana" size="2">Oggetto messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><input type="text" name="oggetto" size="20"></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Testo messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><textarea rows="6" name="testo" cols="67"></textarea></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Formato e-mail:</font></td>
<td width="74%"><select size="1" name="formato">
<option selected value="1">Testo</option>
<option value="0">HTML</option>
</select></td>
</tr>

<tr>
<td width="26%"><font face="Verdana" size="2">Numero iscritti:</font></td>
<%
' CONTA GLI ISCRITTI ALLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Count(*) FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' CONTA GLI ISCRITTI

IF not RecSet.Eof then
Iscritti = RecSet(0)
Else
Iscritti = 0
End if
%>
<td width="74%"><font face="Verdana" size="2"><%=Iscritti%></font></td>
<%
RecSet.Close
%>
</tr>
<tr>
<td width="100%" colspan="2"><input type="submit" value="Invia Newsletter!" name="B1"><input type="reset" value="Reimposta" name="B2"></td>
</tr>
</table>
</form>

</p>
<%
End IF
Conn.Close
Set Conn = Nothing
Set RecSet = Nothing
%>
</body>

</html>

questo e' cio' che ho scritto nella gestione

pensi di potermi aiutare?

P.S.

adesso l'errore e':

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDOSYS.NewMail'

/newsletter/admin/Gestione_Newsletter.asp, line 55

**yro** · 16-09-2008, 15:44

ma ti sei andato a leggere come si costruisce l'oggetto cdosys? non casta cambiare il nome.

**Luis_Cypher** · 16-09-2008, 15:46

azz ...no.... non riesci ad apportare tu la modifica?

**yro** · 16-09-2008, 15:48

Originariamente inviato da Luis_Cypher
azz ...no.... non riesci ad apportare tu la modifica?

studiare un po no ahn?

cmq ti posto un esempio... adattalo alle tue esigenze.

codice:

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = strEmaila
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = (strTitolo)
MiaMail.HTMLBody = strBody
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

**Luis_Cypher** · 16-09-2008, 16:00

grazie vedro di farcela :-)

come hai capito in asp non sono molto ferrato :-)

**yro** · 16-09-2008, 16:23

non è difficile, devi sostituire il tuo.
---------------------------------------------
' INVIA IL MESSAGGIO
Set email = CreateObject("CDOSYS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject = oggetto

' FORMATO EMAIL
email.BodyFormat = Request.Form("formato")
email.MailFormat = Request.Form("formato")

email.Body = testo

' INVIA L'EMAIL E..
email.Send

Set email = nothing
--------------------------------------------
con il codice che ti ho postato cambiando le variabili adeguate!

**Luis_Cypher** · 16-09-2008, 17:00

continua a non funzionare...cavolo

<%
' CONTROLLA SE SI E' IDENTIFICATI
IF session("amministratore")<>true then
Response.Redirect "index.asp"
End IF
%>
<html>

<head>
<title>GESTIONE NEWSLETTER</title>
</head>

<body>

<font size="4" face="Verdana">> Invia newsletter!</font></p>

<%
' LEGGE QUELLO CHE DEVE FARE
operazione = Request.QueryString("tipo")

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

' OPERAZIONE = INVIA IL MESSAGGIO DI NEWSLETTER
IF operazione = "invia" then

' VERIFICA CHE I CAMPI SIANO STATI COMPILATI
IF Request("oggetto") <> "" and Request("testo") <> "" then

' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

IF not RecSet.Eof then

' INDIRIZZO EMAIL NOSTRO
mittente = "info@acsgoldenteam.com"

Do until Recset.eof

' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")

' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")

' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = strEmaila
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = (strTitolo)
MiaMail.HTMLBody = strBody
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

' PASSA AVANTI...
RecSet.Movenext
loop

End If

RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing

' VISUALIZZA UN MESSAGGIO DI CONFERMA:
%>
<hr>
<p align="center"><font face="Verdana" size="4">Messaggio inviati
correttamente!</font></p>
<hr>
<%
Else
%>
<hr>
<p align="center"><font face="Verdana" size="4">Compila tutti i campi!</font></p>
<hr>
<%
End IF
Else
%>
<form method="POST" action="Gestione_Newsletter.asp?tipo=invia">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="26%"><font face="Verdana" size="2">Oggetto messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><input type="text" name="oggetto" size="20"></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Testo messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><textarea rows="6" name="testo" cols="67"></textarea></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Formato e-mail:</font></td>
<td width="74%"><select size="1" name="formato">
<option selected value="1">Testo</option>
<option value="0">HTML</option>
</select></td>
</tr>

<tr>
<td width="26%"><font face="Verdana" size="2">Numero iscritti:</font></td>
<%
' CONTA GLI ISCRITTI ALLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Count(*) FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' CONTA GLI ISCRITTI

IF not RecSet.Eof then
Iscritti = RecSet(0)
Else
Iscritti = 0
End if
%>
<td width="74%"><font face="Verdana" size="2"><%=Iscritti%></font></td>
<%
RecSet.Close
%>
</tr>
<tr>
<td width="100%" colspan="2"><input type="submit" value="Invia Newsletter!" name="B1"><input type="reset" value="Reimposta" name="B2"></td>
</tr>
</table>
</form>

</p>
<%
End IF
Conn.Close
Set Conn = Nothing
Set RecSet = Nothing
%>
</body>

</html>
ma la cosa che piu' mi fa incavolare che scritot in maniera vecchia sul dominio .it funziona

**yro** · 16-09-2008, 17:07

da sempre lo stesso errore?

Discussione: problemi con database

Strumenti discussione

Ricerca discussione

Visualizza

problemi con database

Permessi di invio