21 messaggi dal 15 febbraio 2006
Ciao ragazzi,
sono una new entry.
Ho bisogno di aiuto per sistemare il mio sito.
Cercherò di spiegarmi il meglio possibile.
Il server è quello di aruba. Ho pubblicato un e.commerce, funziona tutto. Però usa CDDONS che so non è supportato sui nuovi server di aruba (sui vecchi si). COn cosa posso sostituirlo? Come devo fare?

Ecco il codice dell'intera pagina che dà errore 500:


<%
response.Expires = 0
spedizione = Request("invio")
spesa = Request ("spesa")
pagamento = Request.Cookies ("store")("store")


' Add new address & payment info
updateUser

' Begin A Transaction
Con.BeginTrans

sqlString = "INSERT INTO ordini (" &_
"IDordine," &_
"Codprodotto, " &_
"ord_quantita, " &_
"taglia, " &_
"colorescelto, " &_
"utente, " &_
"trasporto, " &_
"data, " &_
"ordine_stato" &_
") SELECT " &_
"IDcarrello," &_
"Codprodotto, " &_
"quantita, " &_
"taglia, " &_
"color, " &_
"IDutente, " &_
"spedizione," &_
"NOW(), " &_
"0 " &_
"FROM cart WHERE " &_
"IDutente =" & userID

Con.Execute sqlString

' Empty shopping cart
sqlString = "DELETE FROM cart " &_
"WHERE IDutente=" & userID

Con.Execute sqlString

' End the transaction
Con.CommitTrans
%>
<%

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../mdb-database/catalogo.mdb")
sql = "select * from user where user_id = " & userID &" "
set rs = Con.Execute( sql )

name = rs("name")
cognome = rs("cognome")
email= rs("email")
user = rs("user")
pwd = rs("password")
conferma
alert

sub conferma
Set objMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<link href=""http://www.sito.com/commercio/style.css"" rel=""stylesheet"" type=""text/css"">"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p>Egregio "& name &" "& cognome &"</p>"
HTML = HTML & "<p>La informiamo che l'ordine da lei effettuato al sito www.sito.com Le sarà inviato in breve tempo e al ricevimento della merce pagherà l'importo riportato di seguito:</p>"
HTML = HTML & "<table>"
HTML = HTML & "<td class=""testo10"" align=""right"" colSpan=""5"">Totale ordine:</td>"
HTML = HTML & "<td class=""testo10"" align=""right"">¤ " & FormatNumber(spesa,2) &" (IVA inclusa)</font><br></td>"
HTML = HTML & "</table><p></p>"
HTML = HTML & "Desideriamo infine farle presente che potrà visionare lo stato del suo ordine all'interno della sua pagina personale"
HTML = HTML & "<a href='http://www.sito.com/commercio/account.asp'>Cliccando qui</a>"
HTML = HTML & "Le ricordiamo infine i dati per accedere alla sua area riservata:<br>"
HTML = HTML & "username: <b> "& user &"</b><br>"
HTML = HTML & "password: <b> "& pwd &"</b>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

objMail.From = "sito.com <info@sito.com>"
objMail.To = email
objMail.Subject = "Conferma Ordine"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send
end sub

sub alert
Set objMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<link href=""http://www.sito.com/commercio/style.css"" rel=""stylesheet"" type=""text/css"">"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p>E' stato appena effettuato un nuovo acquisto nello store.</p>"
HTML = HTML & "<p>Provvedere all'evasione dell'ordine quanto prima.</p>"
HTML = HTML & "<p>L'acquirente ha selezionato la modalità "& pagamento &"</p>"
HTML = HTML & "<table>"
HTML = HTML & "<font class=""body10"">Link di accesso all'area amministrazione"
HTML = HTML & "<a href='www.sito.com/commercio/admin/'>Cliccando qui</a>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

objMail.From = "sito <info@sito.com>"
objMail.To = "sito <info@sito.com>"
objMail.Subject = "Nuovo ORDINE"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send
end sub

