<%
dim qq,webname,webemail,address,postcode,tel,copyright,weblogo,paymethord,weburl,notify,bgclr4,webimg6,webimg7,webimg8,webimg9,webimg10,webimg11,webimg12,webimg13,webimg14,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webbj9,icp
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,webemail,address,postcode,tel,qq,copyright,notify,weblogo,weburl,paymethord,bgclr4,webimg6,webimg7,webimg8,webimg9,webimg10,webimg11,webimg12,webimg13,webimg14,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webbj9,icp,RightFlag from b2b_systemdata",conn,1,1
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
address=trim(rs("address"))
postcode=trim(rs("postcode"))
copyright=trim(rs("copyright"))
tel=trim(rs("tel"))
qq=trim(rs("qq"))
weblogo=trim(rs("weblogo"))
paymethord=trim(rs("paymethord"))
weburl=trim(rs("weburl"))
notify=trim(rs("notify"))
bgclr4=trim(rs("bgclr4"))
webimg6=trim(rs("webimg6"))
webimg7=trim(rs("webimg7"))
webimg8=trim(rs("webimg8"))
webimg9=trim(rs("webimg9"))
webimg10=trim(rs("webimg10"))
webimg11=trim(rs("webimg11"))
webimg12=trim(rs("webimg12"))
webimg13=trim(rs("webimg13"))
webimg14=trim(rs("webimg14"))
webbj3=trim(rs("webbj3"))
webbj4=trim(rs("webbj4"))
webbj5=CLng(trim(rs("webbj5")))
webbj6=trim(rs("webbj6"))
webbj7=trim(rs("webbj7"))
webbj8=trim(rs("webbj8"))
webbj9=trim(rs("webbj9"))
icp=trim(rs("ICP"))
RightFlag=Trim(rs("RightFlag"))
rs.Close
set rs=nothing
%>