Avatar billede fedespil.dk Nybegynder
01. september 2002 - 00:35 Der er 5 kommentarer

To billeder/tabeller vandret ved siden af hinanden?

Jeg har et ASP-script, der ud fra en bestemt mappe med billeder i selv genererer en side med billederne forstørret ned. Kan ses her: http://www.fedespil.dk/rod/virtualtanzania/

Problemet består i, at jeg gerne vil have flere billeder ved siden af hinanden, jeg ved dog ikke, hvorledes HTML/ASP-koden skal se ud for at udføre dette.

Billederne vises via følgende kode:

<table align=center width=250>
<tr height=5 bgcolor=black><td></td></tr>
<tr valign=middle align=center bgcolor=Orange>
<td><font size=2 face=Verdana color=Blue>
<%
Response.Write "<br><a style='color: blue' href='"& f1.name &"' target='_blank'><img width=250 src='" & f1.name & "' border=0><br>" & f1.name &"</a>"
%>
</font></td>
</tr>
<tr height=5 bgcolor=black><td></td></tr>
</table><br>
<%
end if
end if
Next
%>

Så er mit spørgsmål, hvordan den ASP-kode skal se ud, hvis billederne skal komme ved siden af hinanden?

Jeg siger på forhånd tusind tak for svarene.

Anders Jensen
anders@fedespil.dk
www.FedeSpil.dk
Avatar billede fedespil.dk Nybegynder
01. september 2002 - 00:37 #1
Den før skrevne kode kunne selvfølgelig have været enkliggjort, men det burde være til at finde ud af alligevel :o)
Avatar billede eagleeye Praktikant
01. september 2002 - 00:52 #2
Jeg har dette som viser X billeder ved side af hinadne på hver linie i en tabel:



<html>
<head>
</head>
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath(".")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="100%">

<%
noColPrRow = 0
maxColsPrRow = 3
for each file in folder.files
  indexExt = inStrRev(file.name, ".")
  if indexExt > 0 then
    fileExt = lcase(mid(file.name,indexExt+1))
  else
    fileExt = ""
  end if
 
  if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
    if noColPrRow = 0 then
      Response.Write "<tr>"
    end if
%> 
  <td><img src="<%=file.name%>"></td>
<%
    noColPrRow = noColPrRow + 1
    if noColPrRow = maxColsPrRow then
      Response.Write "</tr>"
      noColPrRow = 0
    end if
   
  end if
next
if noColPrRow > 0 then Response.Write "</tr>"
%>
</table>

</body>
</html>
Avatar billede eagleeye Praktikant
01. september 2002 - 01:03 #3
Du kan også prøve at søge her på eksperten efter billede / galery / mm

Her er et vildt photo album : http://www.eksperten.dk/spm/241057
Avatar billede fedespil.dk Nybegynder
03. september 2002 - 17:52 #4
Du har ikke en anelse om, hvordan man kan få dem til at stå ved siden af hinanden i mit script? Der kan sagtens uddeles flere point, hvis du er interesseret :o)

Siger dog tak for din hjælp alligevel - problemet består bare i, at antallet af billeder varierer.
Avatar billede eagleeye Praktikant
06. september 2002 - 23:52 #5
Jeg kan ikke se din side så jeg er ikke helt med på hvad du mener..

HVis du har en tabel eller noget hvor billederne skal ligge i kan du tage koden og ligge ind i tabellen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester