Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > ASP General > Arrays / Tables / Anything for a "clean" display

Reply
Thread Tools

Arrays / Tables / Anything for a "clean" display

 
 
dmiller23462
Guest
Posts: n/a
 
      07-23-2004
Somebody take a look and give me any suggestions? My brain is nuked...

Here's my deal....I have online submission forms on my intranet at
work here....I am appending to an Access DB with the input from all
HTML fields and then querying aforementioned DB with different
variables (search by name, wave, reason, etc). The output that I'm
getting (SELECT * 'cause I need all of the data included in the
search) I would like to display in a nice table or array but I'm not
quite sure how to make those settings "dynamic", for lack of a better
word. What I mean is, the form is used at various times throughout the
day so I don't want to put a cap on the array rows and columns since
they will be constantly increasing. Any suggestions?

Here's the code I have right now (I was playing around with display
ideas) and the table is the basic way I want it but the columns change
to fit whatever data is in them....That's not good, I want a RIGID
column that will be unwavering in it's data display...

Throw me a bone here...Thanks guys...

<%

Mode = request.form("mode")
Name = request.form("name")
Shift = request.form("shift")
Wave = request.form("wave")
Carton = request.form("carton")
Location = request.form("location")
License = request.form("license")
Sku = request.form("sku")
Qty = request.form("quantity")
Reason = request.form("reason")
Comments = request.form("comments")

'************************************************* ****************************
'* DATABASE APPENDING
*
'************************************************* ****************************
'create db connection
Set dbconn = Server.CreateObject("ADODB.Connection")

'open db in a DSN-less method
dbconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_test.mdb")

'sql statement to return input values drawn from html fields
SQLqry = "SELECT * from test_data WHERE name LIKE '%%"&name&"%%'"

'display results of statement on screen for testing purposes
'Response.Write "<h3><b><u>" & (SQLqry) & "</u></b></h3><br>"

'remind db who it works for
Set rs = dbconn.Execute(SQLqry)

While Not rs.EOF
Response.Write "<table border='1'>"
Response.Write "<tr><td><b>Name:</b> " & rs("name")
Response.Write "<td>"
Response.Write "<b>Days/Nights:</b> " & rs("shift")
Response.Write "<td>"
Response.Write "<b>Wave Number:</b> " & rs("wave")
Response.Write "<td>"
Response.Write "<b>Carton Number:</b> " & rs("carton")
Response.Write "<td>"
Response.Write "<b>Location:</b> " & rs("location")
Response.Write "<td>"
Response.Write "<b>License:</b> " & rs("license")
Response.Write "<td>"
Response.Write "<b>SKU:</b> " & rs("sku")
Response.Write "<td>"
Response.Write "<b>Quantity:</b> " & rs("qty")
Response.Write "<td>"
Response.Write "<b>Reason:</b> " & rs("reason")
Response.Write "<td>"
Response.Write "<b>Comments:</b> " & rs("comments")
Response.Write "<td>"
Response.Write "<b>Date Submitted:</b> " & rs("date")
Response.Write "</td></table>"
rs.MoveNext
Wend

'smack around the db connection until it lets go
dbconn.Close

'terminate db connection with extreme prejudice
set dbconn = nothing

%>
 
Reply With Quote
 
 
 
 
Jacob Munk-Stander
Guest
Posts: n/a
 
      07-23-2004
If I understand you correctly you want the table data to be listed in a
consistent manner... this is actually an HTML problem, where what you're
doing is creating a new table for each row (also, you forget to close your
TDs and your TR), but anyway, here goes (also, you could include width= in
your TDs):

Response.Write "<table border='1'>"

