'determine the full path of the page
dim thepagepath
thepagepath=Request.ServerVariables("PATH_TRANSLATED")
'determine the file name
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(thepagepath)
dim pagename
pagename=f.name
%>
Mundelein Soccer Club
