Asp Hatası Hakkında

26/Mar/07 13:18

Kısayol

Şikayet

Özel Mesaj

demonship

Kayıt Tarihi: 09/Mart/2007

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 kötü 10 listesi bölümünü gösteren yerde yazıyoo.Bunun aynı şekilde en iyi 10 listesini gösteren bölümü düzgün çalışıyoo bu çalışmuyoo.bakıyom hiç bir sorunda bulamıyom.

Nasıla öğrencen

Alıntı yap

26/Mar/07 14:03

Kısayol

Şikayet

Özel Mesaj

manglerman

Kayıt Tarihi: 30/Aralık/2003

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.:)

Alıntı yap

26/Mar/07 14:43

Kısayol

Şikayet

Özel Mesaj

turunc4u

Kayıt Tarihi: 16/Ağustos/2006

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

Alıntı yap

26/Mar/07 14:45

Kısayol

Şikayet

Özel Mesaj

demonship

Kayıt Tarihi: 09/Mart/2007

bu 171.satır

sur.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)

buda onun üstünde aynısı var en iyi 10 listesini gösteriyor ama hata yok.

sur.Open ("DRIVER={Microsoft Access Driver (*.mdb)};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

Alıntı yap

27/Mar/07 00:02

Kısayol

Şikayet

Özel Mesaj

pesimistzombie

Kayıt Tarihi: 14/Haziran/2006

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 kötü 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 :)

:|

Alıntı yap

27/Mar/07 00:07

Kısayol

Şikayet

Özel Mesaj

demonship

Kayıt Tarihi: 09/Mart/2007

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

Alıntı yap

27/Mar/07 00:12

Kısayol

Şikayet

Özel Mesaj

pesimistzombie

Kayıt Tarihi: 14/Haziran/2006

171. satırı bul oraya

sur.Close
Set sur = Nothing

ekle yani en iyilerle en kötüler arasına

sorun düzelmesse yine 171. satırın oraya

On Error Resume Next koy yine bi dene

yine olmazsa hata veren dosyayı bana yolla kontrol edeyim

:|

Alıntı yap

27/Mar/07 00:22

Kısayol

Şikayet

Özel Mesaj

ir2

Kayıt Tarihi: 10/Mayıs/2003

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

Alıntı yap

27/Mar/07 00:34

Kısayol

Şikayet

Özel Mesaj

pesimistzombie

Kayıt Tarihi: 14/Haziran/2006

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

:|

Alıntı yap

27/Mar/07 02:01

Kısayol

Şikayet

Özel Mesaj

manglerman

Kayıt Tarihi: 30/Aralık/2003

ö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 görüşelim ;)

Set sur= Server.CreateObject("ADODB.Connection")
sur.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & application("veritabani_yolu") & "\database.mdb"

türk kızlarından sabun yapalım, rus kızları elini yıkasın.:)

Alıntı yap

27/Mar/07 08:37

Kısayol

Şikayet

Özel Mesaj

demonship

Kayıt Tarihi: 09/Mart/2007

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("UserLoggedIn")<>"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) { alert('Lütfen kullanıcı adını doğru olarak yazınız!..'); form.k_a.focus(); return false }

  if (form.sifre.value == '' || form.sifre.value.length < 4 || form.sifre.value.length > 8) { alert('Lütfen şifrenizi doğru olarak yazınız!..'); form.sifre.focus(); return false }

  else
  {
  form.submit();
  this.disabled=true;
  }
  ">

</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("ADODB.Connection")
sur.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
%>
<%
Set enyuksek = Server.CreateObject("ADODB.Recordset")
sor = "Select * from uyeler where kullaniciadi order by puan DESC"
enyuksek.Open sor,Sur,1,3
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%
If enyuksek.eof then
Response.Write "<center>Veritabanında kayıtlı uye yok...</center>"
Response.End
End If
%>
<% enyuksek.pagesize = 10
enyuksek.absolutepage = shf
sayfa = enyuksek.pagecount
for i=1 to enyuksek.pagesize
if enyuksek.eof then exit for
%>

