ncelikle yanlışın dbq kullanmak artık bir çok windows sürücü dbq kullanmıyor ve kullananlarda felaket şişiyor. serveri en az 2 günde bir yeniden başlatmak gerek. sen iyisimi jet OLEDB ye geç kodları bak aşağıya koydum. büyük ihtimal ondandır. bir dene olmazsa sonra tekrar grüşelim ;) Set sur= Server. CreateObject sur. Open "Provider=Microsoft. Jet. OLEDB.4.0;Data Source=" & application & "\database. mdb" türk kızlarından sabun yapalım, rus kızları elini yıkasın.:)

<!--#include file="includeedeceinsayfayiburayakoysansorunkalmazbutunsayfalaricopyalayapistirlayaparsanositesiksencalismaz. asp"-->Bu ne demekmiş hoca araştır bi bakalım Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

nothingde yazılsa nolurki? tekrar açılıyo sonuçta db? :|

bu konuyu dün açtı ama şimdi bulamadım :)ben bir scripti kurmaya çalışıyomda şu hatayı alıyomçEn Düşük Puan Alan 10 Listesi ADODB. Connection error '800a0e79' Operation is not allowed when the object is open. /bil/Default. asp, line 171 bakıyom 171 satıra hiç bi sorun yok. Bu en ktü 10 listesi blümünü gsteren yerde yazıyoo. Bunun aynı şekilde en iyi 10 listesini gsteren blümü düzgün çalışıyoo bu çalışmuyoo. bakıyom hiç bir sorunda bulamıyom. Nasıla ğrencen

hata veren satırın stüne Sur. Close yaz sadece

arkadaşlar yardımlarınızı bekliyom o verdiğiniz kodları denedim yine hatalar verdi bunu nasıl düzelte bilirim acaba. msn adresim yasinoz61@hotmail.com birebir yarım etmek isteyen varsa çok makbule geçer valla Nasıla ğrencen

bak! armut piş ağzıma düş olmaz kod sandığım gibi sayfanın başındna sonuna tekrar kopyala yapıştırılmış mantıkla yapılmış bir kod kullandığın objeyi kapamadan tekrar açamazsın bu programlamanın ilk kurallarındna biridir hiçbir programlama bilgin olmadan programlama sorusu soruyosun sonra becermeeynce forumu kirletiyosun... set xyz = blabla bir atamadır bak kaçkere atama yapmışın ve kapamadan tekrar açmışsın biraz oturup uğraşsan sadece objelerin adlaırnı değiştirsen yine çalışır..

bu 171. satırsur. Open ("DRIVER= ;DBQ=" & Veri_yolu)buda onun üstünde aynısı var en iyi 10 listesini gsteriyor ama hata yok. sur. Open ("DRIVER= ;DBQ=" & Veri_yolu)kimyadeneme. somee.com/bil scripti buraya kurdum. yavaş yavaş düzenlemeye çalışcamda ilk nce bu hatayı düzeltmem gerek. Nasıla ğrencen

hocam istersen 171. satırı yaz birde biz kontrol edelim?bakalım ne var ne yok. türk kızlarından sabun yapalım, rus kızları elini yıkasın.:)

