<% id = request.querystring("id") newsql = "select * from news where id = '" & id & "'" set rs=conn.execute(newsql) %>

 

          <%=rs("title")%>

<%Response.Write(Replace(rs("article"), vbCrLf,"
"))%>