PCnet Online forumlarına katılmak için hesap açabilirsiniz.
  • Üye girişi:

PCnet Online forumlarına hoş geldiniz

Gelişmiş Arama
+ Başlığa Yanıt Yaz
1 sonuçtan 1 - 1 arası sonuçlar
  1. 08.08.2011 17:36 #1
    altayevrim
    altayevrim çevrimdışı
    Katılım Tarihi
    2010
    Mesaj
    39

    Varsayılan Microsoft VBScript çalışma hatası- Error '800a0006' Hatası Lütfen Yardım Edin

    Kod:
    Microsoft VBScript çalışma hatası
    Kod:
    - Error '800a0006'
Taşma
/ADS_PRO/dosyalar/kullanici/istatistik.asp, line 103

    Hata bu.

    istatistik.asp (Tümü)
    Kod:
    <!-- #include file="ek.asp" -->
<html>


<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>istatistik</title>
<style>
<!--
.form        { font-family: Verdana; font-size: 8pt; color: #000000; background-color: #D2D2D2 }
A {
    COLOR: black; TEXT-DECORATION: none
}
-->
</style>
</head>


<body>
<%
if Session("Radmin") <> true then
%>
<div align="center">
  <center>
  <form method="POST" action="rlogin.asp"> <table border="1" width="387" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF">
    <tr>
      <td width="185"><font size="1" face="Verdana"><b>Kullanıcı Adı:</b></font></td>
      <td width="192">
       
         <font size="1" face="Verdana"><b>
       
         <input type="text" name="kad" size="20" class="form">&nbsp;</b></font></td>
    </tr>
    <tr>
      <td width="185"><font size="1" face="Verdana"><b>Şifre:</b></font></td>
      <td width="192"><font size="1" face="Verdana"><b><input type="text" name="sifre" size="20" class="form"></b></font></td>
    </tr>
    <tr>
      <td width="381" colspan="2">
        <p align="center"><font size="1" face="Verdana"><b><input type="submit" value="Giriş Yap" name="B1" class="form"></b></font></p>
      </td>
    </tr>
  </table>    </form>
  </center>
</div>


<p align="center"><font size="1" face="Verdana">Verdiğiniz reklamı kontrol
edebilmek yukarıdaki menüyü kullanarak giriş yapınız.</font></p>
<% 
elseif Session("Radmin") = true and Len(Session("rno")) > 0 then 




Set Rekl = Server.CreateObjecT("Adodb.Recordset")
    reSQl = "Select * from Reklam where rno = "& Session("rno")
    Rekl.Open reSQL, REklam_C, 1, 3












%>


<div align="center">
  <center>
  <table border="1" width="600" bordercolorlight="#800000" cellspacing="0" bordercolordark="#FFFFFF">
    <tr>
      <td width="100%">
        <p align="center"><font size="1" face="Verdana" color="#FF0000"><b>sistem
        mesajı </b>: banner istatistikleri</font></td>
    </tr>
    <tr>
      <td width="100%" colspan="2">
      <font size="1" face="verdana">
      Başlama Tarihi: <b><%=Rekl("Eklenme_Tarih")%></b><br>
      Şu ana kadar görüntülenme: <b><%=Rekl("Gorunme")%></b><br>
      Şu ana kadar tıklanma: <b><%=Rekl("Tiklanma")%></b></br>
      Kalan görüntülenme: <b><%=Rekl("K_CPM")%></b><br><hr size="1" noshade>
        <table border="0" width="100%" cellspacing="0">
        <tr width="50%"><td>
        <table border="0" width="100%" cellspacing="0">
<%
gosterim = Request.QueryString("gstrm")
if gosterim = "saat" or gosterim = "" then
    rSQl = "Select * from saat where rno = "& Session("rno") &" order by saat asc"
    tSQl = "Select Sum(tiklanma) as ttiklanma from saat where rno = "& Session("rno")
elseif gosterim = "gunluk" then
    rSQl = "Select * from gunluk where rno = "& Session("rno") &" order by tarih asc"
    tSQl = "Select Sum(tiklanma) as ttiklanma from gunluk where rno = "& Session("rno")
end if


Set Tpl = Server.CreateObjecT("Adodb.Recordset")
    Tpl.Open tSQL, REklam_C, 1, 3


Set Rkl = Server.CreateObjecT("Adodb.Recordset")
    Rkl.Open rSQL, REklam_C, 1, 3


    if not Rkl.Eof then
    %><tr>
          <td><font size="1"><b>Tıklanma</b></font></td>
          </tr><%
do while not Rkl.Eof 


yuzde = Int((100 * rkl("tiklanma"))/ tpl("ttiklanma"))
%>
          
          <tr>
            <% if gosterim = "saat" or gosterim = ""  then %>
                <td width="33%"><font face="Verdana" size="1"><%=rkl("saat")%>:00 - <%=rkl("saat")+1%>:00</font> </td>
            <% elseif gosterim = "gunluk" then  %>
                <td width="33%"><font face="Verdana" size="1"><%=Day(rkl("tarih"))%> - <%=Day(DateAdd("d",rkl("tarih"),1))%> <font color="silver">(<%=Month(rkl("tarih"))%>)</font></font> </td>
            <% end if %>
            <td width="33%"><img border="0" src="http://www.pcnet.com.tr/forum/resimler/bar01.gif" width="<%=yuzde%>" height="11"></td>
            <td width="34%"><font size="1" face="Verdana">%<%=yuzde%> (<%=rkl("tiklanma")%>)</font></td></tr>
<%
rkl.movenext
loop
'end if 
end if


rkl.close
set rkl = nothing


tpl.close
set tpl = nothing
%>
        </table>
        </td><td>
<table border="0" width="100%" cellspacing="0">
<%
gosterim = Request.QueryString("gstrm")
if gosterim = "saat" or gosterim = "" then
    rSQl = "Select * from saat where rno = "& Session("rno") &" order by saat asc"
    tSQl = "Select Sum(gosterim) as tgosterim from saat where rno = "& Session("rno")
elseif gosterim = "gunluk" then
    rSQl = "Select * from gunluk where rno = "& Session("rno") &" order by tarih asc"
    tSQl = "Select Sum(gosterim) as tgosterim from gunluk where rno = "& Session("rno")
end if


Set Tpl = Server.CreateObjecT("Adodb.Recordset")
    Tpl.Open tSQL, REklam_C, 1, 3


Set Rkl = Server.CreateObjecT("Adodb.Recordset")
    Rkl.Open rSQL, REklam_C, 1, 3


    if not Rkl.Eof then
    %><tr>
          <td><font size="1"><b>Gösterim</b></font></td>
          </tr><%
do while not Rkl.Eof 


yuzde = Int((100 * rkl("gosterim"))/ tpl("tgosterim"))
%>


          <tr>
            <% if gosterim = "saat" or gosterim = ""  then %>
                <td width="33%"><font face="Verdana" size="1"><%=rkl("saat")%>:00 - <%=rkl("saat")+1%>:00</font> </td>
            <% elseif gosterim = "gunluk" then  %>
                <td width="33%"><font face="Verdana" size="1"><%=Day(rkl("tarih"))%> - <%=Day(DateAdd("d",rkl("tarih"),1))%> <font color="silver">(<%=Month(rkl("tarih"))%>)</font></font> </td>
            <% end if %>
            <td width="33%"><img border="0" src="http://www.pcnet.com.tr/forum/resimler/bar01.gif" width="<%=yuzde%>" height="11"></td>
            <td width="34%"><font size="1" face="Verdana">%<%=yuzde%> (<%=rkl("gosterim")%>)</font></td></tr>
<%
rkl.movenext
loop
%></td></tr></table>


      </td>
    </tr><tr>
            <% if gosterim = "gunluk" then %>
                <td colspan="4"><center><font size="1" face="verdana"><a hreF="istatistik.asp?gstrm=saat">Saate Göre Oranlar</a></font></td>
            <% elseif gosterim = "saat" or gosterim = ""  then %>
                <td colspan="4"><center><font size="1" face="verdana"><a hreF="istatistik.asp?gstrm=gunluk">Tarihe Göre Oranlar</a></font></td>
            <% end if %>
          </tr>
  </table>
  </center>
</div>
<% 
end if
end if %>
</body>


</html>

    Satır 103 kod bloğu
    Kod:
    <%
do while not Rkl.Eof 


(103)yuzde = Int((100 * rkl("tiklanma"))/ tpl("ttiklanma"))
%>
    (103) yazan yer kodda normalde yok. O 103. Satır.

    Kullandığım script MaxiASP nin kodladığı bir Reklam Scripti.

    (http://www.aspindir.com/Goster/2785)

    Şimdiden Teşekkürler. Eğer gereken başka bir veri varsa yardımcı olmaya çalışırım.
    En son altayevrim tarafından düzenlenmiştir: 08.08.2011 20:59 Sebep: code hatası yapmışım dalgınlık işte
    Alıntıyla Yanıtla Alıntıyla Yanıtla

 
« Önceki Başlık | Sonraki Başlık »

Benzer Başlıklar

  1. asp hata ??(Microsoft VBScript derleme hatası (0x800A0401))
    Gen76 tarafından ASP ve ASP.NET forumunda
    Yanıt: 0
    Son Mesaj: 03.02.2011, 18:19
  2. Microsoft OLE DB Provider for ODBC Drivers error '80004005' hatası acil yardım
    lpdeniz tarafından ASP ve ASP.NET forumunda
    Yanıt: 9
    Son Mesaj: 12.12.2010, 16:35
  3. bilgisayarım cotentwath error hatası veriyor lütfen bilgili arkadaşlar yardım edin
    dejavu_h tarafından İnternet, Ağ ve Güvenlik forumunda
    Yanıt: 1
    Son Mesaj: 18.10.2008, 11:54
  4. Microsoft VBScript derleme hatası (0x800A0411)
    serdarunal tarafından ASP ve ASP.NET forumunda
    Yanıt: 1
    Son Mesaj: 12.07.2008, 18:37
  5. Microsoft VBScript runtime error '800a0035'
    gogomann tarafından Web Geliştirme forumunda
    Yanıt: 3
    Son Mesaj: 03.03.2008, 13:23
Tüm saatler GMT +2 saat dilimindedir. Şu anda saat 09:59.
vBulletin® 4.1.7 ile güçlendirilmiştir. Yazılım © 2012 vBulletin Solutions, Inc. Her hakkı saklıdır.
© Doğan Burda Dergi Yayıncılık ve Pazarlama A.Ş., Hürriyet Medya Towers, Güneşli - İstanbul | vBulletin tasarımı: CompleteVB | Hosting sponsoru: Turkishost | SEO by vBSEO