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(" <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(" <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(" <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