<% Response.buffer = True %>Swiss bank account application: page 4 / 4
Schweiz 
Swiss bank account application: page 4 / 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_3 this_page = ba_full_page_name_4 next_page = ba_full_page_name_thank_you this_page_number = 4 total_page_begin() document_1_id = 11 document_2_id = 20 get_labels_dictionary language_id, document_1_id, 0 get_labels_dictionary language_id, document_2_id, 1 SET rs_services = Server.CreateObject("ADODB.recordset") SQLquery = "proc_www_get_account_list_long " & language_id & ", " & cint(account_id) SET rs_services = Server.CreateObject("ADODB.recordset") SET rs_services = db.Execute(SQLquery) IF NOT rs_services.eof THEN Prix_USD = rs_services("Prix_USD") END IF rs_services.close set rs_services = nothing IF action="check" THEN response.buffer=true response.flush response.write "" & label_dictionary(0).item("form_errors") &"" & label_dictionary(1).item("introduction") ELSE response.write label_dictionary(1).item("introduction") END IF %><% ' FORM BEGINS ... %>
<% ' HIDDEN FIELDS FIRST %>">>>
<% 'SECTION HEAD Payment %><% 'PAYMENT TYPE ... reset_check_labels() ba_payment_method =0 ba_payment_method = cint(request.form("ba_payment_method")) field_value = 0 field_label = label_dictionary(1).item("ba_payment_method_label") field_label_color= color_error IF action="check" THEN IF (ba_payment_method=0) THEN problem_yes() problem = yes field_error_mark = error_mark field_label_color = color_error error_image = "" field_comment = ""&label_dictionary(1).item("ba_payment_method_error")&"
"&field_comment ELSE field_value = ba_payment_method field_label_color= color_normal IF (ba_payment_method=2) OR (ba_payment_method=3) THEN form_dirty = 1 END IF END IF END IF %><% ' SEND BY COURIER ? reset_check_labels() field_label = label_dictionary(1).item("ba_documents_by_courier_yn_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_documents_by_courier_yn_comment") ba_address_opendoc_country_id = Request.Form("ba_address_opendoc_country_id") IF ba_address_opendoc_country_id ="" THEN ba_address_opendoc_country_id = 208 END IF SQLquery = "proc_www_get_courier_rate "&ba_address_opendoc_country_id SET rs_courier = Server.CreateObject("ADODB.recordset") SET rs_courier = db.Execute(SQLQuery) courier_rate_amount = rs_courier("courier_rate_amount") courier_rate_currency = rs_courier("courier_rate_currency") courier_rate_currency_banking_name = rs_courier("banking_name") rs_courier.close set rs_courier = nothing %><% ' ACCEPT OUR CONDITIONS ? reset_check_labels() field_label = label_dictionary(1).item("ba_accept_conditions_yn_label") field_label_color = " color=Red " field_comment = label_dictionary(1).item("ba_accept_conditions_yn_comment") IF action="check" AND Request.form("ba_accept_conditions_yn")<>1 THEN problem_yes() field_error_mark = error_mark error_image = "" ELSE IF Request.form("ba_accept_conditions_yn")=1 THEN field_label_color= color_normal ELSE field_label_color= " color=Red " END IF END IF %><% '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") %><% ' submit part %>
<%=label_dictionary(1).item("table_head")%>
<%= label_dictionary(1).item("table_head_introduction")%> 

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

 

<% section_head_payment_comment = label_dictionary(1).item("section_head_payment_comment") IF section_head_payment_comment <> "" THEN response.write Replace(section_head_payment_comment, "%%setup_fee%%", Prix_USD) END IF %>

 

<%=field_error_mark%>><%=field_label%>   :   <%=error_image%>

 

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

 <%' Table credit card details %><% 'CREDIT CARD TYPE ... reset_check_labels() ba_payment_cc_type = request.form("ba_payment_cc_type") field_value = 0 field_label = label_dictionary(1).item("ba_payment_cc_type_label") field_label_color= color_normal field_comment = label_dictionary(1).item("ba_payment_cc_type_comment") 'NEW IF action="check" THEN field_value = ba_payment_cc_type IF (form_dirty=1) AND (ba_payment_cc_type=0) THEN problem_yes() field_comment = ""&label_dictionary(0).item("ba_payment_cc_type_error")&"
