cdonts och metacart
jag använder cdonts för att få en beställning av etiketter skickad till mig i ett system byggt på nåt som heter metacart.hur kan man använda värdena i arrayen som jag har för att bifoga en fil. bifogar en kodsnutt som jag hoppas att nån förstår...messageText = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'><html><head><title>Etikettbeställning från Fresh</title><style>TD {font-family:Verdana; font-size:12px; font-weight:normal; color:#000000;font-style:normal}TD EM {font-family:verdana,arial,sans-serif; font-size:14px; font-weight:700; color:#000000; font-style:normal}body {font-family:Verdana; font-size:12px; font-weight:normal; color:#000000;font-style:normal;text-decoration:underline}TD P {font-family:Verdana; font-size:12px; font-weight:normal; color:#000000;font-style:normal}TD B {font-family:Verdana; font-size:12px; font-weight:bold; color:#000000;font-style:normal}a:link {font-family:Verdana, arial, sans-serif; font-size:10px; font-weight:700; font-style:normal; color:#339999; text-decoration:none;}a:visited {font-family:Verdana, arial, sans-serif; font-size:10px; font-weight:700; font-style:normal; color:#99aaaa; text-decoration:none;}a:hover {font-family:Verdana, arial, sans-serif; font-size:10px; font-weight:700; font-style:normal; color:#f1bd00; text-decoration:none;}input, textarea, select { BORDER-TOP:#17355d 1px outset; BORDER-LEFT: #17355d 1px outset; BORDER-BOTTOM: #17355d 1px outset; BORDER-RIGHT: #17355d 1px outset; font-size: 11px; color: #000000; background-color:grey; font-family:verdana }</style></head><body bgcolor='White'><table bgcolor='#cccccc'><tr><td>Beställarinformation:</td></tr></table><hr align='left' width='50%' noshade><table width='500' border='0' cellpadding='5' cellspacing='3'><tr><td><b>Beställare:</b></td><td>"&Request.form("kund")&"</td></tr><tr><td><b>Telefon:</b></td><td>"&Request.form("telefon")&"</td></tr><tr><td><b>E-post:</b></td><td>"&Request.form("epost")&"</td></tr><tr><td valign='top'><b>Meddelande:</b></td><td>"&Request.form("ovrigt")&"</td></tr></table><br><br><table bgcolor='#cccccc'><tr><td>Beställningen:</td></tr></table><hr align='left' width='50%' noshade><table width='350' border='0' cellpadding='5' cellspacing='3'><tr><td colspan='3'>Önskat leveransdatum: "&request.form("levdatum")&"</td></tr><tr><td><b>Etikett:</b></td><td><b>Färg:</b></td><td><b>Antal</b></td></tr>"
Function CensorText( sText )
Dim sRet
sRet = sText
sRet = Replace(sRet, "ö", "o" , 1,-1,vbTextCompare)
sRet = Replace(sRet, "å", "a", 1,-1,vbTextCompare)
CensorText = sRet
End Function
arrCart = Session("MyCart")
metacartItem = Session("cartItem")%>
<table><tr><td>
<b>Orderbekräftelse</b><br><br>
<%Dim isubtotal, i
isubtotal = 0
For i = 1 to metacartItem%>
<% messageText = messageText & "<tr><td width='80'>"&arrCart(cProductname,i)&"</td><td>"&arrCart(cProductcode,i)&"</td><td>"&arrCart(cQuantity,i)&" st</td></tr>"
%>
<% objNewMAil.AttachFile Server.MapPath("/etiketter_pdf/"&arrCart(cProductname,i)&"_"&censortext(arrCart(cProductcode,i))&".gif")%>
<%= arrCart(cProductname,i) %>, <%= arrCart(cQuantity,i) %> st<br>
<% isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i)) %>
<%next %>
<% messagetext=messagetext & "</table></body></html>" %>
