在线评估-亚美加移民

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("t")<>"" then lb=request("t") end if %> <% strSQL = "SELECT TOP 1 us FROM about_us_info" SET rs = Conn.Execute(strSQL) If rs.BOF AND rs.EOF Then AboutUs = "" Else AboutUs = rs("us") End If Call rsClose() %> <% 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 E_Name = Trim(Request.Form("name")) E_Email = Trim(Request.Form("email")) E_Sex = Trim(Request.Form("sex")) E_Birth = Trim(Request.Form("birth")) E_City = Trim(Request.Form("city")) E_Tel = Trim(Request.Form("tel")) E_marriage = Trim(Request.Form("marriage")) E_qq = Trim(Request.Form("qq")) E_edu = Trim(Request.Form("edu")) E_lang = Trim(Request.Form("lang")) E_workage = Trim(Request.Form("workage")) E_shareholder = Trim(Request.Form("shareholder")) E_manage = Trim(Request.Form("manage")) E_position = Trim(Request.Form("position")) E_assets = Trim(Request.Form("assets")) E_name1 = Trim(Request.Form("name1")) E_age = Trim(Request.Form("age")) E_workage1 = Trim(Request.Form("workage1")) E_lang1 = Trim(Request.Form("lang1")) E_edu1 = Trim(Request.Form("edu1")) E_major = Trim(Request.Form("major")) E_country = Trim(Request.Form("country")) E_reason = Trim(Request.Form("reason")) E_message = Trim(Request.Form("message")) If E_name = "" Then Call ConnClose() response.Write "" response.end End If If E_birth = "" Then Call ConnClose() response.Write "" response.end End If If E_marriage = "请选择" Then Call ConnClose() response.Write "" response.end End If If E_tel = "" Then Call ConnClose() response.Write "" response.end End If If E_edu = "请选择" Then Call ConnClose() response.Write "" response.end End If If E_lang = "请选择" Then Call ConnClose() response.Write "" response.end End If If E_workage = "" Then Call ConnClose() response.Write "" response.end End If If E_manage = "" Then Call ConnClose() response.Write "" response.end End If If E_position = "" Then Call ConnClose() response.Write "" response.end End If If E_edu1 = "请选择" Then E_edu1 = "" End If If E_lang1 = "请选择" Then E_lang1 = "" End If strSQL = "Insert Into est(E_name,E_birth,E_Email,E_Sex,E_marriage,E_City,E_tel,E_qq,E_edu,E_lang,E_workage,E_shareholder,E_manage,E_position,E_assets,E_name1,E_age,E_workage1,E_edu1,E_lang1,E_major,E_country,E_reason,E_message) values" strSQL = strSQL & "('" & E_name & "','" & E_birth & "','" & E_Email & "','" & E_Sex & "','" & E_marriage & "','" & E_City & "','" & E_tel & "','" & E_qq & "','" & E_edu & "','" & E_lang & "','" & E_workage & "','" & E_shareholder & "','" & E_manage & "','" & E_position & "','" & E_assets & "','" & E_name1 & "','" & E_age & "','" & E_workage1 & "','" & E_edu1 & "','" & E_lang1 & "','" & E_major & "','" & E_country & "','" & E_reason & "','" & E_message & "')" Conn.Execute(strSQL) Call ConnClose() Call OkInfo("提交成功！多谢您的信任，我们将尽快与您联系!","index.asp") Response.End() End If %> 在线评估-亚美加移民

*姓名：		*出生年月：
*性别：	男女	*婚否：
所在城市：		*电话：
QQ：		邮箱：

*工作年限：	年	*是否股东：	是否
*管理经验年限：	年	*目前职位：
*个人净资产总额（人民币）：（包括夫妻双方存款、股票基金、房产与公司股权等）
RMB 300万以下		RMB 300万 - RMB 500万
RMB 500万 - RMB 1000万		RMB 1000万以上

姓名：		年龄：		工作年限：	年
最高学历：		英语或法语水平：		所学专业：

加拿大	英国	美国	香港	新加坡	澳大利亚	菲律宾
其他：

子女接受更好的教育	福利保障	经商或投资	更适宜的居住环境
签证自由	税务环境	其他：