simpel cdonts

Er der nogle der kan give mig bud på hvorfor dette simple script ikke virker:

email = Request.form("email")
  lastname = Request.form("lastname")
  firstname = Request.form("firstname")
  job = Request.form("job")
  company = Request.form("company")
  tlf = Request.form("tlf")
  itemet = Request.form("id")
 
  if itemet ="brochure" then realitem="få tilsendt brochure."
  if itemet ="0" then realitem="tilmelde sig infomeeting i København"
  if itemet ="1" then realitem="tilmelde sig infomeeting i Vejle"
  if itemet ="2" then realitem="tilmelde sig infomeeting i Malmø"
 
    Dim MyBody
    Dim MyCDONTSMail
   
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= email
    MyCDONTSMail.To= "cw.gem@cbs.dk"
    MyCDONTSMail.Subject="Fra kampagnesite"
   
    MyBody = "Denne person: " & vbCrLf
    MyBody = MyBody & firstname & vbCrLf
    MyBody = MyBody & lastname & vbCrLf
    MyBody = MyBody & job & vbCrLf
    MyBody = MyBody & company & vbCrLf
    MyBody = MyBody & email & vbCrLf
    MyBody = MyBody & tlf & vbCrLf
    MyBody = MyBody & "ønsker at " & itemet
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    Response.Write "_level2.form.EmailStatus=DONE!"
    set MyCDONTSMail=nothing
%>