#!/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
 


Ordering

$product_name
$order_text

The price is \$$price (US funds - get it other currencies here)

Please read this before you confirm your order:

What you see in the frame above is what our automatic system will expedite when you click on the order button below. (Note: You do not need a PayPal account in order to pay through PayPal - you can use our account to pay with any VISA, MasterCard, or other credit card or US check! If you do have your own PayPal account, you can, of course, pay with funds from that account.)

If you do not want to pay by credit card and you live in Europe, you might prefer a bank transfer to a Danish bank account. Similarly, if you live in North America, bank transfer to a Canadian bank account might be a relevant option. (You get the information about each possibility by clicking on the one you need and printing out the page that pops up in a new window. Be aware that paying through bank transfer is slower, and slightly more expensive.)

If you pay on-line through PayPal, your credit card or checking account information will processed in encrypted form and will not be seen by any human. This means that we never see your credit card information!

The other personal information you will be required to provide will be used exclusively for the payment processor to verify your identity. Using your credit card this way is far safer than handing it out to a merchant to process!

Note: If your browser does not allow pop-ups from our site, you will only see a blank page when clicking on the payment link! If this happens, please click on the message you get from the browser that it prevented a pop-up on this site, and make it allow pop-ups from our site. (We do not use interruptive advertising on our site at all, so you can do this completely safely.)

Also, if your browser does not accept cookies, the payment transaction might not go though and you will get an error message, as the payment processor will not be able to pass on to us what you order...

When your payment is confirmed by the payment processor, please follow their instructions to "RETURN TO MERCHANT", so you come back to our order confirmation page for finishing the purchase. This means that you have to click on that link in order to get back to our domain, so you can finish the purchase! (Yes, we can still help you out if you forget this - and we certainly will - but it is an unnecesary additional hassle for both you and us. Closing your browser when you got the payment confirmation is equivalent to walking out of the supermarket, leaving your groceries behind, when you paid for them...)



You can pay with any credit card,
also if you do not have a PayPal account yourself!

Remember:
You get a blank page if your browser blocks pop-ups!

If you have trouble with the ordering process, please send us an e-mail at and explain what the problem is, and what you are trying to order, so we can help you.

You are also welcome to call us (phone number below).


ENDBLOCK } require '../../cgi-bin/contactinfo.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,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, $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; }