SADECE EĞLENCE

İNTERNETTEN SIKILANLARIN TEK ADRESİ

<- Son Sayfa :: Sonraki Sayfa ->

Hakkımda

İNTERNETTEN SIKILANLARIN TEK ADRESİ

Son Yazılarım

Bağlantılar

Ana Sayfa
Profilim
Arşiv

Kategoriler

Arkadaşlarım

<% Server.ScriptTimeOut=0 strURL = ""http://www.ntvmsnbc.com/news/BCList2.txt"" Dim tear Set tear = Server.CreateObject(""Softwing.AspTear"") strHTML = Tear.Retrieve(strURL,Request_Get, """","""","""") strbasla = Instr(StrHTML,""tech_front.asp"") strbitis = Instr(StrHTML,""bilim_front.asp"") strhaberler = mid(strhtml,strbasla,strbitis-strbasla) strhaberler = replace(strhaberler,""/news/"",""
/news/"") strhaberler = split(strhaberler,""/news/./"") for i=1 to 12 if i=12 then exit for habergoster = split(strhaberler(i),""|"") response.write """" & habergoster(1)&"""" next %>

canlı iddaa
iddaa

TC KİMLİK NO
VERGİ NO
ARAÇ SORGULA
TELEFON REHBERİ
ANİMASYON
İSİMLER SÖZLÜĞÜ
CEP TELEFONUNUN
ZARARI

Sik kullanilanlara ekle Giriş Sayfam Yap

<% Set Sur = Server.CreateObject("ADODB.Connection" ) Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanimiz.mdb" ) %> <% 'Baglanty dosyamyzy include etti?imize göre artyk veritabanyndan bilgilerimizi alabiliriz Set rs = Server.CreateObject("ADODB.Recordset" ) sor = "Select * from tablo" frestons.Open sor,Sur,1,3 ' veritabanimizla baglantımızı kurduk.. rs("hit" ) = rs("hit" ) + 1 rs.update %>

Free Counter