<%
Set rsbbs0 = Server.CreateObject("ADODB.Recordset")
sorbbs0 = "Select * from haber where onay=1 and manset=1 ORDER BY id desc"
rsbbs0.Open sorbbs0,Sur,1,3
%>
<%
i=0
do while i < 13 and not rsbbs0.eof
%>
" ><% if rsbbs0("flash")=1 then
Response.Write("
")
End If %><%=gkn2("videolink")%>
|
" ><% if rsbbs0("flash")=1 then
Response.Write(" ")
End If %><%=gkn2("videolink")%>
|