Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Microsoft VBScript çalışma hatası hata '800a01a8'

Konu, 'ASP' kısmında jeton tarafından paylaşıldı.

  1. jeton

    jeton Üye

    Kayıt:
    24 Ocak 2008
    Mesajlar:
    112
    Beğenilen Mesajlar:
    0
    merhaba arkadaşlar çok eski bir kod bütünü düzenleme yapmam gerekti kaydet butonuna basınca


    Microsoft VBScript çalışma hatası hata '800a01a8'

    Nesne gerekli: ''

    /yayinekle.asp, satır 24


    hatası alıyorum


    <%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/dbmaster.mdb") & ";Persist Security Info=true"

    Function Cv(ByVal sData)
    sData = Replace(sData,"'","`")
    Cv = sData
    End Function

    Function CleanID(ByVal ID)
    For I = 0 To 47
    ID = Replace(ID,Chr(I),"")
    Next
    For I = 58 To 255
    ID = Replace(ID,Chr(I),"")
    Next
    CleanID = ID
    End Function

    Function TarihD(dGelen)
    dGelen = cDate(dGelen)
    if len(Month(dGelen))=1 Then
    ay="0" & Month(dGelen)
    Else
    ay= Month(dGelen)
    End If
    if len(Day(dGelen))=1 Then
    gun="0" & Day(dGelen)
    Else
    gun= Day(dGelen)
    End If
    TarihD = gun & "." & ay & "." & Year(dGelen)
    End Function

    %>





    <%
    islem = Request.QueryString("islem")
    Select Case islem
    Case "ekle"
    Baslik = Cv(Request.Form("Baslik"))
    resim2 = Cv(upload.Form("resim2")) <---------------- 24 . satır burası----------
    resim3 = Cv(upload.Form("resim3"))

    DD_SQL = Empty
    DD_SQL = DD_SQL & " INSERT INTO yayinlar"
    DD_SQL = DD_SQL & " (Baslik,resim2,resim3)"
    DD_SQL = DD_SQL & " VALUES('" & Baslik & "','" & resim2 & "','" & resim3 & "')"

    Conn.Execute(DD_SQL)
    Response.Redirect "yayinlarlistesi.asp"
    %>
    <%
    Set Upload = Server.CreateObject("Persits.Upload")
    Path = Server.Mappath("../yuklemeler/resimler")
    %>
    <%Case Else%>

    <tr>
    <td width="678" >
    <table width="713" border="0" cellspacing="1" cellpadding="1">
    <form action="yayinekle.asp?islem=ekle" ENCTYPE="multipart/form-data" method="post" name="form1">
    <tr>
    <td align="right" ><input type="text" name="Baslik" size="50" placeholder="Yayın Adı"></td>
    </tr>
    <tr>

    <tr>
    <td align="right"><INPUT TYPE="FILE" SIZE="40" NAME="resim2"> </a></td>
    </tr>

    <tr>
    <td align="right"><INPUT TYPE="FILE" SIZE="40" NAME="resim3"> </a></td>
    </tr>
    <tr>
    <td align="right">

    <div align="center">
    <button type="submit" class="button medium red"><span> E K L E </span></button>
    <!-- buton modeli -->

    </td>
    </tr>
    </form>
    </table>
    </td></tr>
    <%End Select%>






    24. satırı belirttim
    fikri olan varsa paylaşırsa sevinirim teşekkürler
     
  2. sedirAğacı

    sedirAğacı Daimi Üye

    Kayıt:
    2 Mart 2016
    Mesajlar:
    899
    Beğenilen Mesajlar:
    237
    Meslek:
    Bilgisayar programcısı.
    Şehir:
    Aydın
    HTML kod sayfalarda, açtığın her tag'ın bir kapaması olması gerekiyor.
    Mesela <div> diye bir alan elementi açtığımızda, </div> şeklinde kapamalıyız. kapamazsak, yada kapama kodu var açma kodu yoksa, bir sürü yerde hata alırız.
    Yukardaki kod dada, link elementlerinin kapama kodları var açma kodları yok.

    Link elementi <a href="url">link metni</a>
    şeklindedir.
    Yukarda 2 tane </a> var ama açma kısımlarını göremedim.

    Tabi kodun bütününü anlayıp ona göre tam yanıt vermek daha iyi ancak naçizane tavsiyem, asp kodu değil, asp.net kodundan devam edin. Çok daha fazla kaynak ve yardım bulabilirsiniz.