ASP-Seite per Email versenden

JoergStueger · 03.02.2004, 14:11

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

%>

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

03.02.2004, 14:11	#8
JoergStueger Master Registriert seit: 28.10.2002 Alter: 47 Beiträge: 626	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 %>

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)