<!--#include file="mdb.asp"-->
<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="vid_path.asp"-->
<%
'****************************************************
' www.17vd.com Free      Power by eove.cn
' Web: http://www.17vd.com,http://www.17vd.com/home
' Copyright (C) 2007 eove.cn All Rights Reserved.
'****************************************************
tt=Replace(time,":","")
if Request("pass")="" then
%>
<ASX version = "3.0">
<entry SKIPIFREF="YES">
<ref href="images/stop.wmv"/>
</ASX>
<%
Response.End
End if
%>
<%
if int(Request("pass"))>int(session("mya"))+int(tt) then
%>
  <ASX version = "3.0">
  <entry SKIPIFREF="YES">
  <ref href="images/stop.wmv"/>
  </ASX>
<%
Response.End
Else
  if int(Request("pass"))<int(session("mya"))+int(tt)-10 then
%>
    <ASX version = "3.0">
    <entry SKIPIFREF="YES">
    <ref href="images/stop.wmv"/>
    </ASX>
<%
  Response.End
  End if
End if
%>
<ASX version = "3.0">
<%
dim i,ml,Alen,AMl,vidpath,vid_path,vid_url
ml=Request("Ml")
ml=Replace(ml,"'","")
ml=Replace(ml,";","")
AMl=Split(ml,",")
Alen=UBound(AMl)
for i=0 to Alen
set rect=conn.execute("select * from vidurl where id=" & AMl(i))
vidpath=trim(rect("path"))
If vidpath=0 Then
    vid_url=trim(rect("url"))
else
If vidpath="" or IsNull(vidpath) Then
    vidpath=1
End If
    Select Case vidpath
	Case 1
	        vid_path=v_path1
	Case 2
		vid_path=v_path2
	Case 3
		vid_path=v_path3
	Case 4
		vid_path=v_path4
	Case 5
		vid_path=v_path5
	Case else
		vid_path=v_path1
    End Select
vid_url=vid_path&trim(rect("url"))
End If
%>
<entry SKIPIFREF="YES">
<title><%=trim(rect("title"))%></title>
<author><%=webname%></author>
<copyright><%=weburl%></copyright>
<ref href="<%=vid_url%>"/>
<param name="Artist" value="<%=webname%>"/>
<param name="Album" value="<%=webname%>"/>
<param name="Title" value="<%=trim(rect("title"))%>"/>
</ENTRY>
<%
next
rect.close
set rect=nothing
%></ASX>