• code snippets
  • all code snippets/
  • popular code snippets/
  • your code snippets
• extras
• blog
• about snipplr

• Big /
• Small

Posted By

fuzzylogic on 03/08/07

Tagged

Versions (?)

03/08/07 10:42am

Who likes this?

2 people have marked this snippet as a favorite

nelda751
asifrizvigmailcom

 / Published in: ASP

 

function SelectState(state)
 
dim  statesList, states
		statesList = ("AL,AK,AZ,AR,CA,CO,CT,DE,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")
		states = Split(statesList,",")
		response.write("<option></option>")
		For i=0 to UBound(states)
			response.write "<option"
 
				if states(i) = state then
				response.write (" selected")
				end if
			response.write (">" & states(i) & "</option>" & vbCrlf)
		Next
end function

Report this snippet   Tweet

Comments

Subscribe to comments

Posted By: fuzzylogic on June 12, 2008