<% call ShowUserLogin() %> <% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select EnBigClassName from BigClass_New order by BigClassID" rslist.open sql,conn,1,3 do while not rslist.eof %> <%rslist.movenext loop rslist.close set rslist=nothing %>       News "><%=rslist("EnBigClassName")%>

<% If IsFlash2="Yes" Then %> <% Else %> <% end If%> News กก <% Set RsNews = Server.CreateObject("ADODB.Recordset") sql="select EnBigClassName from BigClass_New order by BigClassID" RsNews.open sql,conn,1,3 do while not RsNews.eof %>   Home >> <%=RsNews("EnBigClassName")%> กก <% BigClass=RsNews("EnBigClassName") n=6 If BigClass<>"" then sql="select top 6 * from News where EnBigClassName='"& BigClass &"' order by IsTop,IsElite,IsHot,Orderid asc,AddDate desc" set rs=conn.execute(sql) do while not rs.eof %> <% if rs("FirstImageName")<>"" then response.write "" end if %> "><%= RS("EnTITLE") %>กก [<%=FormatDateTime(RS("AddDate"),2)%>] (Click<%= RS("hits") %>) <% n=n-1 if n<1 then exit do rs.movenext loop rs.close set rs=nothing %> <% End If %> ">More>>> <%RsNews.movenext loop RsNews.close set RsNews=nothing %>