<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% vocno=3 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="assessstudy" tablename="assess_user" myurl="assessstudy.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("assessstudy.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:
雅思成绩: 学历:
毕业院校: 毕业时间:
专业: (中学生请填写在读年级,如:“高中二年级”)
工作单位: 工作年限:
资金来源: 家庭年收入:$ AUS
银行半年存款:$ AUS (如果没有银行存款请填写“没有”!)
您想攻读的课程: 大学预科 非学历课程 大学本科 硕士 博士
您希望入学时间:
您想攻读的专业:
请详细写明在您办理留学过程中,还有哪些需要说明的情况。
为了更准确为您移民定位,请在填写好评估表后,传真您的最高学历及成绩单复印件至(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 %>
 
澳洲投资移民免费在线评估
澳洲技术移民免费在线评估
澳洲留学免费在线评估