Gönderen: 29-Mayıs-2012 Saat 09:29 | Kayıtlı IP

avt, anasayfaSQL,anasayfakayitlari
set anasayfavt=Server.CreateObject ("ADODB.Connection")
anasayfavt.Open bag

Set anasayfakayitlari = Server.CreateObject("Adodb.Recordset")
      anasayfaSQL = "SELECT * FROM icerik WHERE icerikkod=0 ORDER BY sira"
      anasayfakayitlari.Open anasayfaSQL, anasayfavt, 1, 3

   if anasayfakayitlari.eof then
    response.write "Ana sayfayı kaybettik, başımız sağolsun... Derhal içerik kodu 0 olan yeni bir sayfa yaratmalısınız..."
   else
    response.Write anasayfakayitlari("sicerik")
   end if
 
 anasayfakayitlari.close
 set anasayfakayitlari=Nothing

 anasayfavt.close
 set anasayfavt=Nothing
%>