<% Response.buffer = True %>Business immigration in Switzerland
  

 
Business immigration in Switzerland

<% localornot = INSTR(lcase(request.servervariables("HTTP_HOST")), "10.0.0.2") + INSTR(lcase(request.servervariables("HTTP_HOST")), "jupiter") IF (localornot=0) AND (request.servervariables("HTTPS")<>"on") AND (Request.form("action")<>"check") THEN response.redirect "https://" & Application("domainname") & Request.Servervariables("PATH_INFO") END IF strong_color = Application("design_color_strong") weak_color = Application("design_color_weak") total_page_begin() this_page = "ree.asp" SET bc = Server.CreateObject("MSWC.BrowserType") browser = bc.browser & " version "& bc.version browser_version = bc.version SET bc = nothing localornot = INSTR(lcase(request.servervariables("HTTP_HOST")), "10.0.0.2") + INSTR(lcase(request.servervariables("HTTP_HOST")), "jupiter") 'Response.AddHeader "XBuilder-Scope","exclude" %><% jurisdiction_id=3 document_1_id = 11 document_2_id = 39 problem="none" action=Request.form("action") get_labels_dictionary language_id, document_1_id, 0 get_labels_dictionary language_id, document_2_id, 1 IF action="check" THEN response.write "

"&label_dictionary(0).item("form_errors")&"

