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