" مَا يَلْفِظُ مِن قَوْلٍ
إِلا لَدَيْهِ رَقِيبٌ عَتِيد ٌ" صدق الله العظيم
لن ينشر أي تعليق يمس بالأخلاق العامة.
<%
set con= Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("zowar.mdb") & ";Persist Security Info=False"
con.Open constr
set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "select * from guest where permission=1 order by date desc;",con,3,3
rec= rs.RecordCount
if rec>0 then
i=0
rs.MoveFirst
do while not(rs.EOF)
i=i+1
%>
التاريخ
<% Response.Write(rs(1))%>
الإسم
<% Response.Write(rs(2))%>
التعليق
<% Response.Write(rs(4))%>
<%
if i>20 then rs.MoveLast
rs.MoveNext
loop
end if
%>