valla ben yine beceremedim sizi kodları veriyom.<HTML><HEAD><TITLE><%=title%></TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1254" ></HEAD><BODY ><TABLE width=758 height=0 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#FF9900 > <TBODY> <TR> <TD vAlign=top width=34 bgColor=#FF9900 height=60><IMG src="sol-1. gif" border=0></TD> <TD vAlign=top width=131 bgColor=#FF9900 height=28 rowSpan=2> <IMG src="<%=logo%>" width="220" height="60" border=0></P></TD> <TD vAlign=top width=643 bgColor=#FF9900 height=28 rowSpan=2> <div align="center"> <TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" borderColor=#000000 height=60 cellSpacing=0 cellPadding=0 width=468 border=0> <TBODY> <TR> <TD width="100%" ><img src="<%=banner%>" height="60" width="468" alt="<%=alt%>"></TD> </TR> </TBODY> </TABLE> </div></TD> <TD vAlign=top align=right width=69 bgColor=#FF9900 height=28 rowSpan=2><IMG src="sag-1. gif" border=0></TD> </TR> <TR> </TR> <TR> <TD width=34 bgColor=#FF9900 height=20> </TD> <TD width=760 bgColor=#FF9900 colSpan=2 height=20> <TABLE id=AutoNumber1 style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=31 cellSpacing=0 cellPadding=0 width=693 border=0> <TBODY> <TR> <TD width=27 height=31><FONT face=Tahoma color=#ffffff><SPAN style="FONT-SIZE: 7pt"><IMG src="homepg. gif" width="19" height="20" border=0 ></SPAN></FONT></TD> <TD width=74 height=31><FONT style="FONT-SIZE: 8pt" face=Tahoma color=#ffffff> <A href="default. asp"><FONT color=#ffffff>Ana Sayfa</FONT></A></FONT></TD> <TD width=30 height=31><FONT face=Tahoma color=#ffffff><SPAN style="FONT-SIZE: 8pt"><IMG src="home2. gif" border=0></SPAN></FONT></TD> <TD width=98 height=31><FONT face=Tahoma><A href="<%=acilis%>"><SPAN style="FONT-SIZE: 8pt"><FONT color=#ffffff>Açılış Sayfam Yap</FONT></SPAN></A></FONT></TD> <TD width=32 height=31><FONT face=Tahoma color=#ffffff><SPAN style="FONT-SIZE: 8pt"><IMG src="favorites. gif" border=0></SPAN></FONT></TD> <TD width=102 height=31><FONT style="FONT-SIZE: 8pt" face=Tahoma color=#ffffff><A href="<%=favori%>"><FONT color=#ffffff>Favorilerime Ekle</FONT></A></FONT></TD> <TD width=31 height=31><FONT face=Tahoma color=#ffffff><SPAN style="FONT-SIZE: 8pt"><IMG src="tavsiye. gif" border=0></SPAN></FONT></TD> <TD width=130 height=31><A href="<%=tavsiye%>"><FONT style="FONT-SIZE: 8pt" face=Tahoma color=#ffffff>Arkadaşına Tavsiye Et</FONT></A> </TD> <TD width=30 height=31><FONT face=Tahoma color=#ffffff><SPAN style="FONT-SIZE: 8pt"><IMG src="elestiri. gif" border=0></SPAN></FONT></TD> <TD width=90 height=31><A href="<%=oneri%>"><FONT style="FONT-SIZE: 8pt" face=Tahoma color="#ffffff">Ziyaretci Defteri</FONT></A></TD> </TR> </TBODY> </TABLE></TD> <TD width=69 bgColor=#FF9900 height=20> </TD> </TR> </TBODY></TABLE><% if Session <>"true" then %><form name=login action="giris_yap. asp" method=post> <div align="center"><font color="#FF0099" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong><em><font size="4" face="Geneva, Arial, Helvetica, sans-serif"><%=turkmaster%></font> <%=sorubank%></em></strong></font><br> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Kullanıcı Adınız:</strong></font> <input name=k_a style="color=#FF9900" onfocus="basbas(this, 1);" onblur="basbas(this, 0);" size="15" maxlength="20" > <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Şifreniz:</strong> </font> <input name=sifre type=password style="color=#FF9900" onfocus="basbas(this, 1);" onblur="basbas(this, 0);" size="15" maxlength="8" > <input type="submit" name="B1" value=". . : : | Giriş | : : . ." style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; " onblur="basbas(this, 0);" onfocus="basbas(this, 1);" onClick="javascript: if (form. k_a. value '' || form. k_a. value. length < 6 || form. k_a. value. length > 20) if (form. sifre. value '' || form. sifre. value. length < 4 || form. sifre. value. length > 8) else "> </div></form><div align="center"><a href="kayit. asp" onClick="window. open('kayit. asp','newWindow','toolbar=0, location=0, directories=0, status=0, menubar=0, scrollbars=1, resizable=0, width=750, height=500');return false" target=NewWindow><img src="uyeol. gif" width="16" height="16" border="0"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Kayıt Ol</font></a> <img src="HATIRLAT. GIF" width="15" height="15"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="sifre. asp" onClick="window. open('sifre. asp','newWindow','toolbar=0, location=0, directories=0, status=0, menubar=0, scrollbars=1, resizable=0, width=650, height=350');return false" >Şifremi Unuttum</a> </font></div><p align="center"><br> <strong><font color="#000000" face="Geneva, Arial, Helvetica, sans-serif"><%=enyuksek%></font></strong> <%Set Sur = Server. CreateObject sur. Open ("DRIVER= ;DBQ=" & Veri_yolu)%> <%Set enyuksek = Server. CreateObject sor = "Select from uyeler where kullaniciadi order by puan DESC"enyuksek. Open sor, Sur,1,3shf = Request. QueryString if shf="" then shf=1end if%> <%If enyuksek. eof thenResponse. Write "<center>Veritabanında kayıtlı uye yok...</center>"Response. EndEnd If%> <% enyuksek. pagesize = 10enyuksek. absolutepage = shfsayfa = enyuksek. pagecountfor i=1 to enyuksek. pagesizeif enyuksek. eof then exit for%><table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan ; onmouseout=puan ;> <tr> <td width="100"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kullanıcı Adı:</font></td> <td width="173" ><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=enyuksek %></b></font></td> <td width="53"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Puanı:</font></td> <td width="59"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=enyuksek %></b></font></div></td> <td width="104"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Doğru Cevabı:</font></td> <td width="53"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"> <b><%=enyuksek %></b></font></div></td> <td width="108"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Yanlış Cevabı:<b></b></font></td> <td width="48"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"> <b><%=enyuksek %></b></font></div></td> </tr></table><%enyuksek. movenext%><% next %><div align="center"><div align="center"><br> <br> <br> <strong> <font color="#000000" face="Geneva, Arial, Helvetica, sans-serif"><%=endusuk%></font></strong> <%Set Surr = Server. CreateObject sur. Open ("DRIVER= ;DBQ=" & Veri_yolu)%> <%Set endusuk = Server. CreateObject sorr = "Select from uyeler where kullaniciadi order by puan"endusuk. Open sorr, Surr,1,3syf = Request. QueryString if syf="" then syf=1end if%> <%If endusuk. eof thenResponse. Write "<center>Veritabanında kayıtlı uye yok...</center>"Response. EndEnd If%> <% endusuk. pagesize = 10 endusuk. absolutepage = syfsayfa2 = endusuk. pagecountfor i=1 to endusuk. pagesizeif endusuk. eof then exit for%></div><table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan ; onmouseout=puan ;> <tr> <td width="100"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kullanıcı Adı:</font></td> <td width="173"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=endusuk %></b></font></td> <td width="53"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Puanı:</font></td> <td width="59"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=endusuk %></b></font></div></td> <td width="104"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Doğru Cevabı:</font></td> <td width="53"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"> <b><%=endusuk %></b></font></div></td> <td width="108"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Yanlış Cevabı:<b></b></font></td> <td width="48" ><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"> <b><%=endusuk %></b></font></div></td> </tr></table><%endusuk. movenext%><% next %></p><div align="center"><div align="center"><br> <br> <strong> <font color="#000000" face="Geneva, Arial, Helvetica, sans-serif"><%=enson%></font></strong> <%Set Surrrr = Server. CreateObject sur. Open ("DRIVER= ;DBQ=" & Veri_yolu)%> <%Set ensonyarisan = Server. CreateObject sorrrr = "Select from uyeler where kullaniciadi order by EnSonGiris desc"ensonyarisan. Open sorrrr, Surrrr,1,3syff = Request. QueryString if syfff="" then syfff=1end if%> <%If ensonyarisan. eof thenResponse. Write "<center>Veritabanında kayıtlı uye yok...</center>"Response. EndEnd If%> <% ensonyarisan. pagesize = 10 ensonyarisan. absolutepage = syfffsayfa4 = ensonyarisan. pagecountfor i=1 to ensonyarisan. pagesizeif ensonyarisan. eof then exit for%></div><table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan ; onmouseout=puan ;> <tr> <td width="98" height="20"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kullanıcı Adı:</font></td> <td width="178" ><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=ensonyarisan %></b></font></td> <td width="120"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Yarışma Tarihi:</font></td> <td width="191"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=ensonyarisan %></b></font></div></td> <td width="62"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Puanı:</font></td> <td width="57"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=ensonyarisan %></b></font></div></td> </tr></table><%ensonyarisan. movenext%><% next %><div align="center"><br> <br> <br> <strong><font color="#000000" face="Geneva, Arial, Helvetica, sans-serif"><%=ensonuye%></font></strong> <%Set Surrr = Server. CreateObject surrr. Open ("DRIVER= ;DBQ=" & Veri_yolu)%> <%Set ensonuye = Server. CreateObject sorrr = "Select from uyeler where kullaniciadi order by uyeliktarih desc"ensonuye. Open sorrr, Surrr,1,3sitekacuye=ensonuye. recordcountsyff = Request. QueryString if syff="" then syff=1end if%> <%If ensonuye. eof thenResponse. Write "<center>Veritabanında kayıtlı uye yok...</center>"Response. EndEnd If%> <% ensonuye. pagesize = 10 ensonuye. absolutepage = syffsayfa3 = ensonuye. pagecountfor i=1 to ensonuye. pagesizeif ensonuye. eof then exit for%></div><table width="630" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan ; onmouseout=puan ;> <tr> <td width="111"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kullanıcı Adı:</font></td> <td width="170" ><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=ensonuye %></b></font></td> <td width="135"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Üye Olma Tarihi:</font></td> <td width="182" ><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="<%=top10yazi%>"><b><%=ensonuye %></b></font></div></td> </tr></table><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%ensonuye. movenext%> <% next %><br> Sitemizde Toplam: <b><font color="<%=top10yazi%>"><%= sitekacuye%></b></font> Üye Bulunmaktadır.<%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)set bag=server. createobject bag. open acset rs=server. createobject SQL = "Select from sorular where onay = '1'"rs. open SQL, bag, 1, 3sitekacsoru=rs. recordcountrakam=rs. recordcount%><br> Sitemizde Toplam: <b><font color="<%=top10yazi%>"><%= sitekacsoru%></font></b> Aktif Soru Bulunmaktadır.</div><%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)set rs=server. createobject sSQL = "Select from sorular"rs. open sSQL, bag, 1, 3toplamkacsoru=rs. recordcount%><center> Onaylanmayı Bekleyen Toplam:<b><font color="<%=top10yazi%>"><%=toplamkacsoru-sitekacsoru%></font></b> Soru Bulunmaktadır.<br>Sitemizde Toplam: <b><font color="<%=top10yazi%>"><%= toplamkacsoru%></font></b> Soru Bulunmaktadır.<% Set Baglantim = Server. CreateObject Baglantim. Open ("DRIVER= ;DBQ=" & Veri_yolu)set kacadmin= server. createobject SQL = "Select from admin order by Id"kacadmin. open SQL, baglantim,1,3%> <%If kacadmin. eof thenResponse. Write "<center><br>Şuan Sitede Admin Yok Site Allaha Emanet</center>"Response. EndEnd If%><br> <%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)ip=Request. ServerVariables Set bag = Server. Createobject bag. Open Set kset = Server. Createobject sql = "SELECT FROM online where ip='"& ip &"'"kset. open sql, bag, 1, 3ToplamKayitSayisi = kset. RecordCountkset. CloseSet kset = Nothingbag. CloseSet bag = Nothing%><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Şu an sitede online</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="<%=top10yazi%>"> <b><%=ToplamKayitSayisi%></b></font> yarışmacı var<br> <br>Site Admini: <a href="admin. asp"><b><%=kacadmin %></b></a> <a href="mailto:<%=kacadmin %>"><%=kacadmin %></a> </div><div align="center"><br> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Admin Enson:<b><%=kacadmin %></b> Tarihinde Sitedeydi. <% kacadmin. movenext %> </font></div><p><br> <%=copyright%> </p><TABLE width=758 height=0 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#FF9900 > <TBODY> <TR> <TD vAlign=top width=30 bgColor=#FF9900 height=30 align="center"><IMG src="sol-2. gif" border=0></TD> <TD vAlign=top width=663 bgColor=#FF9900 height=30 rowSpan=2> </P></TD> <TD vAlign=top align=right width=65 bgColor=#FF9900 height=30 rowSpan=2><IMG src="sag-2. gif" border=0></TD> </TR> </TBODY></TABLE></html><% else %><% yarisma=Request. QueryString if yarisma="" or yarisma="1" then %><HTML><HEAD><TITLE><%=title%></TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1254"></HEAD><body onload="startmotor(0)"><table width="755" border="0" align="center"> <tr> <td width="268"><font face="Verdana, Arial, Helvetica, sans-serif" size="-2"><STRONG>Hoşgeldin;</STRONG></font><font face="verdana" size=2> <font face="Verdana, Arial, Helvetica, sans-serif" size="-2"><b><font color="<%=top10yazi%>"><%=Session %></font></b> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="-2"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Yarışmaya Hazırmısın?</font></strong><br> <br> </a> <a href="cevap. asp" onClick="window. open('grafik. asp','newWindow','toolbar=0, location=0, directories=0, status=0, menubar=0, scrollbars=1, resizable=0, width=650, height=450');return false" target=NewWindow> <b>Puan Grafiğiniz</b> </a><br> <a href="uye_bilgi. asp" onClick="window. open('uye_bilgi. asp','newWindow','toolbar=0, location=0, directories=0, status=0, menubar=0, scrollbars=1, resizable=0, width=650, height=370');return false" target=NewWindow> <b>Bilgi Güncelle</b></a> <br> <a href="kurallar. asp" onClick="window. open('kurallar. asp','newWindow','toolbar=0, location=0, directories=0, status=0, menubar=0, scrollbars=1, resizable=0, width=480, height=430');return false" target=NewWindow> <b>Kurallar</b></a><br> </font> <%Set Baglanti=Server. CreateObject Baglanti. open CumleSet Rs=Server. CreateObject Id=Session Sorgu="Select from Uyeler where Id= " & IdRs. Open Sorgu, Baglanti, 1, 3kullaniciadi= rs puan= rs dogru= rs yanlis= rs yanitsiz= rs sitekacuye=rs. recordcount%> <%zamanmiktari=5 Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)ip=Request. ServerVariables Set bag = Server. Createobject bag. Open Set kset = Server. Createobject sql = "SELECT FROM online where ip='"& ip &"'"kset. open sql, bag, 1, 3If kset. eof Thenkset. addnewkset =ipkset =nowelsekset =nowend ifkset. updatekset. CloseSet kset = NothingSet kset = Server. Createobject sql = "SELECT FROM online"kset. open sql, bag, 1, 3Do While Not kset. eof zaman=datediff("n", kset , now)if zaman > zamanmiktari thensql = "DELETE FROM online WHERE ip = '"&kset &"'"Set sil = bag. execute Set sil = Nothingend ifkset. movenextLoopToplamKayitSayisi = kset. RecordCountkset. CloseSet kset = Nothingbag. CloseSet bag = Nothing%><%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)set rs=server. createobject sSQL = "Select from sorular"rs. open sSQL, ac, 1, 3toplamkacsoru=rs. recordcount%> Puanınınız:</font><font size=2><b face=Verdana, Arial, Helvetica, sans-serif><%= puan%></b></font><br><font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>Doğru Cevabınız:</font><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b><%= dogru%></b></font> Adet<br> <font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>Yanlış Cevabınız:</font><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b><%= yanlis%></b></font> Adet<br> <font color=000000 size=2 face=Verdana, Arial, Helvetica, sans-serif>Yanıtlamadığınız Cevabınız:</font><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b><%= yanitsiz%></b></font> Adet<br> <br> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><A href="terket. asp" ><b>Sistemden Çıkış</b></A></font> <br> </td> <td> <p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Eğer ilk kez &quot; <b><%=turkmaster%></b> &quot; Bilgi Yarışmasına katılıyorsanız, <br> sol menü'deki &quot; <b>KURALLAR</b> &quot; linkini tıklayınız. Kuralları okuduktan sonra yarışmaya başlayabilirsin.</font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Yok, eğer daha nce yarışmaya katıldıysan, aşağıdakı linki tıklayarak, yarışmaya hemen başlayabilirsiniz.</font></p> <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size=2 color="#FF0000"><a href="default. asp?yarisma=2"><b>Yarışmaya Başlamak İçin Tıklayınız</b></a></font> </p> <p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" ><h5><center><script language="JavaScript1.2">var message="BOL ŞANSLAR <%=Session %>"var neonbasecolor="#000000"var neontextcolor="#3399FF"var neontextcolor2="#FF0099"var flashspeed=100var flashingletters=3var flashingletters2=2var flashpause=1var n=0if elsedocument. write function crossref function neon {if (n 0) crossref . style. color=neontextcolorif (n>flashingletters-1) crossref . style. color=neontextcolor2 if (n>(flashingletters+flashingletters2)-1) crossref(n-flashingletters-flashingletters2). style. color=neonbasecolorif (n<message. length-1)n++else }function beginneon beginneon </script></center></h5><center> <font face="verdana" size=2><%=copyright%> </font> </p></center></td> </tr></table><TABLE width=758 height=0 border=0 cellPadding=0 cellSpacing=0 bgColor=#FF9900 align="center"> <TBODY> <TR> <TD vAlign=top width=34 bgColor=#FF9900 height=30><IMG src="sol-2. gif" border=0></TD> <TD vAlign=top width=760 bgColor=#FF9900 height=30 rowSpan=2> <p></P></TD> <TD vAlign=top align=right width=69 bgColor=#FF9900 height=30 rowSpan=2><IMG src="sag-2. gif" border=0></TD> </TR> </TBODY></TABLE><% elseif yarisma="2" then %><SCRIPT language=JavaScript> function display { rtime = etime-ctime; if (rtime>60) m = parseInt(rtime/60); else s = parseInt(rtime-m 60); if(s<10) s="0"+s window. status="KALAN SÜRENİZ : "+m+":"+s document. form1. sure. value="KALAN SÜRENİZ : "+m+":"+s window. setTimeout("checktime ",1000) }function settimes function checktime {var time= new Date ;hours= time. getHours ;mins= time. getMinutes ;secs= time. getSeconds ;ctime=hours 3600+mins 60+secsif elsedisplay ;}function expired </SCRIPT><% Response. Buffer = True %><!-- #include file=dahili. asp --><% Session. CodePage=1254 %><%Set Reklam_C = Server. CreateObject Reklam_C. Open ("DRIVER= ;DBQ=" & Veri_yolu) Set Reklam = Server. CreateObject rSQL = "Select from sorular where onay = '1'" Reklam. Open rSQL, Reklam_C, 1, 3If Reklam. eof thenResponse. Write "<center><b><br>Şuan Soru Sistemi Geçici Olarak Kapalıdır. Lütfen Daha Sonra Giriş Yapınız. Teşekkürler.<br><a href=default. asp>Ana Sayfa</a></b></center>"Response. EndEnd IfRSayisi = Reklam. RecordCount Randomize secilecek = Int + 0) Reklam. Move Reklam = Reklam + 1 Reklam =now soruid=Session Reklam. Update %><body onload=settimes > <FORM name=form1 method=post> <div align="center"> <INPUT style="color: #FF0000" type=button name=sure> </div></FORM><div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Bu Sorunun Puanı:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF0000"> <%=reklam %></font></b> </div><tr> <td align="left" valign="top"> <div align="center"><font color="#9900FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><span class="metin3"><%=reklam %></span></strong></font> <%sorunolar=reklam csql="select from cevaplar where soruno="&sorunolar&""set cset=reklam_c. execute while not cset. EOF%></p> </div> <form action="default. asp?yarisma=3" method="post"> <table width="542" border="1" align="center" bordercolor="<%=top10%>"> <tr> <td width="15%" bgColor=#fdc084><div align="center"><img src="<%=cset %>" > <input type="radio" name="yanit" value="<%=cset %>" onClick="javascript: "> </div></td> <td width="91%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=cset %></strong></font></td> </tr><% cset. movenext wend%> </table> <input type="hidden" name="soru" value="<%=reklam %>"> <input type="hidden" name="puan" value="<%=reklam %>"> <input type="hidden" name="soruid" value="<%=sorunolar%>"> </form> <%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)set bag=server. createobject bag. open acset rs=server. createobject SQL = "Select from sorular where onay = '1'"rs. open SQL, bag, 1, 3sitekacsoru=rs. recordcount%> <%Set ac = Server. CreateObject ac. Open ("DRIVER= ;DBQ=" & Veri_yolu)set rs=server. createobject sSQL = "Select from sorular"rs. open sSQL, bag, 1, 3toplamkacsoru=rs. recordcount%> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bu Soru <b><%=reklam %></b> Tarafından Siteye Eklenmiştir. Bu Soru <b><%=reklam %></b> Defa Soruldu. <br> En Son Sorulma Zamanı:<b><%=reklam %></b> <br> </font> <% reklam. movenext reklam. close set reklam=nothing %> <br> <% If (Session = "") Then Session = 0 End If Session = Session + 1 %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bugün Size <b><%= Session %></b> Defa Soru Sorulmuştur!!</font> <br> <%=copyright%> </div> <TABLE width=758 height=0 border=0 cellPadding=0 cellSpacing=0 bgColor=#FF9900 align="center" > <TBODY> <TR> <TD vAlign=top width=34 bgColor=#FF9900 height=30><IMG src="sol-2. gif" border=0></TD> <TD vAlign=top width=760 bgColor=#FF9900 height=30 rowSpan=2> <p></P></TD> <TD vAlign=top align=right width=69 bgColor=#FF9900 height=30 rowSpan=2><IMG src="sag-2. gif" border=0></TD> </TR> </TBODY> </TABLE><% elseif yarisma="3" then %><% Session. CodePage=1254 %><!-- #include file=dahili. asp --><% Set Baglanti=Server. CreateObject Baglanti. Open CumleSet RS=Server. CreateObject Sorgu="Select from cevaplar where dogrumu='"& Request. Form &"'"Rs. Open Sorgu, Baglanti, 1, 3%><% if Rs. EOF then %><center><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Bir Seçenek Seçmelisiniz.</b><br><a href="javascript:history. back(1)"> Geri</a></font></center><% else %><%if rs ="d" then%><%Set Baglanti=Server. CreateObject Baglanti. open CumleSet hesap=Server. CreateObject Id=Session Sorgu="Select from Uyeler where Id= " & Idhesap. Open Sorgu, Baglanti, 1, 3hesap =hesap +1hesap =hesap +Request. Form hesap. UpdateSet Reklam_C = Server. CreateObject Reklam_C. Open ("DRIVER= ;DBQ=" & Veri_yolu) Set Reklam = Server. CreateObject rSQL="select from sorular where soruid="& Request. Form &"" Reklam. Open rSQL, Reklam_C, 1, 3reklam =reklam +1say =reklam dogrusay= reklam yanlissay= reklam lToplamOy = reklam if lToplamOy <> 0 then lYuzde = (reklam / lToplamOy) 100 else lYuzde = 0 end if Reklam. Update %><p align="center"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="3">Doğru</font><font size="3"> Cevap Verdiniz.</font></strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> <b><font color="#FF0000"> + <%=reklam %> </font>Puan Kazandiniz.</b><strong>Toplam: <font color="#FF0000"><%=hesap %></font> Puanınız Var.!!</strong></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br> Bu soru şimdiye kadar <b><%=reklam %></b> Soruldu <b><%=dogrusay+yanlissay%></b> defa cevap verildi, <b><%=reklam %></b> defa doğru cevaplandı. <b><%=reklam %></b> defa yanlış cevaplandı.<br>Yani bu sorunun bilinme oranı:<b>% <%=int((reklam /lToplamOy) 100)%></b></font> </P> <form name=sifre action=default. asp?yarisma=2 method=post><P align=center><input type=submit value="Yeni Soru"></form></p> <center><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default. asp?yarisma=1">Üye Bilgi Sayfası</a></font> <br><br><%=copyright%></center> <TABLE width=758 height=0 border=0 cellPadding=0 cellSpacing=0 bgColor=#FF9900 align="center" > <TBODY> <TR> <TD vAlign=top width=34 bgColor=#FF9900 height=30><IMG src="sol-2. gif" border=0></TD> <TD vAlign=top width=760 bgColor=#FF9900 height=30 rowSpan=2></TD> <TD vAlign=top align=right width=69 bgColor=#FF9900 height=30 rowSpan=2><IMG src="sag-2. gif" border=0></TD> </TR> </TBODY></TABLE><%Elseif rs ="y" then%><%Set Baglanti=Server. CreateObject Baglanti. open CumleSet hesap=Server. CreateObject Id=Session Sorgu="Select from Uyeler where Id= " & Idhesap. Open Sorgu, Baglanti, 1, 3hesap =hesap +1hesap =hesap -5hesap. UpdateSet Reklam_C = Server. CreateObject Reklam_C. Open ("DRIVER= ;DBQ=" & Veri_yolu) Set Reklam = Server. CreateObject rSQL="select from sorular where soruid="& Request. Form &"" Reklam. Open rSQL, Reklam_C, 1, 3say =reklam dogrusay= reklam yanlissay= reklam lToplamOy = reklam if lToplamOy <> 0 then lYuzde = (reklam / lToplamOy) 100 else lYuzde = 0 end if Reklam. Update %><P align=center><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="3">Yanlış Cevap Verdiniz.</font></strong></font><font size="3" face="Verdana, Arial, Helvetica, sans-serif"></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> <b><font color="#FF0000"> - 5 </font>Puan Kaybettiniz.</b><strong>Toplam:<font color="#FF0000"><%=hesap %></font> Puanınız Kaldı.!!</strong></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br> Bu soru şimdiye kadar <b><%=reklam %></b> Soruldu <b><%=dogrusay+yanlissay%></b> defa cevap verildi, <b><%=reklam %></b> defa doğru cevaplandı. <b><%=reklam %></b> defa yanlış cevaplandı.<br>Yani bu sorunun bilinme oranı:<b>% <%=int((reklam /lToplamOy) 100)%></b></font> <br><form name=sifre action=default. asp?yarisma=2 method=post><input type=submit value="Yeni Soru"></form> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default. asp?yarisma=1">Üye Bilgi Sayfası</a></font> <br><%=copyright%></P><TABLE width=758 height=0 border=0 cellPadding=0 cellSpacing=0 bgColor=#FF9900 align="center" > <TBODY> <TR> <TD vAlign=top width=34 bgColor=#FF9900 height=30><IMG src="sol-2. gif" border=0></TD> <TD vAlign=top width=760 bgColor=#FF9900 height=30 rowSpan=2></TD> <TD vAlign=top align=right width=69 bgColor=#FF9900 height=30 rowSpan=2><IMG src="sag-2. gif" border=0></TD> </TR> </TBODY></TABLE></BODY></HTML><% end if %><% end if %><% end if %><% end if %>bi bakarsanız çok seviniim ner hata var bu hatayı niye veriyor. dün sizin dediklerinizi yaptım yine hata verdi Nasıla ğrencen

işte sıkıntı orda ben o dediklerini bilmiyom :) bana nasıl yapcağımı ne yazcağımı anlatırsan çok sevinirim. Nasıla ğrencen

bu hata 2 işi aynı anda yapınca meydana gelebilir.. şimdi orda db yi açıyo en iyi 10 u sıralatıyo en ktü 10 u sıralatırken tekrar db açıyo db yi kapatma komutu filan yerinde mi kontrol ettin mi? .. yada en kolayı on error resume next koy hata alma :) :|

en karisik asp hatasi... satiri yazarsan belki yardimci olabiliriz

171. satırı bul orayasur. CloseSet sur = Nothingekle yani en iyilerle en ktüler arasına sorun düzelmesse yine 171. satırın orayaOn Error Resume Next koy yine bi dene yine olmazsa hata veren dosyayı bana yolla kontrol edeyim :|