Skickar ej med värdet från formuläret

Problemet är löst såg själv vad jag missat!

Hej

Den här koden skickar ej med värdet från formuläret, vad är det jag har missat??

 
<%
subject    ="LOTTEN"            

sender = "webmaster@ewd.se"

body = body & "LOTTEN: " & vbCRLF _
& vbCRLF _
& "Antal: " &vbTAB &antal &vbCRLF _
& "Distrikt:" &vbTAB &distrikt  &vbCRLF _
& "Förening: " &vbTAB & club &vbCRLF _
& "Leveransadress:" &vbTAB &address &vbCRLF _
& "Postnr/Ort:" &vbTAB &vbTAB &vbTAB &vbTAB & zipcode &vbCRLF _

' ## ...SEND ORDER 
Dim objCDOSYSCon
Dim objCDOSYSMail
Dim strOutgoingMailServer

strOutgoingMailServer = "mail.web-form.se"

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

With objCDOSYSCon
  
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strOutgoingMailServer
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
     .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update
End With

Set objCDOSYSMail.Configuration = objCDOSYSCon

With objCDOSYSMail

.From = sender
.To = "info@ewd.se"
.Subject = subject

.TextBody = body
.Send

End with

Set objCDOSYSMail = Nothing
%>