| Text-only
|
|
|
|
|
|
|
| <% ' ############################################################################## ' # breadcrumb.asp Version 1.0 # ' # Copyright 2000 Adrian Roselli adrian@roselli.org # ' # Created 24/4/2000 Last Modified 24/4/2000 # ' ############################################################################## ' # COPYRIGHT NOTICE # ' # Copyright [and -left] 2000 Adrian Roselli All Rights Reserved except as # ' # provided below. # ' # # ' # breadcrumb.asp may be used and modified free of charge by anyone so long # ' # as this copyright notice and the comments above remain intact. By using # ' # this code you agree to indemnify Adrian Roselli from any liability that # ' # might arise from it's use. # ' # # ' # This script is released under the GPL. # ' # Selling the code for this program or any derivative work is expressly # ' # forbidden. A full copy of the GPL can be found in the Code section of # ' # http://evolt.org. In all cases copyright and this header must remain # ' # intact. # ' ############################################################################## Function BreadCrumb(FullPath) Do Until instr(1,FullPath,"/") = 0 '## Create an array of letters in the alphabet. Letters = array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z") '## split on the / tmpPath = mid(FullPath,1,instr(1,FullPath,"/")-1) strTmpPath = Trim(tmpPath) DirPath = DirPath & strTmpPath & "/" '## upshift the first character firstLetter = ucase(mid(strTmpPath,1,1)) strTmpPath = firstLetter & mid(strTmpPath,2,len(strTmpPath)) '## replace udnerscores with spaces and upshift the following character for each letter in letters strTmpPath = Replace(Trim(strTmpPath),"_" & lcase(letter)," " & UCase(letter)) next '## split the next one out FullPath = mid(FullPath,instr(1,FullPath,"/")+1,Len(FullPath)-Len(tmpPath)) '## separate them with > symbols IF strTmpPath = "" THEN IF session("str4Tag") = "" THEN Response.Write "Home Page" ELSE Response.Write "Home Page > " & session("str4Tag") & "" END IF 'ELSEIF strTmpPath = "Home" THEN ELSEIF strTmpPath = "Fun" THEN strTmpPath = "" ELSE Response.Write " > " & strTmpPath & "" END IF Loop IF PageTitle = "" THEN response.write " > Current Page" ELSE response.write " > " & PageTitle END IF End Function %> <% = BreadCrumb(Request.ServerVariables("PATH_INFO")) %> | ||
|
This page has moved to http://www.biology4all.com/biosci_depts.asp so please click this link to get to the correct page. |
|
||||
|
This site is hosted by the Faculty of Health, University
of Central Lancashire and is endorsed by the Biosciences Federation. |
||||
|
|
||||
Email this Webpage
 |
Page Last Modified
<% ' ASP script from http://www.4guysfromrolla.com/webtech/tips/t110699-1.shtml Dim strFileName Dim dtmLastModified Dim dtmLastModifiedDate Dim dtmLastModifiedTime strFileName = Request.ServerVariables("SCRIPT_NAME") strFileName = Replace(strFileName, "/", "\") strFileName = Server.MapPath(strFileName) Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystemObject.GetFile(strFileName) dtmLastModified = objFile.DateLastModified Set objFile = Nothing Set objFileSystemObject = Nothing dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1) dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3) Response.Write(dtmLastModifiedDate & " " & dtmLastModifiedTime) %> |
|||
