Hi!

I have announcements down the left hand column of a site and I need help in how to setup the coding so I display a database field and a space or text only if there is data in the database field.

A common example is you are displaying time and date for a list of activities and have on your page
under each activity description
Date: info from date database field
Time info from time database field

But if no data is in the date and time field, it looks silly to have the text "Date" and "Time" displaying on the page. My scenario is same but using different variables.

I am using Access and ASP/VBScript.

The contact info normally would appear like:
Ron Smith 972-456-7899 email (email address is programmed into the word email)

And if there is nothing in the database, then I want to leave it
blank and take out the space or word email I right now have between the
database fields to try and help positioning (see my coding)

The recordset I am pulling from is rsAnnounce and the database
fields are:
acontact aphone aemail


Here is the coding I am using now and the problem is it inserts the blank spaces even if there is no data in the database field and for email displays the word email even if there is no data in the email field. This is silly! <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle>

I hope I am making sense to you!!


Thanks for your help!

Healthy regards,

Teresa


<pre id=code><font face=courier size=2 id=code>
&lt;tr&gt;
&lt;td align="left"
valign="top"&gt;&lt;p&gt;&lt;%=(rsAnnounce.Fields.Item("acontact".Value)%&gt; &lt;%=(rsAnnounce.Fields.Item("aphone".Value)%&gt; &lt;a
href="mailto:&lt;%=(rsAnnounce.Fields.Item("aemail".Value)%&gt;"&gt;&lt;font
color="999999"&gt;email&lt;/font&gt;&lt;/a&gt;&lt;/p&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
</font id=code></pre id=code>

Edited by - terepan on 01 Mar 2005 19:26:51

Hi Teresa,

You have to use the VBA's IF...THEN...ELSE

Must be something like this :

&lt;tr&gt;
&lt;td align="left"valign="top"&gt;
&lt;p&gt;
&lt;%=IF(rsAnnounce.Fields.Item("acontact".Value) &lt;&gt; "" THEN Response.Write (rsAnnounce.Fields.Item("acontact".Value) ELSE Response.Write "" END IF%&gt; &lt;%=IF(rsAnnounce.Fields.Item("aphone".Value) &lt;&gt; "" THEN Response.Write (rsAnnounce.Fields.Item("aphone".Value) ELSE Response.Write "" END IF%&gt; &lt;%=IF (rsAnnounce.Fields.Item("aemail".Value) &lt;&gt; "" THEN%&gt;&lt;ahref="mailto:&lt;%=(rsAnnounce.Fields.Item("aemail".Value)%&gt;"&gt;&lt;%ELSE Response.Write "" END IF%&gt;
&lt;fontcolor="999999"&gt;email
&lt;/font&gt;
&lt;/a&gt;
&lt;/p&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;

I don't know what you want to do with the line &lt;fontcolor="999999"&gt;email
I hope this helped you and works the way you want, otherwise let me know...

Wim

Hi Wim!

Thanks! I am getting closer. But still some kinks.

Here is a test page with the annoucements on the left:
216.97.90.223/discover/indextest.asp

See how the name and telephone number back up to one another.
If there is data, how can I insert a space between the contact name and phone number?

Here is the coding that is bumping up the fields next to one another:
&lt;% IF(rsAnnounce.Fields.Item("acontact".Value)
&lt;&gt; "" THEN Response.Write (rsAnnounce.Fields.Item("acontact"
.Value) ELSE Response.Write "" END IF%&gt;


Then the ASP statement that I could not get to work, aemail (email address).

Here is the coding that is working right now for database fields acontact and aphone:


<pre id=code><font face=courier size=2 id=code>
&lt;% IF(rsAnnounce.Fields.Item("acontact".Value) &lt;&gt;
"" THEN Response.Write (rsAnnounce.Fields.Item("acontact"
.Value) ELSE Response.Write "" END IF%&gt;
</font id=code></pre id=code>

For the email, I have setup that is working but WITHOUT any If Then Response.Write
<pre id=code><font face=courier size=2 id=code>
&lt;a href="mailto:&lt;%=(rsAnnounce.Fields.Item("aemail".Value)%&gt;"&gt;
&lt;font color="999999"&gt;email&lt;/font&gt;&lt;/a&gt;
</font id=code></pre id=code>

What I need help is writing the If Then Response.Write statement in ASP that first checks if there
is data in the database field aemail (recordset is rsAnnounce) and if so, inserts a space and then
the word email with the data from the database field inserted into the mailto command.


Thanks for your help!!


Edited by - terepan on 02 Mar 2005 04:52:35

Edited by - terepan on 02 Mar 2005 04:53:57

Edited by - terepan on 02 Mar 2005 04:55:26

Hey teresa,

Wim gave you a nice response, but maybe i can help you out a bit more... maybe clarify some stuff (I hope). Try doing your IF statements like this:

<pre id=code><font face=courier size=2 id=code>
&lt;%If NOT (rsAnnounce.Fields.Item("acontact".Value) = "" Then %&gt;
Contact Name: &lt;%=(rsAnnounce.Fields.Item("acontact".Value)%&gt; & nbsp;
&lt;% End If %&gt;

&lt;%If NOT (rsAnnounce.Fields.Item("aphone".Value) = "" Then %&gt;
Phone Number: &lt;%=(rsAnnounce.Fields.Item("aphone".Value)%&gt; & nbsp;
&lt;% End If %&gt;

&lt;%If NOT (rsAnnounce.Fields.Item("aemail".Value) = "" Then %&gt;
Email Address: &lt;%=(rsAnnounce.Fields.Item("aemail".Value)%&gt; & nbsp;
&lt;% End If %&gt;
</font id=code></pre id=code>

This is very similar to what WIM showed you, but just broken down a bit more. So, it will check each field in the database (contact name, email address, and phone number), it they are empty, then it won't show that information.

To insert a space, i just included a
<pre id=code><font face=courier size=2 id=code>& nbsp;</font id=code></pre id=code> (you will have to take out the space between the & and the nbsp; - if i left it without the space, it wouldn't show up in the post!) that will generate a space.
Hopefully that works for you!

Edited by - flexman44 on 02 Mar 2005 08:38:57

Hi Trevor!

Thanks a bunch! It worked.

Here is what I ended up using:
&lt;%If NOT (rsAnnounce.Fields.Item("acontact".Value) = "" Then %&gt;
Contact Name: &lt;br&gt;
&lt;%=(rsAnnounce.Fields.Item("acontact".Value)%&gt; & nbsp;
&lt;% End If %&gt;
&lt;%If NOT (rsAnnounce.Fields.Item("aphone".Value) = "" Then %&gt;
&lt;br&gt;
Phone: &lt;%=(rsAnnounce.Fields.Item("aphone".Value)%&gt; & nbsp;
&lt;% End If %&gt;
&lt;%If NOT (rsAnnounce.Fields.Item("aemail".Value) = "" Then %&gt;
&lt;a href="mailto:&lt;%=(rsAnnounce.Fields.Item("aemail".Value)%&gt;"&gt;Email Address&lt;/a&gt; & nbsp;
&lt;% End If %&gt;

If you are reading the coding I did program in the space (& nbsp) with an extra space so it would
show up on the posting like Trevor mentioned. If you use it, take out the space.

It only shows the word Contact Name, or Phone or Email with the space if it has data in the database
field. If there is no data, it moves on to the next database field request.

Worked perfect!!

Thanks again.

Healthy regards,

Teresa