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">
<!--
a:link { color: #808080 }
a:visited { color: #808080 }
a:hover { color: #ff9900 }
-->
</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>