CDO formmail

Hej
Jeg bruger denne fætter til at sende udtræk fra en form. Det virker fint, men det ville være rart hvis man kunne undlade de tomme felter, når det bliver sent som mail.

mvh. Klaus



<%
    if Request.Form("FFSubmitted") = "yes" then
        Dim BodyString
        Dim objCDO
        Dim RedirectURL
        Dim FormFields
        Dim arrFormFields
        FormFields = "Firma~CVR/SE-nummer~Adresse1~Adresse2~Postnr~By~realname~stilling~tlf~fax~Rekvnr~email~Meddelelse~vilkårligforhandler~FH-liste"
            If FormFields <> "" Then
                arrFormFields = split(FormFields,"~")
            End If
            Set objCDO = Server.CreateObject("CDONTS.NewMail")
            objCDO.From = "mail@xxx.dk"
            objCDO.To = "mail@xxx.dk"
            objCDO.Cc = ""
            objCDO.Bcc = "mail@xxx.dk"
            objCDO.Subject = ""   
            BodyString =  Replace("","~",chr(13) & chr(10) )& chr(13)
            If FormFields <> "" Then
                For Each item In arrFormFields
                    BodyString = BodyString & item & " " & Request.Form(item) & chr(13)
                Next
            End If
            objCDO.Body = BodyString
            objCDO.BodyFormat = 1
            objCDO.MailFormat = 1
            objCDO.Send
            Set objCDO = Nothing
            RedirectURL = ""
            If RedirectURL <> "" then
                If Request.QueryString <> "" Then
                      response.redirect(RedirectURL & "?" & Request.QueryString)
                else
                    response.redirect(RedirectURL)
                end If
            end if
    end if
%>
<% MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>