% response.Redirect "newweb/" dim sql set rs=server.CreateObject("adodb.recordset") sql="select * from news where ver='cn' order by id desc" rs.open sql,conn,1,1 %>