How to ommit form fields if empty using asp?

1 New Member

Hello I am new to asp programing (classic asp) and I am teaching myself this language. I am having some difficulty finding the syntax to this problem I have having.

I am trying to omit the empty fields in my form so that those empty fields are not output to the email I receive.

I found this fix in php, but not in asp. Can someone help me with this?

My form, see below: ASP Vbscripting:

Expand|Select|Wrap|Line Numbers

 
<%@ Language="VBscript" %>

<% Option Explicit %>
 
<html>

<head>

<title>some title goes here</title>

</head>
 
<body>

<%

Dim warehouse, userid, domain, customerno, vendor, specialrequirements, item1, desc1, qty1, brand1, freeform1, item2, desc2, qty2, brand2, freeform2, item3, desc3, qty3, brand3, freeform3, item4, desc4, qty4, brand4, freeform4, item5, desc5, qty5, brand5, freeform5, item6, desc6, qty6, brand6, freeform6, NewMailObj
 
warehouse=request.form("warehouse")

userid=request.form("userid")

domain=request.form("domain")

customerno=request.form("customerno")

vendor=request.form("vendor")

specialrequirements=request.form("specialrequirements")

item1=request.form("item1")

desc1=request.form("desc1")

qty1=request.form("qty1")

brand1=request.form("brand")

freeform1=request.form("freeform1")

item2=request.form("item2")

desc2=request.form("desc2")

qty2=request.form("qty2")

brand2=request.form("brand2")

freeform2=request.form("freeform2")

item3=request.form("item3")

desc3=request.form("desc3")

qty3=request.form("qty3")

brand3=request.form("brand3")

freeform3=request.form("freefrom3")

item4=request.form("item4")

desc4=request.form("desc4")

qty4=request.form("qty4")

brand4=request.form("brand4")

freeform4=request.form("freeform4")

item5=request.form("item5")

desc5=request.form("desc5")

qty5=request.form("qty5")

brand5=request.form("brand5")

freeform5=request.form("freeform5")

item6=request.form("item6")

desc6=request.form("desc6")

qty6=request.form("qty6")

brand6=request.form("brand6")

freeform6=request.form("freeform6")
 
' create the form results in a HTML table format to be sent to the email

Dim FormResults

FormResults = FormResults & "<html>"

FormResults = FormResults & "<head>"

FormResults = FormResults & "<title></title>"

FormResults = FormResults & "</head>"

FormResults = FormResults & "<body>"

FormResults = FormResults & "<table border='0' width='100%' align='center'>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td>&nbsp;</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>User's IP Address:</td>"

FormResults = FormResults & "<td align='left'>" & Request.ServerVariables("REMOTE_ADDR") & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Warehouse Number:</td>"

FormResults = FormResults & "<td align='left'>" & warehouse & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>User Email Address:</td>"

FormResults = FormResults & "<td align='left'>" & userid & "@" & domain & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Customer No:</td>"

FormResults = FormResults & "<td align='left'>" & customerno & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Have already contacted this vendor?</td>"

FormResults = FormResults & "<td align='left'>" & vendor & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & specialrequirements & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td>&nbsp;</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [1]</td>"

FormResults = FormResults & "<td align='left'>Item Number [1]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item1 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:/b></td>"

FormResults = FormResults & "<td align='left'>" & qty1 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc1 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand1 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform1 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [2]</td>"

FormResults = FormResults & "<td align='left'>Item Number [2]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item2 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:</td>"

FormResults = FormResults & "<td align='left'>" & qty2 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc2 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand2 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform2 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [3]</td>"

FormResults = FormResults & "<td align='left'>Item Number [3]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item3 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:</td>"

FormResults = FormResults & "<td align='left'>" & qty3 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc3 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand3 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform3 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [4]</td>"

FormResults = FormResults & "<td align='left'>Item Number [4]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item4 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:</td>"

FormResults = FormResults & "<td align='left'>" & qty4 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc4 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand4 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform4 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [5]</td>"

FormResults = FormResults & "<td align='left'>Item Number [5]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item5 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:</td>"

FormResults = FormResults & "<td align='left'>" & qty5 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc5 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand5 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform5 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td colspan='5' align='center' nowrap>-------------------------------------------</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item Number [6]</td>"

FormResults = FormResults & "<td align='left'>Item Number [6]</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Item #:</td>"

FormResults = FormResults & "<td align='left'>" & item6 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Qty:</td>"

FormResults = FormResults & "<td align='left'>" & qty6 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Industry Description:</td>"

FormResults = FormResults & "<td align='left'>" & desc6 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Required Brand:</td>"

