<meta http-equiv="content-type" content="text/html;charset=iso-8859-9" />
<meta http-equiv="content-type" content="text/html;charset=windows-1254" />
<%
Function fonkVeriCek(strVeri, strBaslamaEtiket, strBitisEtiket)
dim intBaslama
intBaslama = InStr(1, strVeri, strBaslamaEtiket, vbTextCompare)
if intBaslama then
intBaslama = intBaslama + Len(strBaslamaEtiket)
intBitis = InStr(intBaslama + 1, strVeri, strBitisEtiket, vbTextCompare)
fonkVeriCek = CStr(Mid(strVeri, intBaslama, intBitis - intBaslama))
else
fonkVeriCek = " "
end if
End Function


function fonkStream(Veri,KarakterSet)
dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write Veri
objStream.Position = 0
objStream.Type = 2
objStream.Charset = KarakterSet
fonkStream = objStream.ReadText
objStream.Close
set objStream = Nothing
end function

function fonkXmlHttp(strUrl)
dim objXmlHttp
set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
objXmlHttp.Open "GET", strUrl, false
objXMLHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-GB; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4"
objXmlHttp.SetRequestHeader "Pragma", "no-cache"
objXmlHttp.SetRequestHeader "Cache-control", "no-cache"
on error Resume next
objXmlHttp.Send
if Err.Number<>0 then
fonkXmlHttp = ""
exit function
end If
on error Goto 0
if (objXmlHttp.Status = 200) then
fonkXmlHttp = objXmlHttp.ResponseText
fonkXmlHttp = fonkStream(objXmlHttp.ResponseBody,"iso-8859-9")
else
fonkXmlHttp = "Hata : " & objXmlHttp.StatusText
end if
end function

baslangic = cint(request.QueryString("baslangic"))
bitis = cint(request.QueryString("bitis"))
if baslangic = "0" then
baslangic = "1"
end if

if bitis = "0" then
bitis = "10"
end if
%>
<!-- son dizileri ekleme başlangıç -->
<%
veri = fonkxmlhttp("http://dizifrm.com/rss.php") 'rss e girdik
%>
<%
canafar1 = split(veri,"<item>") 'dizileri ayirdik
%>
<table>
<tr>
<td><a href="http://www.canafar.com/admin/canafar.asp?bot=dizifrmbot&kat=<%=request.QueryString("kat")%>&baslangic=1&bitis=10">1-10 aras getir</a></td>
<td><a href="http://www.canafar.com/admin/canafar.asp?bot=dizifrmbot&kat=<%=request.QueryString("kat")%>&baslangic=11&bitis=20">11-20 aras getir</a></td>
<td><a href="http://www.canafar.com/admin/canafar.asp?bot=dizifrmbot&kat=<%=request.QueryString("kat")%>&baslangic=21&bitis=30">21-30 aras getir</a></td>
<td><a href="http://www.canafar.com/admin/canafar.asp?bot=dizifrmbot&kat=<%=request.QueryString("kat")%>&baslangic=31&bitis=40">31-40 aras getir</a></td>
</tr>
</table>
<%=baslangic%>
<%=bitis%>
<table>
<%for i=baslangic to bitis%>
<form action="dizifrmbotekle_islem.asp" method="post">
<%
title = fonkvericek(canafar1(i),"<title>","</title>") 'balklar aldk
link = fonkvericek(canafar1(i),"<link>","</link>") 'dizinin linkini aldk
desc = fonkvericek(canafar1(i),"<description>","</description>") 'dizinin aklamasn aldk

