|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: How to dynamically display table information |
|
From: |
Kevin Jullion |
|
Date: |
2/9/1999 9:52:18 PM |
|
IP: |
208.251.93.209 |
This is mostly a question of getting intimate with ADO, hopefully this helps:
Create an empty recordset to figure out the widths of the columns in Table
Set rsColWidths = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM WHERE ID = 0"
rsColWidths.Open sSQL,dbConn,3
Now look at all of the items in the collection of item sent form the request.form
For Each Item in Request.Form Select Case rsColWidths("" & Item & "").Type
Case 201 get max field width for all fields except Text type fields
Case 17 and check box fields
Case Else
Response.Write Item
sItem = Left(sItem, (rsColWidths("" & Item & "").DefinedSize))
sItem = Trim(sItem)
End Select
Etc. etc...
HTH,
Kevin Jullion
|
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