rs.Close
set rs = Nothing
Con.Close
set Con = Nothing
' Get Current Category
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"%>
<html>
<head>
<title>sito</title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>sito</title>
</head>

<body bgcolor="#FFFFFF" link="#170ECF" vlink="#170ECF" alink="#170ECF" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN=0 LEFTMARGIN=0>

<div align="left">

<table width=752 border=0 bgcolor="#ffffff"
cellspacing=0 cellpadding=0>
<tr>
<td class="testo11" height="14" width="551">
<b>
<table border="0" width="97%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="image/soprasu.gif"><img border="0" src="image/spazio.gif" width="380" height="74"><img border="0" src="image/ani.gif" width="42" height="55"></td>
</tr>
</table>
<%
'recupero l'url come sta nella barra degli indirizzi
navText = lcase(request.servervariables("URL"))

'gli tolgo il nome del sito http://nomesito.com/
navtext = replace(navtext,"http://" & request.servervariables("REMOTE_HOST") & "/", "")

'uso le barre per dividere il percorso e creare un array
navdirs = split(navtext,"/")
navpath = ""
'scorro l'array: navdirs(i) contiene il nome della cartella nel percorso
for i = 0 to ubound(navdirs)
navpath = navpath & navdirs(i) & "/"

' se navdirs(i) = "" significa che è la home
if navdirs(i) = "" then navdirs(i) = "home"


' l'ultimo blocco del percorso lo metto senza link
if ubound(navdirs) <> i then
response.write "<A HREF=" & navpath & ">" & navdirs(i) & "</A> &gt;&gt; "
else
response.write "<A HREF=" & navdirs(i) & ">" & navdirs(i) & "</A>"
end if
next
%>
</b>
</td>
<td align=right valign="bottom" class="testo11" height="14" width="197">
<p>
<b>
<a href="cart.asp" class="linktesto">Carrello</a>
|<a href="account.asp" class="linktesto"> Stato Ordini</a>
</b>
</p>
</td>
</tr>
<center>

<tr>
<td colspan=2 height="21" width="750">
<hr align="center" width="750" color="#e9e9e9">
</td>
</tr>
</table>


</center>
</div>


<div align="left">


<table width=750 border=0 bgcolor="#ffffff"
cellpadding=0 cellspacing=0 height="300">
<tr><td valign="top" height="177" width="210">

<table cellspacing=0 border=0 cellpadding="0">
<tr>
<td valign="bottom" bgcolor="#D5EAFF">
<img border="0" src="image/bot_cerca.gif"></td>
</tr>
<tr>
<td>
<table width="200" cellpadding=0 cellspacing=0 border=0>
<tr>
<td bgcolor="#D5EAFF" valign="middle">
<form method="post" action="search.asp">
<input name="searchfor" size="15" class="body">
<input type="submit" value="Search" class="bottone">
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
&nbsp;
</td>
</tr>
<tr>
<td valign="bottom">
</td>
</tr>
<tr>
<td bgcolor="#000000" bordercolor="#FF4040">
<table width="200" cellpadding=0 cellspacing=0
bgcolor="#D5EAFF" border=0 class="bodycat">
<tr>
<td>
<font color="#0000FF">
<font class="bodycat">
<!-- #INCLUDE FILE="categoria.asp" -->
</font>
&nbsp;</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
&nbsp;
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
<div align="center">
<table border="0" cellspacing="0" width="200" bgcolor="#D5EAFF" class="bodycat" cellpadding="0">
<tr>
<td><font color="#0000FF"><!-- #INCLUDE FILE="info.asp" -->&nbsp;</font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
&nbsp;
</td>
</tr>
</table>

</td><td valign="middle" height="177" width="536">
<p align="center"><font face="Tahoma" size="2">Gentile Cliente, Grazie per aver effettuato il suo ordine
!!!</font></p>

</td></tr>
</table>
</div>
<div align="left">
<table border=0 bgcolor="#ffffff"
cellpadding=0 cellspacing=0 width="750">
<tr>
<td valign="center" class="copy" align="center" >
<hr align="center" width="750" color="#e9e9e9">
</td></tr>
</table>
</div>
</body>
</html>


