<%

' UserName et Password de l'administrateur de l'album
'---------------------------------------------------------------

	Dim AdminUserName, AdminPassword
	AdminUserName	= "admin"				' Nom d'usager pour acceder au mode Admin
	AdminPassword	= "password"			' Mot de passe pour acceder au mode Admin
	

' Meta Tags
'---------------------------------------------------------------
	Sub InsertMeta()
%>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<meta name="description" content="Short text describing site">
<meta name="keywords" content="Keywords, for, site">
<%
	End Sub

' Dimensions
'---------------------------------------------------------------
	Dim TopHeight, IndexWidth
	TopHeight		= 130			' Suggestion: Hauteur des thumbnais + 30
	IndexWidth		= 200			' Mettre assez large, selon les noms de PictureSet
	

' Personalisation des liens TEXTE
'---------------------------------------------------------------
	Dim ListTitleName, AlbumLinkName, ContentLinkName, ShowAllLinkName
	ListTitleName	= "Complete Album Description"
	AlbumLinkName	= "View Pictures"
	ContentLinkName	= "Content Description"
	ShowAllLinkName	= "Show All Albums"

	Dim ctrlHideAlbumDescr, ctrlViewAlbumDescr, ctrlHideContent, ctrlViewAllContent, ctrlHideThumbs, ctrlShowThumbs
	Dim ctrlMainPage, ctrlCurrentAlbum, ctrlHires
	ctrlHideAlbumDescr	= "Hide Album Description"
	ctrlViewAlbumDescr	= "Show Album Description"
	ctrlHideContent		= "Hide Album Content"
	ctrlViewAllContent	= "Show All Content"
	ctrlHideThumbs		= "Hide Thumbnails"
	ctrlShowThumbs		= "Show Thumbnails"
	ctrlMainPage		= "All albums"
	ctrlCurrentAlbum	= "Current Album"
	ctrlHires			= "Hi-Res version"
	
	Dim NoPictureText
	NoPictureText		= "<b>Click on a ThumbNail to view picture in this Window</b>"
	
' Colors
'---------------------------------------------------------------
	
	' List Body
	'-------------------------------
	Dim ListBodyBgColor, ListBodyText, ListBodyLink, ListBodyVLink, ListBodyALink
	ListBodyBgColor	= "ffffff"
	ListBodyText	= "000000"
	ListBodyLink	= "0000b0"
	ListBodyVLink	= "0000b0"
	ListBodyALink	= "2000f0"

		' AlbumBar
		Dim AlbumBarColor, AlbumBarText
		AlbumBarColor	= "000060"
		AlbumBarText	= "ffffff"
	
		' AlbumContent
		Dim PictSetBar, PictSetText, PictListBG, PictListText, PictLink
		PictSetBar		= "202080"
		PictSetText		= "ffffff"
		PictListBG		= "fffaf0" 'yellow
		PictListText	= "000000"
		PictLink		= "0000b0" ' DarkBlue

	' PictureSet frame / Thumnails
	'-------------------------------
	Dim PSBgColor, PSText, PSLink, PSVLink, PSALink
	PSBgColor		= ListBodyBgColor
	PSText			= ListBodyText
	PSLink			= ListBodyLink
	PSVLink			= ListBodyVLink
	PSALink			= ListBodyALink

	' Picture Frame
	'-------------------------------
	Dim PictBGColor, PictText, PictLinkCol, PictVLink, PictALink
	PictBGColor		= ListBodyBGColor
	PictText		= ListBodyText
	PictLinkCol		= ListBodyLink
	PictVLink		= ListBodyVLink
	PictALink		= ListBodyALink

%>