<% set rs = server.CreateObject("ADODB.Recordset") strsql = "select p_cont from p_cont where p_id in (6,7,8,9)" rs.Open strsql, con %>

<% Response.write(rs.Fields("p_cont")) rs.MoveNext() %>

<% pcont1 = rs.Fields("p_cont") pcont1 = replace(pcont1,">",">") pcont1 = replace(pcont1,"<","<") Response.write(pcont1) rs.MoveNext() %>   <% pcont1 = rs.Fields("p_cont") pcont1 = replace(pcont1,">",">") pcont1 = replace(pcont1,"<","<") Response.write(pcont1) rs.MoveNext() %>   <% pcont1 = rs.Fields("p_cont") pcont1 = replace(pcont1,">",">") pcont1 = replace(pcont1,"<","<") Response.write(pcont1) rs.Close() con.close() set rs = nothing set con = nothing %>