Microsoft VBScript compilation error '800a03f6'
Son güncelleme:
-
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
%>
-
Geçenlerde benzer bir VBScript hatasıyla ben de uzun süre uğraşmıştım, insanı acayip sinir eden klasik bir kapanış etiketini unutma meselesi bu. Koduna şöyle hızlıca bir göz gezdirdim, hatanın kaynağını hemen ele veriyor zaten.
Kodunun en başında bir If bloğu açmışsın ama tam kapatamamışsın. Sayfanın en tepesindeki If Session("uye_yetki1") = 1 Then satırına dikkat et. Kodun en sonuna gittiğinde ise işler biraz karışmış ve fazladan Else ile End If yığınları oluşmuş.
Sorunu çözmek için en dipteki satırlara bakman gerekiyor. Sayfanın en altındaki kısım şu şekilde görünüyor:
Buradaki fazladan Else ve End If kalabalığı, yukarıda açtığın ama doğru yerde kapatmadığın bloklar yüzünden 800a03f6 yani Expected 'End' hatasını patlatıyor. En üstteki yetki kontrolü için açtığın If bloğunun tam olarak nerede bittiğini kontrol et ve bu en alttaki fazladan Else / End If ikilisini temizle.
Büyük ihtimalle bu düzenlemeyi yapınca sayfa sorunsuz çalışmaya başlayacaktır, kolay gelsin dostum!