Şimdilik arkadaşlar böle birşey yaptım. son eklenen 10 tane Şiir başlığı gelsin. yaptım bu şekil sayfalandı güzel güzel 1,2,3 şeklinde ama Siir-detay.asp'de Sayfalama çalışmıyor. acaba neden olabilir. veritabanı bağlantısında hata veriyor.
Şimdiden tşkler
Asp Sayfalamada Hata
14
●1.237
- 24-05-2008, 14:27:25
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <!-- #include file="xxx.asp" --> <% Set siteayar = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select * FROM _tblsiteayarlari" siteayar.open rSQL,Connection,3,3 %> <%if siteayar("SiteDurumu")="0" then response.redirect "kapali.asp" end if %> <% id = request.QueryString("id") %> <% Set ulutas = Server.CreateObject("ADODB.Recordset") sor = "Select * from yazi where id="&id ulutas.Open sor,Connection,3,3 %> <!-- #include file="yasaklikontrol.asp" --> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title><%= siteayar("Siteninismi") %></title> <link href="https://www.r10.net/asp/style.css" rel="stylesheet" type="text/css"> </head> <body > <div align="center"> <table border="0" cellpadding="0" style="border-collapse: collapse" width="980" id="table26"> <tr> <td><!-- #include file="ust.asp" --> </td> </tr> </table> </div> <TABLE id=table16 style="BORDER-COLLAPSE: collapse" borderColor=#8b120e height=407 cellSpacing=0 cellPadding=0 width=980 border=3> <TBODY> <TR> <TD width="100%" bgColor=#ffffff height=220> <TABLE id=table18 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=18 cellSpacing=0 cellPadding=0 width="99%" border=0> <TBODY> <TR> <TD width="11%" bgColor=#ffffff height=1> </TD> <TD width="78%" bgColor=#ffffff height=1></TD> <TD width="11%" bgColor=#ffffff height=1> </TD></TR></TBODY></TABLE> <TABLE id=table19 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=27 cellSpacing=0 cellPadding=0 width=955 border=0> <TBODY> <TR> <TD width=147 height=27> <B><FONT color=#660033 size=2>Günün Sözü :</FONT></B></TD> <TD width=541 height=27><FONT size=2> <!--- Değişen sözler kod ßaşlangıcı... ---></FONT><CENTER"><B><FONT size=2> <SCRIPT language=JavaScript1.1 type=text/javascript> <!-- quotes = new Array(11); quotes[0] = "Eline, diline, beline sahip ol ki, kötülükler senden uzak dursun."; quotes[1] = "Musibet zekayı eğitir."; quotes[2] = "Kişinin sözü, amelinden çok olursa aklı noksandır."; quotes[3] = "Ne kadar okursan oku, bilgine yakışır şekilde davranmazsan cahilsin demektir.(Sadi)"; quotes[4] = "Tek dostum kitaplarım, tek düşmanım cahil dostlarım. (Diderot)"; quotes[5] = "Felaketler, ayak seslerini duymayanlara geliyorum demez."; quotes[6] = "Harekette birlik olmazsa, fikirde bilgi faydasızdır. (Muhammed ikbal)"; quotes[7] = "Zalime, ancak, onu zulümden alıkoymak için yardım et."; quotes[8] = "Yarın, yorgun kimselerin değil, rahatlarına kıyabilenlerindir. (N. Atac)"; quotes[9] = "Kuvvetine güvenenler, korkutma küçüklüğünde bulunmazlar. (Abdulhamid Han)"; quotes[10] = "Tarihte her hareket hep bir kişinin ayağa kalkmasıyla başlar."; quotes[11] = "Kesilmis koyuna, derisini yüzülmesi elem vermez."; quotes[12] = "Kendini hak ile meşgul etmezsen, batıl seni işgal eder. (İmam Şafi)"; quotes[13] = "Herşeyi bilmek çok kötüdür."; quotes[14] = "Allah'a itaat etmekle, O'na şükretmiş olursunuz."; quotes[15] = "Akıllı olan Allah'tan korkar."; quotes[16] = "İlimsiz ibadette, tefekkürsüz Kur'an tilavetinde hayır yoktur. (Hz. Ali r.a.)"; quotes[17] = "Allah'tan korkmayandan korkulur."; quotes[18] = "El ağazına bakan karısını tez boşar."; quotes[19] = "Gercek dost, arkadaşının kusurunu görünce onu uyarır. Fakat bu kusurları başkalarına açıklamaz. (İmam Şafi)"; quotes[20] = "Şahsi gayret yuvayi, toplu gayret vatani ayakta tutar. (A. Aslan)"; quotes[21] = "Küçük insanların gururu büyük olur."; quotes[22] = "Kitap aklın ilacıdır."; quotes[23] = "Dost acı söyler."; quotes[24] = "Kardeş kardeşi atmış, yar başında tutmuş."; quotes[25] = "Islanmışın yağmurdan korkusu olmaz."; quotes[26] = "Dost ağlatır, düşman güldürür."; quotes[27] = "Ecel geldi cıhane, başağrısı bahane."; quotes[28] = "İslamiyeti yaşayan kimse, hem şahsi, hem ailevi ve hem de sosyal hayatında ibadet ediyor demektir. (Hekimoğlu İsmail)"; quotes[29] = "Gençliğine güvenme, ölen hep ihtiyarmı ?"; quotes[30] = "İnsan ne kadar yükselirse, gönlü o kadar alçalmalıdır."; quotes[31] = "Tecrübe bilgiyi artırır. Her şeye inanmak ise insanı yanıltır."; quotes[32] = "Küçük taş, baş yarar."; quotes[33] = "Haramdan uzak dur, ama mahremini gözet."; quotes[34] = "Nimetlerin en iyisi çalışarak kazanılan, arkadaşları en iyisi de Allah'ı hatırlatandır."; quotes[35] = "Bir kimseyi tanımak istiyorsan, arkadaşına bak. (Mevlana)"; quotes[36] = "El öpmekle dudak aşınmaz."; quotes[37] = "Ahmaklık, hatada israr etmektedir. (Abdulhakim Arvası)"; quotes[38] = "Nasihat tutmayanı musibet tutar."; quotes[39] = "Herkesi kendi gibi sanan aldanır."; quotes[40] = "Yerinde söz söylemesini bilen, özür dilemek zorunda kalmaz. (Fatih Sultan Mehmed)"; quotes[41] = "Özü doğru olanın sözü de doğru olur. (Hz. Ali (r.a.))"; quotes[42] = "Küçük bir delik, büyük bir gemiyi batırır."; quotes[43] = "(Siz'de güzel bir söz biliyorsanız bana yazın)"; quotes[44] = "Doğru sarsılır, ama yıkılmaz."; quotes[45] = "Adaletin bulunmadığı bir ülkede herkez suçludur."; quotes[46] = "Zeka, kafanın içindeki altın madenidir."; quotes[47] = "İteatsizlik şerlerin en kötüsüdür."; quotes[48] = "İnsan idare etme sanatına siyaset denir."; quotes[49] = "Kimsenin zenginliği seni değerlendirmez."; quotes[50] = "Fakir kişi, cimrilik yapan kişidir."; quotes[51] = "Zengin kişi iktisadı bilen kişidir."; quotes[52] = "Zengin, kalbi zengin olan kişidir."; quotes[53] = "Çok dinlememiz ve az konuşmamız için, iki kulağımız ve bir dilimiz vardır."; quotes[54] = "Mümin, sonu cennet oluncaya kadar, hiçbir hayırdan doymaz, geri kalmaz."; quotes[55] = "Dağa çıkan düz aramaz."; quotes[56] = "Adamın aynası arkadaşıdır."; quotes[57] = "Zihin arı, kitap çiçektir."; quotes[58] = "Danışan dağı aşmış, danışmayan düz yolda şaşmış."; quotes[59] = "Korkak dostun olacağına, cesur dostun olsun."; quotes[60] = "Dostlarını terkeden terkedilir."; quotes[61] = "Özlü konuşmanın yolu, yersiz sözleri bırakmaktır."; quotes[62] = "Destursuz bağa giren, hesapsız dayak yer."; quotes[63] = "İnsan, düşeceği yere çıkmamalıdır."; quotes[64] = "Kitap, donuk hayata renk katar."; quotes[65] = "İyiliğe iyilik her kişinin karı, kötülüğe iyilik ER kişinin karı."; quotes[66] = "Gözü haramdan korumak ne güzel şehvet perdesidir. (Hz. Osman)"; quotes[67] = "Dilencinin keyfi işlek caddede gelir."; quotes[68] = "Yanliş, iktidarı artmakla hiçbir zaman doğru hale gelmez."; quotes[69] = "İnsanlara ateşe dost olduğun gibi dost ol. Ondan faydalan. Fakat seni yakmasından sakın."; quotes[70] = "Kovandan çikmayan arı bal yapmaz."; quotes[71] = "Dünyada zulme uğrayanlar, kiyamette mutlaka kurtuluşa ulaşacaklardır. (Hz.Muhammed sav.)"; quotes[72] = "Ancak içinden aydınlanan, dışına ışık verir. (İsmet Özel)"; quotes[73] = "Adam adama yük değil, can gövdeye mülk değil."; quotes[74] = "Bize değer kazandıran şeyler, yaptığımız işlerdir."; quotes[75] = "Bir münafık, bir orduyu bozar."; quotes[76] = "Acıyan çok ama ekmek veren az."; quotes[77] = "İnsanların şahsiyetlerini, iktidarlı zamanlarında ölçmelidir."; quotes[78] = "İnsanın sözü hikmet, bakışı ibret ve susması ders olmalıdır."; quotes[79] = "Alimler İslamın bayraktarı, cennetin sakinleridir."; quotes[80] = "Her deliğe elini sokma, ya yılan çıkar ya ciyan."; quotes[81] = "Tarih tekerrürden ibarettir."; quotes[82] = "Sözlerin en güzeli vahiydir."; quotes[83] = "Birlik olmayan yerde, dirlik olmaz."; quotes[84] = "Sükut kavgayı keser, fitneyi önler."; quotes[85] = "İffet, güzelliğin zekatıdır."; quotes[86] = "Hiç bir zafere çiçekli yollardan gidilmez."; quotes[87] = "Fitne aslında uykudadır, Allah (cc) onu uyandıranlara lanet eder. (Hz.Muhammed sav.)"; quotes[88] = "Bedava sirke, baldan tatlıdır."; quotes[89] = "Kalbin gıdası iman, aklın gıdası faydalı ilimdir."; quotes[90] = "Gözyaşı, kalp te olan ateşe delildir."; quotes[91] = "Merhamet etmeyene merhamet edilmez."; quotes[92] = "Alışmış, kudurmuştan beterdir."; quotes[93] = "Akıllı insan tüm yumurtalarını aynı sepete koymaz."; quotes[94] = "Buldum bilemedim, bildim bulamadım."; quotes[95] = "Ölümü hatırlamak, hırs ateşini söndürür."; quotes[96] = "Ne mutlu! Aklı işine bekci, kendi sözünü kendi tenkitci olana."; quotes[97] = "Cahil, yaşlı dahi olsa küçüktür, Alim, küçük de olsa büyüktür."; quotes[98] = "Gençlikte vaktini geçiren sefa ile, ihtiyarlikta ömrünü geçirir cefa ile."; quotes[99] = "Hicretin en faziletlisi, Allah'ın sevmediği şeyleri terk etmektir. (Hz.Muhammed sav)"; //calculate a random index index = Math.floor(Math.random() * quotes.length); //display the quotation document.write("" + "\"" + quotes[index] + "\"\n ") document.write(""); // --> </SCRIPT> </FONT></B><FONT size=2><!--- Güzel sözler kod ßitişi... ---></FONT></TD> <TD width=267 height=27> <!--- Saat Tarih kod ßaşlangıcı... ---> <SCRIPT> var mydate=new Date() var year=mydate.getYear() if (year < 1000) year+=1900 var day=mydate.getDay() var month=mydate.getMonth() var daym=mydate.getDate() if (daym<10) daym="0"+daym var dayarray=new Array("Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi") var montharray=new Array("Ocak","Şubat","Mart","Nisan","Mayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık") myhours = mydate.getHours(); if (myhours >= 24) { myhours = (myhours == 24) ? 24 : myhours - 24; mm = " "; } else { myhours = (myhours == 24) ? 24 : myhours; mm = " "; } myminutes = mydate.getMinutes(); if (myminutes < 10){ mytime = ":0" + myminutes; } else { mytime = ":" + myminutes; }; document.write("<font color='black' face='Arial' size=2><b>" + myhours + mytime + mm + ", " + dayarray[day]+", "+daym+" "+montharray[month]+", "+year+"</b></font>") </SCRIPT> <!--- Saat Tarih kod ßitişi... ---></TD></TR></TBODY></TABLE> <TABLE id=table20 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=230 cellSpacing=0 cellPadding=0 width="99%" border=0> <TBODY> <TR> <TD width="78%" height=224> <table border="0" width="100%" id="table27" cellpadding="0" style="border-collapse: collapse"> <tr> <td valign="top" width="283"> <TABLE id=table39 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=52 cellSpacing=0 cellPadding=0 width=272 border=0> <TR> <TD background="imgs/con_top_l.png" width="39" height="33"> </TD> <TD background="imgs/yatay.png" width="204" height="33"> </TD> <TD background="imgs/con_top_r.png" width="30" height="33"> </TD></TR> <TR> <TD background="imgs/dikey.png" width="39" height="1"> </TD> <TD width=204 height=73> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="table40" height="72"> <tr> <td width="100%" height="19" align="center"> <u><font size="5" color="#800000"><b><i>Sizden Gelenler</i></b></font></u></td> </tr> <tr> <td width="100%" height="6" align="center"> <font color="#800000"><i><b> <hr></b></i></font></td> </tr> <tr> <td width="100%" height="4" align="center"> <font color="#800000"><b> <i> <span style="text-decoration: none"> <% set ulu = server.createobject("ADODB.Recordset") cihad = "Select * from yazi where makale=1 order by id desc" ulu.open cihad,Connection,3,3 If ulu.eof or ulu.bof then Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı haber yok.</br></center></b></font>" Response.end end if sayfa = Request.QueryString("sayfa" ) If sayfa="" Then sayfa=1 ulu.pagesize = 1 ulu.absolutepage = sayfa sayfa_sayisi = ulu.pagecount for i=1 to ulu.pagesize if ulu.eof then exit for end if %></span></i><span style="text-decoration: none"><a href="https://www.r10.net/asp/mdevam.asp?id=<%=ulu("id")%>"><span style="text-decoration: none"><font color="#800000" face="Times New Roman"><%=ulu("baslik" )%></font></span></a></span></b></font></td> </tr> <tr> <td width="100%" height="6" align="center"> <font color="#800000"><i><b><hr></b></i></font></td> </tr> <tr> <td width="100%" height="6" align="center"> <span style="text-decoration: none"> <font color="#800000" style="font-size: 13pt; font-weight: 700" face="Times New Roman"> <%ulu.movenext Next%></font><font color="#800000" size="2">Toplam kayıt: <%=ulu.recordcount%> - <% response.Write "Sayfa: " for g = 1 to sayfa_sayisi if g = cint(sayfa ) then response.write g& " " %><% else response.Write "<a href=?sayfa=" & g & ">" & g & "</a> " end if next%> </font> </span> </td> </tr> </table> </TD> <TD background="imgs/dikey2.png" width="30" height="1"> </TD></TR> <TR> <TD background="imgs/con_un_l.png" width="39" height="37"> </TD> <TD background="imgs/yatay2.png" width="204" height="37"> </TD> <TD background="imgs/con_un_r.png" width="30" height="37"> </TD></TR> </TABLE> </td> <td> <CENTER> <CENTER> <TABLE id=table28 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=437 cellSpacing=0 cellPadding=0 width=681 border=0> <TBODY> <TR> <TD width=49 background="___ YOLCUYUZ BİZ ___dosyalar/con_top_l.png" height=33> </TD> <TD width=610 background="___ YOLCUYUZ BİZ ___dosyalar/yatay.png" height=33></TD> <TD width=29 background="___ YOLCUYUZ BİZ ___dosyalar/con_top_r.png" height=33> </TD></TR> <TR> <TD width=49 background="___ YOLCUYUZ BİZ ___dosyalar/dikey.png" height=337></TD> <TD width=610 height=458> <p><b><%=ulutas("baslik")%></b><br> <%=ulutas("detay")%></p> <hr size="1" class="hr"> <p> </p> <p><BR> </TD> <TD width=29 background="___ YOLCUYUZ BİZ ___dosyalar/dikey2.png" height=337></TD></TR> <TR> <TD width=49 background="___ YOLCUYUZ BİZ ___dosyalar/con_un_l.png" height=37> </TD> <TD width=610 background="___ YOLCUYUZ BİZ ___dosyalar/yatay2.png" height=37></TD> <TD width=29 background="___ YOLCUYUZ BİZ ___dosyalar/con_un_r.png" height=37> </TD></TR></TBODY></TABLE></CENTER> <p> </p> </CENTER></td> </tr> </table> </TD></TR></TBODY></TABLE> <CENTER> <TABLE id=table22 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=62 cellSpacing=0 cellPadding=0 width=784 border=0> <TBODY> <TR> <TD width=750 height=19> <HR color=#8b120e> </TD></TR> <TR> <TD width=750 height=11> <P align=center> </P></TD></TR> <TR> <TD width=750 height=11> <HR color=#8b120e> </TD></TR> </TBODY></TABLE></CENTER> <TABLE id=table23 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=30 cellSpacing=0 cellPadding=0 width=970 border=0> <TBODY> <TR></TD></TR></TBODY></TABLE> </TD></TR></TBODY></TABLE> </body> </html>Line 18 De Hata Veriyor.. - 24-05-2008, 23:08:56querystring den gelen id değişkeni boş olabilir, veya numerik olmayan bir değere sahip olabilir.
?id=xx şeklinde gelen değeri kontrol et.
sor = "Select * from yazi where id="&id
Response.Write("<pre>" & sor & "</pre>")
Response.End
ulutas.Open sor,Connection,3,3
şeklinde bir değişiklik yaparak SQL cümlenin geçerli olduğuna emin ol.
