Det var nu mere om nogen evt. kunne hjælpe mig med selve kildokoden, få den sat ind i min gamle så det kommer til at virke?
<html>
<head>
<title>Privaten - hjemmesiden</title>
</head>
<body>
<table align="center" border="0" width="760" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="125">
</td>
<td valign="top" width="510" style="padding-left: 11px; padding-right: 11px;">
<table border="1" width="100%" bordercolor="#B6BC59" cellspacing="0" cellpadding="2">
<tr>
<td width="100%" bgcolor="#B6BC59">
<div class=h1>Fotoalbum</div>
</td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2">Se billeder fra
forskellige løb her:</font>
</td>
</tr>
</table>
<br>
<table border="1" width="100%" cellspacing="0" cellpadding="2" bordercolorlight="#B6BC59" bordercolordark="#B6BC59">
<tr>
<td width="100%" bgcolor="#B6BC59">
<div class=h1>Billederne</div>
</td>
</tr>
<tr>
<td width="100%"><font size="2" face="Verdana">
<%
'------------------------------------------------
'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")
subfldr = "\images\vand\" ' evt subfolder hvor billeder er placeret.
Set objFile = objFSO.GetFile(strPhysicalPath)
fldr = objFile.ParentFolder & subfldr
Set objFolder = objFSO.GetFolder(fldr)
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 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=fotoalbum.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='fotoalbum.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>
<%
For Each objFileItem in objFolderContents
select case right(lcase(objFileItem.Name),3)
case "jpg","gif","bmp"
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(subfldr & objFileItem.Name)
Response.write "'><img border=0 src='" & (subfldr & objFileItem.Name) & "' alt='" & (objFileItem.Name) & "' width=125 height=110></a>"
row_count = row_count + 1
count = count + 1
end if
End If
End select
Next
%>
</td>
</tr>
</table>
</font>
</td>
</tr>
</table>
</td>
<td valign="top" width="125">
</td>
</tr>
</table>
<br>
</body>
</html>
