<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("t")<>"" then lb=request("t") end if %> <% strSQL = "SELECT TOP 1 us1 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs1 = "" Else AboutUs1 = rs("us1") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us2 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs2 = "" Else AboutUs2 = rs("us2") End If Call rsClose() %> <% strSQL = "SELECT TOP 1 us6 FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs6 = "" Else AboutUs6 = rs("us6") End If Call rsClose() %> <% If UserPost() Then uid = Trim(Request.Form("uid")) O_Num = Trim(Request.Form("Num")) O_Name = Trim(Request.Form("name")) O_Email = Trim(Request.Form("email")) O_Sex = Trim(Request.Form("sex")) O_Address = Trim(Request.Form("address")) O_City = Trim(Request.Form("city")) O_Tel = Trim(Request.Form("tel")) If O_Num = "" and O_Email = "" Then Call ConnClose() response.Write "" response.end End If strSQL = "Insert Into appl(uid,O_Num,O_Name,O_Email,O_Sex,O_Address,O_City,O_Tel) values" strSQL = strSQL & "('" & uid & "','" & O_Num & "','" & O_Name & "','" & O_Email & "','" & O_Sex & "','" & O_Address & "','" & O_City & "','" & Tel & "')" Conn.Execute(strSQL) Call ConnClose() response.Write "" Response.End() End If %> <% dim PName id = Trim(Request.QueryString("id")) If isNumeric(id) = False Then Response.Redirect("index.asp") Response.End() End If strSQL = "SELECT TOP 1 * FROM IMM WHERE [ID] = " & id SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then Response.Redirect("index.asp") Response.End() Else Title = rs("P_NAME") P_pic = rs("P_PIC") P_ovw = rs("P_OVW") P_cdt = rs("P_CDT") P_prc = rs("P_PRC") P_ivm = rs("P_IVM") P_adv = rs("P_ADV") PName = rs("C_NAME") End If Call rsClose() strSQL = "UPDATE IMM SET P_COUNT = P_COUNT + 1 WHERE [ID] = " & id Conn.Execute(strSQL) %> 移民项目-亚美加
首页 > 移民项目 > <% = PName %> > <%= Title %>
  • <%= P_ovw %>
    <%= P_adv %>
    <%= P_cdt %>
    <%= P_ivm %>
    <%= P_prc %>
    <% If (Session("uid")) = "" Then uid = 0 Else uid = Session("uid") End If On Error Resume Next strSQL = "SELECT TOP 1 * FROM appl WHERE [ID] = " & uid SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then a = rs("O_Name") b = rs("O_Tel") c = rs("O_Email") d = rs("O_Address") e = rs("O_City") f = rs("O_Sex") End If %>
    我要申请移民
    姓名: 电话: 所在城市:
    性别: 邮箱: 意向国家:
  • 移民项目
    • 加拿大移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='加拿大移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 英国移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='英国移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 美国移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='美国移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 香港定居

      <% strSQL = "SELECT * FROM IMM where C_NAME='香港定居' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 新加坡移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='新加坡移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 澳洲移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='澳洲移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 菲律宾移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='菲律宾移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 葡萄牙移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='葡萄牙移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 塞浦路斯移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='塞浦路斯' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    • 圣基茨和尼维斯移民

      <% strSQL = "SELECT * FROM IMM where C_NAME='圣基茨和尼维斯移民' ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %> "><%= rs("P_NAME") %> <% rs.MoveNext Loop End If Call rsClose() %>
    +
    我们的优势 >>详细
    <%strSQL = "SELECT * FROM adva ORDER BY id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %>
  • <% =rs("list") %>
  • <% rs.MoveNext Loop End If Call rsClose() %>
    成功案例 >>更多
    <% strSQL = "SELECT top 8 * FROM Case_list where News_name='" +PName + "' order by id desc" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %>
  • "><% = left(rs("News_Title"),16) %>
  • <% rs.MoveNext Loop End If Call rsClose() %>
    专家答疑 >>更多
    <% strSQL = "SELECT top 8 * FROM qa_list where News_name='" +PName + "' order by id desc" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %>
  • "><% = left(rs("News_Title"),16) %>
  • <% rs.MoveNext Loop End If Call rsClose() %>
    友情链接 更多>>
    <% strSQL = "SELECT * FROM LINK_LIST where P_TYPE=1 order by id" SET rs = Conn.Execute(strSQL) If Not (rs.BOF AND rs.EOF) Then Do While Not rs.EOF %>
  • " target="_blank" title="<%=rs("P_Name")%>">" alt="<%=rs("P_Name")%>" />
  • <% rs.MoveNext Loop End If Call rsClose() %>
    移民项目 | 加拿大移民 / 英国移民 / 美国移民 / 香港定居 / 澳洲移民 / 新加坡移民 / 菲律宾移民 | 移民动态 | 海外生活 | 安家服务 | 云南分公司
    关于我们 | 联系我们 | 在线评估 | 人才招聘
    深圳市亚美加因私出入境服务有限公司 版权所有 Copyright © 1996-2014 amega.ca All rights reserved.
    地址:深圳市罗湖区南湖路3009号国贸商厦19A 518001
    电话: 86(0755) 82233844 传真:86(0755) 82222544
    粤ICP备12091534号