Galleri Script?
Hey Derude..!Jeg står med et galleri script som jeg simpelt hen ikke kan få til at åbne i et nyt vindue når jeg klikker på billedet..!
scriptet ser sådan her ud:
<body bgcolor="#000000">
<p align=center>
<%
'------------------------------------------------
'Info variabler NIX pille
'------------------------------------------------
info_page = 0
info_page_count = 0
info_Count = 0
'------------------------------------------------
'Info Script, udregner og udskriver info til siden
'------------------------------------------------
If page <> "" then
response.write "<a href='billeder.asp'>1</a> "
else
Response.write " "
End If
For Each objFileItem in objFolderContents
info_Count = info_Count + 1
info_page = info_page + 1
if info_page = 20 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='billeder.asp?start=" & info_count & "&page=" & info_page_count + 1 & "'>" & info_page_count + 1 & "<a> "
End If
End If
Next
Response.write ""
if (info_page_count) * 20 = info_count then
Response.write ""
Else
Response.write ""
End If
%>
<div align="center">
<table border="0" cellspacing="2" cellpadding="2">
<tr>
<%
For Each objFileItem in objFolderContents
If objFileItem.Name = "billeder.asp" then
Else
If CLng(count) < CLng(start) then
count = count + 1
Else
If CLng(row) => CLng(max_row) And row_count = 20 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=170 height=170></a>"
row_count = row_count + 3
count = count + 1
End If
End If
End If
Next
%>
</tr>
</table>
<p align="center"> </p>
Håber i kan hjælpe mig..
Mvh Nicolaj Jensen
