<% @Language=VBScript @CodePage=1256 %> <% Response.Buffer=false Response.CacheControl="no-cache" %> الصفحة الرئيسية <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("DBPath")) Set ArticleRS=Conn.execute("SELECT Article.ArticleID,Article.Title,Article.Brief,HPArticle.OrderNo FROM HPArticle INNER JOIN Article ON HPArticle.Article = Article.ArticleID ORDER BY HPArticle.OrderNo;") %>
<% do while not ArticleRS.eof %>

<%=ArticleRS("Title")%>

<%=ArticleRS("Brief")%>

">المزيد....
<% ArticleRS.MoveNext Loop %>
البحث ضمن المقالات والدراسات:

 

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