Function FileExt(strFileName)
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 if objFSO.fileExists(Server.MapPath("/"&strFileName&".gif")) then
 response.write "<img align=absmiddle src='/"&strFileName&".gif' border=0 width=90 height=90>"
 else
strFileName=Left(strFileName,2)
strFileName=Ltrim(replace(strFileName,".",""))
 response.write "<img align=absmiddle src='/"&strFileName&".gif' border=0 width=90 height=90>"
end if
end function