While Not rs.EOF
Response.Write "<tr><td><b>Name:</b> " & rs("name") & "</td>"
Response.Write "<td>"
Response.Write "<b>Days/Nights:</b> " & rs("shift") & "</td>"
Response.Write "<td>"
Response.Write "<b>Wave Number:</b> " & rs("wave") & "</td>"
Response.Write "<td>"
Response.Write "<b>Carton Number:</b> " & rs("carton") & "</td>"
Response.Write "<td>"
Response.Write "<b>Location:</b> " & rs("location") & "</td>"
Response.Write "<td>"
Response.Write "<b>License:</b> " & rs("license") & "</td>"
Response.Write "<td>"
Response.Write "<b>SKU:</b> " & rs("sku") & "</td>"
Response.Write "<td>"
Response.Write "<b>Quantity:</b> " & rs("qty") & "</td>"
Response.Write "<td>"
Response.Write "<b>Reason:</b> " & rs("reason") & "</td>"
Response.Write "<td>"
Response.Write "<b>Comments:</b> " & rs("comments") & "</td>"
Response.Write "<td>"
Response.Write "<b>Date Submitted:</b> " & rs("date") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Wend

Response.Write "</table>"


--
Yours sincerely,
Jacob Munk-Stander | http://jacob.munk-stander.dk


"dmiller23462" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed) om...
> Somebody take a look and give me any suggestions? My brain is nuked...
>
> Here's my deal....I have online submission forms on my intranet at
> work here....I am appending to an Access DB with the input from all
> HTML fields and then querying aforementioned DB with different
> variables (search by name, wave, reason, etc). The output that I'm
> getting (SELECT * 'cause I need all of the data included in the
> search) I would like to display in a nice table or array but I'm not
> quite sure how to make those settings "dynamic", for lack of a better
> word. What I mean is, the form is used at various times throughout the
> day so I don't want to put a cap on the array rows and columns since
> they will be constantly increasing. Any suggestions?
>
> Here's the code I have right now (I was playing around with display
> ideas) and the table is the basic way I want it but the columns change
> to fit whatever data is in them....That's not good, I want a RIGID
> column that will be unwavering in it's data display...
>
> Throw me a bone here...Thanks guys...
>
> <%
>
> Mode = request.form("mode")
> Name = request.form("name")
> Shift = request.form("shift")
> Wave = request.form("wave")
> Carton = request.form("carton")
> Location = request.form("location")
> License = request.form("license")
> Sku = request.form("sku")
> Qty = request.form("quantity")
> Reason = request.form("reason")
> Comments = request.form("comments")
>
>

'************************************************* **************************
**
> '* DATABASE APPENDING
> *
>

'************************************************* **************************
**
> 'create db connection
> Set dbconn = Server.CreateObject("ADODB.Connection")
>
> 'open db in a DSN-less method
> dbconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
>

Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_
test.mdb")
>
> 'sql statement to return input values drawn from html fields
> SQLqry = "SELECT * from test_data WHERE name LIKE '%%"&name&"%%'"
>
> 'display results of statement on screen for testing purposes
> 'Response.Write "<h3><b><u>" & (SQLqry) & "</u></b></h3><br>"
>
> 'remind db who it works for
> Set rs = dbconn.Execute(SQLqry)
>
> While Not rs.EOF
> Response.Write "<table border='1'>"
> Response.Write "<tr><td><b>Name:</b> " & rs("name")
> Response.Write "<td>"
> Response.Write "<b>Days/Nights:</b> " & rs("shift")
> Response.Write "<td>"
> Response.Write "<b>Wave Number:</b> " & rs("wave")
> Response.Write "<td>"
> Response.Write "<b>Carton Number:</b> " & rs("carton")
> Response.Write "<td>"
> Response.Write "<b>Location:</b> " & rs("location")
> Response.Write "<td>"
> Response.Write "<b>License:</b> " & rs("license")
> Response.Write "<td>"
> Response.Write "<b>SKU:</b> " & rs("sku")
> Response.Write "<td>"
> Response.Write "<b>Quantity:</b> " & rs("qty")
> Response.Write "<td>"
> Response.Write "<b>Reason:</b> " & rs("reason")
> Response.Write "<td>"
> Response.Write "<b>Comments:</b> " & rs("comments")
> Response.Write "<td>"
> Response.Write "<b>Date Submitted:</b> " & rs("date")
> Response.Write "</td></table>"
> rs.MoveNext
> Wend
>
> 'smack around the db connection until it lets go
> dbconn.Close
>
> 'terminate db connection with extreme prejudice
> set dbconn = nothing
>
> %>



 
Reply With Quote
 
 
 
 
Bob Barrows [MVP]
Guest
Posts: n/a
 
      07-23-2004
