Blog Archives

slideshowpro dynamic images xml file output with classic asp

outputxml() 

'--------------------------------
'generates xml file with some static info and some dynamic for use by slideshowpro
'in slideshowpro simply replace images.xml with the name of this file
'--------------------------------

sub outputxml()
Response.ContentType = "text/xml"

outputxmlheader()
outputxmlbody()
outputxmlfooter()
end sub

sub outputxmlheader()
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")
Response.Write("<gallery title=""My Photos"" description="""">")
end sub

sub outputxmlfooter()
Response.Write("</gallery>")
end sub

sub outputxmlbody()
call outputalbumandfiles(Server.MapPath("/myphotos/img/20121031event"),"a1","2012 Event A","Event A Description.","img/20121031event/","ico/eventa.jpg")

call outputalbumandfiles(Server.MapPath("/companyphotos/img/20121120event"),"a2","2012 Event B","Event B Description.","img/20121120event/","ico/eventb.jpg")
end sub

sub outputalbumandfiles(path,id,title,description,lgpath,tn)
Response.Write("<album id=""" & id & """ title=""" & title & """ description=""" & description & """ lgPath=""" & lgpath & """ tn=""" & tn & """>")

set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
	
	for each item in folder.Files
	 if FilterExtensions(item.Name) then
	 Response.Write("<img src=""" & item.Name & """ target=""_blank"" />")
		 end if
     next

	 'TODO: set objects = nothing
Response.Write("</album>")
end sub
   
'filter out .db files and any other files you do not want to slideshowpro to load
'alternative you can reverse the logic to allow only jpg, png etc
   function FilterExtensions(fn)
FilterExtensions=true
   a_ext = Array(".db",".db") 'place additional extensions here 
   for each ext in a_ext
      i = InStrRev(fn,ext)
   if i>0 then
   FilterExtensions=false
   next
   end function

References
http://support.microsoft.com/kb/301244

Classic ASP VB Filter File Name Extensions From String EndsWith

Came across a classic ASP VB site recently in my adventures. There was a feature request to filter out some file extensions from existing code logic, and I discovered quickly most of my .Net methods were unavailable, so I came up with this little snippet and had a great blast from the past. :)

   function FilterExtensions(fn)
   FilterExtensions=true
   a_ext = Array(".db",".db") 'place additional extensions here 
   for each ext in a_ext
      i = InStrRev(fn,ext)
   if i>0 then
   FilterExtensions=false
   end if
   next
   end function

If FilterExtensions returns true then there were no matches (extension of filename successfully passed all filters).

Common WPF Resource Dictionaries

Skinning a WPF application is as simple as adding an assembly reference (PresentationFramework.Aero) and xml config change. See below.

<Application.Resources>
<Application.Resources>
  <ResourceDictionary>
    <!-- -->
    <ResourceDictionary.MergedDictionaries>
      <ResourceDictionary Source="/PresentationFramework.Aero;component/themes/Aero.NormalColor.xaml"/>
    </ResourceDictionary.MergedDictionaries>
  </ResourceDictionary>
</Application.Resources>
</Application.Resources>

Other sources:

<ResourceDictionary Source="/PresentationFramework.Aero;component/themes/Aero.NormalColor.xaml"/>
<ResourceDictionary Source="/PresentationFramework.Classic;component/themes/Classic.xaml"/>
<ResourceDictionary Source="/PresentationFramework.Royale;component/themes/Royale.NormalColor.xaml"/>
<ResourceDictionary Source="/PresentationFramework.Luna.Homestead;component/themes/Luna.Homestead.xaml"/>
<ResourceDictionary Source="/PresentationFramework.Luna.Metallic;component/themes/Luna.Metallic.xaml"/>
<ResourceDictionary Source="/PresentationFramework.Zune;component/themes/Zune.NormalColor.xaml"/>

References
StackOverflow, http://stackoverflow.com/questions/2075720/windows-7-theme-for-wpf

Follow

Get every new post delivered to your Inbox.