<%
'**********************************************************************************
' VP-ASP 6.50
' Author: Howard Kadetz
' Summary
' Generates a drop down list of states. The fieldname is the current value of the
' state and will be set as selected if it exists. Group states by country
' xdisplaystates=US,UK,AU list of countries whose states are to display
' Modification:
' Nov 7, 2006 Redeveloped using shopstates table
'*********************************************************************************
Sub ShopStates (formname,fieldname)
dim sql, rs, statename, stateabbrev, selected
dim dbc, i, selecteddone
dim countries(10), displaycount, country
dim statelist ' list of countries
statelist=getconfig("xdisplaystates") ' find out what countries we want states for
response.write ""
shopclosedatabase dbc
end sub
'*********************************************************************************
' generate a html separator for each country
' in form
' " & vbcrlf
end sub
%>