<%
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
%>
