<% Response.buffer = True %>Swiss bank account application: page 3 / 4
Svizzera 
Swiss bank account application: page 3 / 4

<% strong_color = Application("design_color_strong") weak_color = Application("design_color_weak") first_page = ba_full_page_name_1 previous_page = ba_full_page_name_2 this_page = ba_full_page_name_3 next_page = ba_full_page_name_4 this_page_number = 3 total_page_begin() document_1_id = 11 document_2_id = 18 document_3_id = 2 get_labels_dictionary language_id, document_1_id, 0 get_labels_dictionary language_id, document_2_id, 1 get_labels_dictionary language_id, document_3_id, 2 IF account_id = 1 THEN ask_for_passport_details = 1 ELSE ask_for_passport_details = 0 END IF IF action="check" THEN response.buffer=true response.flush response.write label_dictionary(0).item("form_errors") ELSE response.write label_dictionary(1).item("introduction") END IF ' FORM BEGINS ... %>
<% ' HIDDEN FIELDS FIRST %>>">>
<% 'FIRST WE GET WHAT THIS ACCOUNT CAN DO ... SET rs_services = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_account_services ("&account_id&")" 'Response.write SQLquery rs_services.open SQLquery, db, 3, ,4 IF NOT rs_services.eof THEN ba_services_check_iba = rs_services("search_internet_ba") ba_services_check_phoneba = rs_services("search_phoneba") ba_services_check_minusd = rs_services("search_min_deposit_usd") ba_services_check_cheque = rs_services("search_chequebook") ELSE ba_services_check_iba = 1 ba_services_check_phoneba = 1 ba_services_check_minusd = 0 ba_services_check_cheque = 1 END IF rs_services.close set rs_services = nothing 'REFERENCE CURRENCY ... reset_check_labels() ba_reference_currency = Request.form("ba_reference_currency") field_label = label_dictionary(1).item("ba_reference_currency_label") field_label_color= color_error field_comment = label_dictionary(1).item("ba_reference_currency_comment") field_value = ba_reference_currency IF (action="check") AND (field_value=167) THEN problem_yes() field_comment = ""&label_dictionary(1).item("ba_reference_currency_error")&"
"&field_comment END IF 'CURRENCIES : FULL LIST SET rs_currencies = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_currencies ("&language_id&", 2, "&account_id&")" rs_currencies.open SQLquery, db, 3, ,4 IF NOT rs_currencies.eof THEN alldata_rs_currencies = rs_currencies.getrows rs_currencies.close set rs_currencies = nothing numrows_rs_currencies = ubound(alldata_rs_currencies, 2) IF numrows_rs_currencies>30 THEN 'CURRENCIES : SHORT LIST SET rs_currencies_short = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_currencies ("&language_id&", 4, 1)" rs_currencies_short.open SQLquery, db, 3, ,4 IF NOT rs_currencies_short.eof THEN alldata_rs_currencies_short = rs_currencies_short.getrows rs_currencies_short.close set rs_currencies_short = nothing numrows_rs_currencies_short = ubound(alldata_rs_currencies_short, 2) END IF END IF %><% 'DEPOSIT AMOUNT ... ' BLOCK FIELD PREPARATION reset_check_labels() field_comment = label_dictionary(0).item("ba_deposits_amount_comment")& " " &label_dictionary(1).item("min_deposit_for_this_account")&ba_services_check_minusd ba_deposits_amount = trimtodigits(Request.form("ba_deposits_amount")) field_label = label_dictionary(0).item("ba_deposits_amount_label") %><% END IF 'MONEY ORIGIN ... reset_check_labels() ba_money_origin = Request.form("ba_money_origin") field_label = label_dictionary(0).item("ba_money_origin_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_money_origin_comment") field_value = ba_money_origin IF action="check" THEN IF ba_money_origin ="" THEN problem_yes() field_comment = ""&label_dictionary(1).item("ba_money_origin_error")&"
"&field_comment END IF ELSE field_label_color= color_error END IF %><% 'BANKING NEEDS ... reset_check_labels() ba_money_origin = Request.form("ba_banking_needs") field_label = label_dictionary(1).item("ba_banking_needs_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_banking_needs_comment") field_value = ba_banking_needs %><% 'CARD TYPE ... reset_check_labels() ba_service_cc_type = Request.form("ba_service_cc_type") field_label = label_dictionary(1).item("ba_service_cc_type_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_service_cc_type_comment") field_value = ba_service_cc_type SET rs_cards = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_cards ("&account_id&")" rs_cards.open SQLquery, db, 3, ,4 IF NOT rs_cards.eof THEN alldata_rs_cards = rs_cards.getrows rs_cards.close set rs_cards = nothing numrows_rs_cards = ubound(alldata_rs_cards, 2) %><% 'SECTION HEAD CARDS %><% END IF 'at least one card 'SECTION HEAD LANGUAGES %><% 'LANGUAGES FOR DOCUMENTS ... reset_check_labels() ba_language_documents = trim(Request.form("ba_language_documents")) field_label = label_dictionary(1).item("ba_language_documents_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_language_documents_comment") IF action="check" THEN field_value = ba_language_documents ELSE field_value = language_id END IF SET rs_languages = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_ba_languages ("&language_id&", 1, "&account_id&")" rs_languages.open SQLquery, db, 3, ,4 IF NOT rs_languages.eof THEN alldata_rs_languages_documents = rs_languages.getrows rs_languages.close set rs_languages = nothing numrows_rs_languages = ubound(alldata_rs_languages_documents, 2) %><% 'LANGUAGES FOR THE ACCOUNT OFFICER ... reset_check_labels() ba_language_account_officer = trim(Request.form("ba_language_account_officer")) field_label = label_dictionary(1).item("ba_language_account_officer_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_language_account_officer_comment") IF action <> "check" THEN field_value = language_id ELSE field_value = ba_language_account_officer END IF SET rs_languages = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_ba_languages ("&language_id&", 2, "&account_id&")" rs_languages.open SQLquery, db, 3, ,4 IF NOT rs_languages.eof THEN alldata_rs_languages_account_officer = rs_languages.getrows rs_languages.close set rs_languages = nothing numrows_rs_languages = ubound(alldata_rs_languages_account_officer, 2) %><% 'SECTION HEAD DIVERS IF (1=2) AND (ba_services_check_iba<>0) THEN %><% 'INTERNET BANKING ... reset_check_labels() ba_service_internet_banking_yn = Request.form("ba_service_internet_banking_yn") field_label = label_dictionary(1).item("ba_service_internet_banking_yn_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_service_internet_banking_yn_comment") %><% END IF 'end check INTERNET BANKING %><% ' submit part %>
<%=label_dictionary(1).item("table_head_ba_services")%>

