<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% vocno=2 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="assessskill" tablename="assess_user" myurl="assessskill.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") website=Request.Form("website") 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("website")=website 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("assessskill.asp?flag=2") end if end if %> 澳洲技术移民在线评估_澳大利亚ABC环球集团
<% 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><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
澳大利亚商业移民在线免费评估 澳大利亚技术移民在线免费评估 澳大利亚留学签证在线免费评估
 您所在的位置:首页 > 免费评估 > 技术移民评估

技术移民评估表  
在评估前建议先读“技术移民评分规则详解”,注意填写有利于你加分的项目。我们再帮您详细评估确认,分数不够我们帮您想办法看是否有补救方式。我们的目标就是帮助您成功地踏上澳大利亚国土。
·该表中每项都必须填写,只有您提供真实准确的资讯,ABC才能够为您提供准确的技术移民评估;
·请保证您电话号码的准确性,这将是我们同您联系的主要途径;
·如果您希望获得更多信息,欢迎拨打我们的电话61-2-92801155。
——————————————————————————————————————————————————
<%if flag="2" then%>
您的资料已被系统接受,ABC工作人员会尽快联系您并提供给您可行的方案!
<%end if%>
姓名: 出生日期:
性别: 婚姻状况:
电话: 手机: 传真:
通讯地址:
邮政编码: Email:
雅思成绩: 学历:
毕业院校: 毕业时间:
专业:
工作单位: 工作年限:
担任职位:是否在澳洲有过学历?
工作经历是否与本专业相关:
工作经历:(主要职责范围)
有无澳洲亲属担保:
为了更准确为您移民定位,请在填写好评估表后,传真您的最高学历及成绩单复印件至(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 %>
 
澳洲投资移民免费在线评估
澳洲技术移民免费在线评估
澳洲留学免费在线评估