<%
	set rs=createobject("adodb.recordset")
	sql="select * from company where uname='"&Request.Cookies("admin_company_name")&"'"
	rs.open sql,Conn
	if not rs.eof then
	companyphone=rs("phone")
	open=rs("open")
	changepay=rs("changepay")
	mmoney=rs("mmoney")
	if mmoney<1 then mmoney="0"&mmoney
	end if
	rs.close
	set rs=nothing
%>