ASP Formular

[Daniel Marti]

Also ich habe ein Teil vom Skript aber es wird nicht versendet. Was ist hier falsch?:
<%
Const cstCdoMailFormatMime = 1
Const cstCdoMailFormatText = 0

Const cstCdoBodyFormatHTML = 0
Const cstCdoBodyFormatText  = 1

strIPass = request.form("ipass")
strHomeuser = request.form("homeuser")
strVorname = Request.Form("vorname")
strNachname = Request.Form("nachname")
strEmail = Request.Form("email")
strCompany = Request.Form("company")

strBestellung = "iPass: " & strIPass & VbCrLF
strBestellung = strBestellung & "Home User: " & strHomeuser & VbCrLF
strBestellung = strBestellung & "Vorname: " & strVorname & VbCrLF
strBestellung = strBestellung & "Nachname: " & strNachname & VbCrLF
strBestellung = strBestellung & "E-Mail: " & strEmail & VbCrLF
strBestellung = strBestellung & "Company: " & strCompany & VbCrLF

strBetreff = "Bestellung"
strNachricht = strBestellung
strEmpfaenger = "[e-mail]"
strAbsender = "[e-mail]"
%>
<h3>Wir danken Ihnen für die Bestellung, die E-Mail wurde soeben versandt.</h3>
<%
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = cstCdoMailFormatText
objNewMail.BodyFormat = cstCdoBodyFormatText
objNewMail.From = strAbsender
objNewMail.To = strEmail
objNewMail.Subject = strBetreff
objNewMail.Body = strNachricht
objNewMail.Send
Set objNewMail = Nothing
%>