"Per Ahm" <per@perahm.dk> wrote in message
news:4116330f$0$26375$ba624c82@nntp02.dk.telia.net...
> Har fundet flg. kode på netcoders , og det virker fint , og andvender det
> til min datters børnehave....
>
> Den henter og viser alle billede i den mappe filen ligger i (index.asp) og
> sitet er så opdelt i måneder , med en index.asp i hver mappe!
>
> Men, kan der forholdsvis nemt ændres , så den kun henter billedet i en
> "lille" udgave , frem for at hente det store billede , og så vise den i
> lille!
>
> Det ville jo gøre siderne væsentligt hurtigere!!! Og , så kan vi vælge
> hvilket vi ønsker at hente , og se i stor!
>
> Evt. et andet script... ?
Tjek denne tråd hvor der er en der har samme problem
http://www.asp.dk/forum.asp?mode=show_message&tech_id=1&forum_id=2&message_id=56271
>
> Med venlig hilsen
> Per Ahm
>
>
>
> ............................................................
>
>
> <head>
> <link rel="stylesheet" type="text/css" href="../style.css">
>
> </head>
>
> <body>
>
>
>
>
>
> <p align="center"><font color="#000080"><font face="Tahoma"
> size="2"><br>Klik på </font>
> billedet for at åbne i stort format!<br>
> Ønsker du at gemme det kan du højreklikke på det og vælge gem billede
> som..<br>
>
> <%
> '------------------------------------------------
> 'henter info om siden
> '------------------------------------------------
> page = trim(Request.QueryString("page"))
> start = trim(Request.QueryString("start"))
>
> '------------------------------------------------
> 'Åbner Filsystem
> '------------------------------------------------
> strPathInfo = Request.ServerVariables("PATH_INFO")
> strPhysicalPath = Server.MapPath(strPathInfo)
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFile = objFSO.GetFile(strPhysicalPath)
> Set objFolder = objFile.ParentFolder
> Set objFolderContents = objFolder.Files
>
> '------------------------------------------------
> 'grund variabler
> '------------------------------------------------
> row_count = 0
> row = 1
> max_row = 3
> count = 1
> If NOT start <> "" then
> Start = 1
> End If
> %> </p>
>
> <p align=center>
>
> <%
> '------------------------------------------------
> 'Info variabler
> '------------------------------------------------
>
> info_page = 0
> info_page_count = 0
> info_Count = 0
>
> '------------------------------------------------
> 'Info Script, udregner og udskriver info til siden
> '------------------------------------------------
> If page <> "" then
> response.write "side <a href='index.asp'>1</a> "
> else
> Response.write "side 1 "
> End If
>
> For Each objFileItem in objFolderContents
> info_Count = info_Count + 1
> info_page = info_page + 1
> if info_page = 9 then
> info_page_count = info_page_count + 1
> info_page = 0
> End If
> If info_page = 0 then
> If trim(info_page_count + 1) = trim(page) then
> response.write info_page_count + 1 & " "
> Else
> response.write "<a href='index.asp?start=" & info_count & "&page=" &
> info_page_count + 1 & "'>" & info_page_count + 1 & "<a> "
> End If
> End If
> Next
> Response.write "<br>Der er ialt <b>" & (info_Count) & "</b> billeder"
> if (info_page_count) * 9 = info_count then
> Response.write " på <b>" & (info_page_count) & "</b> sider<br>"
> Else
> Response.write " på <b>" & (info_page_count) + 1 & "</b> sider<br>"
> End If
> %>
> <div align="center">
> <table border="0" cellspacing="3" cellpadding="3">
> <tr>
> <base target="_blank">
> <%
> For Each objFileItem in objFolderContents
>
> If objFileItem.Name = "index.asp" then
> Else
>
> If CLng(count) < CLng(start) then
> count = count + 1
> Else
>
> If CLng(row) => CLng(max_row) And row_count = 3 then
> Else
>
>
>
>
> If row_count > 2 then
> response.write "<tr>"
> row_count = 0
> row = row + 1
> End If
>
>
> Response.write " <td><a href='"
> Response.Write(objFileItem.Name)
> Response.write "'><img border=0 src='" & (objFileItem.Name) & "' alt='" &
> (objFileItem.Name) & "' width=120 height=90></a>"
> row_count = row_count + 1
> count = count + 1
> End If
> End If
> End If
> Next
> %>
>
> </td>
> </tr>
> </table>
> <BR></font>
>
> ............................................................
>
>
>