Ja kan prøve
Det er som om denne her har et enten tryk gemt et eller andet sted
<% if request.querystring("menup") = 2 AND request.querystring("sub") = "billeder" then%>
<% if request.querystring("mappe") <> "" then %>
<script language="javascript" type="text/javascript">
function popWin(file){
newWin=window.open("","","width=300,height=200,status=no");
txt='<ht'+'ml><he'+'ad><ti'+'tle><\57ti'+'tle><scri';
txt+='pt language="javascript" type="text/javascript">';
txt+='function resPic(){h=document.images[0].scrollHeight;';
txt+='w=document.images[0].scrollWidth;hm=screen.availHeight-32;wm=screen.availWidth-6;';
txt+='if(h>hm){w=w*hm/h;h=hm;document.images[0].style.width=w+"px";document.images[0].style.height=h+"px";};'
txt+='if(w>wm){h=h*wm/w;w=wm;document.images[0].style.width=w+"px";document.images[0].style.height=h+"px";};'
txt+='window.resizeTo(w+6,h+32);window.moveTo((screen.availWidth-w-6)/2,(screen.availHeight-h-32)/2)}<\57scri';
txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
txt+='" onload="resPic();" onclick="self.close()" title="Tryk for at lukke vinduet"><\57bo'+'dy><\57ht'+'ml>';
newWin.document.write(txt);
newWin.document.close();
}
</script>
<div align="center"><center><table border="0" bordercolor="#000000" cellpadding="2"
cellspacing="0">
<%
function sortArr(myarr, myarrdato)
for k = 0 to ubound(myarr) - 1
minindex = k
for j= k+1 to ubound(myarrdato)
if myarrdato(j) > myarrdato(minindex) then
minindex = j
end if
next
tmp = myarr(k)
myarr(k) = myarr(minindex)
myarr(minindex) = tmp
tmp2 = myarrdato(k)
myarrdato(k) = myarrdato(minindex)
myarrdato(minindex) = tmp2
next
end function
antal = 0
start = request.querystring("start")
if start = "" then
start = 0
end if
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("./"& request.querystring("mappe") & ""))
Set fc = f.Files
thisfile = right(request.servervariables("script_name"), len(request.servervariables("script_name")) - instrrev(request.servervariables("script_name"), "/"))
For Each billed in fc
navn = lCase(Billed.name)
if navn <> thisfile AND right(navn, 3) <> "asp" AND right(navn, 3) <> "htm" AND right(navn, 4) <> "html" AND right(navn, 3) <> "mdb" then
arrayBuild = arrayBuild & billed.name & "|"
arraybuild2 = arraybuild2 & billed.datelastmodified & "|"
end if
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
myArray2 = Split(arrayBuild2, "|")
call sortArr(myArray, myarray2)
Antalsider = int(ubound(myarray) / 4)
for i = start to (start + 3)
if i <= ubound(myarray) then
if antal = 0 then
Response.Write "<TR>"
end if
%>
<td bordercolor="#000000" valign="middle"><p align="center">
<a href="#" onclick="popWin('<%=request.querystring("mappe")%>/<%=myarray(i)%>');return false;">
<span style="text-decoration: none">
<img src="<%=request.querystring("mappe")%>/<%=myarray(i)%>" width="150" height="112" alt="" style="border: 1px solid #000000"></span></a>
</td>
<%
end if
if antal = 1 then
Response.Write "</TR>"
antal = 0
else
antal = antal + 1
end if
next
%></tr>
<p align="center">
<%
if start <> 0 then
response.write("<a href='"&request.servervariables("script_name")&"?menup=2&sub=billeder&mappe="&request.querystring("mappe")&"&start=" & (start - 4) & "''><font face='Arial' style='text-decoration: none' size='2' color='#FFFFFF'>Forrige side</font></a>")
end if
if start <> 0 AND ubound(myarray) > start + 4 then
response.write("<font color='#FFFFFF' face='Arial' size='2'> / </font>")
end if
if ubound(myarray) > start + 4 then
response.write("<a href='"&request.servervariables("script_name")&"?menup=2&sub=billeder&mappe="&request.querystring("mappe")&"&start=" & (start + 4) & "''><font face='Arial' style='text-decoration: none' size='2' color='#FFFFFF'>Næste side</font></a>")
end if
%><%end if%>
<%end if%>
I forhold til andre ting flytter dette sig i alt fald ned..
Ny bruger
Nybegynder
Opret
Preview