dmiller23462 wrote:
> Somebody take a look and give me any suggestions? My brain is nuked...
>
> Here's my deal....I have online submission forms on my intranet at
> work here....I am appending to an Access DB with the input from all
> HTML fields and then querying aforementioned DB with different
> variables (search by name, wave, reason, etc). The output that I'm
> getting (SELECT * 'cause I need all of the data included in the
> search)


http://www.aspfaq.com/show.asp?id=2096


> I would like to display in a nice table or array but I'm not
> quite sure how to make those settings "dynamic", for lack of a better
> word. What I mean is, the form is used at various times throughout the
> day so I don't want to put a cap on the array rows and columns since
> they will be constantly increasing. Any suggestions?
>


http://www.aspfaq.com/show.asp?id=2467

> Here's the code I have right now (I was playing around with display
> ideas) and the table is the basic way I want it but the columns change
> to fit whatever data is in them....That's not good, I want a RIGID
> column that will be unwavering in it's data display...


Use the Style attribute:

Response.Write "<tr><td style=""width:50px""">..."
>

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"


 
Reply With Quote
 
Gary Jones
Guest
Posts: n/a
 
      07-23-2004
Why not try GetRows ? :-


<%
Result = DisplayTableContents("test_Data","Name",Request("N ame"))

Private Function DisplayTableContents(byVal TableName, byVal Comparator,
byVal Comparison)
MyConnection = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_
test.mdb")

Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Open MyConnection
SQLqry = "SELECT * from " & TableName & " WHERE " & Comparator & " LIKE
'%%" & Comparison & "%%'"
Set rs = dbconn.Execute(SQLqry)

DataArray = rs.GetRows
NumberofRecords = ubound(DataArray,2)
NumberOfFields = ubound(DataArray,1)
Redim FieldNames(NumberOfFields+1)
For FieldNumber = 0 to NumberOfFields
FieldNames(FieldNumber)= rs.Fields(FieldNumber).Name
Next
rs.close
set rs=nothing
dbconn.close
set dbconn = Nothing

Response.write("Number of Records = " & NumberOfRecords)
Response.write("Number of Fields = " & NumberOfFields)

For RecordNumber = 0 to NumberOfRecords
Response.Write "<table border='1'><tr>"
For FieldNumber = 0 To NumberOfFields
Response.Write "<td><b>" & Trim(FieldNames(FieldNumber)) & ":</b> "
Response.write DataArray(FieldNumber, RecordNumber) & "</td>"
Next
Response.Write "</tr></table>"
Next
End Function
%>

"dmiller23462" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed) om...
> Somebody take a look and give me any suggestions? My brain is nuked...
>
> Here's my deal....I have online submission forms on my intranet at
> work here....I am appending to an Access DB with the input from all
> HTML fields and then querying aforementioned DB with different
> variables (search by name, wave, reason, etc). The output that I'm
> getting (SELECT * 'cause I need all of the data included in the
> search) I would like to display in a nice table or array but I'm not
> quite sure how to make those settings "dynamic", for lack of a better
> word. What I mean is, the form is used at various times throughout the
> day so I don't want to put a cap on the array rows and columns since
> they will be constantly increasing. Any suggestions?
>
> Here's the code I have right now (I was playing around with display
> ideas) and the table is the basic way I want it but the columns change
> to fit whatever data is in them....That's not good, I want a RIGID
> column that will be unwavering in it's data display...
>
> Throw me a bone here...Thanks guys...
>
> <%
>
> Mode = request.form("mode")
> Name = request.form("name")
> Shift = request.form("shift")
> Wave = request.form("wave")
> Carton = request.form("carton")
> Location = request.form("location")
> License = request.form("license")
> Sku = request.form("sku")
> Qty = request.form("quantity")
> Reason = request.form("reason")
> Comments = request.form("comments")
>
>

