|
Anno: <%
annostop=2007
Dim cresci_Speciali_Tg
For cresci_Speciali_Tg=annostop to anno
response.write "" & cresci_Speciali_Tg & " | "
Next
%>
<%
video_Speciali_Tg=request("video_Speciali_Tg")
estensione_Speciali_Tg= Right(video_Speciali_Tg,4)
%>
<%
'#################################################
'#### estensione_Speciali_Tg .wmv
'#################################################
if estensione_Speciali_Tg=".wmv" then
%>
<%
' togli estensione_Speciali_Tg .wmv
dim nomevideo_Speciali_Tg_wmv
nomevideo_Speciali_Tg_wmv=split(video_Speciali_Tg,".wmv")
%>
<% if video_Speciali_Tg <> "" then
response.write "" & Mid(nomevideo_Speciali_Tg_wmv(0),10,9999) & " del " & Mid(video_Speciali_Tg,7,2) & "." & Mid(video_Speciali_Tg,5,2) & "." & Mid(video_Speciali_Tg,1,4) & " "
%>
<%
width_tv="width=287,5"
height_tv="height=299"
%>
<% end if %>
<% end if %>
<%
'#################################################
'#### FINE estensione_Speciali_Tg .wmv
'#################################################
%>
<%
'#################################################
'#### estensione_Speciali_Tg .mp4
'#################################################
if estensione_Speciali_Tg=".mp4" then
%>
<%
' togli estenzione .mp4
'dim nomevideo_Speciali_Tg_mp4
'nomevideo_Speciali_Tg_mp4=split(video_Speciali_Tg,".mp4")
%>
<% if video_Speciali_Tg <> "" then
response.write "" & nomevideo_Speciali_Tg_mp4(0) & " del " & Mid(video_Speciali_Tg,7,2) & "." & Mid(video_Speciali_Tg,5,2) & "." & Mid(video_Speciali_Tg,1,4) & " "
%>
<% end if %>
<% end if %>
<%
'#################################################
'#### FINE estensione_Speciali_Tg .mp4
'#################################################
%>
Seleziona nella lista qui sotto la puntata da vedere
<%
dir="/Speciali_Tg/"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files
For Each file in file3
'il parametro oggi è preso da meta.asp
'if Mid(file.name, 1,4)=Mid(oggi, 7,4) then
if Mid(file.name, 1,4)=video_anno then
' togli estensione_Speciali_Tg .wmv e .avi
if Right(file.name, 4)=".wmv" or Right(file.name, 4)=".avi" then
dim nomevideo_Speciali_Tg_no_wmv
nomevideo_Speciali_Tg_lista=split(file.name,".wmv")
end if
' togli estensione_Speciali_Tg .mp4
if Right(file.name, 4)=".mp4" then
dim nomevideo_Speciali_Tg_no_mp4
nomevideo_Speciali_Tg_lista=split(file.name,".mp4")
end if
response.write "" & Mid(nomevideo_Speciali_Tg_lista(0),10,9999) & " del " & Mid(file.name,7,2) & "." & Mid(file.name,5,2) & "." & Mid(file.name,1,4) & " "
%>
<%
'response.write "" & Mid(nomevideo_Speciali_Tg_no_wmv(0),10,9999) & " del " & Mid(file.name,7,2) & "." & Mid(file.name,5,2) & "." & Mid(file.name,1,4) & " "
response.write " "
end if
Next
%>
|
|