"&field_comment END IF END IF %><% ' CREDIT CARD NUMBER reset_check_labels() field_label = label_dictionary(1).item("ba_payment_cc_number_label") field_comment = label_dictionary(1).item("ba_payment_cc_number_comment") field_label_color= color_normal ba_payment_cc_number = request.form("ba_payment_cc_number") field_value = ba_payment_cc_number IF action="check" THEN IF (form_dirty = 1) AND (field_value="") THEN problem_yes() ELSE 'VERIFICATION AVEC L'ALGORITHME MOD 10 SELECT CASE ba_payment_cc_type CASE 1 cctype="M" CASE 2 cctype="V" CASE ELSE cctype="" END SELECT IF (field_value<>"") AND (cctype<>"") THEN chk=checkcc(ba_payment_cc_number,cctype) IF chk <> 0 THEN problem_yes() END IF END IF END IF END IF %><% 'EXPIRATION DATE ... reset_check_labels() main_field_label = label_dictionary(1).item("ba_payment_cc_exp_date_label") main_field_label_color = color_normal main_field_comment = "" ba_payment_cc_exp_date_month = cint(Request.Form("ba_payment_cc_exp_date_month")) ba_payment_cc_exp_date_year = cint(Request.Form("ba_payment_cc_exp_date_year")) IF (action="check") AND (form_dirty = 1) THEN IF ((ba_payment_cc_exp_date_month=0) OR (ba_payment_cc_exp_date_year=0)) THEN 'No expiration date problem_yes() main_field_error_mark = error_image main_field_label_color = "color=red" ELSE current_month= Month(Now) current_year = Year(Now) IF (ba_payment_cc_exp_date_year=current_year) AND ((ba_payment_cc_exp_date_month<% ' CREDIT CARD NAME ON CARD reset_check_labels() field_label = label_dictionary(1).item("ba_payment_cc_name_on_card_label") field_comment = label_dictionary(1).item("ba_payment_cc_name_on_card_comment") field_label_color= color_normal field_value = request.form("ba_payment_cc_name_on_card") IF (action="check") AND (field_value="") AND (form_dirty = 1) THEN problem_yes() END IF form_filled_some(field_value) %>

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

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


<%=field_comment%>

<%=main_field_error_mark%>><%=main_field_label%>

/
<%=field_error_mark%>><%=field_label%><%=error_image%>
 
 ><%=field_label & "("&courier_rate_currency_banking_name &" "& courier_rate_amount&")"%> >
<%=field_comment%>
 
 

<%=field_error_mark%>><%=field_label%>"check" THEN 'response.write "checked" ELSE IF Request.form("ba_accept_conditions_yn")=1 THEN response.write "checked" END IF END IF %> ><%=error_image%><%'=field_comment%>

 
 

<%=field_label%>

 <%=field_comment%>
 
 

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

 

<%=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_accept_conditions_yn")<>1 THEN ba_accept_conditions_yn=0 ELSE ba_accept_conditions_yn=1 END IF IF Request.Form("ba_documents_by_courier_yn")<>1 THEN ba_documents_by_courier_yn = 0 ELSE ba_documents_by_courier_yn = 1 END IF RS.Fields("ba_payment_method") = Request.Form("ba_payment_method") 'RS.Fields("ba_payment_comments") = Request.Form("ba_payment_comments") RS.Fields("ba_payment_cc_type") = Request.Form("ba_payment_cc_type") RS.Fields("ba_payment_cc_number") = trimtodigits(Request.Form("ba_payment_cc_number")) RS.Fields("ba_payment_cc_exp_date_month") = Request.Form("ba_payment_cc_exp_date_month") RS.Fields("ba_payment_cc_exp_date_year") = Request.Form("ba_payment_cc_exp_date_year") RS.Fields("ba_payment_cc_name_on_card") = Request.Form("ba_payment_cc_name_on_card") 'RS.Fields("service_how_learned_about_us") = Request.Form("service_how_learned_about_us") RS.Fields("service_comments") = Request.Form("service_comments") RS.Fields("ba_accept_conditions_yn") = ba_accept_conditions_yn RS.Fields("ba_documents_by_courier_yn") = ba_documents_by_courier_yn RS.Fields("transaction_closed") = 1 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 <% Response.end END IF localornot = INSTR(lcase(request.servervariables("HTTP_HOST")), "10.0.0.2") + INSTR(lcase(request.servervariables("HTTP_HOST")), "jupiter") IF localornot=0 THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.innerhost.com" Mailer.FromName = "BAfull"&Request.Form("ba_payment_method") Mailer.FromAddress = "bafull@micheloud.com" Mailer.AddRecipient "Micheloud & Cie", "banking@Switzerland.isyours.com" Mailer.Subject = "Check me out" 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. Kein Teil dieser Website darf ohne vorherige schriftliche Genehmigung vervielfältigt werden. Ausdruck von http://Switzerland.isyours.com/d/Kontakt/ba4.asp