Arrays / Tables / Anything for a "clean" display

Discussion in 'ASP General' started by dmiller23462, Jul 23, 2004.

  1. dmiller23462

    dmiller23462 Guest

    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

    %>
     
    dmiller23462, Jul 23, 2004
    #1
    1. Advertising

  2. 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" <> wrote in message
    news:...
    > 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, Jul 23, 2004
    #2
    1. Advertising

  3. 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"
     
    Bob Barrows [MVP], Jul 23, 2004
    #3
  4. dmiller23462

    Gary Jones Guest

    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" <> wrote in message
    news:...
    > 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
    >
    > %>
     
    Gary Jones, Jul 23, 2004
    #4
  5. dmiller23462

    dmiller23462 Guest

    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" <> wrote in message news:<>...
    > 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" <> wrote in message
    > news:...
    > > 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
    > >
    > > %>
     
    dmiller23462, Jul 23, 2004
    #5
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Replies:
    4
    Views:
    552
  2. cpnet
    Replies:
    7
    Views:
    606
    Charles
    Nov 30, 2005
  3. Replies:
    8
    Views:
    548
  4. Philipp
    Replies:
    21
    Views:
    1,190
    Philipp
    Jan 20, 2009
  5. x
    Replies:
    3
    Views:
    311
    Ben Bacarisse
    Nov 3, 2009
Loading...

Share This Page