<%
dim stateHit, stateAbbr
ts ucase(SearchString)

sub ts(stateTest)
	if instr(stateTest,"ALABAMA") > 0 then
		stateHit = "Alabama"
		stateAbbr = "AL"
		exit sub
	end if
	if instr(stateTest,"ALASKA") > 0 then
		stateHit = "Alaska"
		stateAbbr = "AK"
		exit sub
	end if
	if instr(stateTest,"ARIZONA") > 0 then
		stateHit = "Arizona"
		stateAbbr = "AZ"
		exit sub
	end if
	if instr(stateTest,"ARKANSAS") > 0 then
		stateHit = "Arkansas"
		stateAbbr = "AR"
		exit sub
	end if
	if instr(stateTest,"CALIFORNIA") > 0 then
		stateHit = "California"
		stateAbbr = "CA"
		exit sub
	end if
	if instr(stateTest,"COLORADO") > 0 then
		stateHit = "Colorado"
		stateAbbr = "CO"
		exit sub
	end if
	if instr(stateTest,"CONNECTICUT") > 0 then
		stateHit = "Connecticut"
		stateAbbr = "CT"
		exit sub
	end if
	if instr(stateTest,"DELAWARE") > 0 then
		stateHit = "Delaware"
		stateAbbr = "DE"
		exit sub
	end if
	if instr(stateTest,"DISTRICT OF COLUMBIA") > 0 then
		stateHit = "District of Columbia"
		stateAbbr = "DC"
		exit sub
	end if
	if instr(stateTest,"WASHINGTON D.C.") > 0 then
		stateHit = "District of Columbia"
		stateAbbr = "DC"
		exit sub
	end if
	if instr(stateTest,"FLORIDA") > 0 then
		stateHit = "Florida"
		stateAbbr = "FL"
		exit sub
	end if
	if instr(stateTest,"GEORGIA") > 0 then
		stateHit = "Georgia"
		stateAbbr = "GA"
		exit sub
	end if
	if instr(stateTest,"HAWAII") > 0 then
		stateHit = "Hawaii"
		stateAbbr = "HI"
		exit sub
	end if
	if instr(stateTest,"IDAHO") > 0 then
		stateHit = "Idaho"
		stateAbbr = "ID"
		exit sub
	end if
	if instr(stateTest,"ILLINOIS") > 0 then
		stateHit = "Illinois"
		stateAbbr = "IL"
		exit sub
	end if
	if instr(stateTest,"INDIANA") > 0 then
		stateHit = "Indiana"
		stateAbbr = "IN"
		exit sub
	end if
	if instr(stateTest,"IOWA") > 0 then
		stateHit = "Iowa"
		stateAbbr = "IA"
		exit sub
	end if
	if instr(stateTest,"KANSAS") > 0 then
		stateHit = "Kansas"
		stateAbbr = "KS"
		exit sub
	end if
	if instr(stateTest,"KENTUCKY") > 0 then
		stateHit = "Kentucky"
		stateAbbr = "KY"
		exit sub
	end if
	if instr(stateTest,"LOUISIANA") > 0 then
		stateHit = "Louisiana"
		stateAbbr = "LA"
		exit sub
	end if
	if instr(stateTest,"MAINE") > 0 then
		stateHit = "Maine"
		stateAbbr = "ME"
		exit sub
	end if
	if instr(stateTest,"MARYLAND") > 0 then
		stateHit = "Maryland"
		stateAbbr = "MD"
		exit sub
	end if
	if instr(stateTest,"MASSACHUSETTS") > 0 then
		stateHit = "Massachusetts"
		stateAbbr = "MA"
		exit sub
	end if
	if instr(stateTest,"MICHIGAN") > 0 then
		stateHit = "Michigan"
		stateAbbr = "MI"
		exit sub
	end if
	if instr(stateTest,"MINNESOTA") > 0 then
		stateHit = "Minnesota"
		stateAbbr = "MN"
		exit sub
	end if
	if instr(stateTest,"MISSISSIPPI") > 0 then
		stateHit = "Mississippi"
		stateAbbr = "MS"
		exit sub
	end if
	if instr(stateTest,"MISSOURI") > 0 then
		stateHit = "Missouri"
		stateAbbr = "MO"
		exit sub
	end if
	if instr(stateTest,"MONTANA") > 0 then
		stateHit = "Montana"
		stateAbbr = "MT"
		exit sub
	end if
	if instr(stateTest,"NEBRASKA") > 0 then
		stateHit = "Nebraska"
		stateAbbr = "NE"
		exit sub
	end if
	if instr(stateTest,"NEVADA") > 0 then
		stateHit = "Nevada"
		stateAbbr = "NV"
		exit sub
	end if
	if instr(stateTest,"NEW HAMPSHIRE") > 0 then
		stateHit = "New Hampshire"
		stateAbbr = "NH"
		exit sub
	end if
	if instr(stateTest,"NEW JERSEY") > 0 then
		stateHit = "New Jersey"
		stateAbbr = "NJ"
		exit sub
	end if
	if instr(stateTest,"NEW MEXICO") > 0 then
		stateHit = "New Mexico"
		stateAbbr = "NM"
		exit sub
	end if
	if instr(stateTest,"NEW YORK") > 0 then
		stateHit = "New York"
		stateAbbr = "NY"
		exit sub
	end if
	if instr(stateTest,"NORTH CAROLINA") > 0 then
		stateHit = "North Carolina"
		stateAbbr = "NC"
		exit sub
	end if
	if instr(stateTest,"NORTH DAKOTA") > 0 then
		stateHit = "North Dakota"
		stateAbbr = "ND"
		exit sub
	end if
	if instr(stateTest,"OHIO") > 0 then
		stateHit = "Ohio"
		stateAbbr = "OH"
		exit sub
	end if
	if instr(stateTest,"OKLAHOMA") > 0 then
		stateHit = "Oklahoma"
		stateAbbr = "OK"
		exit sub
	end if
	if instr(stateTest,"OREGON") > 0 then
		stateHit = "Oregon"
		stateAbbr = "OR"
		exit sub
	end if
	if instr(stateTest,"PENNSYLVANIA") > 0 then
		stateHit = "Pennsylvania"
		stateAbbr = "PA"
		exit sub
	end if
	if instr(stateTest,"RHODE ISLAND") > 0 then
		stateHit = "Rhode Island"
		stateAbbr = "RI"
		exit sub
	end if
	if instr(stateTest,"SOUTH CAROLINA") > 0 then
		stateHit = "South Carolina"
		stateAbbr = "SC"
		exit sub
	end if
	if instr(stateTest,"SOUTH DAKOTA") > 0 then
		stateHit = "South Dakota"
		stateAbbr = "SD"
		exit sub
	end if
	if instr(stateTest,"TENNESSEE") > 0 then
		stateHit = "Tennessee"
		stateAbbr = "TN"
		exit sub
	end if
	if instr(stateTest,"TEXAS") > 0 then
		stateHit = "Texas"
		stateAbbr = "TX"
		exit sub
	end if
	if instr(stateTest,"UTAH") > 0 then
		stateHit = "Utah"
		stateAbbr = "UT"
		exit sub
	end if
	if instr(stateTest,"VERMONT") > 0 then
		stateHit = "Vermont"
		stateAbbr = "VT"
		exit sub
	end if
	if instr(stateTest,"WEST VIRGINIA") > 0 then
		stateHit = "West Virginia"
		stateAbbr = "WV"
		exit sub
	end if
	if instr(stateTest,"VIRGINIA") > 0 then
		stateHit = "Virginia"
		stateAbbr = "VA"
		exit sub
	end if
	if instr(stateTest,"WASHINGTON") > 0 then
		stateHit = "Washington"
		stateAbbr = "WA"
		exit sub
	end if
	if instr(stateTest,"WISCONSIN") > 0 then
		stateHit = "Wisconsin"
		stateAbbr = "WI"
		exit sub
	end if
	if instr(stateTest,"WYOMING") > 0 then
		stateHit = "Wyoming"
		stateAbbr = "WY"
		exit sub
	end if
end sub
if stateHit <> "" then
	Response.Write("<p>&nbsp;&nbsp;<li type=""square""><span class=""text"">See contact information for <a href=""http://www.nationaltrust.org/help/statewide_org.asp?st=" & stateAbbr & """>" & stateHit & " preservation organizations.</a></span></li></p><hr color=""#000000"" size=1 width=""100%"">")
end if
%>