Displaying Results

**jleggett** · May 26, 2005 13:24

I am reading information from a sql db and would like for the information to display, which i had working, until i tried making it so that if there was no information in the db field, that it would not display any results.

Here is a snippet of the code. Any thoughts.

if name <> "" then
Response.Write("Name: " & recordset("name")& " ")
end if

if company <> "" then
Response.Write("Company: " & recordset("company")& " ")
end if

if title <> "" then
Response.Write("Title: " & recordset("title")& " ")
end if

**afrika** · May 26, 2005 13:29

If you paste your recordset here, it would help

I prefer to put

if not recordset.bof and not recordset.eof then
'do something
end if

Am assuming that all 3, name, company and title belong to the same recordset

Afrika

**jleggett** · May 26, 2005 13:33

I am writing information from a form into a db and have 2 different departments from work that are logging in to view the results. The person filling out the form, might not answer all the questions, therefore, i would like to not display those particular the additional fields, i.e. if htey don't list their title, then it skips that and moves to their company name.

If recordset.EOF then
response.Write "There were no records returned."
end if
if username = "mktg" then

response.write("Contact Information ")

if name <> "" then
Response.Write("Name: " & recordset("name")& " ")
end if

if company <> "" then
Response.Write("Company: " & recordset("company")& " ")
end if

Originally Posted by afrika

If you paste your recordset here, it would help

I prefer to put

Am assuming that all 3, name, company and title belong to the same recordset

Afrika

**afrika** · May 26, 2005 13:56

Your code looks ok to me, the only thing i may ask, is that is the username, name and company variables ? and where are they gotten from ?

Or are they recordsets, or request objects ?

**jleggett** · May 26, 2005 14:02

The username is stored in another table and is being passed via query string. That part is working, the part that isn't, is that data isn't being read from the db.

The name and company name variables are coming from a web form and being stored in a db table.

Originally Posted by afrika

Your code looks ok to me, the only thing i may ask, is that is the username, name and company variables ? and where are they gotten from ?

Or are they recordsets, or request objects ?

**afrika** · May 26, 2005 14:12

then use
request.form("name")
or request.form("company")

etc
if coming from the web form

isn't, is that data isn't being read from the db.

paste your code and db structure here

**jleggett** · May 26, 2005 14:26

Here is the entire code:

<%
Dim connection, recordset
Dim SQL, sConnString, username
Dim name, company, title,address, address2, city, state, zip, phone, fax, industry, industry_other, email, attendees, totalprice, name1, title1, email1,name2, title2, email2,name3, title3, email3,name4, title4, email4,name5, titel5, email5,rdate, payment, card,expiration, yes_no,b_name,b_address,b_address2,b_city,b_state,b_zip,b_signature
SQL = "SELECT * FROM ACCOUNT ORDER by company"

sConnString = "Driver={SQL Server};Server=xxxxx;Database=xxxxxx;Uid=xxxxxx;Pwd=xxxx;"

Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")

connection.Open sConnString

recordset.Open SQL,connection

do while NOT recordset.EOF

If recordset.EOF then
response.Write "There were no records returned."
end if

if username = "mktg" then

response.write("Contact Information ")

Request.Form("name")
if name <> "" then
Response.Write("Name: " & recordset("name")& " ")
end if

if company <> "" then
Response.Write("Company: " & recordset("company")& " ")
end if

if title <> "" then
Response.Write("Title: " & recordset("title")& " ")
end if

if address <> "" then
Response.Write("Address: " & recordset("address")& " ")
end if

if address2 <> "" then
Response.Write("Address: " & recordset("address2")& " ")
end if

if city <> "" then
Response.Write("City: " & recordset("city")& " ")
end if

if state <> "" then
Response.Write("State: " & recordset("state")& " ")
end if

if zip <> "" then
Response.Write("Zip: " & recordset("zip")& " ")
end if

if phone <> "" then
Response.Write("Phone: " & recordset("phone")& " ")
end if

if fax <> "" then
Response.Write("Fax: " & recordset("fax")& " ")
end if

if industry <> "" then
Response.Write("Industry: " & recordset("industry")& " ")
end if

if industry_other <> "" then
Response.Write("Other Industry: " & recordset("industry_other")& " ")
end if

if email <> "" then
Response.Write("Email: " & recordset("email")& " ")
end if

if attendees <> "" then
Response.Write("Attendees: " & recordset("attendees")& " ")
end if

if totalprice <> "" then
Response.Write("Total Price: " & formatcurrency(recordset("totalprice"))& " ")
end if

response.write("Additional Attendees ")

if name1 <> "" then
Response.Write("Name: " & recordset("name1")& " ")
end if

