تسعدنا زيارتكم في موقعنا وسنكون شاكرين لو زودتمونا بملاحظاتكم واقتراحاتكم حول الموقع أو محتوياته من خلال سجل الزوار
<%
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.MoveNext Loop %> |
تسعدنا زيارتكم في موقعنا وسنكون شاكرين لو زودتمونا بملاحظاتكم واقتراحاتكم حول الموقع أو محتوياته من خلال سجل الزوار
|