<table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan(this); onmouseout=puan(this);>
<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("kullaniciadi")%></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("puan")%></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("dogru")%></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("yanlis")%></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("ADODB.Connection")
sur.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
%>
<%
Set endusuk = Server.CreateObject("ADODB.Recordset")
sorr = "Select * from uyeler where kullaniciadi order by puan"
endusuk.Open sorr,Surr,1,3
syf = Request.QueryString("syf")
if syf="" then
syf=1
end if
%>
<%
If endusuk.eof then
Response.Write "<center>Veritabanında kayıtlı uye yok...</center>"
Response.End
End If
%>
<% endusuk.pagesize = 10
endusuk.absolutepage = syf
sayfa2 = endusuk.pagecount
for i=1 to endusuk.pagesize
if endusuk.eof then exit for
%>
</div>
<table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan(this); onmouseout=puan(this);>
<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("kullaniciadi")%></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("puan")%></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("dogru")%></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("yanlis")%></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("ADODB.Connection")
sur.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
%>
<%
Set ensonyarisan = Server.CreateObject("ADODB.Recordset")
sorrrr = "Select * from uyeler where kullaniciadi order by EnSonGiris desc"
ensonyarisan.Open sorrrr,Surrrr,1,3
syff = Request.QueryString("syff")
if syfff="" then
syfff=1
end if
%>
<%
If ensonyarisan.eof then
Response.Write "<center>Veritabanında kayıtlı uye yok...</center>"
Response.End
End If
%>
<% ensonyarisan.pagesize = 10
ensonyarisan.absolutepage = syfff
sayfa4 = ensonyarisan.pagecount
for i=1 to ensonyarisan.pagesize
if ensonyarisan.eof then exit for
%>

</div>
<table width="750" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan(this); onmouseout=puan(this);>
<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("kullaniciadi")%></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("EnSonGiris")%></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("puan")%></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("ADODB.Connection")
surrr.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
%>
<%
Set ensonuye = Server.CreateObject("ADODB.Recordset")
sorrr = "Select * from uyeler where kullaniciadi order by uyeliktarih desc"
ensonuye.Open sorrr,Surrr,1,3
sitekacuye=ensonuye.recordcount
syff = Request.QueryString("syff")
if syff="" then
syff=1
end if
%>
<%
If ensonuye.eof then
Response.Write "<center>Veritabanında kayıtlı uye yok...</center>"
Response.End
End If
%>
<% ensonuye.pagesize = 10
ensonuye.absolutepage = syff
sayfa3 = ensonuye.pagecount
for i=1 to ensonuye.pagesize
if ensonuye.eof then exit for
%>

</div>
<table width="630" border="1" align="center" bordercolor="<%=top10%>" onmouseover=puan(this); onmouseout=puan(this);>
<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("kullaniciadi")%></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("uyeliktarih")%></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("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set bag=server.createobject("adodb.connection")
bag.open ac
set rs=server.createobject("adodb.recordset")
SQL = "Select * from sorular where onay = '1'"
rs.open SQL, bag, 1, 3
sitekacsoru=rs.recordcount
rakam=rs.recordcount

%>

<br> Sitemizde Toplam: <b><font color="<%=top10yazi%>"><%= sitekacsoru%></font></b> Aktif Soru Bulunmaktadır.</div>
<%
Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set rs=server.createobject("adodb.recordset")
sSQL = "Select * from sorular"
rs.open sSQL, bag, 1, 3
toplamkacsoru=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("ADODB.Connection")
Baglantim.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set kacadmin= server.createobject("adodb.recordset")
SQL = "Select * from admin order by Id"
kacadmin.open SQL,baglantim,1,3
%>
<%
If kacadmin.eof then
Response.Write "<center><br>Şuan Sitede Admin Yok Site Allaha Emanet</center>"
Response.End
End If
%>

<br>

<%
Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
ip=Request.ServerVariables("REMOTE_ADDR")
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (ac)
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
ToplamKayitSayisi = kset.RecordCount
kset.Close
Set kset = Nothing
bag.Close
Set 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("kullaniciadi")%></b></a> <a href="mailto:<%=kacadmin("email")%>"><%=kacadmin("email")%></a> </div>
<div align="center"><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Admin Enson:<b><%=kacadmin("ensongiris")%></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("yarisma")
if yarisma="" or yarisma="1" then %>

<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("username")%></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("Adodb.Connection")
Baglanti.open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
Id=Session("Id")
Sorgu="Select * from Uyeler where Id= " & Id
Rs.Open Sorgu, Baglanti, 1, 3

kullaniciadi= rs("kullaniciadi")
puan= rs("puan")
dogru= rs("dogru")
yanlis= rs("yanlis")
yanitsiz= rs("yanitsiz")
sitekacuye=rs.recordcount
%>

<%
zamanmiktari=5

Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)