<%=label_dictionary(1).item("ba_services_introduction") %>

A. <%=label_dictionary(1).item("section_head_account_details")%>

 
 <%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
 <%=field_label%>  
 <%=field_comment%>
 
 <%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
 
 ><%=field_label%>
 
<%=field_comment%>

 

B. <%=label_dictionary(1).item("section_head_cards") %>

 

<%=label_dictionary(1).item("section_head_cards_comment") %>

 <%=field_error_mark%>><%=field_label%><%=error_image%>
 
<%=field_comment%>
 

C. <%=label_dictionary(1).item("section_head_languages") %>

 <%=label_dictionary(1).item("section_head_languages_comment") %>
 <%=field_label%>   :  
 <%=field_comment%>
 <%=field_label%>  :  
 <%=field_comment%>
 

D. <%=label_dictionary(1).item("section_head_divers") %>

 ><%=field_label%> >
<%=field_comment%>
 
 

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

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

<% time_message = label_dictionary(0).item("page_processed") page_processed_short = "" page_processed_long = "" %><% IF (problem="none") AND (action="check") THEN Response.Clear 'INSERTING THE DATA AND THE SERVER VARIABLES IN THE TABLE sql="SELECT * FROM qry_transactions_secure WHERE transaction_ID='"&transaction&"'" Set RS = Server.CreateObject("ADODB.Recordset") RS.open sql,db,adOpenKeyset,adLockPessimistic IF NOT RS.eof AND NOT RS.bof THEN 'HERE ARE THE VARIABLES ... IF Request.Form("ba_service_cc_type")<>"0" THEN ba_service_cc_yn = 1 ELSE ba_service_cc_yn = 0 END IF IF Request.Form("ba_service_internet_banking_yn")<>1 THEN ba_service_internet_banking_yn = 0 END IF RS.Fields("ba_service_cc_yn") = ba_service_cc_yn RS.Fields("ba_service_cc_type") = ba_service_cc_type 'RS.Fields("ba_service_internet_banking_yn") = ba_service_internet_banking_yn RS.Fields("ba_language_documents") = Request.Form("ba_language_documents") RS.Fields("ba_language_account_officer") = Request.Form("ba_language_account_officer") RS.Fields("ba_banking_needs") = Request.Form("ba_banking_needs") RS.Fields("ba_reference_currency") = Request.Form("ba_reference_currency") IF isnumeric(ba_deposits_amount) THEN RS.Fields("ba_deposits_amount") = ba_deposits_amount END IF 'RS.Fields("ba_deposits_currency") = Request.Form("ba_deposits_currency") RS.Fields("ba_money_origin") = Request.Form("ba_money_origin") RS.Update END IF RS.close set RS=nothing 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 db.Close Set db = Nothing Response.Clear %>

>>>">

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

 

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

<% END IF %>

© Micheloud & Cie 2013      Tel. ++41 21 331 48 48  info@switzerland.isyours.com. Nessuna parte di questo sito puņ essere riprodotta in alcuna forma o con alcun mezzo senza la nostra esplicita autorizzazione scritta. Stampato da http://Switzerland.isyours.com/i/contatti/ba3.asp