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> >> "
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>
</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>
</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
</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" --> </font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FF4040">
</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