---
title: "sortering i asp-skript med å,ä,ö"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/177596-sortering-i-asp-skript-med-å-ä-ö"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "lollo"
published: "2009-03-23T13:09:32.000Z"
updated: "2009-03-23T13:09:32.000Z"
replies: 0
views: 472
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/177596-sortering-i-asp-skript-med-å-ä-ö"
---

# sortering i asp-skript med å,ä,ö

## #1 — lollo, 2009-03-23T13:09Z

Hej på er i webbforumet
Vi har på klubbens hemsida ett hemmagjort galleri skript, Vi lastar upp bilder till olika mappar  på serven . Vårt problem som vi behöver hjälp med är att mapparna inte får innehålla å , ä , ö .
Vi har döpt om alla bildmappar  (ex //200810 vaargaarda utstaellningen 2008) =Vårgårda utställningen 2008

Hjälpen som vi har fått av webbmaster är att vi skall ändra i skriptet???? enligt följande.

*I asp koden lägger man in att den sorterar fallande och därefter tar bort de 7 första tecknen samt ersätter ”aa” med å, ”ae” med ”ä” och ”oo” med ”ö”.
 Därmed visas ”Vårgårda utställningen 2008” i galleriet.*

Är det någon som förstår vad dom menar, och kan hjälpa oss.
 vi själva är helt novisa på detta, (håller på att leta reda på skriptet i fråga )
// mvh sa
här kommer delar av skriptet som vi trorvi skall infoga sorteringen i 

\<!-- #INCLUDE FILE="template.asp" --\>
\<%
Sub MainContent
	Response.Write ("\<table width=""100%"" cellspacing=""0"" cellpadding=""8"" border=""0""\>\<tr\>\<td\>")

%\>
	\<table width="700" border="0" cellspacing="0" cellpadding="0"\>\<tr\>
                  \<td colspan="3"\>\<img src="images/artikel_bredast_top.gif" width="700" height="15"\>\</td\>
              \</tr\>\<tr\>\<td bgcolor="E6F2DF" background="images/artikel_left.gif" width="8"\>\</td\>\<td width="700" valign="top" bgcolor="E6F2DF" class="article"\>
\<%

Mapp = "pictures/fotogalleri/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Response.Write("\<P class=""header""\>Fotogalleri/" & request.QueryString("fo") & "")
If request.QueryString("fo") \<\> "" THEN Response.Write("/")
Response.Write("\</P\>\<center\>")
If Request.QueryString("fo") = "" THEN
Set objFO = objFSO.GetFolder(Server.MapPath(Mapp))
Set objFI = objFO.Files
Set objFOS = objFO.SubFolders
Response.Write("\<Table border=""0"" cellpadding=""0"" cellspacing=""8""\>\<TR\>")
columns = 5
column = 0
antalmappar = 0
For Each objFOS In objFO.SubFolders
antalmappar = antalmappar + 1
redim preserve arrmappar(antalmappar)
arrmappar(antalmappar) = objFOS.name
column = column + 1
If column \> columns THEN
 Response.Write("\</TR\>\<TR\>")
 column = 1
End If
Response.Write("\<TD width=""120""\>\<center\>\<a href=""gallery.asp?fo=" & arrmappar(antalmappar) & """\>\<img src=""images/mapp.gif"" border=""0""\>\<br\>" & arrmappar(antalmappar) & "\</a\>\</center\>\</TD\>")
Next
Do Until column = columns
Response.Write("\<TD\>\</TD\>")
column = column + 1
Loop
Response.Write("\</TR\>\</TABLE\>")
ELSE
picmapp = mapp & request.QueryString("fo") & "/"
If objFSO.Folderexists(Server.MapPath(picmapp)) THEN
	Response.Write "\<script language=JavaScript\>function popup(popupfile,winheight,winwidth){open(popupfile,""PopupWindow"",""width=600,height=470,resizable=yes,toolbar=yes,scrollbars=yes"");}\</script\>"
	Response.Write "\<a href=""javascript:popup('gallery_print.asp?gallery="&request.QueryString("fo")&"')""\>\<img src=""images/print.gif"" align=""right"" border=""0"" alt=""Skriv ut alla bilder""\>\</a\>"

Set objFO = objFSO.GetFolder(Server.MapPath(picmapp))
Set objFI = objFO.Files

visabild = 1
antalbilder = 0
For Each objFI In objFO.Files
If LCase(Right(objFI.Name, 4)) = ".jpg" Then
If LCase(Left(objFI.Name, 1)) = "\_" Then
antalbilder = antalbilder + 1
redim preserve arrBilder(antalbilder)
arrBilder(antalbilder) = mid(objFI.name,2)
If arrbilder(antalbilder) = request.QueryString("fi") Then
visabild = antalbilder
End If
End If
End If
Next

IF antalbilder \> 0 THEN
Response.Write("\<Table border=""0"" cellpadding=""0"" cellspacing=""8""\>\<TR\>\<TD width=""45"" align=""center""\>")
If arrbilder(visabild - 1) \<\> "" THEN
Response.Write ("\<a href=""gallery.asp?fo=" & request.QueryString("fo") & "&fi=" & arrbilder(visabild - 1) & """\>\<img src=""images/back.gif"" border=""0"" alt=""Visa föregående bild""\>\</a\>")
End If
Response.Write("\</TD\>\<TD width=""45"" align=""center""\>")
Response.Write("&nbsp;\<a href=""gallery.asp""\>\<img src=""images/up.gif"" border=""0"" alt=""Visa Galleriöversikten""\>\</a\>")
Response.Write("\</TD\>\<TD width=""45"" align=""center""\>")
IF visabild \< antalbilder THEN
Response.Write("&nbsp;\<a href=""gallery.asp?fo=" & request.QueryString("fo") & "&fi=" & arrbilder(visabild + 1) & """\>\<img src=""images/next.gif"" border=""0"" alt=""Visa nästa bild""\>\</a\>")
End If
Response.Write("\</TD\>\</TR\>\</TABLE\>")
'Response.Write("\<br\>")
Response.Write ("\<img src=""" & picmapp & arrBilder(visabild) & """ border=""0""\>\</a\>\<br\>")

antalbilder = 0
Response.Write("\<Table border=""0"" cellpadding=""0"" cellspacing=""3""\>\<TR\>")
columns = 6
column = 0
For Each objFI In objFO.Files
If LCase(Right(objFI.Name, 4)) = ".jpg" Then
If LCase(Left(objFI.Name, 1)) = "\_" Then
antalbilder = antalbilder + 1
redim preserve arrBilder(antalbilder)
arrBilder(antalbilder) = objFI.name
column = column + 1
If column \> columns THEN
 Response.Write("\</TR\>\<TR\>")
 column = 1
End If
Response.Write ("\<TD\>\<a href=""gallery.asp?fo=" & request.QueryString("fo") & "&fi=" & mid(arrbilder(antalbilder),2) & """\>\<img src=""" & picmapp & arrBilder(antalbilder) & """ border=""0"" width=""100""\>\</a\>\</TD\>")
End IF
End If
Next
Do Until column = columns
Response.Write("\<TD\>\</TD\>")
column = column + 1
Loop
Response.Write("\</TR\>\</TABLE\>")
ELSE
Response.Write("&nbsp;\<a href=""gallery.asp""\>\<img src=""images/up.gif"" border=""0"" alt=""Visa Galleriöversikten""\>\</a\>\<br\>\<br\>")
Response.Write("Det finns inga bilder i galleriet")
End IF
ELSE
Response.Write("Det finns inget fotogalleri med namnet """ & request.QueryString("fo") & """")
End IF
End IF
Response.Write("\</center\>")
%\>
\<br\>\</td\>
				 \<td background="images/artikel_right.gif" width="4"\>\</td\>
                \</tr\>\<tr\>
                  \<td colspan="3"\>\<img src="images/artikel_bredast_bottom.gif" width="700"\>\</td\>\</tr\>
              \</table\>
\<%
	Response.Write ("\</td\>\</tr\>\</table\>")

End sub
slut på skriptet

Permalänk: https://www.webforum.nu/p/177596

---

Tråden på webben: https://www.webforum.nu/amne/asp/177596-sortering-i-asp-skript-med-å-ä-ö