|
<%@ Language=VBScript CodePage =
"1256"%>
<html
dir=rtl>
<!--#include file="pageheader.txt"
-->
<p align="center"><font face="Simplified Arabic">إليكم آخر المستجدات في الساحة التقنية</font></p>
<!--#include file="connection.txt" -->
<%
'أوامر
اختيار الجدول واستدعاء البيانات منه
selectSQL="select * from tech_news"
set
rs=ADO.execute(selectSQL)
'أوامر
استعراض البيانات
do while
not rs.eof
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="90%">
<tr>
<td width="100%" dir="rtl"
bgcolor="#DFDFFF"><b><span lang="ar-sa">العنوان
: <%response.write
rs(subject)%></span></b></td>
</tr>
<tr>
<td width="100%" dir="rtl"><b><span
lang="ar-sa">التاريخ : <%response.write
rs(add_dat)%></span></b>
<p><b><span lang="ar-sa">الخبر :
<%response.write
rs(body)%></span></b></td>
</tr>
</table>
</center>
</div>
<hr color="#DFDFFF" width="90%">
<%
rs.movenext
loop
ADO.close
%>
<!--#include file="pagefooter.txt"
--> |