1 sonuçtan 1 - 1 arası sonuçlar
  1. #1

    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 21:59 Sebep: code hatası yapmışım dalgınlık işte

Benzer Başlıklar

  1. Microsoft VBScript derleme hatası (0x800A0411)
    serdarunal tarafından ASP ve ASP.NET forumunda
    Yanıt: 7
    Son Mesaj: 17.04.2014, 20:47
  2. asp hata ??(Microsoft VBScript derleme hatası (0x800A0401))
    Gen76 tarafından ASP ve ASP.NET forumunda
    Yanıt: 0
    Son Mesaj: 03.02.2011, 20:19
  3. Yanıt: 9
    Son Mesaj: 12.12.2010, 18:35
  4. 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, 12:54
  5. Microsoft VBScript runtime error '800a0035'
    gogomann tarafından Web Geliştirme forumunda
    Yanıt: 3
    Son Mesaj: 03.03.2008, 15:23

Gönderim İzinleri

  • Yeni başlık açamazsınız
  • Yanıt yazamazsınız
  • Eklenti gönderemezsiniz
  • Mesajlarınızı düzenleyemezsiniz
  •