% Set Rs=Server.CreateObject("Adodb.Recordset") Rs.Open"Select * from hornner_en",cn,1,2 'response.end if not rs.eof then contents=rs("contents") end if %>