problemi in asp con server 2003

**Reyka** · 02-10-2004, 09:13

Il mio database di acces per l'e-commerce poggiato su asp non manda più le mail da quando è stato istallato il server 2003 come correggere??

Chi mi può aiutare a ricompilere il mio database ed inserirlo all'interno delle pagine asp

grazie mille

Rey

**Corinna** · 02-10-2004, 09:16

Probabilmente lo script usa CDONTS mentre sul server attuale hai la DLL Cdosys.
Per risolvere leggi qui
http://vademecum.aruba.it/start/2003/info.htm
(da metà pagina in avanti)

**Reyka** · 02-10-2004, 10:47

ciao Corinna ho provato ma non riesco a farlo... ci capisco poco di asp....

puoi vedere di aiutarmi??

ti lascio la mail info@spaziomanga.it se mi scrivi magari ti posto igli ftp del sito

Grazie

**Corinna** · 02-10-2004, 10:50

Posta lo script che usi ora

**Reyka** · 02-10-2004, 11:02

Questo è il mio default
poi ho 4 database nella cartella

_loked/mdb-database/nomedatabase

e le pagine default del carrello ogni una nella sua cartella
cd
dvd
dvdorig
varia

<%
If sPseudo <> "" Then
sTitlePage = Replace(GetTranslation("LANG_TITLE_DEFAULT2"), "%1%", Server.HTMLEncode(sPseudo))
Else
sTitlePage = GetTranslation("LANG_TITLE_DEFAULT")
End If
%>

<%
Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
If GLOBAL_FORUM_TOP > 0 and GLOBAL_ARTICLES_TOP > 0 Then
'Response.Write " <td width=""33%"" valign=""top"">" & vbCRLF
'DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
'Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" align=""right"">" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " <td> </td>" & vbCRLF
Response.Write " <td width=""50%"" valign=""top"" align=""right"">" & vbCrlf
DisplayTopArticles GLOBAL_ARTICLES_TOP
Response.Write " </td>" & vbCrlf
Response.Write " </tr>" & vbCRLF
'ElseIf GLOBAL_NEWS_LINKS_TOP > 0 Then
'Response.Write " <td width=""100%"" valign=""top"">" & vbCRLF
'DisplayTopNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
'Response.Write " </td>" & vbCRLF
'Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_FORUM_TOP > 0 Then
Response.Write " <td width=""100%"" valign=""top"" align=""right""gt" & vbCRLF
DisplayTopForum GLOBAL_FORUM_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
ElseIf GLOBAL_ARTICLES_TOP > 0 Then
Response.Write " <td width=""100%"" valign=""top"" align=""right"">" & vbCrlf
DisplayTopArticles GLOBAL_ARTICLES_TOP
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
End If
Response.Write "</table>" & vbCRLF
DisplayTopNews GLOBAL_NEWS_TOP, 0

%>

**Corinna** · 02-10-2004, 11:07

Mi serve la pagina che invia la mail, non una pagina a caso

**Reyka** · 02-10-2004, 11:14

scusami

io volevo anche inserire i database nella pagina asp....

la pagina che invia le mail è questa...

<%@ Language=VBScript %>
<%
'************************************************* *****
'Copyright©2000-2001 MetaLinks.com @ http://metalinks.com
'************************************************* *****

%>
<% pageTitle = "Validate Order" %>

<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 4.0">
<title><%= pageTitle %></title>
<style type="text/css">

</style>
</head>

<body bgcolor="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="#808080">
<font face="Arial">
<%
'displays header on form field validation pages
function displayHeader()
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<body>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td valign='middle' nowrap>"
Response.Write "[img]images/mcartfree.gif[/img]" & "

"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.Write "<div align = 'center'>"
end function

'Validate user entries in form fields and generate error pages
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next

strFirst = Request.Form("strFirst")
strLast = Request.Form("strLast")
strEmail = Request.Form("strEmail")
strAddress1 = Request.Form("strAddress1")
strAddress2 = Request.Form("strAddress2")
strCity = Request.Form("strCity")
strState = Request.Form("strState")
strPostalCode = Request.Form("strPostalCode")
strCountry = Request.Form("strCountry")
strPhone = Request.Form("strPhone")
strCodiceFiscale = Request.Form("strCodiceFiscale")
strShipFirst = Request.Form("strShipFirst")
strShipLast = Request.Form("strShipLast")
strShipAddress = Request.Form("strShipAddress")
strShipCity = Request.Form("strShipCity")
strShipState = Request.Form("strShipState")
strShipPostalCode = Request.Form("strShipPostalCode")
strShipCountry = Request.Form("strShipCountry")
TipoPagamento = CInt(Request.Form("TipoPagamento"))
%>
</font>
<%
dim body
Set objMail = Server.CreateObject("CDO.Message")

objMail.To= e_mail_acquisto
objMail.Subject="Nuovo ordine!"
Body = "Informazioni sul cliente:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

intOrderID = Request.form("intOrderID")

set rsOrder = Server.CreateObject("ADODB.Recordset")
rsOrder.Open "SELECT * FROM orders WHERE orderID = " _
& intOrderID, Conn, adOpenStatic, adLockOptimistic, _
adCmdText

if rsOrder.EOF then
Response.Write "There is a problem with your order. "
Response.Write "Please contact customer service."
else

