#1  
Alt 06-02-2013, 11:28 PM
WO Üyesi
 
Üyelik tarihi: Jun 2013
Yaş: 27
Mesajlar: 81
Tecrübe Puanı: 484
Free STYLE is on a distinguished road
Standart Rastgele yazı

Kod:
<% 

Set Kon = Server.CreateObject("ADODB.Connection" ) 

Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani yolu" )) 

Set Rs = Server.CreateObject("ADODB.Recordset" ) 

SQL = "SELECT * FROM TblYeni" 

Rs.Open SQL,kon,1,3 

Randomize 

kac = Int((rs.RecordCount * Rnd)+ 0) 

Rs.Move(kac) 

Soz=Rs("Soz" ) 

Resim=Rs("Resim" ) 

AltYazi=Rs("AltYazi" ) 

Rs.Close 

Kon.Close 

Set Rs=Nothing 

Set Kon=Nothing 

%>
Alıntı ile Cevapla
Cevapla

Bookmarks

Etiketler
rastgele, yazı

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Forum Sosyal
Powered by vBulletin® Webster Edition
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1 ©2011, Crawlability, Inc.
- Forum

Tasarım : VampRens
Wmofisi.Com Her Hakkı Saklıdır