<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim company_address dim company_details dim demo_account %> <% ssql = "select * from tbl_company" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(trim(rs("company_address"))) > 0 then company_address = replace(rs("company_address"),"
",vbcrlf, 1, -1, 1) end if if len(trim(rs("company_details"))) > 0 then company_details = replace(rs("company_details"),"
",vbcrlf, 1, -1, 1) end if 'demo_account = mid(ucase(rs("company_username")),1,4) demo_account = ucase(rs("company_username")) select case demo_account case "DEMO" demo_account = true case "SINOCOMDEMO" demo_account = true case else demo_account = false end select %>

WEBMASTER INFO
COMPANY NAME :	">
REGISTER NUMBER :
ADDRESS :	<% = company_address %>
PHONE :
FAX :
EMAIL :
USERNAME :	<% = ucase(rs("company_username")) %>
PASSWORD :	<% if demo_account = true then %> ********** <% else %> <% end if %>
CURRENCY FORMAT :
HISTORY :	<% = company_details %>
LOGO :	<% if len(rs("company_logo")) > 0 then %> <% = rs("company_logo") %>    ( DELETE LOGO ) <% end if %>
UPLOAD NEW LOGO :
IMAGE :	<% if len(rs("company_image")) > 0 then %> <% = rs("company_image") %>    ( DELETE IMAGE ) <% end if %>
UPLOAD NEW IMAGE :

<% rs.Close conn.Close set rs = nothing set conn = nothing else Response.Redirect "../../index.asp" end if %>