%@ Language=VBScript %> <% option explicit %> <% sub regStateList( sSelectState ) dim rs if sSelectState = "" then sSelectState = "-1" set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "Select StateNm, StateId from RegStates order by srtOverRide, StateNm", db, 1 while not rs.EOF ' If rs.Fields("StateNm") = sSelectState then If rs.Fields("StateId") = sSelectState then response.Write "" else response.Write "" End if rs.MoveNext wend rs.Close set rs = nothing end sub sub CategoryListDB( sCategory ) dim rs dim sSQL dim i ' Change for babble fish i = -1 ' Change for babble fish sSQL = "Select CategoryNm, CatId from Categories " & _ "order by srtOverRide, CategoryNm" set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, db, 1 while not rs.EOF i = i + 1 ' Change for babble fish If rs.Fields("CategoryNm") = sCategory then response.Write "" else response.Write "" End if rs.MoveNext wend rs.Close set rs = nothing end sub ' *** begin main processing dim db, strPath %>
United
States Tourist Attractions Home
USA Federal Holidays and Celebrations*
Note: Strictly speaking, the United
States has no national holidays since each state designates holidays
through the legislative process or by executive order. The United
States Congress can legally designate holidays for
federal employees and for the District of Columbia. The holidays
listed here represent those federal
holidays which are also observed by the majority (if not all) of
the 50 states.
|
|
© 2005 United States Tourist Attractions