veri2 = fonkxmlhttp(link) 'aldmz linke girdik
xml = fonkvericek(veri2,"settingsFile: ""","""") 'embedleri alcamz xml nin yerini ektik
if xml = " " then
xml = fonkvericek(veri2,"settingsFile: ""","""")
end if

if xml = " " then
kisimal = fonkvericek(veri2,"<div class=""kisim-selected"">","<div class=""video-box"">")
kisimbol = split(kisimal,"<div class=""kisim-top"">")
kisimcek = fonkvericek(kisimbol(ubound(kisimbol)),""">","</span")
end if
etiketal = fonkvericek(veri2,"<br><strong>Etiketler : </strong>","</div>") 'etiketleri ayrdk lmek iin
etiketbol = split(etiketal,"<a") ' etiketleri "<a" lara bldk
resim = fonkvericek(veri2,"<img src=""http://vthumb.ak.fbcdn.net","""")

tarih = trim(fonkvericek(veri2,"<strong>Tarih : </strong>","<br>")) 'tarihi aldk
Set kslm=Server.CreateObject("Adodb.Recordset")
SQL="Select * from canafar where baslik = '"&title&"'"
kslm.Open SQL,baglanti,1,3

%>
<tr>
<td width="114">Eklenme durumu =</td>
<td width="807"><%If kslm.EOF And kslm.BOF Then%>eklenmemis<%else%>eklenmis<%end if%></td>
</tr>
<%
kslm.Close
Set kslm=Nothing
%>
<tr>
<td width="114">title =</td>
<td width="807"><input type="text" name="title" value="<%=title%>" /></td>
</tr>
<%for bb=1 to ubound(etiketbol) '0 dan etiketbol ka tane varsa o kadar dng kurduk etiketleri almak iin%>
<%etiketler = fonkvericek(etiketbol(bb),"title=""","""") 'etiketleri aldk tek tek%>
<tr>
<td>etiket = <%=bb%></td>
<td><input type="text" name="etiket<%=bb%>" value="<%=etiketler%>" /></td>
</tr>
<%next%>
<tr>
<td>desc. aklama =</td>
<td><input type="text" name="desc" value="<%=desc%>" /></td>
</tr>
<tr>
<td>xml dosyas =</td>
<td><%=xml%></td>
</tr>
<%
' alttaki dngde xml linki bo sa xmlkont 0 oluyo doluysa 1 oluyo bo olunca bo yere bo link'e gitmemi oluyoruz bylece
if xml = " " then
xmlkont = "0"
else
xmlkont = "1"
end if

if xmlkont = "0" then
%>
<tr>
<td>embedler =</td>
<td>henz video eklenmemi</td>
</tr>
<%
else
veri3 = fonkxmlhttp(xml) 'xml linkimiz varsa o linke gidiyoruz
embedbol = split(veri3,"<video>") 'dizileri ayryoruz
%>
<%for cc=2 to ubound(embedbol) '0 dan embedbol ka sa o kadar dngye giriyo embedleri almak iin%>
<%
embedler = fonkvericek(embedbol(cc),"<videoPath value=""","""") 'emedleri aldk tek tek dng sayesinde
%>
<tr>
<td>embed <%=cc-1%>. =</td>
<td><input type="text" name="embed<%=cc-1%>" value='<embed src="http://www.canafar.com/player/player.swf" width="470" height="320" allowscriptaccess="always" allowfullscreen="true" flashvars="file=<%=embedler%>&skin=http://www.canafar.com/modieus.swf&image=http://www.canafar.com/images/videoonu.jpg" />' /></td>
</tr>
<%next%>
<%end if%>
<tr>
<td>resim link' =</td>
<td><input type="text" name="resim" value="http://vthumb.ak.fbcdn.net<%=resim%>" /></td>
</tr>
<tr>
<td>tarih =</td>
<td><input type="text" name="tarih" value="<%=trim(tarih)%>" /></td>
</tr>
<tr style="display:none;">
<td>embed say =</td>
<td><input type="text" name="embedsay" value="<%=cint(ubound(embedbol))-1%>" /></td>
</tr>
<tr style="display:none;">
<td>etiket say =</td>
<td><input type="text" name="etiketsay" value="<%=ubound(etiketbol)%>" /></td>
</tr>
<tr>
<td>Kategori =</td>
<td>
<select name="kategori">
<%
Set uslm=baglanti.Execute("Select * from canafar where gkatid='"&request.QueryString("kat")&"' order by seo asc")
Do While Not uslm.Eof
%>
<option value="<%=us("id")%>"><%=us("adi")%></option>
<%
uslm.MoveNext
Loop
uslm.Close
Set uslm=Nothing

%>
</select>
</td>
</tr>
<%if ubound(kisimbol)>2 then%>
<tr>
<td>kısım saıyısı =</td>
<td><input type="text" name="tarih" value="<%=ubound(kisimbol)%>" /></td>
</tr>
<%end if%>
<tr>
<td>yapmcı =</td>
<td><input type="text" name="yapimci" value="" /></td>
</tr>
<tr>
<td>G. kategori =</td>
<td><input type="text" name="gkat" value="<%=request.QueryString("kat")%>" /></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Ekle!.." /></td>
</tr>
<tr>
<td bgcolor="#000000">asdasdasd</td>
<td bgcolor="#000000">asdasdasd</td>
</tr>
</form>
<%next%>
</table>

<!-- son dizileri ekme biti -->
<!-- final victory!.. -->

 

biraz uzun kodlar kusura bakmayın ama botum bu ve aşırı derece de iişlemci yiyo buna girdiğimde yaklasık 5sn filan site kitleniyo ama sonun da acıyo bi yardımcı olabilirmisiniz hatam tam olarak nerede cıkamadım işin içinden.

execute kullan dene birdde.

@2 nerede kullanıcam onu ?

bi ümit up! bi el atın yav for döngüsünün içinde link lere giriyo ondan dolayı yavaş onu nası çözücem ?