<!-- #include file="include/onlogin.asp" -->
<!-- #include file="include/new_main.asp" -->
<!-- #include file="include/conn.asp" -->

<%dim rst,sqlt,typeid
dim atb:atb=" target=_blank"
dim sqla,a,c,b,rsa,sqlb,rsb
sqla="select * from video"
set rsa=server.createobject("adodb.recordset")
rsa.open sqla,conn,1,1
a=1
do while not rsa.eof

response.write"<br><font color=#FF0000>"&rsa("title")&"</font><br><br>"%>


<%set rsb=server.createobject("adodb.recordset")
rsb.open "select * from video_sev where id="&rsa("serverip")&"",conn,1,1
b=1
do while not rsb.eof%>

 <% dim rsc,no,idno
     sql="select * from videourl where nameid="&rsa("id")&""
       set rsc=server.createobject("adodb.recordset")
       rsc.open sql,conn,1,3
do while not rsc.eof%>
<p align="left">
<br><a href="<%=rsb("ipsip")%><%=rsb("movie")%><%=rsc("url")%>">
<%=rsb("ipsip")%><%=rsb("movie")%><%=rsc("url")%></a><br>
 
<%c=c+1
rsc.movenext
loop
rsc.close
set rsc=nothing%>

<%b=b+1
rsb.movenext
loop
rsb.close
set rsb=nothing%> </p>

<hr>
<%a=a+1
rsa.movenext
  loop
rsa.close
set rsa=nothing%> </p>