<%
'------------------
'© Katarina Johansson
'www.sarais.se
'april 2004
'enkel meny med hjälp av filens namn
'Filens namn skrivs ut i meny (ändelse bort)
'Stor första bokstav
'scriptet ersätter bokstavskombinationer
'till svenska tecken enligt nedan:
'aoo = å
'aaa = ä
'ooo = ö
'Aoo = Å
'Aaa = Ä
'Ooo = Ö
'_ = mellanslag
'------------------
dim minKatalog, minaFiler, txtM, filefound,_
mtxt, mtxt1, mtxt2, mtxt3, mtxt4, mtxt5, mtxt6,_
mtxt7, mtxt8, mtxt9
'------------------
'Skapar variabel för att läsa filsystem
'------------------
set minKatalog=CreateObject("Scripting.FileSystemObject")
'------------------
'Ger vägen till din menykatalog 1, absolut sökväg
'VIKTIGT, måste ändras till din egen
'------------------
set minaFiler=minKatalog.GetFolder(Server.MapPath("/sv"))
'------------------
'Letar upp alla filer i katalogen
'------------------
for each filefound In minaFiler.files
'------------------
'Tar bort filändelse
'------------------
txtM=len(filefound.Name)-4
mtxt=(Left(filefound.Name, txtM))
mtxt1=(Left(UCase(filefound.Name), 1))+(Mid(filefound.Name,2, (txtM-1)))
mtxt2=Replace(mtxt1, "aoo", "å")
mtxt3=Replace(mtxt2, "aaa", "ä")
mtxt4=Replace(mtxt3, "ooo", "ö")
mtxt5=Replace(mtxt4, "Aoo", "Å")
mtxt6=Replace(mtxt5, "Aaa", "Ä")
mtxt7=Replace(mtxt6, "Ooo", "Ö")
mtxt8=Replace(mtxt7, "_", " ")
mtxt9=mtxt8
'------------------
'Skapar meny 1
'------------------
response.write "

"& mtxt9 &"