How to ommit form fields if empty using asp?

David Bradshaw

New Member

Join Date: Oct 2010
Posts: 1

How to ommit form fields if empty using asp?

Oct 27 '10, 07:00 PM

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:

Code:

<%@ 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?

Tags: asp, omitting form fields, vbscripting

danp129

Recognized Expert Contributor

Join Date: Jul 2006
Posts: 323

Oct 28 '10, 03:57 PM

You need to use an If statement like this:

Code:

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:

Code:

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.:

Code:

function iif(expr, returnWhenTrue, returnWhenFalse)
  if expr then
    iif = returnWhenTrue
  else 
    iif = returnWhenFalse
  end if
end function

Comment

Previous template Next