GRAZIEEEEEEEEEEEEEEEEEEEE

Nikoletta


Nikoletta
11.886 messaggi dal 09 febbraio 2002
Contributi
su Windows Server 2003 non esiste più l'oggetto CDONTS, devi usare CDOSYS. Ci sono diversi articoli qui su aspitalia che ne parlano.

http://www.aspitalia.com/script/539/InviareEmailFormatoHTMLCDO.aspx

in fondo all'articolo ci trovi altri due link per l'approfondimento.
ciao

Enjoy learning and just keep making
21 messaggi dal 15 febbraio 2006
Ciao,
intanto grazie!

Ho provato a correggere i codici ma ancora mi da errore 500.
Forse manca qualcosa...

Ecco il codice corretto da me:

<%
response.Expires = 0
spedizione = Request("invio")
spesa = Request ("spesa")
pagamento = Request.Cookies ("store")("store")


' Add new address & payment info
updateUser

' Begin A Transaction
Con.BeginTrans

sqlString = "INSERT INTO ordini (" &_
"IDordine," &_
"Codprodotto, " &_
"ord_quantita, " &_
"taglia, " &_
"colorescelto, " &_
"utente, " &_
"trasporto, " &_
"data, " &_
"ordine_stato" &_
") SELECT " &_
"IDcarrello," &_
"Codprodotto, " &_
"quantita, " &_
"taglia, " &_
"color, " &_
"IDutente, " &_
"spedizione," &_
"NOW(), " &_
"0 " &_
"FROM cart WHERE " &_
"IDutente =" & userID

Con.Execute sqlString

' Empty shopping cart
sqlString = "DELETE FROM cart " &_
"WHERE IDutente=" & userID

Con.Execute sqlString

' End the transaction
Con.CommitTrans
%>
<%

Set Con = Server.CreateObject("CDO.Message")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/catalogo.mdb")
sql = "select * from user where user_id = " & userID &" "
set rs = Con.Execute( sql )

name = rs("name")
cognome = rs("cognome")
email= rs("email")
user = rs("user")
pwd = rs("password")
conferma
alert

sub conferma
set CDOmail = CreateObject("CDO.Message")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<link href=""http://www.sito.it/commercio/style.css"" rel=""stylesheet"" type=""text/css"">"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p>Egregio "& name &" "& cognome &"</p>"
HTML = HTML & "<p>La informiamo che l'ordine da lei effettuato al sito www.sito.it Le sarà inviato in breve tempo e al ricevimento della merce pagherà l'importo riportato di seguito:</p>"
HTML = HTML & "<table>"
HTML = HTML & "<td class=""testo10"" align=""right"" colSpan=""5"">Totale ordine:</td>"
HTML = HTML & "<td class=""testo10"" align=""right"">¤ " & FormatNumber(spesa,2) &" (IVA inclusa)</font><br></td>"
HTML = HTML & "</table><p></p>"
HTML = HTML & "Desideriamo infine farle presente che potrà visionare lo stato del suo ordine all'interno della sua pagina personale"
HTML = HTML & "<a href='http://www.sito.it/commercio/account.asp'>Cliccando qui</a>"
HTML = HTML & "Le ricordiamo infine i dati per accedere alla sua area riservata:<br>"
HTML = HTML & "username: <b> "& user &"</b><br>"
HTML = HTML & "password: <b> "& pwd &"</b>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

CDOmail.From = "sito.it <info@sito.net>"
CDOmail.To = email
CDOmail.Subject = "Conferma Ordine"
CDOmail.BodyFormat = 0
CDOmail.MailFormat = 0
CDOmail.Body = HTML
CDOmail.Send
end sub

