% Dim Rs,strContent strContent = "" Set Rs = Conn.Execute("Select * From ArticleSort Where ID=24") If Not Rs.EOF Then strContent = Rs("Intro") ClearObj(Rs) %>