<% function changechr(str) changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ") end function %> <% set rs=server.CreateObject("adodb.recordset") sql="select * from info_me" rs.open sql,conn,1,1 on error resume next %>