Men der er stadig det der med knappen, og så vil den heller ikke vise filerne i iframen, som jeg fortalte..
Jeg har to filer. Default.asp og fil.asp;
FILNAVN: default.asp
INDHOLD:
------------------------------------------------
<html>
<head>
<title>Filviseren</title>
</head>
<body leftmargin="20" rightmargin="25" background="back.jpg" bgproperties="fixed"
bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000" alink="#000000" scroll="no">
<center>
<br>
<p><strong>
<font face="small fonts, tahoma" size="+1">
</strong>
<table cellspacing="10">
<tr><td>
<iframe src="fil.asp" width="500" height="360"></iframe>
</td>
<td>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("text"))
Set filesObject = folderObject.Files
response.write "<form method=""get"" action="""&request.servervariables("script_name")&""">"
response.write "<select name=""fil"" size=19 onchange=""this.form.submit()"">"
For Each file In filesObject
file = file.Name
response.write "<option>" & file & "</option>"
next
response.write "</select>"
response.write "</form>"
%>
<input type="submit" value=" Vis fil ">
</td>
</tr>
</table>
</center>
</p>
</body>
</html>
------------------------------------------------
FILNAVN: fil.asp
INDHOLD:
------------------------------------------------
<%
if not request.querystring("fil") = "" then
dir = "text/"
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath(dir & request.querystring("fil"))
set file = fs.OpenTextFile(filespec,1)
response.write file.readAll
fs.close
end if
%>
------------------------------------------------
?