sub alert
set CDOmail = CreateObject("CDO.Message")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<link href=""http://www.sito.it/commercio/style.css"" rel=""stylesheet"" type=""text/css"">"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p>E' stato appena effettuato un nuovo acquisto nello store.</p>"
HTML = HTML & "<p>Provvedere all'evasione dell'ordine quanto prima.</p>"
HTML = HTML & "<p>L'acquirente ha selezionato la modalità "& pagamento &"</p>"
HTML = HTML & "<table>"
HTML = HTML & "<font class=""body10"">Link di accesso all'area amministrazione"
HTML = HTML & "<a href='www.sito.it/commercio/admin/'>Cliccando qui</a>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

CDOmail.From = "sito.it <info@sito.net>"
CDOmail.To = "sito.it <info@sito.net>"
CDOmail.Subject = "Nuovo ORDINE"
CDOmail.BodyFormat = 0
CDOmail.MailFormat = 0
CDOmail.Body = HTML
CDOmail.Send
end sub

rs.Close
set rs = Nothing
Con.Close
set Con = Nothing
' Get Current Category
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"%>
<html>
<head>
<title>sito.com</title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>sito.com</title>
</head>

<body bgcolor="#FFFFFF" link="#170ECF" vlink="#170ECF" alink="#170ECF" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN=0 LEFTMARGIN=0>

<div align="left">

<table width=752 border=0 bgcolor="#ffffff"
cellspacing=0 cellpadding=0>
<tr>
<td class="testo11" height="14" width="551">
<b>
<table border="0" width="97%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="image/soprasu.gif"><img border="0" src="image/spazio.gif" width="380" height="74"><img border="0" src="image/ani.gif" width="42" height="55"></td>
</tr>
</table>
<%
'recupero l'url come sta nella barra degli indirizzi
navText = lcase(request.servervariables("URL"))

'gli tolgo il nome del sito http://nomesito.com/
navtext = replace(navtext,"http://" & request.servervariables("REMOTE_HOST") & "/", "")

'uso le barre per dividere il percorso e creare un array
navdirs = split(navtext,"/")
navpath = ""
'scorro l'array: navdirs(i) contiene il nome della cartella nel percorso
for i = 0 to ubound(navdirs)
navpath = navpath & navdirs(i) & "/"

' se navdirs(i) = "" significa che è la home
if navdirs(i) = "" then navdirs(i) = "home"


' l'ultimo blocco del percorso lo metto senza link
if ubound(navdirs) <> i then
response.write "<A HREF=" & navpath & ">" & navdirs(i) & "</A> &gt;&gt; "
else
response.write "<A HREF=" & navdirs(i) & ">" & navdirs(i) & "</A>"
end if
next
%>
</b>
</td>
<td align=right valign="bottom" class="testo11" height="14" width="197">
<p>
<b>
<a href="cart.asp" class="linktesto">Carrello</a>
|<a href="account.asp" class="linktesto"> Stato Ordini</a>
</b>
</p>
</td>
</tr>
<center>

<tr>
<td colspan=2 height="21" width="750">
<hr align="center" width="750" color="#e9e9e9">
</td>
</tr>
</table>


</center>
</div>


<div align="left">


<table width=750 border=0 bgcolor="#ffffff"
cellpadding=0 cellspacing=0 height="300">
<tr><td valign="top" height="177" width="210">

<table cellspacing=0 border=0 cellpadding="0">
<tr>
<td valign="bottom" bgcolor="#D5EAFF">
<img border="0" src="image/bot_cerca.gif"></td>
</tr>
<tr>
<td>
<table width="200" cellpadding=0 cellspacing=0 border=0>
<tr>
<td bgcolor="#D5EAFF" valign="middle">
<form method="post" action="search.asp">
<input name="searchfor" size="15" class="body">
<input type="submit" value="Search" class="bottone">
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
&nbsp;
</td>
</tr>
<tr>
<td valign="bottom">
</td>
</tr>
<tr>
<td bgcolor="#000000" bordercolor="#FF4040">
<table width="200" cellpadding=0 cellspacing=0
bgcolor="#D5EAFF" border=0 class="bodycat">
<tr>
<td>
<font color="#0000FF">
<font class="bodycat">
<!-- #INCLUDE FILE="categoria.asp" -->
</font>
&nbsp;</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
&nbsp;
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
<div align="center">
<table border="0" cellspacing="0" width="200" bgcolor="#D5EAFF" class="bodycat" cellpadding="0">
<tr>
<td><font color="#0000FF"><!-- #INCLUDE FILE="info.asp" -->&nbsp;</font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
&nbsp;
</td>
</tr>
</table>

