Kun sende udfyldte felter

Hej
Jeg har et mega problem
Har denne side som sender til min email
Hvordan får jeg den til kun at sende de udfyldte felter

<% @LANGUAGE = VBScript %>

<%


Dim strName, strn1001, strMessage, strEmail, strTlf, strn1002, strn1003, strn1004, strn1005, strn1006, strn1007, strn1008, strn1009, strn1010, strn1011, strn1012, strn1013, strn1014, strn1015, strn1016, strn1017, strn1018, strn1019, strn1020, strn1021, strn1022, strn1023, strn1024, strn3001, strn3002, strn3003, strn3004, strn3005, strn3006, strn3007, strn3008, strn3009, strn3010, strn3011, strn3012
strn1001 = Request.QueryString("n1001")
strn1002 = Request.QueryString("n1002")
strn1003 = Request.QueryString("n1003")
strn1004 = Request.QueryString("n1004")
strn1005 = Request.QueryString("n1005")
strn1006 = Request.QueryString("n1006")
strn1007 = Request.QueryString("n1007")
strn1008 = Request.QueryString("n1008")
strn1009 = Request.QueryString("n1009")
strn1010 = Request.QueryString("n1010")
strn1011 = Request.QueryString("n1011")
strn1012 = Request.QueryString("n1012")
strn1013 = Request.QueryString("n1013")
strn1014 = Request.QueryString("n1014")
strn1015 = Request.QueryString("n1015")
strn1016 = Request.QueryString("n1016")
strn1017 = Request.QueryString("n1017")
strn1018 = Request.QueryString("n1018")
strn1019 = Request.QueryString("n1019")
strn1020 = Request.QueryString("n1020")
strn1021 = Request.QueryString("n1021")
strn1022 = Request.QueryString("n1022")
strn1023 = Request.QueryString("n1023")
strn1024 = Request.QueryString("n1024")
strn3001 = Request.QueryString("n3001")
strn3002 = Request.QueryString("n3002")
strn3003 = Request.QueryString("n3003")
strn3004 = Request.QueryString("n3004")
strn3005 = Request.QueryString("n3005")
strn3006 = Request.QueryString("n3006")
strn3007 = Request.QueryString("n3007")
strn3008 = Request.QueryString("n3008")
strn3009 = Request.QueryString("n3009")
strn3010 = Request.QueryString("n3010")
strn3011 = Request.QueryString("n3011")
strn3011 = Request.QueryString("n3012")
strName = Request.QueryString("navn") 
strMessage = Request.QueryString("diverse") 
strTlf = Request.QueryString("tlf")


Dim JMail

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "smtp.cliche.dk"
  JMail.Sender = "@"
  JMail.Subject = "Bestilling fra "
  JMail.AddRecipient "lars@.dk"
  JMail.AddRecipient "@.dk"
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")


  JMail.Body = "Sandwich brød : " + strn1001+vbcrlf + vbcrlf+"Pk. Kondikarl. :" + strn1002+vbcrlf + vbcrlf+"Ks. Focasia boller Schulstad. :" + strn1003+vbcrlf + vbcrlf+"Ks. Formbrød hulstad. :" + strn1004+vbcrlf + vbcrlf+"Ps. Mini Crossiant. : " + strn1005+vbcrlf + vbcrlf+"Ks.Rustik 375 gr.Schulstad. : " + strn1006+vbcrlf + vbcrlf+"L. Piskefløde. : " + strn1007+vbcrlf + vcrlf+"L. Yougurt naturel. : " + strn1008+vbcrlf + vbcrlf+"Stk. 18% Creme fraise. : " + strn1009+vbcrlf + vbcrlf+"Pk.Mini fedt. : " + strn1010+vbcrlf+
vbcrlf+"Pk.Mini Smør.:" + strn1011+vbcrlf + vbcrlf+"Pk. Lurpak Smør 500gr. : " + strn1012+vbcrlf + vbcrlf+"L. Friske Æggeblommer. : " + strn1013+vbcrlf + vbcrlf+"Stk. 1 Kgs Brie. :"+ strn1014+vbcrlf + vbcrlf+"Parmesan : " + strn1015+vbcrlf + vbcrlf+"¼ Ementaler Conti : " + strn1016+vbcrlf + vbcrlf+"Bk. Æg Ml. : " + strn1017+vbcrlf + vbcrlf+"Ps. Revet Rød Cheddar. : " + strn1018+vbcrlf + vbcrlf+"L. Helæg Frost. : " + strn1019+vbcrlf + vbcrlf+"L.Æggehvider Frost. :"+ strn1020+vbcrlf + vbcrlf+"L.Æggeblommer Frisk.:"+
strn1021+vbcrlf + vbcrlf+"Pk. Digestive kiks. : " + strn1022+vbcrlf + vbcrlf+"Pk. Tuc Kiks. : " + strn1023+vbcrlf + vbcrlf+"Pk. Bornholmske rugkiks. : " + strn1024+vbcrlf + vbcrlf+"Ks. Fiskefilet Lille 70-100 gr. : " + strn3001+vbcrlf + vbcrlf+"Ks. Fiskefilet Stor 100-130 gr. : " + strn3002+vbcrlf + vbcrlf+"Ks. Fiskefilet Uden Panering. : " + strn3003+vbcrlf + vbcrlf+"Sider Røget Laks. : " + strn3004+vbcrlf + vbcrlf+"Laksesider Frisk. : " + strn3005+vbcrlf + vbcrlf+"Kold røget Laks : " + strn3006+vbcrlf + vbcrlf+"Gl.Sort
Caviar. : " + strn3007+vbcrlf + vbcrlf+"Gl. Rød Caviar Imitat.: " + strn3008+vbcrlf + vbcrlf+"Sp. Marineret Sild i Bidder. : " + strn3009+vbcrlf + vbcrlf+"Sp. Store rejer i Lage. : " + strn3010+vbcrlf + vbcrlf+"Kg. Fiskefars Frost. : " + strn3011+vbcrlf + vbcrlf+"Sp.Matjes sild. : " + strn3012+vbcrlf + vbcrlf+"Diverse : " + strMessage+vbcrlf+vbcrlf++vbcrlf++ vbcrlf+"Bestilt af : " + strName +vbcrlf + vbcrlf+"Kan kontaktes på Tlf. : " + strTlf +vbcrlf + vbcrlf

  JMail.Execute
  Set JMail = Nothing

%>

Håber der er en der kan hjælpe