%
n_id=request("id")
dim cn ' as ADODB.Connection
const adopenststic = 3
set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = GetDSNString
set rs = Server.CreateObject("ADODB.Recordset")
cn.open
sql="select * from news where n_id=" & n_id
rs.open sql,cn,1,3
if not rs.eof then
%>