rsOrder("tax") = Request.form("intTax")
'body = body & "intTax: " & Request.form("intTax") & Chr(13) & Chr(10)
rsOrder("fName") = Request.form("strFirst")
body = body & "Nome: " & Request.form("strFirst") & Chr(13) & Chr(10)
rsOrder("lName") = Request.form("strLast")
body = body & "Cognome: " & Request.form("strLast") & Chr(13) & Chr(10)
rsOrder("email") = Request.form("strEmail")
objMail.From = Request.form("strEmail")
body = body & "e-mail: " & Request.form("strEmail") & Chr(13) & Chr(10)
rsOrder("address1") = Request.form("strAddress1")
body = body & "Via o piazza: " & Request.form("strAddress1") & Chr(13) & Chr(10)
rsOrder("address2") = Request.form("strAddress2")
rsOrder("city") = Request.form("strCity")
body = body & "città: " & Request.form("strCity") & Chr(13) & Chr(10)
rsOrder("state") = Request.form("strState")
body = body & "provincia: " & Request.form("strState") & Chr(13) & Chr(10)
rsOrder("postalcode") = Request.form("strPostalCode")
body = body & "cap: " & Request.form("strPostalCode") & Chr(13) & Chr(10)
rsOrder("country") = Request.form("strCountry")
rsOrder("phone") = Request.form("strPhone")
body = body & "Numero di telefono: " & Request.form("strPhone") & Chr(13) & Chr(10)
rsOrder("strCodiceFiscale") = Request.form("strCodiceFiscale")
body = body & "CodiceFiscale: " & Request.form("strCodiceFiscale")& Chr(13) & Chr(10) & Chr(13) & Chr(10)
rsOrder("sAmt") = Request.form("spese")
body = body & "Spese: " & Request.form("spese")
rsOrder("TipoPagamento") = CInt(Request.form("TipoPagamento"))
rsOrder("total") = Request.form("intTotal")
rsOrder("orderDate") = Date
rsOrder("status") = "COMPLETE"
rsOrder.Update
Set rsCont = Conn.execute ("Select * from SpeseSpedizione where IDSpeseSpedizione= " & CInt(Request.form("TipoPagamento")))
body = body & "("& rsCont("descrizione")&")"
rsCont.close
body = body & Chr(13) & Chr(10) & "totale: " & Request.form("intTotal") & Chr(13) & Chr(10)
Body = body & Chr(13) & Chr(10) &"Prodotti ordinati(orderID ) " & intOrderID & ":" & Chr(13) & Chr(10) & Chr(13) & Chr(10)

Conn.Execute("DELETE FROM itemsOrdered WHERE " _
& "orderID = " & intOrderID)

set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "itemsOrdered", Conn, adOpenStatic, adLockOptimistic, adCmdTable
dim cont
cont = 0
for each item in Request.form("strOrderItem")
cont = cont + 1
strOrderItem = cstr(item)
itemInfo = split(strOrderItem, ",")

Set rsCont = Conn.execute ("Select * from Products where ProductID = " & itemInfo(0))
rsItem.addNew
rsItem("orderID") = intOrderID
rsItem("productID") = itemInfo(0)
Body = body & cont& ") ProductID: " & itemInfo(0) & Chr(13) & Chr(10)
Body = body& " NomeProdotto: " & rsCont("productName") & Chr(13) & Chr(10)
Body = body& " DercrizioneProdotto: " & rsCont("productDesc") & Chr(13) & Chr(10)
Body = body& " PrezzoUnitario: " & rsCont("productPrice") & Chr(13) & Chr(10)
rsItem("quantity") = itemInfo(1)
Body = body& " Quantità: " & itemInfo(1) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
rsItem.Update
rsCont.close
next

rsItem.Close
set rsItem = Nothing

Session.abandon

end if
rsOrder.Close
set rsOrder = Nothing

Conn.Close
set Conn = Nothing
objMail.TextBody = body
'objMail.Send
'Set objMail = nothing

objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.Update()
objMail.Send()
Set objMail = Nothing

%>
<basefont face="Verdana" size="2">

<table border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" width="746">
<tr>
<td width="128" valign="top" align="center"></td>
<td width="1" bgcolor="#000000">[img]images/spacer.gif[/img]</td>
<td align="center" valign="top">

</p>

</p>
<table border="0" cellspacing="4" cellpadding="4"><tr>
<td align="center" valign="top">
<font size="4">Il Suo ordine è stato ricevuto.

Al più presto riceverete la merce.</font></td>
</tr>
</table>

<font face="Arial" size="4">Grazie per </font><font face="Arial" size="4">aver
fatto shopping da noi!</font></p>
</td>
</tr>
</table>

</body>
</html>

**Reyka** · 02-10-2004, 11:26

L'include della posta è questa se ti serve...

<%
' e-mail alla quale arriverà l'ordine(validator.asp)
const e_mail_acquisto = "info@spaziomanga.it"
' link all'immagine da visualizza(default2.asp)
const productImg1 = "images/berserk#1.jpg"
'descrizione del prodotto da visualizzare(default2.asp)
const productDesc1 = ".Berserk #01 (Eps 01)"
' codice della categoria di prodotti alla quale manda il link go(default2.asp)
const catalogID1 = 6
%>

grazie e scusa se sono imbranata, ma non ci capisco nullaaaa!!!

**Corinna** · 02-10-2004, 11:38

Ok, proviamo con un altro metodo

Hai un editor?
Ok, fai una ricerca di testo nei files....
Cerca la stringa "Cdonts"
Vedi in che file è e postalo

**Roby_72** · 02-10-2004, 11:40

Cmq a me il fatto che i db siano in questa cartella "_loked/mdb-database/nomedatabase" da un po' da pensare...

Roby

Discussione: problemi in asp con server 2003

Strumenti discussione

Ricerca discussione

Visualizza

problemi in asp con server 2003

Permessi di invio