'************************************************* **************************
**
> '* DATABASE APPENDING
> *
>

'************************************************* **************************
**
> 'create db connection
> Set dbconn = Server.CreateObject("ADODB.Connection")
>
> 'open db in a DSN-less method
> dbconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
>

Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_
test.mdb")
>
> 'sql statement to return input values drawn from html fields
> SQLqry = "SELECT * from test_data WHERE name LIKE '%%"&name&"%%'"
>
> 'display results of statement on screen for testing purposes
> 'Response.Write "<h3><b><u>" & (SQLqry) & "</u></b></h3><br>"
>
> 'remind db who it works for
> Set rs = dbconn.Execute(SQLqry)
>
> While Not rs.EOF
> Response.Write "<table border='1'>"
> Response.Write "<tr><td><b>Name:</b> " & rs("name")
> Response.Write "<td>"
> Response.Write "<b>Days/Nights:</b> " & rs("shift")
> Response.Write "<td>"
> Response.Write "<b>Wave Number:</b> " & rs("wave")
> Response.Write "<td>"
> Response.Write "<b>Carton Number:</b> " & rs("carton")
> Response.Write "<td>"
> Response.Write "<b>Location:</b> " & rs("location")
> Response.Write "<td>"
> Response.Write "<b>License:</b> " & rs("license")
> Response.Write "<td>"
> Response.Write "<b>SKU:</b> " & rs("sku")
> Response.Write "<td>"
> Response.Write "<b>Quantity:</b> " & rs("qty")
> Response.Write "<td>"
> Response.Write "<b>Reason:</b> " & rs("reason")
> Response.Write "<td>"
> Response.Write "<b>Comments:</b> " & rs("comments")
> Response.Write "<td>"
> Response.Write "<b>Date Submitted:</b> " & rs("date")
> Response.Write "</td></table>"
> rs.MoveNext
> Wend
>
> 'smack around the db connection until it lets go
> dbconn.Close
>
> 'terminate db connection with extreme prejudice
> set dbconn = nothing
>
> %>



 
Reply With Quote
 
dmiller23462
Guest
Posts: n/a
 
      07-23-2004
Thanks alot for the help....Just glad I could get posted before I left
work for the weekend....I'll give all those ideas a shot and let y'all
know....Thanks again....

"Gary Jones" <(E-Mail Removed)> wrote in message news:<(E-Mail Removed)>...
> Why not try GetRows ? :-
>
>
> <%
> Result = DisplayTableContents("test_Data","Name",Request("N ame"))
>
> Private Function DisplayTableContents(byVal TableName, byVal Comparator,
> byVal Comparison)
> MyConnection = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
> Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_
> test.mdb")
>
> Set dbconn = Server.CreateObject("ADODB.Connection")
> dbconn.Open MyConnection
> SQLqry = "SELECT * from " & TableName & " WHERE " & Comparator & " LIKE
> '%%" & Comparison & "%%'"
> Set rs = dbconn.Execute(SQLqry)
>
> DataArray = rs.GetRows
> NumberofRecords = ubound(DataArray,2)
> NumberOfFields = ubound(DataArray,1)
> Redim FieldNames(NumberOfFields+1)
> For FieldNumber = 0 to NumberOfFields
> FieldNames(FieldNumber)= rs.Fields(FieldNumber).Name
> Next
> rs.close
> set rs=nothing
> dbconn.close
> set dbconn = Nothing
>
> Response.write("Number of Records = " & NumberOfRecords)
> Response.write("Number of Fields = " & NumberOfFields)
>
> For RecordNumber = 0 to NumberOfRecords
> Response.Write "<table border='1'><tr>"
> For FieldNumber = 0 To NumberOfFields
> Response.Write "<td><b>" & Trim(FieldNames(FieldNumber)) & ":</b> "
> Response.write DataArray(FieldNumber, RecordNumber) & "</td>"
> Next
> Response.Write "</tr></table>"
> Next
> End Function
> %>
>
> "dmiller23462" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed) om...
> > Somebody take a look and give me any suggestions? My brain is nuked...
> >
> > Here's my deal....I have online submission forms on my intranet at
> > work here....I am appending to an Access DB with the input from all
> > HTML fields and then querying aforementioned DB with different
> > variables (search by name, wave, reason, etc). The output that I'm
> > getting (SELECT * 'cause I need all of the data included in the
> > search) I would like to display in a nice table or array but I'm not
> > quite sure how to make those settings "dynamic", for lack of a better
> > word. What I mean is, the form is used at various times throughout the
> > day so I don't want to put a cap on the array rows and columns since
> > they will be constantly increasing. Any suggestions?
> >
> > Here's the code I have right now (I was playing around with display
> > ideas) and the table is the basic way I want it but the columns change
> > to fit whatever data is in them....That's not good, I want a RIGID
> > column that will be unwavering in it's data display...
> >
> > Throw me a bone here...Thanks guys...
> >
> > <%
> >
> > Mode = request.form("mode")
> > Name = request.form("name")
> > Shift = request.form("shift")
> > Wave = request.form("wave")
> > Carton = request.form("carton")
> > Location = request.form("location")
> > License = request.form("license")
> > Sku = request.form("sku")
> > Qty = request.form("quantity")
> > Reason = request.form("reason")
> > Comments = request.form("comments")
> >
> >

