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

 

Code

<%
Option Explicit
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, 3, 1, 1

if NOT (rs.bof AND rs.eof) then
    tableHTML = "<table id=""statesTable"">"
    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 & "</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>rodsdot.com :: generic database page - states table</title>

</head>
<body>
<%=tableHTML%>
</table>
</body>
</html>