%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% News_Cat = request.QueryString("News_Cat") if News_Cat = "" or isempty(News_Cat) then News_Cat = 1 end if Sub News(News_Language) News_Count = 10 Strsql_News = "select Top " & News_Count Strsql_News = Strsql_News & " News_Subject, News_Id, News_Date, News_IsNew, News_Content from News " Strsql_News = Strsql_News & " where News_Language = " & News_Language & " and News_IsNew = 0" Strsql_News = Strsql_News & " ORDER BY News_Id DESC" set rs_News = server.CreateObject("adodb.recordset") rs_News.open Strsql_News,conn,3,3 if rs_News.eof or rs_News.bof then response.Write("
| Nothing !!! |
| " & News_Subject & " | |
| " & News_Subject & " |
|
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
|