" ELSE response.write label_dictionary(1).item("introduction_business") response.write label_dictionary(1).item("introduction") END IF KEYSIZE = request.servervariables("HTTPS_KEYSIZE") %>
<% ' FORM BEGINS ... %>
<% ' HIDDEN FIELDS FIRST %><% 'FIRST CITIZENSHIP ... ' BLOCK FIELD PREPARATION reset_check_labels() person_citizenship_first = trim(Request.form("person_citizenship_first")) IF action="check" THEN IF person_citizenship_first=208 THEN problem_yes() field_label = label_dictionary(0).item("person_citizenship_first_label") field_comment = ""& label_dictionary(0).item("person_citizenship_first_error")& "
"&label_dictionary(0).item("person_citizenship_first_comment") field_value = 208 field_label_color= color_error field_error_mark = error_mark ELSE field_label = label_dictionary(0).item("person_citizenship_first_label") field_label_color= color_normal field_value = person_citizenship_first field_comment = label_dictionary(0).item("person_citizenship_first_comment") END IF ELSE field_label = label_dictionary(0).item("person_citizenship_first_label") field_label_color= color_error field_comment = label_dictionary(0).item("person_citizenship_first_comment") field_value = 208 END IF %><% 'COUNTRY OF RESIDENCE ... reset_check_labels() person_country_residence = trim(Request.form("person_country_residence")) IF action="check" THEN IF person_country_residence=208 THEN problem_yes() field_label = label_dictionary(0).item("person_country_residence_label") field_comment = ""&label_dictionary(0).item("person_country_residence_error")&"
"&label_dictionary(0).item("person_country_residence_comment") field_value = 208 ELSE field_label = label_dictionary(0).item("person_country_residence_label") field_label_color= color_normal field_value = person_country_residence field_comment = label_dictionary(0).item("person_country_residence_comment") END IF ELSE field_label = label_dictionary(0).item("person_country_residence_label") field_label_color= color_error field_comment = label_dictionary(0).item("person_country_residence_comment") field_value = 208 END IF %><% 'FIRST NAME ... reset_check_labels() person_name_first = Request.form("person_name_first") IF action="check" THEN IF person_name_first="" THEN problem_yes() field_label = label_dictionary(0).item("person_name_first_label") field_comment = ""&person_name_first_error&"
"&person_name_first_comment ELSE field_label = label_dictionary(0).item("person_name_first_label") field_label_color= color_normal field_comment = label_dictionary(0).item("person_name_first_comment") field_value = person_name_first END IF ELSE field_label = label_dictionary(0).item("person_name_first_label") field_label_color= color_error field_comment = label_dictionary(0).item("person_name_first_comment") END IF %><% 'LAST NAME ... ' BLOCK FIELD PREPARATION reset_check_labels() person_name_last = Request.form("person_name_last") IF action="check" THEN IF person_name_last="" THEN problem_yes() field_label = label_dictionary(0).item("person_name_last_label") field_comment = ""&label_dictionary(0).item("person_name_last_error")&"
"&label_dictionary(0).item("person_name_last_comment") ELSE field_label = label_dictionary(0).item("person_name_last_label") field_label_color= color_normal field_comment = label_dictionary(0).item("person_name_last_comment") field_value = person_name_last END IF ELSE field_label = label_dictionary(0).item("person_name_last_label") field_label_color= color_error field_comment = label_dictionary(0).item("person_name_last_comment") END IF %><% 'OCCUPATION... reset_check_labels() IF action="check" THEN field_label = label_dictionary(0).item("person_occupation_label") field_label_color= color_normal field_comment = label_dictionary(0).item("person_occupation_comment") field_value = request.form("person_occupation") ELSE field_label = label_dictionary(0).item("person_occupation_label") field_label_color= color_normal field_comment = label_dictionary(0).item("person_occupation_comment") END IF %><% '----------------------------------------------------------------------------------------------------------------------------------- ' SECTION B : CONTACT INFORMATION '--------------------------------------------------------------------------------------------------------------------------------- %><% 'EMAIL RETYPE... reset_check_labels() IF action="check" THEN IF (address_email<>"") AND (address_email_retype<>address_email) THEN problem_yes() field_label = label_dictionary(0).item("address_email_retype_label") field_comment = ""&label_dictionary(0).item("address_email_retype_error")&"
" field_value = address_email_retype ELSE field_label = label_dictionary(0).item("address_email_retype_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_email_retype_comment") field_value = address_email_retype END IF ELSE field_label = label_dictionary(0).item("address_email_retype_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_email_retype_comment") END IF %><% 'PHONE NUMBER... reset_check_labels() IF action="check" THEN field_label = label_dictionary(0).item("address_phone_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_phone_comment") field_value = request.form("address_phone") ELSE field_label = label_dictionary(0).item("address_phone_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_phone_comment") END IF %><% 'FAX NUMBER... reset_check_labels() IF action="check" THEN field_label = label_dictionary(0).item("address_fax_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_fax_comment") field_value = request.form("address_fax") ELSE field_label = label_dictionary(0).item("address_fax_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_fax_comment") END IF %><% 'MAILING ADDRESS... reset_check_labels() IF action="check" THEN field_label = label_dictionary(0).item("address_mailing_address_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_mailing_address_comment") field_value = request.form("address_mailing_address") ELSE field_label = label_dictionary(0).item("address_mailing_address_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_mailing_address_comment") END IF %><% 'CONTACT INSTRUCTIONS ... reset_check_labels() field_label_color= color_normal field_label = label_dictionary(0).item("address_contact_instructions_label") field_comment = label_dictionary(0).item("address_contact_instructions_comment") IF action="check" THEN field_value = request.form("address_contact_instructions") END IF %><% '------------------------------------------------------------------------------------------------- ' SECTION IMMIGRATION NEEDS '------------------------------------------------------------------------------------------------%><% 'WHAT FAMILY ... reset_check_labels() %><% 'WHAT PART ... reset_check_labels() %><% 'DAYS A YEAR reset_check_labels() On error resume next IF action="check" THEN field_value = request.form("how_many_days") IF isnumeric(field_value) THEN how_many_days = cint(field_value) ELSE field_value = "" END IF END IF %><% 'BUY OR RENT reset_check_labels() %><% '------------------------------------------------------------------------------------------------- ' SECTION BUSINESS PLANS '------------------------------------------------------------------------------------------------%><% 'WHAT BUSINESS ... reset_check_labels() %><% 'PROFIT YEAR 1 reset_check_labels() %><% 'LOCALS reset_check_labels() %><% 'PRIOR EXPERIENCE reset_check_labels() %><% '----------------------------------------------------------------------------------------------------------------------------------- ' SECTION D : COMPLEMENTARY INFORMATION '--------------------------------------------------------------------------------------------------------------------------------- %><% 'HOW DID YOU LEARN ABOUT US ... reset_check_labels() field_label = label_dictionary(0).item("service_how_learned_about_us_label") field_label_color= color_normal field_comment = label_dictionary(0).item("service_how_learned_about_us_comment") field_value = request.form("service_how_learned_about_us") %><% 'COMMENTS ... reset_check_labels() field_label = label_dictionary(0).item("service_comments_label") field_label_color= color_normal field_comment = label_dictionary(0).item("service_comments_comment") field_value = request.form("service_comments") %>
A. <%=label_dictionary(0).item("section_head_personal_info")%>
 
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
<% =field_comment%>
 
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
<% =field_comment %>
 
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
 
