frit galleri?

http://www.eksperten.dk/bruger.phtml?navn=helpwantedfast&option=24

Luk dine gamle tråde eller giv feedback i dem!

Du kan måske bruge denne her, lig denne fil og billederne i samme mappe, så skulle den gerne virke

-----------------------------------------------------------------

<html>
<head>
<title></title>


</head>
<body scroll="yes" leftmargin="0" rightmargin="0" topmargin="0" class="body">

<table width="100%" height="100%" border="0" bgcolor="319ACE" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top">
      <table border="0" width="784" height="100%" cellpadding="0" cellspacing="0" bgcolor="ffffff" class="border4">
        <tr>
          <!--venstre -->
          <td align="center" valign="top">
            <table width="95%" border="0" cellspacing="0" cellpadding="0" height="95%">
              <tr>
                <td align="center" valign="top">
               
<%
'------------------------------------------------
'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 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 i alt <b>" & (info_Count) & "</b> billeder"

if (info_page_count) * 9 = info_count then

Response.write " <b>" & (info_page_count) & "</b> Sayfa<br>"

// Else
// Response.write " <b>" & (info_page_count) + 1 & "</b>sayfada<br>"

End If
%>
<div align="center">
<table border="0" cellspacing="2" cellpadding="2">
  <tr>

<%
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=200 height=150></a>"
  row_count = row_count + 1   
  count = count + 1
End If
End If
End If
Next
%>

    </td>
  </tr>
</table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>

</table>

</body>
</html>

Det ser ik helt ud til at virke, for kun en blank side: www.tuning.dk/DHB2003/index.html

http://www.tuning.dk/DHB2003/

har selv klaret det med php

den er kodet med asp, og skal derfor ende med index.asp
glemt at sige det :)