<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") if Request.ServerVariables("REQUEST_METHOD")="POST" then classcode=Request.Form("classcode") keyword=Request.Form("keyword") else classcode=Request.QueryString("classcode") keyword=Request.QueryString("keyword") end if if classcode="000" then classcode="" if keyword="请输入关键字" then keyword="" set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="assess" myurl="assess.asp?temp=1" %>

<% 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 %>

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

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

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

您所在的位置：首页 > 免费评估 尊敬的客户朋友：感谢你使用ABC环球集团为您提供的评估系统。为了更好的给您提供准确的移民或留学评估，请您在详细填写评估表中的各项，并保证您电话号码及电子邮箱的准确性。如果您希望获得更多的信息，欢迎拨打我们的电话：<% sql="select * from sys_dept order by flag desc,sortnum" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=6%> Fax:<%=trim(rs("fax"))%> Email:<%=trim(rs("email"))%> 详情..."><%=trim(rs("shortname"))%><%=trim(rs("phone"))%>。 <% i=i+1 rs.MoveNext loop rs.Close %>。。 —————————————————————————————————————————————————— 澳大利亚商业移民免费在线评估 澳洲商业移民政策以其无可比拟的优越性吸引着世界各国的优秀商业人才：资金要求低，无需英文，子女享受免费教育，社会福利优厚。。。您对这些优惠政策动心吗？快来填写以下这份评估表，让您的商业移民从即刻开始！ —————————————————————————————————————————————————— 澳大利亚技术移民免费在线评估 建议您在评估前先读“技术移民评分规则详解”，注意填写有利于你加分的项目。我们再帮您详细评估确认，分数不够我们帮您想办法看是否有补救方式。我们的目标就是帮助您成功地踏上澳大利亚国土。有些案例我们会放在论坛上讨论解答。 —————————————————————————————————————————————————— 澳大利亚留学签证免费在线评估 您曾经梦想留学澳洲却为选择合适的专业和学校而苦恼过吗？ 您憧憬这里的碧海蓝天却为繁琐的文件准备而无所适从吗？建议您先阅读“留学澳大利亚步骤”吧，然后填写这份评估表，我们就会协助您轻松获得留学签证，开始您的自在澳洲游！		<%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 %>