<%
Function GetFileIcon(strFilename)
	strFilename=Split(LCase(strFilename),".")
	Select Case strFilename(Ubound(strFilename))
	Case "asp"
		GetFileIcon="asp.gif"
	Case "aspx"
		GetFileIcon="asp.gif"
	Case "jsp"
		GetFileIcon="asp.gif"
	Case "html"
		GetFileIcon="html.gif"
	Case "shtml"
		GetFileIcon="html.gif"
	Case "htm"
		GetFileIcon="html.gif"
	Case "shtm"
		GetFileIcon="html.gif"
	Case "xml"
		GetFileIcon="xml.gif"
	Case "bmp"
		GetFileIcon="bmp.gif"
	Case "doc"
		GetFileIcon="doc.gif"
	Case "gif"
		GetFileIcon="gif.gif"
	Case "ico"
		GetFileIcon="ico.gif"
	Case "jpg"
		GetFileIcon="jpg.gif"
	Case "js"
		GetFileIcon="js.gif"
	Case "mdb"
		GetFileIcon="mdb.gif"
	Case "mp3"
		GetFileIcon="media.gif"
	Case "wma"
		GetFileIcon="media.gif"
	Case "mid"
		GetFileIcon="media.gif"
	Case "png"
		GetFileIcon="png.gif"
	Case "rar"
		GetFileIcon="rar.gif"
	Case "swf"
		GetFileIcon="swf.gif"
	Case "txt"
		GetFileIcon="txt.gif"
	Case "xls"
		GetFileIcon="xls.gif"
	Case "xlt"
		GetFileIcon="xlt.gif"
	Case "zip"
		GetFileIcon="zip.gif"
	Case "exe"
		GetFileIcon="exe.gif"
	Case "dll"
		GetFileIcon="dll.gif"
	Case Else
		GetFileIcon="other.gif"
	End Select
End Function
%> 
