<% dim CnnBill set CnnBill =server.createobject("adodb.connection") CnnBill.open "provider = sqloledb ;user id =sa ;initial catalog = krt" dim rs if request.QueryString("ID") <> "" then set rs = createobject ("adodb.recordset") rs.open "SELECT ID,Title,Word,convert(varchar(40),WordDate,101) as WordDate FROM Word where ID =" & request.QueryString("ID") , CnnBill , 1,1 else set rs = createobject ("adodb.recordset") rs.open "SELECT Top 6 ID,Title,Word,convert(varchar(40),WordDate,101) as WordDate FROM Word Order by ID DESC" , CnnBill , 1,1 end if %> <% if request.QueryString("ID") = "" then %> <%if rs.eof or rs.bof then%> <% Else dim str dim FirstOne strBgColor = "#EDFED8" FirstOne = true While Not rs.EOF if strBgColor = "#EDFED8" then strBgColor = "#D0E7B6" else strBgColor = "#EDFED8" end if str =rs("Title") & " ( " & rs("WordDate") & " )"%> <% rs.movenext() wend end if %>

عفواً. هذه المساحة خالية حالياُ

" style="text-decoration: none"> <%=str %>

<% Else %>

عنوان الكلمة : <%=Rs("Title")%>

<%=rs("Word")%>

<%End if%>