<%@ Language=VBScript CodePage = "1256"%>

<%

Name_Cooky=Request.cookies("Name")
If Name_Cooky="" Then

response.redirect ("admin.asp")

End If

%>

<html dir=rtl>

<!--#include file="connection.txt" -->

<%

function updatef()

updateSQL= " update general_news set subject = '"&subject&"' , body = '"&body&"' where id="&id
ADO.execute(updateSQL)
%><p><font face="Simplified Arabic" size="3">شكرا لك.. لقد تم تحديث الموضوع بنجاح</font></p><%

end function

id=request.querystring("id")
subject=request.form("subject")
body=request.form("body")

 جلب البيانات المتعلقة بالخبر من قاعدة البيانات'
selectSQL="select * from general_news where id="&id
set rs=ADO.execute(selectSQL)

%>

<p align="center"><b><font face="Simplified Arabic" color="#C11111" size="7">
تحرير</font></b></p>

<%
if subject = "" then
response.write "اضغط زر تحديث لتثبيت التغييرات"
else
updatef()
end if
%>

<form method="POST" action="news_upd.asp?id=<%=id%>">
<p><font face="Simplified Arabic" size="3">العنوان <textarea rows="1" name="subject" cols="53"><%response.write rs("subject")%></textarea></font></p>
<p><font face="Simplified Arabic" size="3">المحتوى :</font></p>
<p><font face="Simplified Arabic" size="3"><textarea rows="12" name="body" cols="58"><%response.write rs("body")%></textarea></font></p>
<p><<font face="Simplified Arabic" size="3"><input type="submit" value="تحديث" name="start"></font></p>
</form>

<%
ADO.Close
Set ADO=Nothing
%>

</body>

</html>

<font face="Simplified Arabic" size="3">العنوان <textarea rows="1" name="subject" cols="53"><%response.write rs("subject")%></textarea></font>