<%@ Language=VBScript %>
<%
dim OBJConn,OBJRs
Set OBJConn = Server.CreateObject("ADODB.CONNECTION")
OBJConn.Open "WatchNet",sqluser,sqlpwd
set OBJRs = Server.CreateObject("ADODB.RECORDSET")
sql = "select * from e_news where kind=4 order by inputdate desc"
OBJRs.open sql,OBJConn,1,2
%>
China Import & Export Watch & Gifts Trade Fair
