errore server

**adrianico** · 22-08-2008, 11:05

Ciao a tutti premetto che di programmazione non ne capisco una mazza, quindi se dirò qualche baggianata.... chiedo scusa già da ora....
sto cercando di implementare una mailinglist e realtiva newsletter ho cercato degli script e quello che mi sembrava più friendly funziona solo per in parte nel senso che alcune pagine restituiscono errori di questo tipo

Nominativo inserito

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/mailing.asp, line 32

800401f3

qualcuno saprebbe aiutarmi grazie.

a il sito e hostato su server windows di aruba.....

**optime** · 22-08-2008, 11:09

nico, sarebbe oltremodo d'aiuto conoscere il contenuto della riga 32... la sfera di cristallo è in ferie...

**adrianico** · 22-08-2008, 11:20

<% response.buffer=true %>
<html>
<head>
<title>sunrise restaurant&cocktails gallipoli mailing list</title>
<style type="text/css">

</style>
</head>
<body bgcolor="green" link="#990000" vlink="#990000" alink="#ffcc00">
<%
email=request("emailaddress")
action=request("action")
if action="join" then
'response.write("JOIN")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing WHERE Email='" & email & "'"
rs.Open strSQL,cn
if rs.eof then
'response.write("trovato")
strSQL = "INSERT INTO Mailing (Email) VALUES ('" & Email & "')"
cn.Execute(strSQL)
set rs = nothing
set cn = nothing
response.write("Nominativo inserito")
Set objMail = Server.CreateObject("CDONTS.NewMail")
riga32 objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From="stuffsunrise@sunriserestaurantcockta ils.it"
objMail.To=email
objMail.Subject="Iscrizione mailinglist"
objMail.Body="<html><body bgcolor=black><font face=Arial size=4 color=#ffffff><center><a href=http://www.sunriserestaurantcocktails.it>
Grazie per esserti iscritto alla mailinglist diSUNRISE RESTAURANT&COCKTAILS!</font></body></html>"
objMail.Send
Set objMail = nothing
response.redirect("http://www.sunriserestaurantcocktails.it/home.html")
else
%>
<center><h3>L'email inserita esiste già!</h3>
Torna alla home</center>
<%
set rs = nothing
set cn = nothing
end if
else
'response.write("Leave")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing WHERE Email='" & email & "'"
rs.Open strSQL,cn
if rs.eof then
%>
<center><h3>L'email non è stata trovata!</h3>
Torna alla home</center>
<%
set rs = nothing
set cn = nothing
else
strSQL="DELETE FROM Mailing WHERE Email='" & Email & "'"
%>
<center><h3 class="Stile1">L'email è stata cancellata dalla mailinglist!</h3>

Torna alla home</center>
<%
cn.Execute(strSQL)
set rs = nothing
set cn = nothing
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From="rto@rto.it"
objMail.To=email
objMail.Subject="Iscrizione mailinglist"
objMail.Body="<html><body bgcolor=black><font face=Arial size=4 color=#990000><center>
La tua email è stata rimossa dalla mailinglist di SUNRISE RESTAURANT&COCKTAILS.IT</font></body></html>"
objMail.Send
Set objMail = nothing
end if
end if
%>
</body>
</html>

**optime** · 22-08-2008, 11:28

debbo contarmi io le righe?

evidenzia la 32, dai

**adrianico** · 22-08-2008, 11:34

<% response.buffer=true %>
<html>
<head>
<title>sunrise restaurant&cocktails gallipoli mailing list</title>
<style type="text/css">

</style>
</head>
<body bgcolor="green" link="#990000" vlink="#990000" alink="#ffcc00">
<%
email=request("emailaddress")
action=request("action")
if action="join" then
'response.write("JOIN")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing WHERE Email='" & email & "'"
rs.Open strSQL,cn
if rs.eof then
'response.write("trovato")
strSQL = "INSERT INTO Mailing (Email) VALUES ('" & Email & "')"
cn.Execute(strSQL)
set rs = nothing
set cn = nothing
response.write("Nominativo inserito")
Set objMail = Server.CreateObject("CDONTS.NewMail")

RIGA 32>> objMail.BodyFormat = 0

objMail.MailFormat = 0
objMail.From="stuffsunrise@sunriserestaurantcockta ils.it"
objMail.To=email
objMail.Subject="Iscrizione mailinglist"
objMail.Body="<html><body bgcolor=black><font face=Arial size=4 color=#ffffff><center><a href=http://www.sunriserestaurantcocktails.it>
Grazie per esserti iscritto alla mailinglist diSUNRISE RESTAURANT&COCKTAILS!</font></body></html>"
objMail.Send
Set objMail = nothing
response.redirect("http://www.sunriserestaurantcocktails.it/home.html")
else
%>
<center><h3>L'email inserita esiste già!</h3>
Torna alla home</center>
<%
set rs = nothing
set cn = nothing
end if
else
'response.write("Leave")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing WHERE Email='" & email & "'"
rs.Open strSQL,cn
if rs.eof then
%>
<center><h3>L'email non è stata trovata!</h3>
Torna alla home</center>
<%
set rs = nothing
set cn = nothing
else
strSQL="DELETE FROM Mailing WHERE Email='" & Email & "'"
%>
<center><h3 class="Stile1">L'email è stata cancellata dalla mailinglist!</h3>

Torna alla home</center>
<%
cn.Execute(strSQL)
set rs = nothing
set cn = nothing
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From="rto@rto.it"
objMail.To=email
objMail.Subject="Iscrizione mailinglist"
objMail.Body="<html><body bgcolor=black><font face=Arial size=4 color=#990000><center>
La tua email è stata rimossa dalla mailinglist di SUNRISE RESTAURANT&COCKTAILS.IT</font></body></html>"
objMail.Send
Set objMail = nothing
end if
end if
%>
</body>
</html>orange [B][I]

**optime** · 22-08-2008, 11:36

maro', la 32 sarà questa

Set objMail = Server.CreateObject("CDONTS.NewMail")

visto che ti dice che NON può creare l'oggetto.

va' nella guida di aruba, e controlla quale oggetto mettono a disposizione per le mail. ci sono sicuramente anche degli esempi.

**adrianico** · 22-08-2008, 11:37

GRAZIE TI FARO' SAPERE.....

**adrianico** · 22-08-2008, 11:43

ARUBA DA UN PRIMO SGURDO DICE CHE USA

Cdosys, formMail

QUINDI DOVREI SOSTITUIRE L'OBJECT DELLA LINEA 32 CON QUESTO?

**optime** · 22-08-2008, 11:45

non URLARE! togli il caps-lock!

usa CDOSYS

**adrianico** · 22-08-2008, 12:27

scusa se insisto non vorrei approfittare della tua disponibilità....

non urlare a cosa?

ho provato a sostituire l'object della linea 32

in questi modi:

CDOSYS
Cdosys
CDO ( come da esempio aruba)
cdosys
ma il risultato non cambia, stesso errore.

Discussione: errore server

Strumenti discussione

Ricerca discussione

Visualizza

errore server

ti mando il listato scusami....

ci provo ho messo gli spazi l'ditor non mi aiuta in questo senso....

prova fallita

Permessi di invio