ip=Request.ServerVariables("REMOTE_ADDR")
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (ac)
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
If kset.eof Then
kset.addnew
kset("ip")=ip
kset("tarih")=now
else
kset("tarih")=now
end if
kset.update
kset.Close
Set kset = Nothing
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online"
kset.open sql, bag, 1, 3
Do While Not kset.eof
zaman=datediff("n",kset("tarih"),now)
if zaman > zamanmiktari then
sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'"
Set sil = bag.execute(sql)
Set sil = Nothing
end if
kset.movenext
Loop
ToplamKayitSayisi = kset.RecordCount
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%>
<%
Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set rs=server.createobject("adodb.recordset")
sSQL = "Select * from sorular"
rs.open sSQL, ac, 1, 3
toplamkacsoru=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 "
        <b><%=turkmaster%></b> " Bilgi Yarışmasına katılıyorsanız, <br>
        sol menü'deki " <b>KURALLAR</b> " 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" >

var message="BOL ŞANSLAR <%=Session("username")%>"
var neonbasecolor="#000000"
var neontextcolor="#3399FF"
var neontextcolor2="#FF0099"
var flashspeed=100
var flashingletters=3
var flashingletters2=2
var flashpause=1

var n=0
if (document.all||document.getElementById){
document.write('<font color="'+neonbasecolor+'">')
for (m=0;m<message.length;m++)
document.write('<span id="neonlight'+m+'">'+message.charAt(m)+'</span>')
document.write('</font>')
}
else
document.write(message)

function crossref(number){
var crossobj=document.all? eval("document.all.neonlight"+number) : document.getElementById("neonlight"+number)
return crossobj
}

function neon(){

if (n==0){
for (m=0;m<message.length;m++)
crossref(m).style.color=neonbasecolor
}

crossref(n).style.color=neontextcolor

if (n>flashingletters-1) crossref(n-flashingletters).style.color=neontextcolor2
if (n>(flashingletters+flashingletters2)-1) crossref(n-flashingletters-flashingletters2).style.color=neonbasecolor

if (n<message.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",flashpause)
return
}
}

function beginneon(){
if (document.all||document.getElementById)
flashing=setInterval("neon()",flashspeed)
}
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{
      m=0;
    }
    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(){
var time= new Date();
hours= time.getHours();
mins= time.getMinutes();
secs= time.getSeconds();
etime=hours*3600+mins*60+secs;
etime+=60;

checktime();
}

function checktime(){
var time= new Date();
hours= time.getHours();
mins= time.getMinutes();
secs= time.getSeconds();
ctime=hours*3600+mins*60+secs
if(ctime>=etime){
expired();
}
else
display();
}

function expired(){

location.href="surebitti.asp";

}

</SCRIPT>
<% Response.Buffer = True %>

<% Session.CodePage=1254 %>
<%
Set Reklam_C = Server.CreateObject("ADODB.Connection")
Reklam_C.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
Set Reklam = Server.CreateObject("Adodb.Recordset")
rSQL = "Select * from sorular where onay = '1'"
Reklam.Open rSQL, Reklam_C, 1, 3

If Reklam.eof then
Response.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.End
End If
RSayisi = Reklam.RecordCount
Randomize
secilecek = Int((RSayisi * Rnd) + 0)
Reklam.Move(secilecek)

Reklam("say") = Reklam("say") + 1
  Reklam("zaman")=now()
  soruid=Session("soruid")
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("puan")%></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("soru")%></span></strong></font>
        <%
sorunolar=reklam("soruid")
csql="select*from cevaplar where soruno="&sorunolar&""
set cset=reklam_c.execute(csql)
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("img")%>" >
              <input type="radio" name="yanit" value="<%=cset("dogrumu")%>" onClick="javascript:{ form.submit();this.disabled=true; }">

            </div></td>
          <td width="91%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=cset("cevap")%></strong></font></td>
        </tr>
<%
cset.movenext
wend
%>
      </table>
     <input type="hidden" name="soru" value="<%=reklam("soru")%>">
      <input type="hidden" name="puan" value="<%=reklam("puan")%>">
     <input type="hidden" name="soruid" value="<%=sorunolar%>">
          </form>
    <%
Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set bag=server.createobject("adodb.connection")
bag.open ac
set rs=server.createobject("adodb.recordset")
  SQL = "Select * from sorular where onay = '1'"