FormResults = FormResults & "<td align='left'>" & brand6 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "<tr>"

FormResults = FormResults & "<td align='right' width='50%'>Freeform Description:</td>"

FormResults = FormResults & "<td align='left' style='vertical-align:top'>" & freeform6 & "</td>"

FormResults = FormResults & "</tr>"

FormResults = FormResults & "</table>"

FormResults = FormResults & "</body>"

FormResults = FormResults & "</html>"
 
'create the mail object and send the details

Set NewMailObj=Server.CreateObject("CDONTS.NewMail")

NewMailObj.From = userid & "@" & domain

NewMailObj.To = "some@email.here"

NewMailObj.Subject = "a subject here" 

NewMailObj.Body = FormResults 
 
'you need to add the following lines FOR the mail to be sent in HTML format

NewMailObj.BodyFormat = 0 

NewMailObj.MailFormat = 0 

NewMailObj.Send

'Close the email object and free up resources 

Set NewMailObj = nothing

Response.redirect("thankyou.asp")

%>

This script works perfectly, though it is also sending the empty fields in the email. I need to omitt them out so that only the fields that contain the information is being sent in the email.

Can someone please help with this?

Oct 27 '10 #1

Subscribe Reply

2501

danp129

323

Recognized Expert Contributor

You need to use an If statement like this:

Expand|Select|Wrap|Line Numbers

 If warehouse <> "" Then

  FormResults = FormResults & "<tr>"

  FormResults = FormResults & "<td align='right' width='50%'>Warehouse Number:</td>"

  FormResults = FormResults & "<td align='left'>" & warehouse & "</td>"

  FormResults = FormResults & "</tr>"

End If

Or an iif() statement like this:

Expand|Select|Wrap|Line Numbers

 FormResults = FormResults & iif(warehouse="","", "<tr><td align='right' width='50%'>" & _

                        "Warehouse Number:</td><td align='left'>" & _

                        warehouse & "</td></tr>")

Since VBScript does not have an iif function, you will need to create one if you decide to use it.:

Expand|Select|Wrap|Line Numbers

 function iif(expr, returnWhenTrue, returnWhenFalse)

  if expr then

    iif = returnWhenTrue

  else 

    iif = returnWhenFalse

  end if

end function

Oct 28 '10 #2

Similar topics

Omitting form fields if empty

by: JDJones | last post by:

I have a form I'm putting together. The processing will be on a PHP script that will take all the field names and print them out on the email it sends to me. No problem there. But what I'd like to...

PHP

Stopping blank form fields being submitted.

by: Batezz | last post by:

I have created a form (below) How do I stop it redirecting to another page (productsearchresults.php) when form is submitted if both the fields are blank? Any help appreciated. Batezz

PHP

Form fields don't persist after window.open, form submit, browser back

by: jwlum | last post by:

I have the following problem under Internet Explorer only: 1. User fills out form data (myform.php) and clicks a button that fires myFunction() 2. myFunction() spawns a "hello, world" popup page...

PHP

Accessing text form fields name=field[label]

by: Chuck Anderson | last post by:

I'm pretty much a JavaScript novice. I'm good at learning by example and changing those examples to suit my needs. That said .... ..... I have some select fields in a form I created for a...

Javascript

editing PDF with form fields

by: Mike De Petris | last post by:

I am using itextsharp to fill in and flatten some fields from data filled in a web form field and all works quite well. The question now is how to manage the pdf template that has the fields to...

ASP.NET

Validating form fields aren't empty

by: Anthony P | last post by:

Hello Everyone, I am having some trouble getting my JavaScript to validate my form fields. I've included more information below. My explaination of the code is in ALL CAPS so it stands out from...

Javascript

no empty form fields after submitting form

by: pepper.gabriela | last post by:

Hello, a stupid question but... page_A.php is a page with a form. The user inserts text in four fields, then he clicks a submit button. The data goes to page_B.php: this page controls the data...

PHP

Resizing of Form Fields When Using Percentages For Width Property

by: marcopolo8 | last post by:

Wierd thing is happening during my xHTML development. When I set the width attribute of a text field in a form and use percentages, if the text field's value is extremely long, IE6 automatically...

HTML / CSS

Programmatic HTTP Post returns Empty Form fields on ASPX Server Side

by: ERobishaw | last post by:

Using Winform app writing a HTTP Post using the following... on the server side, I get no form fields. Request.Form.AllKeys.Length = 0. If I put the field/value paris in the URL I can use...

ASP.NET

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...

C# / C Sharp

php

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP