Prøv at copy/paste alt dette ind i din fil:
<%
if request.querystring("execute") ="popup" then
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>image gallery [goat design]</title>" & vbCrLf &_
"<script>" & vbCrLf &_
"function resizeMe(){" & vbCrLf &_
"if (navigator.appName == 'Netscape'){" & vbCrLf &_
"adjWidth = document.images[""0""].width + 6;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 27;" & vbCrLf &_
"}" & vbCrLf &_
"else {" & vbCrLf &_
"adjWidth = document.images[""0""].width + 100;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 150;" & vbCrLf &_
"}" & vbCrLf &_
"window.resizeTo(adjWidth, adjHeight);" & vbCrLf &_
"window.focus()" & vbCrLf &_
"}" & vbCrLf &_
"</script>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body margin='0' onLoad=""resizeMe();"">" & vbCrLf &_
"<table style='width:100%;height:100%;'>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>" & vbCrLf &_
"<img src='"&request.querystring("id")&"' name=""0"" id='0' border='0'>" & vbCrLf &_
"</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
else
%>
<HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function openWin( windowURL, windowName, windowFeatures ) {
return window.open( windowURL, windowName, windowFeatures ) ;
}
function Popit(url) {
popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=yes');
}
// -->
</SCRIPT>
<HEAD>
<TITLE>Slyngelstuen - Ikke for sarte sjæle...</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<STYLE type=text/css>A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
</STYLE>
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
var ugeDag = new Array ("Søndag","Mandag","Tirsdag",
"Onsdag","Torsdag","Fredag","Lørdag")
var maaned = new Array ("januar","februar","marts",
"april","maj","juni","juli","august","september",
"oktober","november","december")
var nu = new Date
//-->
</SCRIPT>
<head>
<title>Slyngelstuen.dk "Forside"</title>
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF" bgcolor="#000000">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="743" id="AutoNumber1">
<tr>
<td width="800" height="110" colspan="3" valign="top">
<img border="0" src="gfx/toplogo_top.jpg"></td>
</tr>
<tr>
<td width="648" height="21" colspan="2" bgcolor="#000000">
<img border="0" src="gfx/toplogo_buttom_left.jpg"></td>
<td width="152" bgcolor="#000000" background="gfx/toplogo_buttom_right.jpg">
<p align="center"><font face="Verdana" size="1">
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
document.write(ugeDag[nu.getDay()]
+ " den " + nu.getDate() + ". " + maaned[nu.getMonth()])
//-->
</SCRIPT></font></p></td>
</tr>
<tr>
<td width="800" height="1" colspan="3" bgcolor="#5B2900"></td>
</tr>
<tr>
<td width="163" height="19" bgcolor="#5B2900" valign="top"> </td>
<td width="485" height="12" bgcolor="#5B2900" valign="top"> </td>
<td width="152" height="19" bgcolor="#5B2900" valign="top"> </td>
</tr>
<form name="form1" method="post" action="tjek.asp">
<tr>
<td width="163" height="499" bgcolor="#5B2900" valign="top"><b><font face="Verdana" size="1" color="#FFFFFF">
<%
If Session("Niveau") = 1 then
Server.Execute("adminmenu.asp")
End if
If Session("Niveau") = 2 then
Server.Execute("brugermenu.asp")
End if
If Session("Niveau") = "" then
Server.Execute("menu.asp")
End if
%>
</font></td>
<td width="485" height="499" bgcolor="#5B2900" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td align="center" width="15%">
</td>
<td align="left" width="85%">
<h3>Vælg folder :</h3>
<%
sti = "./gfx/arkiv/"
ShowSub = sti & request("ShowSub")
strPathInfo = sti
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<a href=""" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """>"
Response.Write Folder.Name
Response.Write "<br>"
End if
Next
Set objFSO = Nothing
%>
</td>
</tr>
</table>
</td>
<td width="152" height="499" bgcolor="#5B2900" valign="top">
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1">
<tr>
<%
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.write "<td align='center' width='25%'>"
Response.Write "<a href=""java script: Popit('"&SiteName&"?execute=popup&id="&ShowSub & "\\" & objFileItem.Name&"')""><img src='"&ShowSub & "\" & objFileItem.Name&"' border='0' style='width:200px;;height:150px;'></a>"
Response.write "</a></td>"
PictureNo = PictureNo + 1
If PictureNo=4 Then
Response.write "</tr><tr>"
PictureNo = 0
End if
End if
Next
Set objFSO = Nothing
End if
%>
</tr>
</table>
</td>
</tr>
</form>
<tr>
<td width="163" height="19" bgcolor="#5B2900" valign="top"> </td>
<td width="485" height="15" bgcolor="#5B2900" valign="top">
</td>
<td width="152" height="15" bgcolor="#5B2900" valign="top">
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
end if
%>