rs.open SQL, bag, 1, 3
sitekacsoru=rs.recordcount
%>
    <%
Set ac = Server.CreateObject("ADODB.Connection")
ac.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
set rs=server.createobject("adodb.recordset")
  sSQL = "Select * from sorular"
rs.open sSQL, bag, 1, 3
toplamkacsoru=rs.recordcount
%>
    <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bu
      Soru <b><%=reklam("ekleyen")%></b> Tarafından Siteye Eklenmiştir. Bu Soru
      <b><%=reklam("say")%></b> Defa Soruldu. <br>
      En Son Sorulma Zamanı:<b><%=reklam("zaman")%></b> <br>
            </font>
      <% reklam.movenext
    reklam.close
     set   reklam=nothing %>
      <br>
      <%

            If (Session("SessionCountVB") = "") Then
                Session("SessionCountVB") = 0
            End If

Session("SessionCountVB") = Session("SessionCountVB") + 1
        %>
      <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bugün Size <b><%= Session("SessionCountVB") %></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 %>

<%
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set RS=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from cevaplar where dogrumu='"& Request.Form("yanit") &"'"
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("dogrumu")="d" then%>
<%
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.open Cumle
Set hesap=Server.CreateObject("Adodb.Recordset")
Id=Session("Id")
Sorgu="Select * from Uyeler where Id= " & Id
hesap.Open Sorgu, Baglanti, 1, 3

hesap("dogru")=hesap("dogru")+1
hesap("puan")=hesap("puan")+Request.Form("puan")
hesap.Update

Set Reklam_C = Server.CreateObject("ADODB.Connection")
Reklam_C.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
Set Reklam = Server.CreateObject("Adodb.Recordset")
rSQL="select*from sorular where soruid="& Request.Form("soruid") &""

Reklam.Open rSQL, Reklam_C, 1, 3

reklam("dogrusay")=reklam("dogrusay")+1

say =reklam("say")
dogrusay= reklam("dogrusay")
yanlissay= reklam("yanlissay")
lToplamOy = reklam("say")

  if lToplamOy <> 0 then
   lYuzde = (reklam("dogrusay") / 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("puan")%> </font>Puan Kazandiniz.</b><strong>Toplam: <font color="#FF0000"><%=hesap("puan")%></font>
Puanınız Var.!!</strong></font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br> Bu soru şimdiye kadar <b><%=reklam("say")%></b> Soruldu <b><%=dogrusay+yanlissay%></b> defa cevap verildi, <b><%=reklam("dogrusay")%></b> defa doğru cevaplandı. <b><%=reklam("yanlissay")%></b> defa yanlış cevaplandı.<br>Yani bu sorunun bilinme oranı:<b>% <%=int((reklam("dogrusay")/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("dogrumu")="y" then%>

<%
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.open Cumle
Set hesap=Server.CreateObject("Adodb.Recordset")
Id=Session("Id")
Sorgu="Select * from Uyeler where Id= " & Id
hesap.Open Sorgu, Baglanti, 1, 3

hesap("yanlis")=hesap("yanlis")+1
hesap("puan")=hesap("puan")-5
hesap.Update

Set Reklam_C = Server.CreateObject("ADODB.Connection")
Reklam_C.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
Set Reklam = Server.CreateObject("Adodb.Recordset")
rSQL="select*from sorular where soruid="& Request.Form("soruid") &""

Reklam.Open rSQL, Reklam_C, 1, 3

say =reklam("say")
dogrusay= reklam("dogrusay")
yanlissay= reklam("yanlissay")
lToplamOy = reklam("say")

  if lToplamOy <> 0 then
   lYuzde = (reklam("dogrusay") / 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("puan")%></font>
Puanınız Kaldı.!!</strong></font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br> Bu soru şimdiye kadar <b><%=reklam("say")%></b> Soruldu <b><%=dogrusay+yanlissay%></b> defa cevap verildi, <b><%=reklam("dogrusay")%></b> defa doğru cevaplandı. <b><%=reklam("yanlissay")%></b> defa yanlış cevaplandı.<br>Yani bu sorunun bilinme oranı:<b>% <%=int((reklam("dogrusay")/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

Alıntı yap