Arrays / Tables / Anything for a "clean" display

[dmiller23462]

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

%>

 

[Jacob Munk-Stander]

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>"

 

[Bob Barrows [MVP]]

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:

Bob Barrows

 

[Gary Jones]

Why not try GetRows ? :-


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

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]

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