<< if iserror(first_time_p_vl_vb_d) then first_time_p_vl_vb_d = "FALSE" curr_page_count = 1 curr_page_view = ^Seach Listings^ max_listing_per_page = 4 listing_start_count = 1 sec_web_root = ^http://www.bluelighthomeswap.com/^ expand file = "/clearimage/getimage.lib" /expand no_iframes_message = ^This site requires a modern Browser that Supports IFrames. We suggest MS Internet Explorer 5.5 or higher.^ image_library_dir = "/listings/images/" view_inc_dir = ^/pages/view_listings/includes/^ copy file="/data/countries.csv" ts="," to countries_list /copy expand file = "/data/function_lib.txt" /expand expand file = "/back_office/db_initialize.htm" /expand expand file = field_data_file2 /expand #### expand file = field_data_file /expand ###/# copy file="/pages/header.shtml" to incl_header /copy copy file="top_menu.htm" to incl_top_menu /copy incl_top_menu = replaceall(incl_top_menu,"href=","href=") copy file="bottom_menu.htm" to incl_bottom_menu /copy incl_bottom_menu = replaceall(incl_bottom_menu,"href=","exithref=") copy file="/pages/footer.htm" to incl_footer /copy flag_list = listtorow("UK,US,CA,AU,IE,ALL",",") chosen_country = getcountryname(chosen_country_code) country_choice_list = getcolnoteq(nodups(getcol(clients_table,LISTING_COUNTRY_FIELD)),1,"") temp_value1 = 1 for name=country_choice_list rowname=myrow do country_choice_list[2,temp_value1] = upper(country_choice_list[2,temp_value1]) chosen_country_data = getcoleq(countries_list,1,myrow[1]) country_choice_list[2,temp_value1] = chosen_country_data[2] temp_value1 += 1 /for curr_step_page = "step1" flag_display_file = view_inc_dir + ^flag_display.htm^ show_flags = "TRUE" expand file = flag_display_file /expand image_names = getcol(getcoleq(sysls(image_library_dir),4,"FILE"),1) page_listing_menu = ^^ toggle_value = 1 #### End of run-once code ###/# /if curr_body_incl = view_inc_dir + curr_step_page + ^.htm^ expand file = curr_body_incl /expand curr_total_count = rows(curr_listings) found_count_statement = chosen_country if iserror(chosen_country) or isblank(curr_listings) then found_count_statement = "" /if vis_status1 = ^hidden^ vis_status2 = ^hidden^ if curr_step_page = "step3" and chosen_country <> "SAVED" and istrue(login_success) then vis_status1 = ^visible^ /if if curr_step_page = "step3" and chosen_country = "SAVED" and istrue(login_success) then vis_status2 = ^visible^ /if >> View Listings - Blue Light Home Swap
<< incl_header>>
<< incl_top_menu>>
VIEW LISTINGS
<< found_count_statement>>
<< if curr_step_page <> "step1" then display flag_list_display + ^ ^ /display /if >>
  

<< member_data = encrypt(curr_client_data[CLIENTS_RECORD_FIELD],lukeskywalker) login_display = "" if isfalse(login_success) then login_display[1] = ^Sorry, your Log-in failed!^ /if if istrue(login_success) then loggedin_name = curr_client_data[CLIENT_FIRST_NAME_FIELD] + ^ ^ + curr_client_data[CLIENT_LAST_NAME_FIELD] login_display[2] = ^ Welcome ^ + loggedin_name + ^
Update ProfileLog Out
^ else login_display[2] = ^
Username:  
Password:
^ /if >> << login_display>>
<< #### guest_save_msg ###/# >> << if curr_step_page = "step3" then display individual_listing_menu /display else display page_listing_menu /display /if >> << body_include>>

<< if curr_step_page = "step3" then display individual_listing_menu /display else display page_listing_menu /display /if >>

<< incl_bottom_menu>> << incl_footer>>
<< overlay go2step2 curr_step_page = "step2" chosen_country = getcountryname(chosen_country_code) temp_listing_start_count = 0 #### Changes to page one everytime a new area selection is made ###/# if storage_vault <> chosen_country then restart_listing = "TRUE" storage_vault = chosen_country /if #### Clears selected page everytime a new page selection is made ###/# RECORD = "" if chosen_country = "ALL" then curr_listings = clients_table elif chosen_country = "SAVED" then curr_listings = getcolnoteq(curr_listings,CLIENT_ID_FIELD,"") expand file = view_inc_dir + ^saved_list_creator.htm^ /expand curr_listings = saved_listings_table else curr_listings = getcoleq(clients_table,LISTING_COUNTRY_FIELD,chosen_country_code) /if curr_listings = getcolnoteq(curr_listings,CLIENT_ID_FIELD,"") expand file = view_inc_dir + ^listing_menu.htm^ /expand expand file = view_inc_dir + ^step2.htm^ /expand goto page >> << overlay go2step3 RECORD = temp_curr_listings[CLIENTS_RECORD_FIELD,temp_curr_prop_count] curr_step_page = "step3" curr_display_image = "ERROR" expand file = view_inc_dir + ^listing_menu.htm^ /expand expand file = view_inc_dir + ^step3.htm^ /expand goto page >> << overlay toggle_access if isodd(toggle_value) then login_success = "TRUE" else login_success = "False" /if toggle_value += 1 expand file = flag_display_file /expand goto page >> << overlay login_verify #### Check Username and Password ###/# if Submit="Log-in" then login_success = "TRUE" #### True until proven false ###/# curr_client_data = getcoleq(clients_table,CLIENT_LOG_IN_NAME_FIELD,login_data[1]) if iserror(curr_client_data) or isblank(curr_client_data) then login_success = "False" /if curr_client_data2 = getcoleq(curr_client_data,CLIENT_PASSWORD_FIELD,login_data[1,2]) if iserror(curr_client_data2) or isblank(curr_client_data2) then login_success = "False" /if curr_clients_RECORD = curr_client_data[CLIENTS_RECORD_FIELD] if login_data[1,1] = "master" and login_data[1,2] = "123456" then goto "/back_office/admin/index.htm"
/if else #### Switch Page Views ###/# curr_step_page = "step2" show_flags = "TRUE" if curr_page_view = "Seach Listings" then curr_listings = clients_table else show_flags = "FALSE" curr_step_page = "edit_listing" curr_listings = "" /if expand file = flag_display_file /expand expand file = view_inc_dir + ^listing_menu.htm^ /expand /if goto page >> << overlay login_reset login_data = "" login_success="" goto page >> << overlay change_image show_contact_email = "FALSE" goto page >>