#!/usr/bin/perl ############################################### #test order form Y and shipping N #intro price and price type logic ############################################### use CGI qw(:all); use DBI; require("../tas.cfg"); &get_info; if(!$vendor_id || $vendor_id eq "") { &unauthorized_page; } else { &get_db_info; &print_page; } sub get_info() { $vendor_id=param('vendor_id'); $product_id=param('product_id'); $aff_camp=param('aff_camp'); } sub unauthorized_page() { {print < $order_title


You are unauthorized to access this page.
If you navigated to this page from a link, please go back and contact the webmaster of the site.
Thank you.
ENDBLOCK } } sub print_page() { #if any of the merchants don't allow CC info collection, don't collect $own_order_page="Y"; for $i (0 .. $#merchants) { if($merchants[$i][10] eq "N") { $own_order_page="N"; } } #if any of the merchants were selected with the shopping cart option, will #not collect any customer information up front $shopping_cart="N"; for $i (0 .. $#merchants) { if($merchants[$i][5] eq "Y") { $shopping_cart="Y"; } } {print < $order_title


Bestilling af

$product_name


$order_text

Levering: $delivery_terms.

Tid: $scheduled_time.

Prisen er \$$price (US dollars - der bliver ikke trukket gebyr).

Læs venligst dette før du bekræfter din ordre:

Det du ser i rammen ovenfor er hvad vores automatiske betalingssystem vil ekspedere når du klikker på PayPal-knappen nedenfor.

Når din betaling bliver konfirmeret af vore betalingsformidler, vil du blive ledt til en side hvor der er et link der siger CONTINUE.

Klik venligst på det link, så du kommer tilbage til vores site så vi kan færdiggøre handelen. (Selvfølgelig kan og vil vi dog hjælpe dig hvis du glemmer det - det er blot ekstra ulejlighed for både dig og os.)

Hvis betalingen er for et foredrag eller kursus, så husk at medbringe din kvittering UANSET betalingsmetode! Kvitteringen er dit adgangsbevis.

Tryk her for at betale
via PayPal:

Du kan betale med alle slags kreditkort, uanset om du selv har en PayPal konto eller ej!

Du får en blank side hvis din browser blokerer pop-ups!


Hvis du har problemer med PayPal, så send os en email på og forklar os hvad problemet er, og hvad det er du forsøger at bestille, så vi kan hjælpe dig.

Du er også velkommen til at ringe direkte til K9joy på vores danske nummer: 36 98 02 98 - men kun i aftentimerne, dansk tid (telefonen bliver omstillet til Canada for vores regning, og tidsforskellen er 9 timer).



ENDBLOCK } require("../../cgi-bin/contactinfo_Danish.cgi"); {print < ENDBLOCK } } sub get_db_info() { $dbh = DBI->connect($database, $username, $password); $sql_statement="select order_title,product_logo_url,product_name,order_page_text,product_price,delivery_terms, scheduled_time,intro_price,intro_period,shipping_required,price_type,number_of_installments,receipt_page_url from product where product_id='$product_id'"; $out = $dbh->prepare($sql_statement); $out->execute(); ($order_title, $header_logo_url, $product_name, $order_text, $price, $delivery_terms, $scheduled_time, $introPrice,$intro_period,$ship_required,$cmd,$num_installments,$relay_url)= $out->fetchrow_array; $sql_statement1="select merchant_to_vendor.*, merchant_account.* from merchant_to_vendor, merchant_account where merchant_to_vendor.vendor_id='$vendor_id' and merchant_to_vendor.merchant_id=merchant_account.merchant_id"; $out1 = $dbh->prepare($sql_statement1); $out1->execute(); while (@data = $out1->fetchrow_array) { push @merchants, [ @data ]; } $sql_statement1="select decline_url from vendor where vendor_id='$vendor_id'"; $out1 = $dbh->prepare($sql_statement1); $out1->execute(); $bad_relay_url=$out1->fetchrow_array; }