1. Ana Sayfa
  2. Soru - Cevap
  3. Microsoft VBScript compilation error '800a03f6'

Microsoft VBScript compilation error '800a03f6'

Son güncelleme: 16.11.2009 02:26
tek_siyah tek_siyah foto
  • Microsoft VBScript compilation error '800a03f6'

    Expected 'End'

    /panel/Sanimasyon.aSp, line 59

    arkadaslar sorun nerde acaba yardımlarınızı beklıyorum tesekkurler





    <!-- #include file="YonAna.aSp" -->
    <%
    Resim = "Aktif"
    If Session("uye_yetki1") <> "" And Session("uye_yetki1") <> 1 Then
    Response.Redirect("yasak.asp?T=7")
    Response.End
    End If
    If Session("uye_yetki1") = 1 Then
    %>
    <% Call UST
    CaLL ORTA
    %>
    <%
    If Request("Action") = "DelData" Then
    If Session("uye_yetki9") <> 1 Then
    Response.Redirect("yasak.asp?T=8")
    Response.End
    End If
    Dim UpdateDelSQL : UpdateDelSQL = "DELETE FROM tbl_sanimasyon WHERE sanim_id = "& Request("ID")
    Dim ObjAnimasyonAl : Set ObjAnimasyonAl = objConn.Execute("SELECT sanimasyon_adi FROM tbl_sanimasyon WHERE sanim_id = "& Request("ID") &"")
    On Error Resume Next

    Dim ObjFileObject : Set ObjFileObject = ObjFso.GetFile(Server.MapPath(StrUploadSanimasyon) & "\" & ObjAnimasyonAl("sanimasyon_adi"))

    ObjFileObject.Delete
    Set ObjFileObject = Nothing
    ObjAnimasyonAl.Close : Set ObjAnimasyonAl = Nothing
    DisplayError()
    ObjConn.Execute(UpdateDelSQL)
    If Err.Number <> 0 Then
    Call DisplayDBRecordError(Err)
    End If

    On Error Goto 0
    Uyari("Animasyon Başarıyla Silindi")
    End If

    %>
    <%
    Resim = "Aktif"
    %>

    <SCRIPT LANGUAGE="JavaScript">
    function sil_onay() {
    return confirm ('Bu Animasyonu Silmek istediğinizden Emin Misiniz ?')
    }
    </script>

    <br>
    <table border="0" cellpadding="0" cellspacing="0" align="center" width="98%">
    <tr>
    <td>
    <table border="0" cellpadding="0" cellspacing="0" width="100%">

    <tr>
    <td width="100%" style="background-position: center; background-repeat: repeat-y;">
    <div align="center" id="error_registration" style="display: block;"></div>
    <br>
    <%If Session("uye_yetki9") = 1 Then%>
    <form action="sanimasyon_ekle.asp" method=post ENCTYPE="multipart/form-data" name=form1 onSubmit="return v.exec()">
    <table width="100%" border="0" cellpadding="3" cellspacing="1" class="text">
    <tr>
    <td align="center" colspan=4> <font color=red>DİKKAT:</font>
    Animasyonlar animoticons/ Klasörüne aktarılıyor. Lütfen
    "animoticons" Klasörüne yazma izni veriniz.
    Animasyonların dosya türü (Jpg,Png,Gif,Jpeg) olmalıdır. <hr size=1 color=red></td>
    </tr>
    <tr>
    <td width="19%"><strong>Yeni Animasyon Ekle</strong></td>
    <td align="center" width="1%"><strong>:</strong></a></td>
    <td width="71%" id="t_attach1"><input type=file name="attach1" size="30" class=text>  <table border="0" width="100%" cellspacing="0" cellpadding="0">

    </table>
    </td><td width="7%"> <input class="button" type="submit" value=" EKLE " ID=Submit2></td></tr></form>

    <tr><td colspan=4>
    <table width="100%" border="0" cellpadding="2" cellspacing="2" class="text">
    <tr>

    <%
    Dim sanimasyon_say : sanimasyon_say = 1
    Dim ObjSanimasyon : Set ObjSanimasyon = ObjConn.Execute ("SELECT * FROM tbl_sanimasyon ORDER BY sanim_id DESC")
    Do While Not ObjSanimasyon.EOF
    %>

    <td bgcolor="#F5F5F5"><table width="80" border="0" cellpadding="0" cellspacing="0" class="text"><tr><td width=70>
    <p align="center">
    <img src="animoticons/<%=ObjSanimasyon("sanimasyon_adi")%>" width=34 height=37 alt="<%=ObjSanimasyon("sanimasyon_adi")%>">
    </td>
    <td width=16><a title="Bu Resmi Sil !" OnClick="return sil_onay()" href="sanimasyon.asp?Action=DelData&ID=<%=ObjSanimasyon("sanim_id")%>"><img src="img/off.gif" border=0>(Sil)</a></td></tr></table></td>
    <%
    If (sanimasyon_say Mod 8)= 0 Then
    Response.Write "</tr><tr>"
    End If
    sanimasyon_say = sanimasyon_say + 1
    ObjSanimasyon.MoveNext
    Loop
    ObjSanimasyon.Close()
    Set ObjSanimasyon = Nothing
    %>
    </table>
    </td>
    </tr>
    <tr bgcolor="DDDDDD">
    <td colspan=4 align=center></td>

    </tr>
    </table>
    <%
    Else
    goremez
    End If
    ObjConn.Close() : Set ObjConn = Nothing
    %>
    </td>
    </tr>
    </table>
    </td>
    </tr>
    </table>
    <!-- /main -->
    </td>
    </tr>
    </tr>
    </table>
    <script>
    // form fields description structure
    var a_fields = {
    'attach1':{'l':'Yeni Animasyon Ekle','r':true,'t':'t_attach1'}


    },

    o_config = {
    'to_disable' : ['Submit', 'Reset'],
    'alert' : 1
    }

    // validator constructor call
    var v = new validator('form1', a_fields, o_config)

    </script>
    <% CaLL ORTA2
    CaLL ALT
    %>
    <%
    Else
    goremez
    End If
    %>
#16.11.2009 02:26 0 0 0