Dump Table Example by Ben McLendon

Dump the complete contents of a SQL table to the screen.

Optionally, sort by any column and/or filter by a single column value.

Save the code to DumpTable.asp on your server and run using the URL as shown in the instructions.

Here's the code:

' Instructions -' Enter URL like this:' DumpTable.asp?tbl=yourtablename&selc=selectcolumnname&selv=selectvalue&ord=orderbycolumnname' selc, selv, and ord are optional' selc and selv must be used in tandem' Don't forget to set the ODBC connection settings on line 39' ---------------------------------------------------------------------------------------' Original idea from Greg Sawin's TableMe.asp (MorePhotos.com)' Filtering, Ordering, and Cosmetic additions by Ben McLendon (www.surfsouth.com/~benmcl)' ---------------------------------------------------------------------------------------Dim ObjConn, ObjCmd, ObjRec, strTable, strCmd, strSelc, strSelv, strSelect, strOrd, strOrder, sTablestrTable = Request("tbl")if not isempty (Request("selc")) then strSelc = Request("selc") strSelv = Request("selv") strSelect = "WHERE " & strSelc & "= " & strSelvelse strSelect = ""end ifif not isempty (Request("ord")) then strOrd = Request("ord") strOrder = "ORDER BY " & strOrdelse strOrder = ""end ifstrCmd = "SELECT * FROM " & strTable & " " & strSelect & " " & strOrderset ObjConn = server.createobject ("adodb.connection")set ObjCmd = server.createobject ("adodb.command")set ObjRec = server.createobject ("adodb.recordset")' ODBC Connection SettingsObjConn.Open "ODBCConnectionName", "SQLUserName", "SQLPassword"ObjRec.Open strCmd, ObjConn, , 1, 1sTable="<TABLE BORDER='0' cellspacing='1' cellpadding='2' style='font-family: Arial; font-size: 8pt' bgcolor='#dddddd'><THREAD><TR>"'Collect Field NamesFor each ObjFld in ObjRec.Fields sTable = sTable & "<TD bgcolor='#FFFFFF'>" & ObjFld.Name & "</TD>"next'Build the table bodysTable = sTable & "</TR></THREAD>" _ & "<TBODY><TR><TD bgcolor='#FFFFFF'>" _ & objRec.getString(, ,"</TD><TD bgcolor='#FFFFFF'>", "</TD></TR><TR><TD bgcolor='#FFFFFF'>") _ & "</TD></TR></TBODY></TABLE>"Response.Write "<p><b><font face='Arial' size='2'>Table Contents - " & strTable & "</font></b></p>"Response.Write sTableObjRec.CloseSet ObjRec = NothingObjConn.CloseSet ObjConn = Nothing