oh, endlich mal wieder ne asp-frage

na dann wolln wir mal:
header = Request.Form("header")
body = Request.Form("body")
absender = Request.Form("absender")
empfaenger = Request.Form("empfaenger")
ok = SendEmail (absender, empfaenger, header, body)
If Not ok Then
%>Email konnte nicht gesendet werden.<br>
Grund: <%=err.Description%><%
err.Clear
Else
%>Email gesendet<%
End IF
function SendEmail (absender, empfaenger, ueberschrift, nachricht)
set objMail = Server.CreateObject("CDONTS.Newmail")
on error resume next
objMail.send absender, empfaenger, ueberschrift, nachricht
if err.Number<>0 Then
SendEmail = False
Else
SendEmail = True
End If
set objMail = Nothing
End Function