Ldd minilab supplier from China

<%@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("") response.Write("") response.Write("") response.Write("


Nothing !!!

") else response.Write("") do while not rs_News.eof News_Subject = rs_News("News_Subject") News_Id = rs_News("News_Id") News_Date = rs_News("News_Date") News_IsNew = rs_News("News_IsNew") response.Write("") 'response.Write("") rs_News.movenext loop response.Write("