Database e asp

[Reyka]

Ciao Corinna, Roby ciao ragazzi, ho scritto un paio di settimane fa per il server 2003 e le mail ricordi?
poi riflettendo ho capito che forse il problema non era solo quello...

Quando il tutto funzionava a dovere c'era un solo database acces, ora ce ne sono 6 divisi, quindi penso che il problema sia da riportare a quello

quindi come posso gestire la posta su 6 db diversi??

[Roby_72]

Ciao, ci ricordi il nocciolo del problema?

Roby

[Reyka]

Il problema era che dopo la divisione da 1 a 6 db e il passaggio al server 2003 il carrello spesa non mi invia più la mail di acquisto del materiale

[Roby_72]

Nella pagina di invio della email metti dei blocchi (response.end) per vedere dove si ferma...

Roby

[Reyka]

Allora ho una pag "Costanti" negli include che fa così :

<%
' e-mail alla quale arriverà l'ordine(validator.asp)
const e_mail_acquisto = "info@spaziomanga.it"
%>

più una pagina di validateorder così:

<%
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


%>


Dove metto i response end???