<%=field_label%>
 
<%=field_comment%>
 
 
 
B. <%=label_dictionary(0).item("section_head_contact_info")%>
 
<%=label_dictionary(0).item("section_head_contact_info_intro")%>

<% IF ((action="check") AND (Request.form("address_email")="") AND (Request.form("address_phone")="") AND (Request.form("address_fax")="")) THEN problem="yes" response.write ""&label_dictionary(0).item("no_electronic_contact_info")&"

" END IF %><% 'EMAIL ... reset_check_labels() address_email = Trim(Request.form("address_email")) address_email_retype = Trim(Request.form("address_email_retype")) IF action="check" THEN IF ((address_email<>"") AND (Isemail(address_email)=FALSE)) THEN problem_yes() field_label = label_dictionary(0).item("address_email_label") field_comment = ""&label_dictionary(0).item("address_email_error")&"
" field_value = address_email ELSE field_label = label_dictionary(0).item("address_email_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_email_comment") field_value = address_email END IF ELSE field_label = label_dictionary(0).item("address_email_label") field_label_color= color_normal field_comment = label_dictionary(0).item("address_email_comment") END IF %><%=field_error_mark%>><%=field_label%>
<%=error_image%>
 
<%=field_comment%>
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
 
<%=field_label%>
<%=field_comment%>
 
 
<%=field_label%>
 
 
<%=field_label%>
 
 
<%=field_comment%>
<%=field_label%>
 
<%=field_comment%>
 
 
C. <%=label_dictionary(1).item("retirement_section_head")%>
 
<%=label_dictionary(1).item("what_family")%>
 ">
 
<%=label_dictionary(1).item("what_part_ch")%>
 ">
 
<%=label_dictionary(1).item("how_many_days_ch")%>
  (0-360)
 
<%=label_dictionary(1).item("buy_or_rent")%>
 ">
 
 
D. <%=label_dictionary(1).item("business_section_head")%>
 
<%=label_dictionary(1).item("business_type")%>
 ">
 
<%=label_dictionary(1).item("profit")%>
 ">
 
<%=label_dictionary(1).item("local_employees")%>
 
 
<%=label_dictionary(1).item("prior_experience")%>
 
 
 
E. <%=label_dictionary(0).item("section_head_complementary_info")%>
 
<%=field_label%>
 
<%=field_comment%>
 

<%=field_label%>

 <%=field_comment%>
 

<%=label_dictionary(0).item("click_to_send")%><% ' NOW WE SUBMIT ... %>" OnClick=" <% IF (browser_version>=4) THEN %> form.ba_1.transaction_client_screen_width.value=screen.width; form.ba_1.transaction_client_screen_height.value=screen.height; form.ba_1.transaction_client_jsreferrer.value=document.referrer; form.ba_1.local_variable_i_like_to_click_it.value= form.ba_1.local_variable_i_like_to_click_it.value+1; <% END IF %> form.ba_1.transaction_client_jsreferrer.value=document.referrer; form.ba_1.local_variable_i_like_to_click_it.value=this.form.local_variable_i_like_to_click_it.value+1;">

<%=label_dictionary(0).item("click_to_send_comment")%>

 