if title1 <> "" then
Response.Write("Title: " & recordset("title1")& " ")
end if

if email1 <> "" then
Response.Write("Email: " & recordset("email1")& " ")
end if

if name2 <> "" then
Response.Write("Name: " & recordset("name2")& " ")
end if

if title2 <> "" then
Response.Write("Title: " & recordset("title2")& " ")
end if

if email3 <> "" then
Response.Write("Email: " & recordset("email3")& " ")
end if

if name4 <> "" then
Response.Write("Name: " & recordset("name4")& " ")
end if

if title4 <> "" then
Response.Write("Title: " & recordset("title4")& " ")
end if

if email4 <> "" then
Response.Write("Email: " & recordset("email4")& " ")
end if

if name5 <> "" then
Response.Write("Name: " & recordset("name5")& " ")
end if

if titel5 <> "" then
Response.Write("Title: " & recordset("title5")& " ")
end if

if email5 <> "" then
Response.Write("Email: " & recordset("email5")& " ")
end if

if rdate <> "" then
Response.Write("Date: " & recordset("rdate")& " ")
end if

end if
if username = "acct" then

response.write("Contact Information ")
if name <> "" then
Response.Write("Name: " & recordset("name")& " ")
end if

if company <> "" then
Response.Write("Company: " & recordset("company")& " ")
end if

if title <> "" then
Response.Write("Title: " & recordset("title")& " ")
end if

if address <> "" then
Response.Write("Address: " & recordset("address")& " ")
end if

if address2 <> "" then
Response.Write("Address: " & recordset("address2")& " ")
end if

if city <> "" then
Response.Write("City: " & recordset("city")& " ")
end if

if state <> "" then
Response.Write("State: " & recordset("state")& " ")
end if

if zip <> "" then
Response.Write("Zip: " & recordset("zip")& " ")
end if

if phone <> "" then
Response.Write("Phone: " & recordset("phone")& " ")
end if

if fax <> "" then
Response.Write("Fax: " & recordset("fax")& " ")
end if

if email <> "" then
Response.Write("Email: " & recordset("email")& " ")
end if

if attendees <> "" then
Response.Write("Attendees: " & recordset("attendees")& " ")
end if

if totalprice <> "" then
Response.Write("Total Price: " & formatcurrency(recordset("totalprice"))& " ")
end if

response.write("Additional Attendees ")

if name1 <> "" then
Response.Write("Name: " & recordset("name1")& " ")
end if

if title1 <> "" then
Response.Write("Title: " & recordset("title1")& " ")
end if

if email1 <> "" then
Response.Write("Email: " & recordset("email1")& " ")
end if

if name2 <> "" then
Response.Write("Name: " & recordset("name2")& " ")
end if

if title2 <> "" then
Response.Write("Title: " & recordset("title2")& " ")
end if

if email3 <> "" then
Response.Write("Email: " & recordset("email3")& " ")
end if

if name4 <> "" then
Response.Write("Name: " & recordset("name4")& " ")
end if

if title4 <> "" then
Response.Write("Title: " & recordset("title4")& " ")
end if

if email4 <> "" then
Response.Write("Email: " & recordset("email4")& " ")
end if

if name5 <> "" then
Response.Write("Name: " & recordset("name5")& " ")
end if

if titel5 <> "" then
Response.Write("Title: " & recordset("title5")& " ")
end if

if email5 <> "" then
Response.Write("Email: " & recordset("email5")& " ")
end if

response.write("Billing Information ")
if payment <> "" then
Response.Write("Payment: " & recordset("payment")& " ")
end if

if card <> "" then
Response.Write("Card: " & recordset("card")& " ")
end if

if expiration <> "" then
Response.Write("Expiration: " & recordset("expiration")& " ")
end if

if yes_no <> "" then
Response.Write("Billing Information the same?: " & recordset("yes_no")& " ")
end if

if b_name <> "" then
Response.Write("Billing Name: " & recordset("b_name")& " ")
end if

if b_address <> "" then
Response.Write("Billing Address: " & recordset("b_address")& " ")
end if

if b_address2 <> "" then
Response.Write("Billing Address: " & recordset("b_address2")& " ")
end if

if b_city <> "" then
Response.Write("Billing City: " & recordset("b_city")& " ")
end if

if b_state <> "" then
Response.Write("Billing State: " & recordset("b_state")& " ")
end if

if b_zip <> "" then
Response.Write("Billing Zip: " & recordset("b_zip")& " ")
end if

if b_signature <> "" then
Response.Write("Signature: " & recordset("b_signature")& " ")
end if

if rdate <> "" then
Response.Write("Date: " & recordset("rdate")& " ")
end if
end if

