Skip To Main Content | Home | Sitemap | Contact
Latest Visitors: United States's flagUnited States's flagUnited States's flagUnited States's flagUnited States's flagUnited States's flagUnited States's flagUnited States's flagUnited States's flagRussian Federation's flagChina's flagChina's flagUnited States's flagBrazil's flagIreland's flagIndia's flagUnited States's flagUnited Kingdom's flagGermany's flagUnited States's flagCanada's flagCanada's flagUnited States's flagBrazil's flagSweden's flag
 

How can you build a simple table from a database select?


CodeDescription
ALAlabama
AKAlaska
AZArizona
ARArkansas
CACalifornia
COColorado
CTConnecticut
DEDelaware
DCDistrict Of Columbia
FLFlorida
GAGeorgia
HIHawaii
IDIdaho
ILIllinois
INIndiana
IAIowa
KSKansas
KYKentucky
LALouisiana
MEMaine
MDMaryland
MAMassachusetts
MIMichigan
MNMinnesota
MSMississippi
MOMissouri
MTMontana
NENebraska
NVNevada
NHNew Hampshire
NJNew Jersey
NMNew Mexico
NYNew York
NCNorth Carolina
NDNorth Dakota
OHOhio
OKOklahoma
OROregon
PAPennsylvania
PRPuerto Rico
RIRhode Island
SCSouth Carolina
SDSouth Dakota
TNTennessee
TXTexas
UTUtah
VTVermont
VIVirgin Islands
VAVirginia
WAWashington
WVWest Virginia
WIWisconsin
WYWyoming


<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<%
Option Explicit ' Not passing parameters, so no parameterized SQL needed Dim rs, conn, command, connection, tableHTML command = "SELECT Code, Description FROM states ORDER BY Description;" Set conn = Server.CreateObject("ADODB.Connection")
connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\path\to\database\examples.mdb'"
conn.open connection
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open command, conn, adOpenStatic, adLockReadOnly, adCmdText
if NOT (rs.bof AND rs.eof) then
tableHTML = "<table id=""statesTable"">" tableHTML = tableHTML & "<thead><tr><td>Code</td><td>Description</td></tr></thead><tbody>"
while NOT rs.eof
tableHTML = tableHTML & "<tr><td>" & rs("Code") & "</td><td>" & rs("Description") & "</td></tr>"
rs.movenext
wend
rs.close
Set rs = nothing
tableHTML = tableHTML & "</tbody></table>"
end if
conn.close
Set conn=nothing
%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>CSS database states table</title> <style type="text/css"> <!-- td { width: 50%; border:1px solid #000000; font-family:Verdana, Arial; font-size:12px; } thead td { font-family: Verdana, Arial; font-weight: bold; background-color: #FFE6BF; } table { width: 400px; margin-left:auto; margin-right:auto; border-collapse: collapse; border:1px solid #000000; } --> </style>
</head>
<body>
<%=tableHTML%>
</body>
</html>


This Weeks Most Popular Pages Newest Pages