oki... nu fik jeg det til at virke...
/test.asp
/trailers/"alle mov filer"
/trailers/dk_show.asp
------------------------------------------------
dk_show.asp :
<html>
<head>
<title>Show selected Trailer</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
filnavn = Request.Querystring("fil")
%>
<body bgcolor="#6393D3" text="#000000">
<div align="center">
<p> </p>
<h1><font face="Times New Roman, Times, serif"><b><u><%=filnavn%></u></b></font></h1>
</div>
<div align="center">
<TABLE WIDTH="600" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="600" VALIGN="top" ALIGN="CENTER">
<div align="center"><font face="Times New Roman, Times, serif"><b>Tryk
for at starte trailere... eller downoad filen længere nede</b></font></div>
</TD>
</TR>
<TR>
<TD WIDTH="608" VALIGN="top" ALIGN="CENTER" background="/Trailers/back.jpg" height="360">
<p> </p>
<p><object classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" width="480" height="288" codebase="
http://www.apple.com/qtactivex/qtplugin.cab"> <param name="autoplay" value="true">
<param name="src" value="qtstart5a_480x228.mov">
<param name="controller" value="false">
<param name="target" value="myself">
<param name="href" value="<%=filnavn%>">
<param name="pluginspage" value="
http://www.apple.com/quicktime/download/indext.html"> </object></p>
</TD>
</TR>
<TR>
<TD WIDTH="608" VALIGN="top" ALIGN="CENTER"><a href="/Trailers/dk_trailers.asp" target="_self"><font face="Times New Roman, Times, serif"><b>Tilbage
til listen</b></font></a></TD>
</TR>
</TABLE>
</div>
<p> </p>
<table width="100%" border="0">
<tr>
<td width="30%">
<div align="center"><a href="<%=filnavn%>">Hent
Trailer</a></div>
</td>
<td width="70%">
<div align="center">Højreklik og vælg "Gem destination
som"</div>
</td>
</tr>
<tr>
<td width="30%">
<div align="center"></div>
</td>
<td width="70%">
<div align="center"></div>
</td>
</tr>
</table>
</body>
</html>
------------------------------------------
Test.asp :
<html>
<head>
<title>Trailers selecion</title>
</head>
<body bgcolor="#6393D3" text="#000000">
<center>
<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 = "/trailers/"
ShowSub = sti & request("ShowSub")
ShowSubLink = request("ShowSub")
strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & ""
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """>"
Response.Write Folder.Name
Response.Write "<br>"
End if
Next
Set objFSO = Nothing
%>
</td>
</tr>
</table>
<hr>
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1">
<%
'Response.Write ShowSub & "<br>"
'Response.Write strPhysicalPath
'Response.End
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
Response.write "<tr><td>"
if InStr(1,"mov", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
Response.Write "<a href=""trailers/dk_show.asp?fil=" & "" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
else
Response.Write "<a href=""" & ShowSub & "/" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
End if
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>
</table>
</center>
</html>
virker nu !!
