Ich mach das so ...
Hab ja keine Ahnung was Du mit Deinem Script willst? Liest Du da ne Datei aus?
<%
'HTML Mail erzeugen
Dim MKNr
Dim OrNr
Dim strSQL
Dim strConnection
Dim conn
Dim rs
Dim htmlmail
Dim htmlmail2
Dim email
Dim mvCount
Dim mvOrderSum2
mvOrderSum2 = mvOrderSum
htmlmail = "<HTML>"
htmlmail = htmlmail & "<META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=Windows-1252>"
htmlmail = htmlmail & "<head>"
htmlmail = htmlmail & "<title>Test</title>"
htmlmail = htmlmail & "<link rel=Stylesheet type=text/css href=http://xxx/styles/mail.css>"
htmlmail = htmlmail & "</head>"
htmlmail = htmlmail & "<td colspan=3 class=HEADLINE>
Vielen Dank fuer Ihre Bestellung!
</class></td>
"
htmlmail = htmlmail & "Die Einzelheiten Ihrer Bestellung sind unten aufgeführt." & "[/b]
"
htmlmail = htmlmail & "<hr size=1 width=""100%"" align=left>"
htmlmail = htmlmail & "<table border=0 cellpadding=0 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=""100%"" id=AutoNumber1>"
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td width=260>
Ihre Kundendaten:</td>"
htmlmail = htmlmail & "<td>XXX-Kundennummer: " & mvMkID &"</td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td width=260></td>"
htmlmail = htmlmail & "<td>" & mvTitle & " " & mvVname & " " & mvNName & "</td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td width=260></td>"
htmlmail = htmlmail & "<td>" & mvStr &"</td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td width=260></td>"
htmlmail = htmlmail & "<td>" & mvPLZ & " " & mvOrt & "</td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td width=260></td>"
htmlmail = htmlmail & "<td>" & gfGetTableAttr(mvCountryRS,"shpOrCtBz", "shpOrCtID=" & mvLand) & "</td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "</table>
"
htmlmail = htmlmail & "<hr size=1 width=""100%"" align=left>
"
htmlmail = htmlmail & "<tr>"
mvCount =0
DO WHILE NOT rs.EOF
if mvCount Mod 2 <> 0 then
'mvRowBGColor = Application("ColorRowEven")
mvRowBGColor = "DBDBDB"
else
'mvRowBGColor = Application("ColorRowOdd")
mvRowBGColor = "#999999"
end if
htmlmail = htmlmail & "<td valign=top nowrap align=center bgcolor=" & mvRowBGColor & ">" & rs("shpWaUsrMe") & "</td>"
htmlmail = htmlmail & "<td valign=top nowrap align=left bgcolor=" & mvRowBGColor & ">" & rs("sBsArNr") &"</td>"
htmlmail = htmlmail & "<td valign=top align=center bgcolor=" & mvRowBGColor & ">" & rs("sBsArGr") &"</td>"
htmlmail = htmlmail & "<td valign=top align=center bgcolor=" & mvRowBGColor & ">" & rs("sBsArFa") &"</td>"
htmlmail = htmlmail & "<td valign=top nowrap align=left bgcolor =" & mvRowBGColor &">
"& rs("sBsArBz") & "</td>"
htmlmail = htmlmail & "<td valign=top nowrap align=right bgcolor=" & mvRowBGColor & ">" & rs("dVkPr") &" " & mvWaehrung &"</td>"
htmlmail = htmlmail & "<td valign=top nowrap align=right bgcolor=" & mvRowBGColor & ">" &(rs("shpWaUsrMe") * CCur(RS("dVkPr"))) &" " & mvWaehrung &"</td></tr>"
mvCount = mvCount +1
rs.MoveNext
'Wend
loop
htmlmail = htmlmail & "</table>
"
htmlmail = htmlmail & "<table border=0 cellpadding=0 cellspacing=1 width=""100%"">"
htmlmail = htmlmail & "<tr>"
if mvLieferArt = mcLieferArtNORMAL then
mvOrderSum = mvOrderSum + Application("OrderVersandkosten")
htmlmail = htmlmail & "<td valign=top colspan=5>Versandkosten:</td>"
htmlmail = htmlmail & "<td valign=top align=right nowrap>" & Application("OrderVersandkosten") & "</td>"
else
mvOrderSum = mvOrderSum + Application("OrderVersandkosten") + Application("OrderExpresskosten")
htmlmail = htmlmail & "<td valign=top colspan=5>Versandkosten + Expressgebühr:</td>"
htmlmail = htmlmail & "<td valign=top align=right nowrap>" & Application("OrderVersandkosten") + Application("OrderExpresskosten") & "</td>"
end if
htmlmail = htmlmail & "</tr>"
if mvZahlArt = mcZahlArtNachnahme then
mvOrderSum = mvOrderSum + Application("OrderNachnahmekosten")
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td valign=top colspan=5>Nachnahmegebühr:</td>"
htmlmail = htmlmail & "<td valign=top align=right nowrap>" & Application("OrderNachnahmekosten") &"</td>"
htmlmail = htmlmail & "</tr>"
end if
htmlmail = htmlmail & "<tr>"
htmlmail = htmlmail & "<td valign=top colspan=5>
Der Gesamtbestellwert beläuft sich auf:</td>"
htmlmail = htmlmail & "<td valign=top align=right class=PREISANGABE nowrap > <div style=border-bottom-style: double; border-bottom-width: 3>" & mvOrderSum2 & "</div></td>"
htmlmail = htmlmail & "</tr>"
htmlmail = htmlmail & "</table>
"
Set email = CreateObject("CDONTS.NewMail")
With email
.From = "office@xxx.com"
.To = mvemail
.Subject = "xxx.com Onlinebestellung für " & mvvname & " " & mvnname
.BodyFormat = 0
.MailFormat = 0
.Body = htmlmail & htmlmail2
.Send
End With
Set eMail = Nothing
RS.Close
conn.Close
SET rs = nothing
SET conn = nothing
%>