% @language = VBScript %> <% Option Explicit Dim dir_nm If Request.QueryString("n") = "" Then dir_nm = "tourall" Else dir_nm = "tour" & Request.QueryString("n") End If %>