ASP - Display SQL table in HTML table

home ~ tools ~ song quotes ~ podcast ~ song lyric trivia ~ docs ~ links ~ archives ~ search ~ lycii ~ mail
internetbumperstickers.com
note: pass table=tablename in querystring 
<!-- #include file="includes/adovbs.inc" //-->
<%


Response.Buffer = TRUE
Response.Expires = -1000

varSQL = "select * from " & request.querystring("table")

ConnectString = "Provider=MSDASQL;Driver={SQL Server};Server=server;Database=database;UID=uid;PWD=pwd;"

set objRec = Server.CreateObject("ADODB.Recordset")

objRec.Open varSQL, ConnectString, AdOpenKeyset, AdLockOptimistic

%>
<html>
<head>
<title>ASP - Display SQL table in HTML table</title>
</head>
<body>
<pre>
<h1><%= Request.QueryString("table") %></h1>
<table border="1">
<tr align="center" bgcolor="#9c9c9c">
<%

Dim fldF, count

for each fldF in objRec.Fields
	Response.Write("<td>" & fldF.name & "</td>")
next

%>
</tr>
<%
count = 1
while not objRec.EOF
	Response.Write("<tr>")
	for each fldF in objRec.Fields
		Response.Write("<td>" & fldF.value & " </td>")
	next
	count = count + 1
	objRec.MoveNext
	Response.Write("</tr>")
	if count = 20 then
		Response.Write("<tr bgcolor=""#9c9c9c"">")
			for each fldF in objRec.Fields
				Response.Write("<td>" & fldF.name & "</td>")
			next
		Response.Write("</tr>")	
		count = 1
	end if
	
wend

objRec.Close
set objRec = nothing

%>