خريطة الموقع إتصل بنا فرص وظيفية أخبارنا معرض الصور المنتجات نبذة

 

أخبارنا

<% Set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db/news.mdb") set rs = Server.CreateObject("ADODB.recordset") conn.Open DSNtemp amount = request.querystring("Amount") if amount <> "" then SQLstmt = "SELECT Top " & amount & " Topic,DateofPost,Author,Email,Content FROM news where ALang =True ORDER BY DateofPost DESC" else SQLstmt = "SELECT Topic,DateofPost,Author,Email,Content FROM news where ALang =True ORDER BY DateofPost DESC" end if Set rs = conn.Execute(SQLstmt) %> <% DO WHILE NOT rs.EOF Topic = rs("Topic") DateofPost = rs("DateofPost") Author = rs("Author") Email = rs("Email") Content = rs("Content") %>
<%=Topic%> التاريخ: <%=DateofPost%>
<%=Content%>   
تم إضافة الخبر بواسطة: <%=Author%>

<% rs.MoveNext LOOP if amount <> "" then %>

الاخبار

<% end if RS.Close conn.Close Set conn = nothing Set SQLstmt = nothing %>

أضف خبر  -  للمشرف فقط
 
 

جميع حقوق الطبع و النشر محفوظة ©  لشركة البلاستيك المتحدة 2004