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

<!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>
<meta name="author" content="Roderick Divilbiss">
<meta name="copyright" content="&copy; 2005 Roderick Divilbiss">
</head>
<body>
<table id="statesTable" border="1" cellpadding="2" style="border-collapse: collapse" bordercolor="#000000">
<%
    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:\inetpub\mysite\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
        While NOT rs.EOF
            Response.Write "<tr><td>" & rs("Code") & "</td><td>" & rs("Description") & "</td></tr>"
            rs.MoveNext
        Wend
        rs.Close
        Set rs = Nothing
    end if

    conn.Close
    Set conn=Nothing
%>
</table>
</body>
</html>