Prøv lige dette:
<html>
<head>
<title>View_selected</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<link rel="stylesheet" type="text/css" href="style.css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Idea by: Nic Wolfe (Nic@TimelapseProductions.com) -->
<!-- Web URL:
http://fineline.xs.mw -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!!
http://javascript.internet.com -->
<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=220,height=210,left = 476,top = 232');");
}
// End -->
</script>
</head>
<body bgcolor="232323">
<div align="center">
<table border="0" width="80%">
<tr>
<td align=center class=text2><b>-=[@ Mirror Backup logs @]=</b>-</td>
</tr>
</table>
</div>
<div align="center">
<center><br>
<table border="0" width="80%">
<tr>
<td align=center class=text1>
<%
dato = request.querystring("dato")
opgave = request.querystring("opgave")
If opgave="" Then opgave="finddatoer"
If opgave="finddatoer" Then
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("e:\mirror_log\")
for each x in fo.SubFolders
Response.write("<a href=""java script:popUp('backup.asp?dato=" & x.Name & "&opgave=vislog')"">" & x.Name & "</a><br>")
next
set fo=nothing
set fs=nothing
End If
If opgave="vislog" Then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("E:\mirror_log\" & dato & "\mirror.log")
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
End If
%>
</td>
</tr>
</table>
</div>
</body>
</html>
