Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

Dim album As String

        album = Request.QueryString("album")
        If ((album = Nothing)  _
                    OrElse (album = "/")) Then
            gallery1.FolderPath = "album1"
        End If
        gallery1.FolderPath = album
    End Sub

 

 

You don't have to declare the gallery instance if you have the namespace loaded.