</td><td valign="middle" height="177" width="536">
<p align="center"><font face="Tahoma" size="2">Gentile Cliente, Grazie per aver effettuato il suo ordine
!!!</font></p>

</td></tr>
</table>
</div>
<div align="left">
<table border=0 bgcolor="#ffffff"
cellpadding=0 cellspacing=0 width="750">
<tr>
<td valign="center" class="copy" align="center" >
<hr align="center" width="750" color="#e9e9e9">

</td></tr>
</table>
</div>
</body>
</html>


Non sono molto esperta...


Grazie ancora.

Nikoletta

Nikoletta
11.886 messaggi dal 09 febbraio 2002
Contributi
argh non ripostare tutto il codice

Ho provato a correggere i codici ma ancora mi da errore 500.


L'errore 500 è un errore di tipo generico che Internet Explorer mostra per nascondere il testo - per molti enigmatico - del vero errore.
Tu che sei una sviluppatrice dovresti fare quanto segue:
Vai sul menu strumenti di IE, poi clicca Opzioni Internet. Su Avanzate togli la spunta da "Mostra messaggi di errore http brevi" oppure se hai la beta di IE7, la voce da cui togliere la spunta è "Show friendly HTTP Error messages".

Fai ok e aggiorna la tua pagina. Posta il vero testo dell'errore e la relativa linea di codice che l'ha generato.
ciao

Enjoy learning and just keep making
21 messaggi dal 15 febbraio 2006
CIAO!!!
La tua dritta per vedere l'errore è utilissima. Grazie!!!!!

Dunque ho visto l'errore lo trova alla riga:

Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/catalogo.mdb")

Il percordo del database è giusto, ho già controllato.
Cosa potrebbe essere?

Ecco l'errore:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Con.Open'

/commercio/confermaord.asp, line 51


ciaoooooooo



Nikoletta
11.886 messaggi dal 09 febbraio 2002
Contributi
questa linea
Set Con = Server.CreateObject("CDO.Message")
va sostituita con
Set Con = Server.CreateObject( "ADODB.Connection" )
era giusta nel primo post che hai fatto.

Sistemato questo, credo che riceverai un altro errore ma comunque avrai fatto un passo avanti. Posta testo e linea del nuovo errore.
ciao

Enjoy learning and just keep making
21 messaggi dal 15 febbraio 2006
Nuovo errore
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'CDOmail.BodyFormat'

/commercio/confermaord.asp, line 91
------------------------------------------------
RIGA 91
CDOmail.BodyFormat = 0
?????????????????????????????????
non capisco + nienteeeeeeeeeeeeeee

Nikoletta
11.886 messaggi dal 09 febbraio 2002
Contributi
bene, rileggi di nuovo questo articolo
http://www.aspitalia.com/script/539/InviareEmailFormatoHTMLCDO.aspx

come vedi nell'articolo non viene citata la proprietà .BodyFormat, e se non viene citata è perchè nell'oggetto CDO non esiste, dato che è fatto in maniera diversa rispetto a CDONTS.

Queste 3 proprietà non esistono in CDO:
CDOmail.BodyFormat = 0
CDOmail.MailFormat = 0
CDOmail.Body = HTML

sono state rimpiazzate da un'unica proprietà, che è HTMLBody:
CDOmail.HTMLBody = strHTML

devi capire ciò che stai modificando, altrimenti non ne esci più e sei costretta a chiedere aiuto per ogni riga.

ciao :)
Modificato da BrightSoul il 17 febbraio 2006 01.01 -

Enjoy learning and just keep making

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.