July 24, 2008 07:20pm pdt

1. capricorn1 2,093,351
2. DatabaseMX 1,310,821
3. boag2000 585,819
4. LSMCons... 550,404
5. peter57r 440,168
6. harfang 409,203
7. GRayL 386,131
8. jimhorn 258,552
9. matthews... 250,724
10. cactus_d... 242,502
11. TextReport 236,057
12. hnasr 201,250
13. ee_rlee 173,155
14. angelIII 140,704
15. jefftwilley 140,435

1. capricorn1 9,750,389
2. nico5038 5,699,981
3. rockiroads 5,409,687
4. peter57r 3,884,663
5. LPurvis 3,394,721
6. shanesue... 3,288,317
7. LSMCons... 3,286,994
8. DatabaseMX 3,194,282
9. harfang 3,026,036
10. stevbe 2,857,111
11. jimhorn 2,678,144
12. GRayL 2,545,975
13. flavo 2,109,583
14. mbizup 2,021,084
15. jadedata 1,964,977

05.16.2008 at 01:35PM PDT, ID: 23409696

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

How do I properly code query results info to display neatly in a table?

Zones: Microsoft Access Database, Databases Miscellaneous

I have created an ASP database query, but I am seeking coding direction on how do display the results in neatly with headers in a table. Right now, the results are boring and unattractive. I have included a code snippet. I am requesting the coding to change into a well-presented table.
kfranck

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

           
           
             If Not Request.Querystring("Search") = "" Then
	'Set Connection
	set conn=Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\yoursource\yoursource Website\SEARCHES\fonedirectory.mdb"
 
	Set rsMasterRolodex = Server.CreateObject("ADODB.Recordset")
	Set rsMasterRolodex = conn.Execute("SELECT ID_no,name,extension,department,title,homephone,cell,email,date FROM MASTER_Rolodex WHERE name Like '%" & Request.Querystring("Search") & "%' OR department Like '%" & Request.Querystring("Search") & "%' OR extension Like '%" & Request.Querystring("Search") & "%';")
 
	strResult = strResult & " <tr>" & vbcrlf
 
	If Not rsMasterRolodex.EOF Then
		'Display rsMasterRolodex
		strResult = strResult & "  <td valign=top>" & vbcrlf
		strResult = strResult & "   <table border=0 cellpadding=1 cellspacing=1 width=100% style=""FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"">" & vbcrlf
		strResult = strResult & "<tr>" & vbcrlf
		strResult = strResult & "<td><b>BLADE Phone Directory</b></td></tr>" & vbcrlf
		Do While Not rsMasterRolodex.EOF
			strResult = strResult & "<tr>" & vbcrlf
			strResult = strResult & "<td>" & vbcrlf
			If Not rsMasterRolodex.Fields("name").Value = "" Then
				strResult = strResult & "<b>NAME: </b>" & rsMasterRolodex.Fields("name").Value  & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("extension").Value = "" Then
				strResult = strResult & "<b>EXTENSION: </b>" & rsMasterRolodex.Fields("extension").Value  & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("department").Value = "" Then
				strResult = strResult & "<b>DEPARTMENT: </b>" & rsMasterRolodex.Fields("department").Value  & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("title").Value = "" Then
				strResult = strResult & "<b>TITLE: </b>" & rsMasterRolodex.Fields("title").Value & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("homephone").Value = "" Then
				strResult = strResult & "<b>HOME PHONE: </b>" & rsMasterRolodex.Fields("homephone").Value & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("cell").Value = "" Then
				strResult = strResult & "<b>CELL: </b>" & rsMasterRolodex.Fields("cell").Value  & "<br>" & vbcrlf
			End If
			If Not rsMasterRolodex.Fields("email").Value = "" Then
				strResult = strResult & "<b>E-MAIL: </b>" & rsMasterRolodex.Fields("email").Value  & "<br>" & vbcrlf
			End If
			rsMasterRolodex.MoveNext
			strResult = strResult & "<hr></td></tr>" & vbcrlf
		Loop
		rsMasterRolodex.Close
		strResult = strResult & "</table></td></tr>" & vbcrlf
	End If
 
	strResult = strResult & "</tr>" & vbcrlf
	conn.Close
 
	Set conn = Nothing
	Set rsMasterRolodex = Nothing
End If
 
strResult = strResult & " <tr><td colspan=2></td></tr></table>" & vbcrlf

           
         

Start your free trial to view this solution

Question Stats

Zone: Microsoft

Question Asked By: kfranck

Solution Provided By: nico5038

Participating Experts: 2

Solution Grade: A

Translate:

Loading Advertisement...

20080236-EE-VQP-29 / EE_QW_2_20070628