Response.Write(" ")
Response.Write(" ")

recordset.MoveNext
loop

Recordset.Close
Set Recordset = nothing
Connection.Close
Set Connection = nothing
%>

Originally Posted by afrika

then use
request.form("name")
or request.form("company")

etc
if coming from the web form

paste your code and db structure here

**afrika** · May 27, 2005 00:38

Your code is quite lenghty

:-)

**afrika** · May 27, 2005 00:41

however there are somethings i really dont understand here e.g

Code:

<%
Dim connection, recordset
Dim SQL, sConnString, username
Dim name, company, title,address, address2, city, state, zip, phone, fax, industry, industry_other, email, attendees, totalprice, name1, title1, email1,name2, title2, email2,name3, title3, email3,name4, title4, email4,name5, titel5, email5,rdate, payment, card,expiration, yes_no,b_name,b_address,b_address2,b_city,b_state,b_zip,b_signature
SQL = "SELECT * FROM ACCOUNT ORDER by company"

sConnString = "Driver={SQL Server};Server=xxxxx;Database=xxxxxx;Uid=xxxxxx;Pwd=xxxx;" 

Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")

connection.Open sConnString

recordset.Open SQL,connection

do while NOT recordset.EOF

If recordset.EOF then
response.Write "There were no records returned."
end if 

if username   = "mktg" then 

response.write("<strong>Contact Information</strong><br>")

Request.Form("name")
if name <> "" then 
Response.Write("Name: " & recordset("name")& "<br>")
end if 

if company <> "" then 
Response.Write("Company: " & recordset("company")& "<br>")
end if 

if title <> "" then
Response.Write("Title: " & recordset("title")& "<br>")
end if 

if address <> "" then
Response.Write("Address: " & recordset("address")& "<br>")
end if 

if address2 <> "" then
Response.Write("Address: " & recordset("address2")& "<br>")
end if 

if city <> "" then
Response.Write("City: " & recordset("city")& "<br>")
end if 

if state <> "" then
Response.Write("State: " & recordset("state")& "<br>")
end if

Where are the values of the above variables gotten from

**jleggett** · May 27, 2005 05:11

The username is be checked via a querystring. That part works too, b/c I am getting the correct layout and report information for each department, just not the results.

Originally Posted by afrika

however there are somethings i really dont understand here e.g

Code:

<%
Dim connection, recordset
Dim SQL, sConnString, username
Dim name, company, title,address, address2, city, state, zip, phone, fax, industry, industry_other, email, attendees, totalprice, name1, title1, email1,name2, title2, email2,name3, title3, email3,name4, title4, email4,name5, titel5, email5,rdate, payment, card,expiration, yes_no,b_name,b_address,b_address2,b_city,b_state,b_zip,b_signature
SQL = "SELECT * FROM ACCOUNT ORDER by company"

sConnString = "Driver={SQL Server};Server=xxxxx;Database=xxxxxx;Uid=xxxxxx;Pwd=xxxx;" 

Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")

connection.Open sConnString

recordset.Open SQL,connection

do while NOT recordset.EOF

If recordset.EOF then
response.Write "There were no records returned."
end if 

if username   = "mktg" then 

response.write("<strong>Contact Information</strong><br>")

Request.Form("name")
if name <> "" then 
Response.Write("Name: " & recordset("name")& "<br>")
end if 

if company <> "" then 
Response.Write("Company: " & recordset("company")& "<br>")
end if 

if title <> "" then
Response.Write("Title: " & recordset("title")& "<br>")
end if 

if address <> "" then
Response.Write("Address: " & recordset("address")& "<br>")
end if 

if address2 <> "" then
Response.Write("Address: " & recordset("address2")& "<br>")
end if 

if city <> "" then
Response.Write("City: " & recordset("city")& "<br>")
end if 

if state <> "" then
Response.Write("State: " & recordset("state")& "<br>")
end if

Where are the values of the above variables gotten from

**jleggett** · May 27, 2005 10:25

i figured it out. and as i suspected, it was an easy fix.
it should have been if recordset("name") <> " then

thanks for the help.

Originally Posted by jleggett

The username is be checked via a querystring. That part works too, b/c I am getting the correct layout and report information for each department, just not the results.

**gRoberts** · May 27, 2005 23:39

You do know, its gonna be easier doing the following:

Code:

<% 

for each item in request.form
if request.form(item) <> "" then
response.write item & "=" & request.form(item)
end if
next

%>

This will loop through all your form collection and display it in the page. If you want to exclude any hidden forms etc, all you need to do is add another if statement.

Gav

User Tag List

Thread: Displaying Results

Thread Tools

Display