du får lige hele filen:
<%
if request.querystring("execute") ="popup" then
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>Velkommen til Idrætsudvalgets Billedarkiv</title>" & vbCrLf &_
"<STYLE type=text/css>A:link {" & vbCrLf &_
"COLOR: #000000; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:visited {" & vbCrLf &_
"COLOR: #000000; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:active {" & vbCrLf &_
"COLOR: #000000; TEXT-DECORATION: none" & vbCrLf &_
"}" & vbCrLf &_
"A:hover {" & vbCrLf &_
"COLOR: #FFFF00; TEXT-DECORATION: underline" & vbCrLf &_
"}" & vbCrLf &_
"</STYLE>" & vbCrLf &_
"<body bgcolor='#ffffff'>" & 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();'><font face='Verdana' size='1'>--Luk vinduet--</font></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=no');
}
// -->
</SCRIPT>
<head>
<title>Idrætsudvalget - Odense Seminarium</title>
</head>
<style type="text/css">
<!--
BODY {
font-family: Verdana,Arial;
font-size: 10pt;
font-style: normal;
color="#000000"
}
A:LINK {
font-family: Verdana,Arial;
font-size: 10pt;
font-style: normal;
text-decoration : none;
color: #000000;}
A:VISITED {
font-family: Verdana,Arial;
font-size: 10pt;
font-style: normal;
text-decoration : none;
color: #000000;
}
A:HOVER {
font-family: Verdana,Arial;
font-size: 10pt;
font-style: normal;
text-decoration : underline;
color: #E2E15C;
}
TD {
font-family: Verdana,Arial;
font-size: 10pt;
font-weight: normal;
font-style: normal;
color: #000000;
}
-->
</style>
<body background="gfx/Baggrund.gif" topmargin="0">
<center><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="130" height="130" id="relog" ALIGN="">
<param name="movie" value="gfx/relog.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<param name="wmode" value="transparent">
<param name="menu" value="false">
<embed src="clock/relog.swf" quality="high" bgcolor="#FFFFFF" width="130" height="130" wmode="transparent" align="" TYPE="application/x-shockwave-flash" pluginspage="
http://www.macromedia.com/go/getflashplayer" menu="false">
</embed>
</object>
</div></td>
<td width="15"> </td>
<td style="border-right: 1px solid black" style="border-left: 1px solid black" style="border-top: 1px solid black"><a href="Default.asp"><img src="gfx/Logo.jpg" alt="Tilbage til forsiden..." border="0"></a></td>
</tr>
<tr>
<td width="170" bgcolor="#FFFFFF" style="border: 1px solid black" valign="top">
<font face="Verdana" size="2" color="000000">
<br>
<center><img src="gfx/Menu_Idraetsudvalget.jpg" border="0"></center><br>
- <a href="Medlemmer.asp">Medlemmer</a><br>
- <a href="Moeder.asp">Møder</a><br>
- <a href="Vedtaegter.asp">Vedtægter</a><br>
- <a href="Hvad_Laver_Vi.asp">Hvad laver vi?</a><br>
- <a href="Andre_Billeder.asp">Diverse billeder</a><br>
- <a href="Kontakt_Os.asp">Kontakt os</a><br><br>
<center><img src="gfx/Menu_Fodbold.jpg" border="0"></center><br>
- <a href="Fodbold_Turnering.asp">Turnerings plan</a><br>
- <a href="Fodbold_Billeder.asp">Billeder</a><br>
- <a href="Fodbold_Historie.asp">Historie</a><br>
- <a href="Fodbold_Regler.asp">Regler</a><br><br>
<center><img src="gfx/Menu_Volleyball.jpg" border="0"></center><br>
- <a href="Volleyball_Turnering.asp">Turnerings plan</a><br>
- <a href="Volleyball_Billeder.asp">Billeder</a><br>
- <a href="Volleyball_Historie.asp">Historie</a><br>
- <a href="Volleyball_Regler.asp">Regler</a><br><br>
<center><img src="gfx/Menu_Backgammon.jpg" border="0"></center><br>
- <a href="Backgammon_Turnering.asp">Turnerings plan</a><br>
- <a href="Backgammon_Billeder.asp">Billeder</a><br>
- <a href="Backgammon_Historie.asp">Historie</a><br>
- <a href="Backgammon_Regler.asp">Regler</a><br><br>
<center><img src="gfx/Menu_Hockey.jpg" border="0"></center><br>
- <a href="Hockey_Turnering.asp">Turnerings plan</a><br>
- <a href="Hockey_Billeder.asp">Billeder</a><br>
- <a href="Hockey_Historie.asp">Historie</a><br>
- <a href="Hockey_Regler.asp">Regler</a><br><br>
</font></td>
<td width="15" valign="bottom"><font face="Verdana" size="1" color="#FFFFFF"><center>T<br>Ø<br>M<br>*<br>2<br>4<br>0<br>7</center></font></td>
<td bgcolor="#FFFFFF" width="789" valign="top" style="border: 1px solid black" style="padding-right: 5px;" style="padding-left: 5px;" style="padding-top: 5px;">
<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
<%
sti = "./gfx/BilledArkiv/Hockey/"
BilledArkiv = sti & request("BilledArkiv")
strPathInfo = sti
%>
<%
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(BilledArkiv)
showtxtfile=request.querystring("showtxtfile")
if showtxtfile="" then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
response.write "<tr><td colspan=""3"">"
For Each objFileItem in objFolderContents
If objFSO.GetExtensionName(objFileItem.name) = "txt" THEN
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.Write "<a href=""" & Request.ServerVariables("script_name") & "?showtxtfile=" & Server.URLEncode(BilledArkiv & objFileItem.Name) & """>" & objFileItem.Name & "</a><br>"
End if
Next
response.write "</td></tr>"
Set objFSO = Nothing
Else
Set objFSO = CreateObject("Scripting.FileSystemObject")
set file=objFSO=OpenTextFile(Server.Mappath(showtxtfile),1)
response.write "<tr><td>" & file.readall & "</td></tr>"
file.Close
Set objFSO = Nothing
End if
If BilledArkiv > " " and showtxtfile="" then
BilledArkiv = Replace(BilledArkiv, " ", "%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")
' finder længden af filnavnet og skærer dens extension væk
intLength = len(objFileItem.Name)
strText = left(objFileItem.Name,intLength-4)
Response.write "<td align='center' width='25%'>"
Response.Write "<a href=""java script: Popit('"&SiteName&"?execute=popup&id="&BilledArkiv & "\\" & objFileItem.Name&"')""><img src='"&BilledArkiv & "\" & objFileItem.Name&"' border='0' style='width:200px;;height:150px;'>" & "<br></a><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & strText & "</font>"
Response.write "</a><p></td>"
PictureNo = PictureNo + 1
If PictureNo=3 Then
Response.write "</tr><tr>"
PictureNo = 0
End if
End if
Next
Set objFSO = Nothing
End if
%>
<%
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
' Set objFolderContents = objFolder.Files
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "Name", 200, 50
objRS.Fields.Append "DateLastmodified", 7, 9
objRS.Open
For each Folder in objFolder.SubFolders
objRS.Addnew
objRS("Name") = Folder.Name
objRS("DateLastmodified") = Folder.DateLastModified
objRS.Update
Next
objRS.Sort = "DateLastmodified DESC, Name"
while Not objRS.EOF
Response.Write "<a href=""" & CurFile & "?BilledArkiv="
Response.Write(Replace(objRS.Fields("Name"), " ", "%20"))
response.write """>"
Response.Write objRS.Fields("Name")
Response.Write "</a> - "
objRS.MoveNext
wend
objRS.Close
Set objRS = Nothing
Set objFSO = Nothing
%>
</font></td>
</tr>
</table>
</body>
</html>
<%
end if
%>
