<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<!--#include file="header.asp"-->
<%
Function Duzenle(security )
Duzenle = security
if Duzenle<>"" then
Duzenle = Replace(Duzenle, "'", "" )
Duzenle = Replace(Duzenle, "ü", "ü" )
Duzenle = Replace(Duzenle, "Ãœ", "Ü" )
Duzenle = Replace(Duzenle, "Å ", "Ş" )
Duzenle = Replace(Duzenle, "ı", "ı" )
Duzenle = Replace(Duzenle, "Ä°", "İ" )
Duzenle = Replace(Duzenle, "ÅŸ", "ş" )
Duzenle = Replace(Duzenle, "ç", "ç" )
Duzenle = Replace(Duzenle, "ö", "ö" )
end if
End Function
%>
<%
Sub VideoCek()
Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
Dim yazi
Dim enson
Dim ayirt
Dim goster
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" )
bilgisi=Duzenle(bilgicek)
yazi = split(bilgisi,"Yükleyen:")
sayac=Ubound(yazi)
for z=1 to sayac
baslik1 = split(yazi(z),"<media:title>")
baslik = split(baslik1(1),"</media:title>")
response.Write(baslik(0))
link= split(yazi(z),"http://")
denk= split(link(2),"/")
dosyasi= left(denk(3),6)
reskat=left(dosyasi,3)
emblink="http://www.izlesene.com/player2.swf?video="&dosyasi
embres="http://img.izlesene.com//data/videoshots/"&reskat&"/"&dosyasi&"-11.jpg"
%>
<img src="<%=embres%>" align="right" border="0" width="120" height="90" vspace="4" hspace="4">
<embed src=<%=emblink%> wmode="window" bgcolor="#000000" allowfullscreen="true" scale="noScale" width="100%" height="355" type="application/x-shockwave-flash"></embed>
<%
Next
End Sub
%>
<%
for i=1 to 18
if i<>3 then
alinacakadres="http://rss.izlesene.com/rss.php?type="&i
VideoCek()
end if
Next
%>
</body>
</html>