<% intLowerBound = 1 'seçilecek sayının alt sınırı intUpperBound = 800 'seçilecek sayının üst sınırı Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) ara=intRandomInteger Set baglanti=Server.Createobject("Adodb.Connection") baglanti.provider="Microsoft.Jet.Oledb.4.0" baglanti.open Server.Mappath("/axckutukler/fikralar.mdb") sql="select * from fikralar where kimlik like '"&ara&"%' " Set rs =baglanti.execute(Sql) if rs.eof then response.write "Kayıt Bulunamadı !!!" else %> <% with response .write "Bir " .write rs("fikturu") .write " Fıkrası" fikturu=rs("fikturu") .write "
" .write rs("fikadi") %> <% .write "
" .write rs("fikmetni") .write "
" end with intLowerBound = 1 'seçilecek sayının alt sınırı intUpperBound = 800 'seçilecek sayının üst sınırı Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) ara=intRandomInteger %>