<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("Customer_ConnectionTimeout")
DataConn.CommandTimeout = Session("Customer_CommandTimeout")
DataConn.Open Session("Customer_ConnectionString"), Session("Customer_RuntimeUserName"), Session("Customer_RuntimePassword")
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open "SELECT top 8 * FROM xinsheng WHERE (TJ = 1) ORDER BY TJTime DESC",DataConn,1,1
%>