Er der en der kan hjælpe mig Please ! Kun sende udfyldte felter
HejJeg 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
%>