> '************************************************* **************************
> **
> > '* DATABASE APPENDING
> > *
> >

> '************************************************* **************************
> **
> > 'create db connection
> > Set dbconn = Server.CreateObject("ADODB.Connection")
> >
> > 'open db in a DSN-less method
> > dbconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
> >

> Server.MapPath("/jax/wh/Online_Forms/Secured_Archives/search_files/shortage_
> test.mdb")
> >
> > 'sql statement to return input values drawn from html fields
> > SQLqry = "SELECT * from test_data WHERE name LIKE '%%"&name&"%%'"
> >
> > 'display results of statement on screen for testing purposes
> > 'Response.Write "<h3><b><u>" & (SQLqry) & "</u></b></h3><br>"
> >
> > 'remind db who it works for
> > Set rs = dbconn.Execute(SQLqry)
> >
> > While Not rs.EOF
> > Response.Write "<table border='1'>"
> > Response.Write "<tr><td><b>Name:</b> " & rs("name")
> > Response.Write "<td>"
> > Response.Write "<b>Days/Nights:</b> " & rs("shift")
> > Response.Write "<td>"
> > Response.Write "<b>Wave Number:</b> " & rs("wave")
> > Response.Write "<td>"
> > Response.Write "<b>Carton Number:</b> " & rs("carton")
> > Response.Write "<td>"
> > Response.Write "<b>Location:</b> " & rs("location")
> > Response.Write "<td>"
> > Response.Write "<b>License:</b> " & rs("license")
> > Response.Write "<td>"
> > Response.Write "<b>SKU:</b> " & rs("sku")
> > Response.Write "<td>"
> > Response.Write "<b>Quantity:</b> " & rs("qty")
> > Response.Write "<td>"
> > Response.Write "<b>Reason:</b> " & rs("reason")
> > Response.Write "<td>"
> > Response.Write "<b>Comments:</b> " & rs("comments")
> > Response.Write "<td>"
> > Response.Write "<b>Date Submitted:</b> " & rs("date")
> > Response.Write "</td></table>"
> > rs.MoveNext
> > Wend
> >
> > 'smack around the db connection until it lets go
> > dbconn.Close
> >
> > 'terminate db connection with extreme prejudice
> > set dbconn = nothing
> >
> > %>

 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Multidimensional arrays and arrays of arrays Philipp Java 21 01-20-2009 08:33 AM
Tables within tables Otuatail HTML 7 08-02-2004 04:42 AM
Multidimensional arrays? anything else? d[ - - ]b ASP .Net 2 05-18-2004 12:17 PM
Cannot get display on computer to display anything Powerbook Computer Support 5 02-26-2004 12:30 AM
Text after 2 tables actually appears between 2 tables ! Peter Bassett HTML 3 08-15-2003 06:46 PM



Advertisments