<% id=session("id") sql="select corporation.*,class_1.sort from corporation,class_1 where id="&id&" and class_1.sortid=corporation.sortid" Set rs= conn.execute(sql) if rs.eof then sql2="select corporation.* from corporation,class_1 where id=" & id Set rs2= conn.execute(sql) if rs2.eof then response.Redirect("../index.asp") response.end end if rs2.close set rs2=nothing else zycp=rs("zycp") pharry=split(rs("phone")," ") faarry=split(rs("fax")," ") %>

商务助手首页

发布商业信息

查看商业往来

我的会员资料

我的自助网站

帮助

为提高发布效率，获得更多贸易机会，请用汉字如实填写以下表格。（打*为必填项）

姓名和联系方式

真实姓名：

* " name="name"> value="先生" name="ch"> 先生 value="女士" name="ch"> 女士
姓名必须是1-10个字

电子邮箱：

* " name="email">
这是客户与您联系的首选方式，请填最常用的。

公司电话：

国家区号：	城市区号：	号码：

传真：

<%select case ubound(faarry) case 0 response.write"" case 1 response.write"" case 2 response.write"" end select%>

国家区号：	城市区号：	号码：

手机：

" name="mobile">

邮政编码：

" name="post">

所在地区：

街道地址：

*	" name="address">
	请补充县（区）、街道、门牌号

公司名称和主营业务

公司名称：	* " name="qymc"> 请提供在工商管理局注册的公司全称
我的职位：	* " name="zw">
主营产品/服务：	* <% if zycp<>"" then if instr(zycp,",")>0 then zcarry=split(rs("zycp"),",") if ubound(zcarry)=1 then response.write", , " elseif ubound(zcarry)=2 then response.write", , " elseif ubound(zcarry)>2 then response.write", , " end if else response.write", , " end if else response.write", , " end if%> 3个主要相关产品名/服务名，最少要填一个
主营行业：	* <%sqlc="select * from class_1 where sortid<>"&rs("sortid")&"" set rsc=conn.execute(sqlc) if rsc.eof then response.write"暂无主营行业" else response.write"" end if%>
网页地址：	" name="web"> 如果没有，可以不填

value="<%=rs("isournotify")%>" name="isournotify"> 我愿意收到<%=webname%>新产品/服务的通知信
value="<%=rs("isothernotify")%>" name="isothernotify"> 我愿意收到我感兴趣的其他公司新产品/服务的通知信

<% end if rs.close set rs=nothing rsc.close set rsc=nothing conn.close set conn=nothing %>