fso

måske dette kode kan hjælpe lidt, dog er billede indsat som 150x150 og ikke som link:


<table width="100%" border="0">
<%
start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("."))
Set fc = f.Files
For Each billed in fc
  arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")

Antalsider = int(ubound(myarray) / 10)
antal = 0
for i = start to (start + 10)
  if not i >= ubound(myarray) then
    if antal = 0 then Response.Write "<TR>"
    %>
<td width="50%"><center>
<IMG SRC="<%=myArray(i)%>" WIDTH="150" HEIGHT="150" border="0">
</center></td>
    <%
  else
    nesteside = 1
  end if

  antal = antal + 1
  if antal = 3 then
    Response.Write "</TR>"
    antal = 0
  end if
next
%>
</table>

<%
if nesteside <> 1 then
  response.write "<a href=""side.asp?start=" & (start + 10) & """>Næste</a>"
end if

if start <> 0 then
response.write "<a href=""side.asp?start=" & (start - 10) & """>Forrige</a>"
end if
%>

kan du hjælpe mig videre ?
http://www.fredericia-bynight.dk/1Q/billedegalleri/hyttetur.asp

har du copy/pastede koden ind???

Så prøv et slette alle karakter og else rykker op på linine oven over og helt hen til teksten så der ingen mellemrum er og lav et return. Det kan nogle gange komme en underlig karakter når man copy/paster kode direkte ind, som man ikke kan se.

hvordan skal denne se ud :
Set f = fs.GetFolder(server.mappath("../billedegalleri/hyttetur/"))

Hvis min opbygning er :

root/1q/billegalleri/hyttetur/  <--- der ligge de billeder der skal vises i en fil der ligger her : root/1q/billegalleri/hyttetur.ASP

hvordan kan jeg få billederne til at ligge :

1 2 3
4 5 6

næste side

lige iøjeblikket viser den alle filer i den folder filen ligger.

HVis du vil ændre på vilken folder den skal lede i så skal denne linie rettes:
Set f = fs.GetFolder(server.mappath("."))

Til, det må blive noget i stil med:
Set f = fs.GetFolder(server.mappath("root/1q/billegalleri/hyttetur/"))

De to 10 taller angiver hvor mange der bliver vist pr side, det giver så 11 pr side da man starter med 0

Antalsider = int(ubound(myarray) / 10)  '<--- her
antal = 0
for i = start to (start + 10)    '<---- og her

Så det skal være:

Antalsider = int(ubound(myarray) / 6)  ' 6 pr. side
antal = 0
for i = start to (start + 5)    'Der startes fra 0

Det kode som indsætter Næste Forrige skal så laves til:

<%
if nesteside <> 1 then
  response.write "<a href=""side.asp?start=" & (start + 6) & """>Næste</a>"
end if

if start <> 0 then
response.write "<a href=""side.asp?start=" & (start - 6) & """>Forrige</a>"
end if
%>

hvis jeg sætter den til at se sådan ud:
Set f = fs.GetFolder(server.mappath("../billedegalleri/hyttetur/"))

viser den ingen fejl selvom der ligger ET billede i mappen hyttetur

hvad hvis du bruger:

Set f = fs.GetFolder(server.mappath("./hyttetur"))

så viser den heller ikke det billede der ligger der..

hvordan får man 2 rækker af 3 billeder altså de 6.

Ved du noget om det ?

Se kommentar fra (18/08-2002 17:17:38) samt (18/08-2002 17:18:24)

Den udskriver 3 pr linie, og lige nu 11 pr side men prøv at rette det som frø omtalt.

det er altså rette *s*

Prøv at udskrive navnet på den folder den finder frem til og se at det passer.

Set f = fs.GetFolder(server.mappath("./hyttetur"))
Response.write f.Path

se : http://www.fredericia-bynight.dk/1Q/billedegalleri/hyttetur.asp

den ser jo ud til at være god nok

hvad søren kan der være galt, den skal jo bare vise ET billede

Det virker meget underlidt. Har du fået hele koden med?

ja skulle jeg mene, skal jeg sende dig siden ?

Hvis der ligger billeder eller bare filer i den folder så skulle de blive vist.

Ja det må du godt prøve.. eagleeye@c.dk

nej for tror problemet er at jeg ikke vil have filen sammen med billederne så den ligger i et niveau under.

Jeg ved ikke helt hvod du mener med sidste mail men jeg kan se du prøvet et par forskllige layouts..

nej det virker nu på nær man ikke kan blikke sig ind og se det store billede

så eagel nu virkede det... tak