hi i am trying to send a html message that reiterates a invoice from a
online store site im making, i have the invoice written to the browser
but i would also like to send one to the customer via email
here is the code for the browser part
dim strSessionID, strISBN, strTitle
'open database for cart
strSQL = "SELECT tblCart.strSess ionID, tblCart.strISBN , tblCart.intQty,
tblBookDescript ion.strTitle, tblBookDescript ion.dblPrice " & _
"FROM (tblBookDescrip tion INNER JOIN tblCart ON
tblBookDescript ion.ISBN = tblCart.strISBN ) "
objRS.Open strSQL, objConn
strISBN = objRS("strISBN" )
strTitle = objRS("strTitle ")
strSessionID = objRS("strSessi onID")
%>
<center><font face='Comic Sans MS' color='#FF0000' >Order
Confirmation</font><br><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td width="159" valign="top"><f ont face="Comic Sans MS">Books
Shipped:</font></td>
<td width="437">
<%
'List each item in cart
dim intCount
do while NOT objRS.EOF
intCount = intCount + 1
%>
<tr>
<td valign="top" width="20" ><% =intCount %>.</td>
<td valign="top" width="256">
<! Book Title, author, stock >
<% dim Quan
If objRS("intQTY") = 1 then
Quan = "1 Copy of "
else if objRS("intQTY") > 1 then
Quan = objRS("intQTY") & " Copies of "
end if
end if
%>
<%=Quan%><br>
<font face="Comic Sans MS" color="#006699" ><%
=objRS("strTitl e")%></font>
<br>
<font size="-1">
by <% =funListAuthors (objRS("strISBN ")) %></a>
</font>
<br>
<br>
</tr>
<% objRS.MoveNext
loop
objRS.close
dim strSQLOrder, iCount
'write order info to database
strSQLOrder = "SELECT tblOrders.strEm ail, tblOrders.ISBN,
tblOrders.dtOrd erDate " & _
"FROM tblOrders "
set objRS = Server.Createob ject("ADODB.Rec ordset")
objRS.open strSQLOrder, objConn, ,adLockOptimist ic
'response.write "strSQL:" & strSQL & "<br>"
For iCount= 1 to intCount
objRS.addnew
objRS("strEmail ") = strEmail
objRS("dtOrderD ate") = Now()
objRS("ISBN") = strISBN
objRS.update
objRS.movenext
Next
objRS.close
%>
<br>
</td>
</tr>
<tr>
<td width="159" valign="top"><f ont face="Comic Sans MS">Shipping
Address:</font></td>
<td width="437"><% =strFirstName & " " & strLastName & "<br>" &
strAddress & "<br>" & strCity & ", " & strState & ", " & strZip &
"<br><br>"% >
</td>
</tr>
<tr>
<td width="159" valign="top"><f ont face="Comic Sans
MS">Total:</font></td>
<% dim TotalPrice
TotalPrice = Request.cookies ("TotalPrice ")
response.write( "<td width='437'>$" & TotalPrice)
i want the html message to go through the cart and list all the items
in the cart, right now i can only get it to list the first item in the
cart, i cant get the second, third, etc
here is the code for the html message
'assign the email message body to a variable
Dim strHTMLMessage
strHTMLMessage = "<a
href='http://yorktown.cbe.ww u.edu/06Winter/levini/A07/default.asp'> " &
_
"<img
src='http://yorktown.cbe.ww u.edu/06Winter/levini/images/logo.jpg'
border='0' alt='NetBooks Logo'> " &_
"</a><br> " &_
"<center><f ont face='Comic Sans MS'
color='#FF0000' >Order Confirmation</font><br><br> " & _
"<div align='center'> " & _
"<center> " & _
"<table border='0' cellpadding='0' cellspacing='0'
width="'600'> "
strHTMLMessage = strHTMLMessage & "<tr> " & _
"<td width='159' valign='top'><f ont face='Comic Sans
MS'>Books Shipped:</font></td>" & _
"<td width='437'> " & strTitle & _
"</td> " & _
"</tr> " & _
"<tr> " & _
"<td width='159' valign='top'><f ont face='Comic Sans
MS'>Shipping Address:</font></td> " & _
"<td width='437'>" & strFirstName & " " & strLastName
& "<br>" & strAddress & " <br>" & strCity & ", " & strState & ", " &
strZip & "<br><br>" & _
"</td> " & _
"</tr> " & _
"<tr> " & _
"<td width='159' valign='top'><f ont face='Comic Sans
MS'>Total:</font></td> " & _
"<td width='437'>$" & TotalPrice
'Create the mail object
Dim objMail
Set objMail = Server.CreateOb ject("CDO.Messa ge")
'Set mail object properties
objMail.To = strEmail
objMail.From = "le****@cc.wwu. edu"
objMail.Subject = "Order Confirmation from NetBooks"
objMail.HTMLBod y = strHTMLMessage 'your HTML email message
'Optional properties
'objMail.TextBo dy = "Your email message in plain text for email clients
that do not support HTML"
'objMail.CC = "cs******@wwu.e du"
'objMail.BCC = "ch***********@ wwu.edu"
'Optional importance
'objMail.Fields ("urn:schemas:h ttpmail:importa nce").Value = 2
'objMail.Fields .Update()
'Send the email
objMail.Send
thanks for the help