<% IF (problem="none") AND (action="check") THEN IF (Request.form("local_variable_i_like_to_click_it")>1) THEN response.redirect "thank_you.asp" END IF Response.Clear 'INSERTING THE DATA AND THE SERVER VARIABLES IN THE TABLE Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "qry_transactions_secure",db,adOpenKeyset,adLockPessimistic RS.AddNew 'HERE ARE THE VARIABLES ... 'TRANSACTION VARIABLES RS.Fields("transaction_language") = language_id RS.Fields("transaction_type") = 3 RS.Fields("transaction_closed") = 1 'SERVER AND BROWSER VARIABLES 'SETTING THE SERVER VARIABLES RS.Fields("transaction_time_begin") = now() RS.Fields("transaction_referring_url") = request.servervariables("http_referer") RS.Fields("transaction_server") = lcase(request.servervariables("HTTP_HOST")) RS.Fields("transaction_browser") = browser RS.Fields("transaction_remote_host") = Request.ServerVariables("REMOTE_ADDR") IF Isnumeric(request.form("transaction_client_timezone")) THEN RS.Fields("transaction_client_timezone") = request.form("transaction_client_timezone") END IF RS.Fields("transaction_client_jsreferrer") = request.form("transaction_client_jsreferrer") IF Isnumeric(request.form("transaction_client_screen_width")) THEN RS.Fields("transaction_client_screen_width") = request.form("transaction_client_screen_width") END IF IF Isnumeric(request.form("transaction_client_screen_height")) THEN RS.Fields("transaction_client_screen_height") = request.form("transaction_client_screen_height") END IF IF request.servervariables("HTTPS")="on" THEN RS.Fields("transaction_secure_yn") = 1 ELSE RS.Fields("transaction_secure_yn") = 0 END IF IF isnumeric(KEYSIZE) then RS.Fields("transaction_secure_keysize") = KEYSIZE END IF IF (ba_deposits_amount=-999) OR (ba_deposits_amount=-888) THEN ba_deposits_amount=NULL END IF ' FORM VARIABLES RS.Fields("person_name_last") = person_name_last RS.Fields("person_name_first") = person_name_first RS.Fields("person_country_residence") = person_country_residence RS.Fields("person_citizenship_first") = person_citizenship_first RS.Fields("person_occupation") = request.form("person_occupation") RS.Fields("address_email") = address_email RS.Fields("address_email_retype") = request.form("address_email_retype") RS.Fields("address_phone") = request.form("address_phone") RS.Fields("address_fax") = request.form("address_fax") RS.Fields("address_mailing_address") = request.form("address_mailing_address") RS.Fields("address_contact_instructions") = request.form("address_contact_instructions") RS.Fields("re_days_a_year") = how_many_days RS.Fields("re_family") = request.form("what_family") RS.Fields("re_where_in_country") = request.form("what_part") RS.Fields("re_e_type_of_business") = request.form("business_type") 'RS.Fields("service_mon") = request.form("profit") RS.Fields("re_e_employees") = request.form("local_employees") RS.Fields("re_prior_experience_in_field") = request.form("prior_experience") 'AS WE ARE BIG BOYS NOW, WE PUT THE TEXT FIELDS AT THE END ... RS.Fields("service_how_learned_about_us") = request.form("service_how_learned_about_us") RS.Fields("service_comments") = request.form("service_comments") '&"I clicked the form :"&Request.form("local_variable_i_like_to_click_it") RS.Update RS.close set RS=nothing IF (localornot =0) AND (Isemail(address_email)=TRUE) THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.innerhost.com" Mailer.FromName = address_email Mailer.FromAddress = address_email Mailer.AddRecipient "Micheloud & Cie newsletter", "join-minfon@lists.micheloud.com" if Mailer.SendMail then tried_to_send = 2 ELSE tried_to_send = 1 end if END IF IF db.errors.count> 0 THEN Response.Clear %> Errors occured while inserting your record in the database. Please excuse us for the inconvenience and either try again or contact us by email banking@switzerland.isyours.com <% END IF IF (localornot =0) AND (Isemail(address_email)=TRUE) THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.innerhost.com" Mailer.FromName = request.form("address_email") Mailer.FromAddress = request.form("address_email") Mailer.AddRecipient "Micheloud & Cie", "banking@Switzerland.isyours.com" Mailer.Subject = "Your request" 'Mailer.BodyText = Request.QueryString("txtmsg") END IF db.Close Set db = Nothing Response.Clear Response.redirect "/" & language_directory & "/thanks.html" END IF db.Close Set db = Nothing time_message = label_dictionary(0).item("page_processed") page_processed_short = "" page_processed_long ="" %>

© Micheloud & Cie 2013      Tel. ++41 21 331 48 48  info@switzerland.isyours.com. ??????? ????? ????? ????? ?? ????? ???? ?????????????? ? ?????-???? ????? ??? ?????? ???????????????? ??????????? ??????????. Печать из http://Switzerland.isyours.com/r/kontakty/ree.asp