<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% vocno=1 flag=Request.QueryString("flag") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="assessbusiness" tablename="assess_user" myurl="assessbusiness.asp" if Request.ServerVariables("REQUEST_METHOD")="POST" then bz=0 realname=trim(Request.Form("realname")) address=Request.Form("address") zip=Request.Form("zip") phone=Request.Form("phone") phone2=Request.Form("phone2") phone3=Request.Form("phone3") sex=Request.Form("sex") nd=Request.Form("nd") yf=Request.Form("yf") dd=Request.Form("dd") certcode=Request.Form("certcode") email=Request.Form("email") marry=trim(Request.Form("marry")) english=trim(Request.Form("english")) salary=trim(Request.Form("salary")) workyear=trim(Request.Form("workyear")) terrain=trim(Request.Form("terrain")) degree=trim(Request.Form("degree")) school=trim(Request.Form("school")) specialty=trim(Request.Form("specialty")) wantsalary=trim(Request.Form("wantsalary")) nd1=Request.Form("nd1") yf1=Request.Form("yf1") dd1=Request.Form("dd1") nd2=Request.Form("nd2") yf2=Request.Form("yf2") dd2=Request.Form("dd2") terrain=trim(Request.Form("terrain")) content=trim(Request.Form("content")) remark=trim(Request.Form("remark")) if bz=0 then rs.Open tablename,cn,3,3 rs.AddNew rs("keyno")=syskeyno(tablename,"keyno") rs("creadate")=Now() rs("vocno")=vocno rs("flag")="0" rs("realname")=realname rs("address")=address rs("zip")=zip rs("phone")=phone rs("phone2")=phone2 rs("phone3")=phone3 rs("sex")=sex rs("certcode")=certcode rs("email")=email birthday=nd+"-"+yf+"-"+dd if IsDate(birthday) then rs("birthday")=cdate(birthday) end if rs("marry")=marry rs("english")=english rs("salary")=salary rs("workyear")=workyear rs("degree")=degree rs("school")=school rs("specialty")=specialty rs("wantsalary")=wantsalary gradate=nd1+"-"+yf1+"-"+dd1 if IsDate(gradate) then rs("gradate")=cdate(gradate) end if birthday2=nd2+"-"+yf2+"-"+dd2 if IsDate(birthday2) then rs("birthday2")=cdate(birthday2) end if rs("terrain")=terrain rs("ipaddress")=Request.ServerVariables("Remote_HOST") rs("remark")=remark rs("content")=content rs.Update() rs.Close Response.Redirect("assessbusiness.asp?flag=2") end if end if %>

<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank>"> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>

澳大利亚商业移民在线免费评估

澳大利亚技术移民在线免费评估

澳大利亚留学签证在线免费评估

您所在的位置：首页 > 免费评估 > 投资移民评估 投资移民评估表   在评估前建议先读“澳大利亚/澳州商业移民要求精选”！澳洲商业移民政策以其无可比拟的优越性吸引着世界各国的优秀商业人才：资金要求低、无需英文、子女享受12年制优惠教育、社会福利优厚..您对这些优惠政策动心吗？快来填写以下这份评估表，让您的商业移民从即刻开始！ ·该表中每项都必须填写，只有您提供真实准确的资讯，ABC才能够为您提供准确的商业移民评估； ·请保证您电话号码的准确性，这将是我们同您联系的主要途径； ·如果您希望获得更多信息，欢迎拨打我们的电话61-2-92801155。 —————————————————————————————————————————————————— <%if flag="2" then%> 您的资料已被系统接受，ABC工作人员会尽快联系您并提供给您可行的方案! <%end if%> 姓名： * 证件号码： 出生日期：年 月 日 * 性别：男 女 电话： * 手机： 传真： 通讯地址： * 邮政编码： Email： * 英语能力：请选择... >流利 >一般 >不会 * 配偶英语能力：请选择... >流利 >一般 >不会 申请人个人或与配偶共同拥有资产（人民币）： * 申请人和配偶在生意中的资产（人民币）： * 配偶出生日期：年 月 * 小孩出生日期：年 月 * 打算投资金额（人民币）： * 请您提供简略的个人从商经历： * 请根据下表填写贵企业近4年的营业状况： * 2005年至2008年 各年度企业年营业额： 为了评估的准确性，请将最近两年的财务报表（资产负债表和盈亏表）传真（61-2 9280 1988）或email（abcmigration@abcsydney.com）到我们公司。 澳洲注册移民代理：0005245 移民代理行为准则		<%end if%> <% sqltext="select top 1 keyno,title from investigate where parentno=0 and flag='1' order by sortnum desc" rs.Open sqltext,cn,1,1 if not rs.EOF then parentno=rs(0) title=trim(rs(1)) else parentno=0 title="目前没有暂设置调查表" end if rs.Close %> <%if parentno=0 then%> 网上调查：<%=title%> <%else%> 网上调查：<%=title%> <% sqltext="select keyno,title from investigate where parentno="&parentno&" order by sortnum " rs.Open sqltext,cn,1,1 i=1 do while not rs.EOF %> <%=trim(rs(1))%> <% i=i+1 rs.MoveNext loop rs.Close %>