<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<%
' 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 = ***Your Connection String***
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"">"
    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
%>

<!-- You need to style the table -->
<style type="text/css">
<!--
#statesTable { 
    border: 1px solid #000;
    border-collapse: collapse;
}

#statesTable td { 
    border: 1px solid #000;
    padding:2px 5px 2px 5px;
}
-->
</style>