ASP ListBox for U.S. State Abbreviations

Sub StatesList(default)
 Dim lst, x
 lst = "AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL," & _
  "GA,HI,ID,IL,IN,IA,KS,KY,LA,ME," & _
  "MD,MA,MI,MN,MS,MO,MT,NE,NV,NH," & _
  "NJ,NM,NY,NC,ND,OH,OK,OR,PA,RI," & _
  "SC,SD,TN,TX,UT,VT,VA,WA,WV,WI,WY"

 If default = "" Then
  Response.Write "" & vbCRLF
 End If

 For each x in Split(lst, ",")
  If Ucase(x) = Ucase(default) Then
   Response.Write "" & x & "" & vbCRLF
  Else
   Response.Write "" & x & "" & vbCRLF
  End If
 Next
End Sub

Example:

<select name="state" size="1">
    <% StatesList "VA" %>
</select>