I started developing the application after running into a situation where I wanted some co-workers to view a few pictures of my kid while not granting them access to my Gallery, which I keep for friends and family. The application gets all of the images in a folder and creates a thumbnail and links all of the  files from the main page. Then Javascript takes over making a nice “stage-like” display of each image which the user merely clicks to return to the list. The application is great for small, personal image galleries since it does not provide a good caching system for thumbnails it generates. They are generated again and again, on the fly.

So though the application is not perferct it is very useful. I am declaring it open source, so make your changes as needed but share them with others. Also tell me how it can be improved, maybe I can later release an updated version?

See it in action here http://damnbugs.com/lab/visual gallery/

if strVariable1 = “John”
Response.Write(”Welcome John!”)
elseif strVariable1 = “Bob”
Response.Write(”Welcome Bob!”)
else
Response.Write(”Welcome…you.”)

Label1.Text.Request.QueryString(”qtext”)

<configuration>
<appSettings/>
<connectionStrings configSource=”conns.config”></connectionStrings>
<system.web>
</system.web>
</configuration>

The conns.config file will then only contain a single section element and nothing else. Yes it is that simple.

<connectionStrings>
<add name=”myConnectionString”
connectionString=”Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:My Database Foldermydatabase.mdb;
Jet OLEDB:Database Password=mypassword” providerName=”SQLOLEDB”/>
</connectionStrings>

Dim strThemesFolder As String = Server.MapPath("~contentthemes")
'Notice the Array below, a regular string wouldn't be able to hold all those values

Dim strThemeFolders As String() = Directory.GetDirectories(strThemesFolder)
Dim strFolderName As String
For Each strFolderName In strThemeFolders
      Response.Write(strFolderName)
Next

I added this code to my admin files to enable me to change masterfilepages on the fly. I tried with global variables and with properties but my masterpagefile would always default back the hardcoded file somehow.

Private Function changeTheme(ByVal strNewThemePath As String) As String
        If File.Exists(Server.MapPath(strNewThemePath)) Then
            Application.Set("theme", strNewThemePath)
            Return String.Format("Theme changed successfully to: ""{0}""", strNewThemePath)
        Else
            Return String.Format("The file: ""{0}"" does not exist. Theme not changed.", strNewThemePath)
        End If
End Function

Snippet-Global.asax

I also added this to the global.asax file since the code above did not specify a default theme.

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        'If no other theme is chosen then load the default
        If Application("theme") Is Nothing Then
            Dim Config As New Config
            Application("theme") = Config.strDefaultTheme
        End If
    End Sub

Private mstrName As String
Public Property Name() As String
        Get
            Name = mstrName
           ' Returns default value if nothing has changed it
        End Get
        Set(ByVal pstrName As String)
            mstrName  = pstrName
           'Sets the name to be the newly entered value
        End Set
 End Property

The information can then be retrieved or set as follows:

Dim settingsClass As New 'yourClassName'

Response.Write(settingsClass.Name)
'Returns Cesar
settingsClass.Name = "John"
'Assigns 'John' to the name property
Response.Write(settingsClass.Name)
'Returns John