خطأ في التعريف ؟؟؟؟؟؟؟؟؟؟

لماذا لا تغيير الإسم ؟

قمت بغيير الاسم ولكن دون فائدة :(

وهذا كود الملف بالكامل

<%
dim s_title, s_img, s_language, s_sendnews
if application("config")="" or isnull(application("config")) then
dim sql,condb,rsdb
sql="select * from tb_script"
set rsdb=opendb("display",sql,admoderead,adlockreadonly,adopenforwardonly)
call closedb()
if rsdb.eof or rsdb.bof then
else
application.lock
application("s_id")=rsdb("s_id")
application("s_title")=rsdb("s_title")
application("s_img")=rsdb("s_img")
application("s_language")=rsdb("s_language")
application("s_sendnews")=rsdb("s_sendnews")
application("s_news")=rsdb("s_news")
application("s_pages")=rsdb("s_pages")
application("config")="yes"
application.unlock
end if
end if
s_id=application("s_id")
s_title=application("s_title")
s_img=application("s_img")
s_language=application("s_language")
s_news=application("s_news")
s_pages=application("s_pages")
s_sendnews=application("s_sendnews")
if application("sendnews")="" or isnull(application("sendnews")) then
sql="select d_id,d_title,d_img from tb_dep"
set rsdb=opendb("display",sql,admoderead,adlockreadonly,adopenforwardonly)
call closedb()
if rsdb.eof or rsdb.bof then
application.lock
application("f_dep")=0
application.unlock
else
application.lock
application("f_dep")=1
application("i")=1
do while not rsdb.eof
application("d_id"&application("i"))=rsdb("d_id")
application("d_title"&application("i"))=rsdb("d_title")
application("d_img"&application("i"))=rsdb("d_img")
application("i")=application("i")+1
rsdb.movenext
loop
application("sendnews")="yes"
application.unlock
end if
end if
if application("news")="" or isnull(application("news")) then
sql="select * from tb_news order by n_id desc"  
set rsdb=opendb("display",sql,admoderead,adlockreadonly,adopenforwardonly)
call closedb()
if rsdb.eof or rsdb.bof then
application.lock
application("f_news")=0
application.unlock
else
dim topic, p_end, x
x=1
application.lock
application("f_news")=1
application("n")=1
do while not rsdb.eof and x<=s_news
topic=rsdb("n_topic")
p_end=instr(1,topic,"

",1)
if p_end > 0 then
p_end=p_end - 1
topic=trim(mid(topic,1,p_end))
end if
d_arr=split(getimg(rsdb("d_id")),"#")
application("n_d_img"&application("n"))=d_arr(0)
application("n_d_title"&application("n"))=d_arr(1)
application("n_d_id"&application("n"))=rsdb("d_id")
application("n_id"&application("n"))=rsdb("n_id")
application("n_title"&application("n"))=rsdb("n_title")
application("n_img"&application("n"))=rsdb("n_img")
application("n_topic"&application("n"))=topic
application("n")=application("n")+1
x=x+1
rsdb.movenext
loop
application("news")="yes"
application.unlock
end if
end if

session.timeout=40
%>

ارجوا المساعدة

:rolleyes:

مازلت انتظر ..................©

أخي الكريم خالد ... لقد مر علي هذا الكود من قبل وهو من تصميم الاخ مبرمج محترف (سوالف) ولأني احتفظ بنسخة منه ، ولكن للاسف الشديد :( وجدت به انا وغيري العديد من الاخطاء .... نصيحتي لك كأخ أن تحاول أن تبدأ بشي بسيط من الصفر وصدقني سيساعدك الجميع

أرجو الا اكون قد احبطت من عزيمتك .... بالتوفيق (f)

هل تقصد انه من المستحيل حلها أو ان البدء في مشروح جديد افضل من الاصلاح .

لم أقصد مستحيل ولكن قد تضيع وقتك في اصلاحها مع انه بامكانك ان تبدأ بمشروع جديد افضل لك واختصارا للوقت .

خذ الفكرة فقط من البرنامج ونفذ .

لم لا يا عزيزي حاول وجميعنا سيتعلم ويشارك بما يستطيع :rolleyes: