galleri igen. flere billeder henad
hey, har for ikk så lang tid siden fået hjælp til at få billeder til at stå 2 og 2 i den her kode:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>template: home</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<!-- **** Layout Stylesheet **** -->
<link rel="stylesheet" type="text/css" href="style/style104_left.css" />
<!-- **** Colour Scheme Stylesheet **** -->
<link rel="stylesheet" type="text/css" href="style/colour2.css" />
</head>
<body>
<div id="main">
<div id="links">
<!-- **** INSERT LINKS HERE **** -->
<a href="#">another link</a> | <a href="#">another link</a> | <a href="#">another link</a> | <a href="#">another link</a>
</div>
<div id="logo"><h1>template heading goes here</h1></div>
<div id="content">
<div id="column1">
<div id="menu">
<h1>navigate_</h1>
<ul>
<li><a id="selected" href="index.html">home</a></li>
<li><a href="page1.html">page 1</a></li>
<li><a href="page2.html">page 2</a></li>
<li><a href="page3.html">page 3</a></li>
<li><a href="contact.html">contact</a></li>
</ul>
</div>
<div class="sidebaritem">
<h1>news_</h1>
<!-- **** INSERT NEWS ITEMS HERE **** -->
<h2>1st January 2006</h2>
<p>The company announces the launch of it's new website.</p>
<h2>1st January 2006</h2>
<p>The company announces the launch of it's new website.</p>
<p>NOTES: This area can be used for news or any other info.</p>
</div>
<div id="addlinks">
<h1>Billeder</h1>
<!-- **** INSERT ADDITIONAL LINKS HERE **** -->
<ul>
<%
qfolder = request.querystring("f")
'if qfolder = "" then
folderspec = server.mappath(".")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(folderspec)
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folsize = left((subfol.size/1000000), 3)
folist = folist & " <li><a href='?f=" & subfol.name & "'><strong title='view'>»</strong> " & subfol.Name & " </a><small> (" & folsize & " MB)</small>" & vbcrlf
folist = folist & " </li>"
Next
set filesys = nothing
Response.Write folist
%>
</ul>
</div>
<div class="sidebaritem">
<h1>information_</h1>
<!-- **** INSERT OTHER INFORMATION HERE **** -->
<p> This space can be used for additional information such as a contact
phone number, address or maybe even a graphic. </p>
</div>
</div>
<%
if request("f") <> "" then
%>
<div id="column2">
<%
qfolder = request.querystring("f")
filepath = server.mappath(".") & "\" & qfolder
captionfile = filepath & "\captions.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim SomeArray()
'caption part
If filesys.FileExists(captionfile) then
set file = filesys.GetFile(captionfile)
Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
captioncount = 0
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
ReDim Preserve SomeArray(captioncount)
SomeArray(captioncount) = line
'response.write captioncount & " " & somearray(captioncount) & "<br>"
captioncount = captioncount + 1
'Response.write Line
Loop
textStream.close
end if
'folder part
Set demofolder = filesys.GetFolder(filepath)
Set filecoll = demofolder.Files
filecount = 0
For Each file in filecoll
Ext = UCase(Right(File.Path, 3))
If Ext = "JPG" OR Ext = "GIF" Then
on error resume next
data = SomeArray(filecount)
on error goto 0
hrefpath = qfolder & "/" & file.name
b = b + 1
if b = 1 then
imagepath = "<table width=""100%"" border=""1""> <tr><td align=""center"" width=""50%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""150"" height=""150"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td><td>"
filecount = filecount + 1
data = ""
else
b = 0
imagepath = "<td align=""center"" width=""50%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""150"" height=""150"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td> </tr></table>"
filecount = filecount + 1
data = ""
end if
end if
Next
set filesys = Nothing
%>
<p><%=filist%></p>
</div>
<%
else
%>
<div id="column2">
<h1>introduction</h1>
<!-- **** INSERT PAGE CONTENT HERE **** -->
<p>
This template is the fourth design in series 1 (hence the imaginative naming
convention!). The design has 8 different colour schemes (each with a different
logo) and 2 different layout styles, when downloaded from my own site. Here,
it is available with colour scheme 2 and a 2 column layout (news, additional
links and other info on the left).
</p>
<p>
This website template is released as an 'open source' design (under the
<a href="http://creativecommons.org/licenses/by/2.5">Creative Commons Attribution
2.5 Licence</a>), which means that you are free to
download and use it for anything you want (including modifying and amending it).
All of the logo images are from digital photographs taken by me, so there are no
issues with copyright there. All I ask is that you leave the 'design by dcarter'
link in the footer of the template, but other than that...
</p>
<p>
This template is written entirely in XHTML 1.1 and CSS, and can be validated
using the links in the footer.
</p>
<p>
You can view my other 'open source' template designs
<a href="http://www.dcarter.co.uk/templates.html">here</a>.
</p>
<h1>example elements</h1>
<p>Here are some example elements available with this template.</p>
<h2>links</h2>
<p><a href="index.html">example link 1</a></p>
<h2>block quotes</h2>
<blockquote>
<p>
Some blockquote text. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua.
</p>
</blockquote>
<h2>lists</h2>
<ul>
<li>list item 1</li>
<li>list item 2</li>
</ul>
<br />
<h2>images</h2>
<p>images can be placed on the left, in the center or on the right.</p>
<span class="left"><img src="style/graphic.jpg" alt="example graphic" /></span>
<p>
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute
irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
pariatur.
</p>
<span class="center"><img src="style/graphic.jpg" alt="example graphic" /></span>
<span class="right"><img src="style/graphic.jpg" alt="example graphic" /></span>
<p>
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute
irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
pariatur.
</p>
</div>
</div>
<% end if %>
<div id="footer">
© 2006 your name | <a href="#">email@emailaddress</a> | <a href="http://validator.w3.org/check?uri=referer">XHTML 1.1</a> | <a href="http://jigsaw.w3.org/css-validator/check/referer">CSS</a> | <a href="http://www.dcarter.co.uk">design by dcarter</a>
</div>
</div>
<div style="font-size: 0.8em; text-align: center; margin-top: 1.0em; margin-bottom: 1.0em;">
Design provided by <a href="http://www.freewebtemplates.com/">Free Web Templates</a> - your source for free website templates
</div>
</body>
</html>
</body>
</html>
kunne godt tænke mig at vide hvordan man gør så der kommer flere billeder på en række
de står nu
-billede-billede-
-billede-billede-
hvordan får man flere billeder på så der er fx 3 henad??
//jesper
