Jeg lavede et par rettelser i din kode, og nu virker det vist men der er en linie der stadig laver problemer....
-> Response.Write(Replace(Folder.Name, " ", ",",",",",","%20"))
Hvad kan problemet være? den siger at:
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "%20"]'
/Filer12.asp, line 132
<HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function openWin( windowURL, windowName, windowFeatures ) {
return window.open( windowURL, windowName, windowFeatures ) ;
}
// -->
</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">
<h3>Vælg folder :</h3>
<%
sti = "./filer/film/"
ShowSub = sti & request("ShowSub")
strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(sti)
%>
<table border="0" cellpadding="0" cellspacing="5">
<%
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
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.write "<tr><td>"
Response.Write "<a href=""" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>
</table>
</td>
<td width="152" height="499" bgcolor="#5B2900" valign="top">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<tr><td>"
Response.Write "<a href=""" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", ",",",",",","%20"))
response.write """>"
Response.Write Folder.Name
' Response.Write "<br>"
Response.Write "</td></tr>"
End if
Next
Set objFSO = Nothing
%>
</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>
/ProDoc
