%@ LANGUAGE=vbscript enablesessionstate=false LCID=1033 %> <% Option Explicit Response.ExpiresAbsolute=DateAdd("yyyy", -10, Date) Response.Buffer = True%> <% Dim strState, strStateArray strState = " |AK|AL|AR|AZ|CA|CO|CT|DC|DE|FL|GA|HI|IA|ID|IL|IN|KS|KY|LA|MA|MD|ME|MI|MN|MO|MS|MT|NC|ND|NE|NH|NJ|NM|NV|NY|OH|OK|OR|PA|RI|SC|SD|TN|TX|UT|VA|VT|WA|WI|WV|WY" strStateArray = split(strState, "|") %>