<!-- Here is the form -->

<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> 
</HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
	<FORM ACTION=DynamicTableResults.asp METHOD=Post>
	<TABLE BORDER='1'>
	<TR>
	<TD BGCOLOR=#EEEEEE COLSPAN=3>
	Get table Data and Column Headers From A Table
	</TD>
	</TR>
	<TR>
	<TD>Enter The Table Name:</TD>
	<TD><INPUT TYPE=Text Name=Table SIZE=25></TD>
	</TR>
	<TR>
	<TD>Enter The DSN:</TD>
	<TD><INPUT TYPE=Text NAME=DSN SIZE=25></TD>
	</TR>
	</TABLE><BR>
	<INPUT TYPE=Submit VALUE=Submit> <INPUT TYPE=Reset VALUE=Reset>
	</FORM>
</BODY>
</HTML>

<!-- Here is the code that does all the work.  -->

<%@ LANGUAGE="VBSCRIPT" %>
<%   
Option Explicit
'---------------------- WEB SITE: -----------------------
' File Name: DynamicTableResults.asp
'
'   Purpose: This will take a table name from DynamicTable.asp 
'   	(you must specify the DSN also) 
'	and list all the data and table column names. 
'	Good to see what's in a table when you forgot or don't know.					
'
'   Arguments:
'   Comments
'
'   Author: Gene Magerr
'           Magerr Media
'           Copyright 2001 Magerr Media all rights reserved
'           genemagerr@hotmail.com
'
'   Date Created:
'   
'
'   Modification History:
'
'----------------------------------------------------------------------

'----------------------------------------------------------------------
' All your ASP preprocessing code goes here
'----------------------------------------------------------------------
		
	'Dim and Construct the SQL Query notice the request.form entry
	'To get a table name entered by the user
	Dim strSQL
	strSQL = "SELECT * FROM " & Request.Form("Table") & ""
	
	'This will display the SQL string on the page, 
	'i use it to check for errors
	Response.Write strSQL 
	
	'Dim and create a connection object, notice the request.form to get 
	'a DSN entered by the user in the objConn.Open line. You must have
	'a DSN created for the database on your machine and know it's name.
	Dim objConn
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "DSN=" & Request.Form("DSN") & ""
	
	'Dim and create a recordset object
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open strSQL, objConn
	
	Dim fCount, i
	fCount = objRS.Fields.Count - 1
	
	Response.Write "<table border=1><tr bgcolor='#EEEEEE'>"
	
	for i=0 to fCount
   		Response.Write "<th>" & objRS(i).name & "</th>"
	next
		Response.Write "</tr>"
	While Not objRS.EOF
   		Response.Write "<tr>"
   	for i=0 to fCount
     		Response.Write "<td>&nbsp;" & objRS(i).value & "</td>"
   	next
		Response.Write "</tr>"
		objRS.MoveNext
	Wend
		Response.Write "</table>"
		
	'Close and dereference 
	objRS.Close
	Set objRS = Nothing
	objConn.Close
	Set objConn = Nothing

		
'----------------------------------------------------------------------
' Begin HTML output
'----------------------------------------------------------------------
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>
<HEAD>
	<TITLE>Untitled</TITLE>
</HEAD>

<BODY>



</BODY>
</HTML>
<%
'----------------------------------------------------------------------
' End HTML Output
'----------------------------------------------------------------------

'----------------------------------------------------------------------
' All ASP post processing code goes here, as well as 
' sub routines and functions
'----------------------------------------------------------------------


%>