<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 dim intBaslama intBaslama = InStr(1, strVeri, strBaslamaEtiket, vbTextCompare)if intBaslama then intBaslama = intBaslama + Len intBitis = InStr(intBaslama + 1, strVeri, strBitisEtiket, vbTextCompare) fonkVeriCek = CStr(Mid else fonkVeriCek = " " end ifEnd Functionfunction fonkStream dim objStreamset objStream = Server. CreateObject objStream. Type = 1 objStream. Mode = 3 objStream. Open objStream. Write Veri objStream. Position = 0 objStream. Type = 2 objStream. Charset = KarakterSet fonkStream = objStream. ReadText objStream. Closeset objStream = Nothingend functionfunction fonkXmlHttp dim objXmlHttpset 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. Sendif Err. Number<>0 then fonkXmlHttp = ""exit functionend Ifon error Goto 0if (objXmlHttp. Status = 200) then fonkXmlHttp = objXmlHttp. ResponseText fonkXmlHttp = fonkStream(objXmlHttp. ResponseBody,"iso-8859-9") else fonkXmlHttp = "Hata : " & objXmlHttp. StatusTextend ifend functionbaslangic = cint(request. QueryString bitis = cint(request. QueryString if baslangic = "0" then baslangic = "1"end ifif bitis = "0" then bitis = "10"end if %><!-- son dizileri ekleme başlangıç --><%veri = fonkxmlhttp 'rss e girdik%><%canafar1 = split 'dizileri ayirdik%><table> <tr> <td><a href="http://www.canafar.com/admin/canafar. asp?bot=dizifrmbot&kat=<%=request. QueryString %>&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 %>&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 %>&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 %>&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 ,"<title>","</title>") 'balklar aldklink = fonkvericek(canafar1 ,"<link>","</link>") 'dizinin linkini aldkdesc = fonkvericek(canafar1 ,"<description>","</description>") 'dizinin aklamasn aldkveri2 = fonkxmlhttp 'aldmz linke girdikxml = fonkvericek(veri2,"settingsFile: ""","""") 'embedleri alcamz xml nin yerini ektikif xml = " " thenxml = fonkvericek(veri2,"settingsFile: ""","""")end ifif xml = " " then kisimal = fonkvericek(veri2,"<div class=""kisim-selected"">","<div class=""video-box"">") kisimbol = split kisimcek = fonkvericek(kisimbol(ubound ,""">","</span")end ifetiketal = fonkvericek(veri2,"<br><strong>Etiketler : </strong>","</div>") 'etiketleri ayrdk lmek iinetiketbol = split ' etiketleri "<a" lara bldkresim = fonkvericek(veri2,"<img src=""http://vthumb.ak. fbcdn. net","""") tarih = trim(fonkvericek(veri2,"<strong>Tarih : </strong>","<br>")) 'tarihi aldkSet kslm=Server. CreateObject 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. CloseSet 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 '0 dan etiketbol ka tane varsa o kadar dng kurduk etiketleri almak iin%><%etiketler = fonkvericek(etiketbol ,"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 byleceif xml = " " then xmlkont = "0"else xmlkont = "1"end ifif xmlkont = "0" then%> <tr> <td>embedler =</td> <td>henz video eklenmemi</td> </tr><%elseveri3 = fonkxmlhttp 'xml linkimiz varsa o linke gidiyoruzembedbol = split(veri3,"<video>") 'dizileri ayryoruz%><%for cc=2 to ubound '0 dan embedbol ka sa o kadar dngye giriyo embedleri almak iin%><%embedler = fonkvericek(embedbol ,"<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 %>" /></td> </tr> <tr style="display:none;"> <td>embed say =</td> <td><input type="text" name="embedsay" value="<%=cint(ubound -1%>" /></td> </tr> <tr style="display:none;"> <td>etiket say =</td> <td><input type="text" name="etiketsay" value="<%=ubound %>" /></td> </tr> <tr> <td>Kategori =</td> <td> <select name="kategori"><%Set uslm=baglanti. Execute("Select from canafar where gkatid='"&request. QueryString &"' order by seo asc")Do While Not uslm. Eof%> <option value="<%=us %>"><%=us %></option><%uslm. MoveNextLoopuslm. CloseSet uslm=Nothing%> </select> </td> </tr><%if ubound >2 then%> <tr> <td>kısım saıyısı =</td> <td><input type="text" name="tarih" value="<%=ubound %>" /></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 %>" /></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.

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

@2 nerede kullanıcam onu?