#!/usr/bin/perl -w

use DBI;

require 'cookie.lib';


if ($ENV{"REQUEST_METHOD"} eq 'GET') { $Buffer=$ENV{QUERY_STRING} }
else { read(STDIN, $Buffer, $ENV{'CONTENT_LENGTH'}) }

$Buffer =~ s/\%20/ /g;


@pairs = split(/&/,$Buffer);
foreach $par (@pairs) {
        ($name,$value) = split(/=/,$par);
        $FORM{$name} = $value;
}


$Buffer =~ s/\%26/\&/g;
$Buffer =~ s/\%27/\'/g;

#------------------------

$redirect_id      = $FORM{'id'} || "";
$redirect_st      = $FORM{'st'} || "";
$redirect_pl      = $FORM{'pl'} || "";
$redirect_br      = $FORM{'br'} || "";
#$nr              = $FORM{'nr'} || "";
$nr               = "0";
$nb               = $FORM{'nb'} || "";
$nopopup          = "0";


#1-800-Usa-Hotels
if ($FORM{'style'} eq "6") {
   $nopopup = "1";
}


$redirect_script  = $ENV{'SCRIPT_NAME'};
$redirect_usersip = $ENV{'REMOTE_ADDR'};


if ($nr ne "1") {
   if ( $redirect_script =~ /radissondynamic2?/i)  {
      #RedirectToPhase1Radisson("id=$redirect_id");
   }
   elsif ( $redirect_script =~ /starwood2/i) {
      #RedirectToPhase1Starwood("id=$redirect_id&br=$redirect_br");
   }  
   else {
      
      
      #if ($redirect_usersip eq "66.46.250.226" & $redirect_st eq "234") {
      if ($redirect_st eq "234") {
            #234 = Orbitz, 306 = Apple Vacations
            $nopopup = "1";
            #print "OK!";
            #exit;
      }
      #generic
      elsif ($redirect_st eq "0" | $redirect_st eq "") {
             RedirectToTheASP("command=invoke&ids=40317&ipid=" . $redirect_id . "&rids=40317");
      }
      #1-800-Usa-Hotzels
      elsif ($redirect_st eq "6") {
             #RedirectToTheASP("command=redirectp2j&oids=" . $redirect_st . "&opid=" . $redirect_id . "&tpl=50");
             $nopopup = "1";
             RedirectToTheASP("command=invoke&ids=40321&ipid=" . $redirect_id . "&rids=40317");
      }
      #hotels.com
      #elsif ($redirect_st eq "190") {
             #RedirectToTheASP("command=invoke&ids=40348&ipid=" . $redirect_id . "&rids=40317");
      #}
      #elsif ($redirect_usersip eq "66.46.250.226" & $redirect_st eq "190") {   
            #a hit from the office IP with hotels.com style code
            #RedirectToInternal("command=redirectp2j&oids=" . $redirect_st . "&opid=" . $redirect_id . "&tpl=02");
      #}


#      elsif ($redirect_st eq "190") {
#             #RedirectToTheASP("command=redirectp2j&oids=" . $redirect_st . "&opid=" . $redirect_id . "&tpl=50");
#             #$nopopup = "1";
#             RedirectToTheASP("command=invoke&ids=40348&ipid=" . $redirect_id . "&rids=40317");
#      }

#      elsif ($redirect_st eq "190") { $nopopup = "1"; RedirectToTheASP("command=invoke&ids=40348&ipid=" . $redirect_id . "&rids=40317"); }

# created using the following query from the ASP
# select 
# concat('elsif ($redirect_st eq "', legacy_style_number, '") { '), 
# if(popup_default='N',' $nopopup = "1";','' ), 
# concat( 'RedirectToTheASP("command=invoke&ids=', oid_ids_client, '&ipid=" . $redirect_id . "&rids=40317"); } ') 
# from ids_client 
# where legacy_style_number is not null;
#

elsif ($redirect_st eq "0") { 		RedirectToTheASP("command=invoke&ids=40317&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "208") { 		RedirectToTheASP("command=invoke&ids=40318&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "1") { 		RedirectToTheASP("command=invoke&ids=40319&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "248") { 		RedirectToTheASP("command=invoke&ids=40320&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "6") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40321&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "164") { 		RedirectToTheASP("command=invoke&ids=40322&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "2") { 		RedirectToTheASP("command=invoke&ids=40323&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "142") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40324&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "152") { 		RedirectToTheASP("command=invoke&ids=40325&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "13") { 		RedirectToTheASP("command=invoke&ids=40326&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "160") { 		RedirectToTheASP("command=invoke&ids=40327&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "244") { 		RedirectToTheASP("command=invoke&ids=40328&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "230") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40329&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "262") { 		RedirectToTheASP("command=invoke&ids=40330&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "261") { 		RedirectToTheASP("command=invoke&ids=40331&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "176") { 		RedirectToTheASP("command=invoke&ids=40332&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "34") { 		RedirectToTheASP("command=invoke&ids=40333&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "170") { 		RedirectToTheASP("command=invoke&ids=40334&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "9") { 		RedirectToTheASP("command=invoke&ids=40335&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "33") { 		RedirectToTheASP("command=invoke&ids=40336&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "56") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40337&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "58") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40338&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "254") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40339&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "104") { 		RedirectToTheASP("command=invoke&ids=40340&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "252") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40341&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "70") { 		RedirectToTheASP("command=invoke&ids=40342&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "134") { 		RedirectToTheASP("command=invoke&ids=40343&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "136") { 		RedirectToTheASP("command=invoke&ids=40344&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "229") { 		RedirectToTheASP("command=invoke&ids=40345&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "238") { 		RedirectToTheASP("command=invoke&ids=40346&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "228") { 		RedirectToTheASP("command=invoke&ids=40347&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "190") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40348&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "260") { 		RedirectToTheASP("command=invoke&ids=40349&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "172") { 		RedirectToTheASP("command=invoke&ids=40352&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "7") { 		RedirectToTheASP("command=invoke&ids=40353&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "50") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40354&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "259") { 		RedirectToTheASP("command=invoke&ids=40355&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "226") { 		RedirectToTheASP("command=invoke&ids=40356&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "266") { 		RedirectToTheASP("command=invoke&ids=40357&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "154") { 		RedirectToTheASP("command=invoke&ids=40358&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "54") { 		RedirectToTheASP("command=invoke&ids=40359&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "144") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40360&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "276") { 		RedirectToTheASP("command=invoke&ids=40361&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "108") { 		RedirectToTheASP("command=invoke&ids=40362&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "180") { 		RedirectToTheASP("command=invoke&ids=40363&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "23") { 		RedirectToTheASP("command=invoke&ids=40364&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "140") { 		RedirectToTheASP("command=invoke&ids=40365&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "49") { 		RedirectToTheASP("command=invoke&ids=40366&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "130") { 		RedirectToTheASP("command=invoke&ids=40367&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "20") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40368&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "272") { 		RedirectToTheASP("command=invoke&ids=40369&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "273") { 		RedirectToTheASP("command=invoke&ids=40370&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "274") { 		RedirectToTheASP("command=invoke&ids=40371&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "8") { 		RedirectToTheASP("command=invoke&ids=40372&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "250") { 		RedirectToTheASP("command=invoke&ids=40373&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "14") { 		RedirectToTheASP("command=invoke&ids=40375&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "45") { 		RedirectToTheASP("command=invoke&ids=40376&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "47") { 		RedirectToTheASP("command=invoke&ids=40377&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "90") { 		RedirectToTheASP("command=invoke&ids=40378&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "100") { 		RedirectToTheASP("command=invoke&ids=40379&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "102") { 		RedirectToTheASP("command=invoke&ids=40380&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "128") { 		RedirectToTheASP("command=invoke&ids=40381&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "146") { 		RedirectToTheASP("command=invoke&ids=40382&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "148") { 		RedirectToTheASP("command=invoke&ids=40383&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "174") { 		RedirectToTheASP("command=invoke&ids=40384&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "178") { 		RedirectToTheASP("command=invoke&ids=40385&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "184") { 		RedirectToTheASP("command=invoke&ids=40386&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "185") { 		RedirectToTheASP("command=invoke&ids=40387&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "188") { 		RedirectToTheASP("command=invoke&ids=40388&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "195") { 		RedirectToTheASP("command=invoke&ids=40389&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "199") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40390&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "212") { 		RedirectToTheASP("command=invoke&ids=40391&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "224") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40392&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "232") { 		RedirectToTheASP("command=invoke&ids=40393&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "220") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40394&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "222") { 		RedirectToTheASP("command=invoke&ids=40395&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "234") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40396&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "216") { 		RedirectToTheASP("command=invoke&ids=40397&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "237") { 		RedirectToTheASP("command=invoke&ids=40398&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "214") { 		RedirectToTheASP("command=invoke&ids=40399&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "256") { 		RedirectToTheASP("command=invoke&ids=40400&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "258") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40401&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "263") { 		RedirectToTheASP("command=invoke&ids=40402&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "264") { 		RedirectToTheASP("command=invoke&ids=40403&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "257") { 		RedirectToTheASP("command=invoke&ids=40404&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "267") { 		RedirectToTheASP("command=invoke&ids=40405&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "268") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40406&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "270") { 		RedirectToTheASP("command=invoke&ids=40407&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "271") { 		RedirectToTheASP("command=invoke&ids=40408&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "275") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40409&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "280") { 		RedirectToTheASP("command=invoke&ids=40411&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "281") { 		RedirectToTheASP("command=invoke&ids=40412&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "282") { 		RedirectToTheASP("command=invoke&ids=40413&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "162") { 		RedirectToTheASP("command=invoke&ids=40414&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "165") { 		RedirectToTheASP("command=invoke&ids=40415&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "10") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40416&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "283") { 		RedirectToTheASP("command=invoke&ids=40417&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "283") { 		RedirectToTheASP("command=invoke&ids=40418&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "210") { 		RedirectToTheASP("command=invoke&ids=40419&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "206") { 		RedirectToTheASP("command=invoke&ids=40420&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "284") { 		RedirectToTheASP("command=invoke&ids=40421&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "286") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40424&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "182") { 		RedirectToTheASP("command=invoke&ids=40425&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "16") { 		RedirectToTheASP("command=invoke&ids=40426&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "156") { 		RedirectToTheASP("command=invoke&ids=40427&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "41") { 		RedirectToTheASP("command=invoke&ids=40428&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "279") { 		RedirectToTheASP("command=invoke&ids=40429&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "114") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40430&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "288") { 		RedirectToTheASP("command=invoke&ids=40431&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "289") { 		RedirectToTheASP("command=invoke&ids=40432&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "290") { 		RedirectToTheASP("command=invoke&ids=40433&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "291") { 		RedirectToTheASP("command=invoke&ids=40434&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "293") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40435&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "292") { 		RedirectToTheASP("command=invoke&ids=40436&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "294") { 		RedirectToTheASP("command=invoke&ids=40437&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "0") { 		RedirectToTheASP("command=invoke&ids=41388&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "296") { 		RedirectToTheASP("command=invoke&ids=40441&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "297") { 		RedirectToTheASP("command=invoke&ids=40442&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "298") { 		RedirectToTheASP("command=invoke&ids=40443&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "299") { 		RedirectToTheASP("command=invoke&ids=40444&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "300") { 		RedirectToTheASP("command=invoke&ids=40445&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "301") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40446&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "302") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40447&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "303") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40448&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "304") { 		RedirectToTheASP("command=invoke&ids=40449&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "305") { 		RedirectToTheASP("command=invoke&ids=40450&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "269") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40451&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "132") { 		RedirectToTheASP("command=invoke&ids=40452&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "40") { 		RedirectToTheASP("command=invoke&ids=40453&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "306") { 		RedirectToTheASP("command=invoke&ids=40454&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "22") { 		RedirectToTheASP("command=invoke&ids=40457&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "167") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40459&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "msn") { 		RedirectToTheASP("command=invoke&ids=40460&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "regent") { 		RedirectToTheASP("command=invoke&ids=40461&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "145") { 		RedirectToTheASP("command=invoke&ids=40462&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "19") { 		RedirectToTheASP("command=invoke&ids=40463&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "59") { 		RedirectToTheASP("command=invoke&ids=40464&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "157") { 		RedirectToTheASP("command=invoke&ids=40465&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "where") { 		RedirectToTheASP("command=invoke&ids=40466&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "52") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=40468&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "323") { 		RedirectToTheASP("command=invoke&ids=40470&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "328") { 		RedirectToTheASP("command=invoke&ids=40472&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "327") { 		RedirectToTheASP("command=invoke&ids=40473&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "329") { 		RedirectToTheASP("command=invoke&ids=40474&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "330") { 		RedirectToTheASP("command=invoke&ids=40475&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "336") { 		RedirectToTheASP("command=invoke&ids=40581&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "339") { 		RedirectToTheASP("command=invoke&ids=40728&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "319") { 		RedirectToTheASP("command=invoke&ids=40739&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "324") { 		RedirectToTheASP("command=invoke&ids=40972&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "15") { 		RedirectToTheASP("command=invoke&ids=40975&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "278") { 		RedirectToTheASP("command=invoke&ids=40989&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "240") { 		RedirectToTheASP("command=invoke&ids=40999&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "277") { 		RedirectToTheASP("command=invoke&ids=41000&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "287") { 		RedirectToTheASP("command=invoke&ids=41001&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "295") { 		RedirectToTheASP("command=invoke&ids=41002&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "308") { 		RedirectToTheASP("command=invoke&ids=41003&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "309") { 		RedirectToTheASP("command=invoke&ids=41004&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "285") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41005&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "332") { 		RedirectToTheASP("command=invoke&ids=41007&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "318") { 		RedirectToTheASP("command=invoke&ids=41008&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "326") { 		RedirectToTheASP("command=invoke&ids=41188&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "316") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41361&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "310") { 		RedirectToTheASP("command=invoke&ids=41200&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "325") { 		RedirectToTheASP("command=invoke&ids=41202&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "307") { 		RedirectToTheASP("command=invoke&ids=41203&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "321") { 		RedirectToTheASP("command=invoke&ids=41208&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "331") { 		RedirectToTheASP("command=invoke&ids=41220&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "320") { 		RedirectToTheASP("command=invoke&ids=41221&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "340") { 		RedirectToTheASP("command=invoke&ids=41275&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "338") { 		RedirectToTheASP("command=invoke&ids=41378&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "265") { 		RedirectToTheASP("command=invoke&ids=41300&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "341") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41362&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "334") { 		RedirectToTheASP("command=invoke&ids=41376&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "314") { 		RedirectToTheASP("command=invoke&ids=41377&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "335") { 		RedirectToTheASP("command=invoke&ids=41379&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "313") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41380&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "333") { 		RedirectToTheASP("command=invoke&ids=41381&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "315") { 		RedirectToTheASP("command=invoke&ids=41382&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "322") { 		RedirectToTheASP("command=invoke&ids=41383&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "317") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41384&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "311") { 		RedirectToTheASP("command=invoke&ids=41385&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "312") { 	 $nopopup = "1";	RedirectToTheASP("command=invoke&ids=41386&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "337") { 		RedirectToTheASP("command=invoke&ids=41387&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "5") { 		RedirectToTheASP("command=invoke&ids=41558&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "18") { 		RedirectToTheASP("command=invoke&ids=41559&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "207") { 		RedirectToTheASP("command=invoke&ids=41560&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "43") { 		RedirectToTheASP("command=invoke&ids=41561&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "171") { 		RedirectToTheASP("command=invoke&ids=41562&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "21") { 		RedirectToTheASP("command=invoke&ids=41563&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "217") { 		RedirectToTheASP("command=invoke&ids=41564&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "101") { 		RedirectToTheASP("command=invoke&ids=41565&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "183") { 		RedirectToTheASP("command=invoke&ids=41566&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "211") { 		RedirectToTheASP("command=invoke&ids=41567&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "189") { 		RedirectToTheASP("command=invoke&ids=41568&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "48") { 		RedirectToTheASP("command=invoke&ids=41569&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "177") { 		RedirectToTheASP("command=invoke&ids=41570&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "209") { 		RedirectToTheASP("command=invoke&ids=41571&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "169") { 		RedirectToTheASP("command=invoke&ids=41572&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "181") { 		RedirectToTheASP("command=invoke&ids=41573&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "11") { 		RedirectToTheASP("command=invoke&ids=41574&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "143") { 		RedirectToTheASP("command=invoke&ids=41575&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "4") { 		RedirectToTheASP("command=invoke&ids=41576&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "51") { 		RedirectToTheASP("command=invoke&ids=41577&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "30") { 		RedirectToTheASP("command=invoke&ids=41578&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "213") { 		RedirectToTheASP("command=invoke&ids=41579&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "46") { 		RedirectToTheASP("command=invoke&ids=41580&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "225") { 		RedirectToTheASP("command=invoke&ids=41581&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "253") { 		RedirectToTheASP("command=invoke&ids=41582&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "17") { 		RedirectToTheASP("command=invoke&ids=41583&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "135") { 		RedirectToTheASP("command=invoke&ids=41584&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "3") { 		RedirectToTheASP("command=invoke&ids=41585&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "106") { 		RedirectToTheASP("command=invoke&ids=41586&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "155") { 		RedirectToTheASP("command=invoke&ids=41587&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "239") { 		RedirectToTheASP("command=invoke&ids=41588&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "175") { 		RedirectToTheASP("command=invoke&ids=41589&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "151") { 		RedirectToTheASP("command=invoke&ids=41590&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "153") { 		RedirectToTheASP("command=invoke&ids=41591&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "1642234") { 		RedirectToTheASP("command=invoke&ids=41592&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "123") { 		RedirectToTheASP("command=invoke&ids=41593&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "198") { 		RedirectToTheASP("command=invoke&ids=41594&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "161") { 		RedirectToTheASP("command=invoke&ids=41595&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "235") { 		RedirectToTheASP("command=invoke&ids=41596&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "197") { 		RedirectToTheASP("command=invoke&ids=41597&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "159") { 		RedirectToTheASP("command=invoke&ids=41598&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "192") { 		RedirectToTheASP("command=invoke&ids=41599&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "223") { 		RedirectToTheASP("command=invoke&ids=41600&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "42") { 		RedirectToTheASP("command=invoke&ids=41601&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "38") { 		RedirectToTheASP("command=invoke&ids=41602&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "64") { 		RedirectToTheASP("command=invoke&ids=41603&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "163") { 		RedirectToTheASP("command=invoke&ids=41604&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "32") { 		RedirectToTheASP("command=invoke&ids=41605&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "168") { 		RedirectToTheASP("command=invoke&ids=41606&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "44") { 		RedirectToTheASP("command=invoke&ids=41607&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "25") { 		RedirectToTheASP("command=invoke&ids=41608&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "109") { 		RedirectToTheASP("command=invoke&ids=41609&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "115") { 		RedirectToTheASP("command=invoke&ids=41610&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "29") { 		RedirectToTheASP("command=invoke&ids=41611&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "200") { 		RedirectToTheASP("command=invoke&ids=41612&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "141") { 		RedirectToTheASP("command=invoke&ids=41613&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "105") { 		RedirectToTheASP("command=invoke&ids=41614&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "221") { 		RedirectToTheASP("command=invoke&ids=41615&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "243") { 		RedirectToTheASP("command=invoke&ids=41616&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "196") { 		RedirectToTheASP("command=invoke&ids=41617&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "57") { 		RedirectToTheASP("command=invoke&ids=41618&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "27") { 		RedirectToTheASP("command=invoke&ids=41619&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "127") { 		RedirectToTheASP("command=invoke&ids=41620&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "194") { 		RedirectToTheASP("command=invoke&ids=41621&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "205") { 		RedirectToTheASP("command=invoke&ids=41622&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "12") { 		RedirectToTheASP("command=invoke&ids=41623&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "131") { 		RedirectToTheASP("command=invoke&ids=41624&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "215") { 		RedirectToTheASP("command=invoke&ids=41625&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "133") { 		RedirectToTheASP("command=invoke&ids=41626&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "147") { 		RedirectToTheASP("command=invoke&ids=41627&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "1900") { 		RedirectToTheASP("command=invoke&ids=41628&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "173") { 		RedirectToTheASP("command=invoke&ids=41629&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "201") { 		RedirectToTheASP("command=invoke&ids=41630&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "218") { 		RedirectToTheASP("command=invoke&ids=41631&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "219") { 		RedirectToTheASP("command=invoke&ids=41632&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "179") { 		RedirectToTheASP("command=invoke&ids=41633&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "187") { 		RedirectToTheASP("command=invoke&ids=41634&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "245") { 		RedirectToTheASP("command=invoke&ids=41635&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "241") { 		RedirectToTheASP("command=invoke&ids=41636&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "110") { 		RedirectToTheASP("command=invoke&ids=41637&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "117") { 		RedirectToTheASP("command=invoke&ids=41638&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "28") { 		RedirectToTheASP("command=invoke&ids=41639&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "120") { 		RedirectToTheASP("command=invoke&ids=41640&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "60") { 		RedirectToTheASP("command=invoke&ids=41641&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "126") { 		RedirectToTheASP("command=invoke&ids=41642&ipid=" . $redirect_id . "&rids=40317"); } 
elsif ($redirect_st eq "31") { 		RedirectToTheASP("command=invoke&ids=41643&ipid=" . $redirect_id . "&rids=40317"); } 





   }
}

sub RedirectToPhase1Viewer {
   my ($parameters) = @_;
   $baseurl  = "http://www.visualfrenzy.com/vf/Viewer90?";
   MetaRefresh($baseurl . $parameters);
}

sub RedirectToPhase1Radisson {
   my ($parameters) = @_;
   $baseurl  = "http://www.visualfrenzy.com/vf/radissondynamic2?";
   MetaRefresh($baseurl . $parameters);
}

sub RedirectToPhase1Starwood {
   my ($parameters) = @_;
   $baseurl  = "http://www.visualfrenzy.com/vf/starwood2?";
   MetaRefresh($baseurl . $parameters);
}

sub RedirectToInternal {
   my ($parameters) = @_;
   $baseurl  = "http://192.168.253.36/exc/aspquery?";
   MetaRefresh($baseurl . $parameters);
}

sub RedirectToASP {
   my ($parameters) = @_;
   $baseurl  = "http://192.168.253.36/exc/aspquery?";
   MetaRefresh($baseurl . $parameters);
}

sub RedirectToTheASP {
   my ($parameters) = @_;
   $baseurl  = "http://www.vfmii.com/exc/aspquery?";
   MetaRefresh($baseurl . $parameters);
}

sub MetaRefresh {
   my ($base,$params) = @_;
   print "Content-type:text/html\n\n";
   print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=" . $base . $params . "\">";
   exit;
}

#------------------------



$thetime =      localtime;
$usersip =      $ENV{REMOTE_ADDR};
$videotoplay =  $FORM{id};
$vidspeed =     $FORM{sp};
$playertype =   $FORM{pl};
$playstyle =    $FORM{style};
#$referer =	    $ENV{HTTP_REFERER};
$referer	=      $FORM{'rf'} || "";
$linkedfromshort = $FORM{'rf'} || "";


#if it's blank then use the HTTP referer and strip it down to just the domain
if ($linkedfromshort eq "") {
        #$linkedfromshort = $referer;
        $linkedfromshort =~ s/http:\/\///i;
        $linkedfromshort =~ s{((/[^/]+){0}/).*}{$1};
        $linkedfromshort =~ s/\///i;
        $linkedfromshort =~ s/www.//i;

}




if ($playstyle eq "") { 
	$playstyle = $FORM{st};
}
else {
	$FORM{'st'} = $playstyle;
}


#if no style code is entered then default to the VFM Generic Viewer
if ($FORM{'st'} eq "") {
	$FORM{'st'} = "0";
}



$formid = $FORM{'id'};

#$servertouse = $FORM{server};
#$usercookie = $ENV{HTTP_COOKIE};
#$http_user_agent = $ENV{HTTP_USER_AGENT};
#$querystring = $ENV{QUERY_STRING};

$activitytype = "VID";
$st              = $FORM{'st'};
$servertouse     = $FORM{server} || "";
$usercookie      = $ENV{HTTP_COOKIE} || "";
$http_user_agent = $ENV{HTTP_USER_AGENT} || "";
$querystring     = $ENV{QUERY_STRING} || "";
$userbooking     = $FORM{booking} || "";



$streamfrom = "mms://wmd31sea.activate.net/visiontrip/asf/";

if ($FORM{'st'} eq "wynpopup") {
        #wyndham
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/Viewer10?id=$FORM{'id'}&st=$FORM{'st'}&frame=$FORM{'frame'}\">";
        exit;
}
if ($FORM{'st'} eq "4") {
        #Radisson old-style links
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/radissondynamic2?id=$FORM{'id'}&rf=$FORM{'rf'}&st=$FORM{'st'}\">";
        exit;
}
elsif ($FORM{'st'} eq "22") {
        #marriott
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/Viewer10?id=$FORM{'id'}&rf=$FORM{'rf'}&st=22\">";
        exit;
}
elsif ($FORM{'st'} eq "52") {
        #wyndham
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/Viewer10?id=$FORM{'id'}&st=52\">";
        exit;
}
elsif ($FORM{'st'} eq "msn") {
        #windowsmedia
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/Viewer10?id=$FORM{'id'}&st=msn\">";
        exit;
}
elsif ($FORM{'st'} eq "regent") {
        #Regent Wall Street
        print "Content-type:text/html\n\n";
        print "<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=http://www.visualfrenzy.com/vf/Viewer10?id=$FORM{'id'}&st=regent\">";
        exit;
}




if ($FORM{'st'} ne "") {

        $dbh = DBI-> connect('dbi:Pg:dbname=visualfrenzy','postgres','B1ng0s');
        $sqltosend = "select * from darlingtemplates where id='$FORM{'st'}'\;";
        $sth = $dbh -> prepare($sqltosend);
        $sth -> execute();  
        $Flag=0;
        $counter=0;
        $numrows = $sth->rows;
 
        if ($numrows > 0) { $Flag=1; }
        else { $Flag=0; } 

        $username = $FORM{'username'};
        $password = $FORM{'password'};

        if ($Flag eq 0) { 
                print "nothing to display";
        }
        elsif ($Flag eq 1) {
                while(@dat=$sth->fetchrow_array()) {
                        $id = $dat[0];
                        $description = $dat[1];
                        $pagebg = $dat[2];
			$normaltext = $dat[3];
			$buttonnormal = $dat[4];
			$buttonhighlighted = $dat[5];
			$buttontext = $dat[6];
			$showphone = $dat[7];
			$resstring = $dat[8];
			$showblackbar = $dat[9];
			$showpoweredby = $dat[10];
			$usepropertylink = $dat[11];
			$usetemplatelink = $dat[12];
			$exituponselection = $dat[13];
			$templatelink = $dat[14];
			$defaultcolours = $dat[15];
			$showreserve = $dat[16];
			$defaultrf = $dat[17];

				if ($linkedfromshort eq "") {
					$referer = $defaultrf;
					$linkedfromshort = $defaultrf;
				}


			if ($defaultcolours eq "1") {
				$pagebg = "FFFFFF";
				$normaltext = "000000";
				$buttonnormal = "FFFFFF";
				$buttonhighlighted = "EEEEEE";
				$buttontext = "333333";
			}
		}
	}
}
else {
         $id = $dat[0];
         $description = "";
         $pagebg = "FFFFFF";
         $normaltext = "000000"; 
         $buttonnormal = "0000FF"; 
         $buttonhighlighted = "00FFFF";
			$buttontext = "FFFFFF";
			$showphone = "n";
			$defaultcolours = "n";
			$showreserve = "y";
}

if ($FORM{'dt'} eq "") { 
	$ratesstring = $resstring; }
else { 
	$ratesstring = $FORM{'dt'}; 
        $ratesstring =~ tr/+/ /;
	$ratesstring =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        $ratesstring =~ s/<!--(.|\n)*-->//g;
        $ratesstring =~ tr/%26/&/;

}











   $idnum = $FORM{'id'};
   $sqltosend = "select * from properties where video='$idnum'\;";

        $dbh= DBI-> connect('dbi:Pg:dbname=visualfrenzy','postgres','B1ng0s');
        $sth = $dbh -> prepare($sqltosend);
        $sth -> execute();
        $Flag=0;
        $counter=0;
        $numrows = $sth->rows;

        if ($numrows > 0) { $Flag=1; }
        else { $Flag=0; }

        if ($Flag eq 0)  { print "nothing to display"; }
        elsif ($Flag eq 1)
        {
           while(@dat=$sth->fetchrow_array()) {
                $videonumber = $dat[0];
                $propertyname = $dat[4];
                $propertyname =~ s/\%26/\&/g;
                $propertyname =~ s/\%27/\'/g;
                $mailingaddr = $dat[5];
                $city = $dat[6];
                $state = $dat[7];
                $zipcode = $dat[8];
                $country = $dat[9];
                $phonenum = $dat[10];
                $tollfree = $dat[11];
                $fax = $dat[12];

		if ($usepropertylink eq "1" | ($FORM{'dl'} ne "") | ($FORM{'dt'} ne "")) { 
			if ($FORM{'dl'} eq "") {
				$bookingurl2 = "";
				#$bookingurl = $dat[14]; 
				#$bookingurl =~ s/http:\/\///i;
				#$bookingurl =~ s/https:\/\///i;
				#$bookingurl = "$bookingurl";	
		}
			else { 
				$bookingurl = $FORM{'dl'};
				$bookingurl =~ tr/+/ /;
				$bookingurl =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
				$bookingurl =~ s/<!--(.|\n)*-->//g;
				#$bookingurl =~ s/http:\/\///i;
				#$bookingurl =~ s/https:\/\///i;
				$bookingurl = "$bookingurl";
			}
		}

		if ($usetemplatelink eq "1") {
			$bookingurl = $templatelink;
			#$bookingurl =~ s/http:\/\///i;
			#$bookingurl =~ s/https:\/\///i;
			$bookingurl = "$bookingurl";
		}

		if (  $exituponselection eq "1" && ($FORM{'dl'} eq "") ) {
			$bookingurl = "javascript:window.close()";
		}

                $approved = $dat[18];
                $notes = $dat[24];
           }
        }






 
print "Content-type:text/html\n\n";



if ($approved eq "x") {


print "<html>
<head>
<title>Video not available</title>
</head>
<body>
<table width=400>
<tr>
<td width=350></td>
<td width=50>";

print "<a href=\"javascript:window.close()\"><img src=\"/images/exit.gif\" border=0></a></td>";

        print "<tr><td colspan=2><br>The video for this property is no longer available, press Exit to
continue.</td></tr></table>";

print "</body></html>";

        exit;

}





#if frame="" and $flag != true then do this
if ($FORM{'frame'} eq "" & $nopopup eq "0" ) {

   if (&GetCookies('darling')) { 
           $defplayer = $Cookies{'darling'};
   }

   print q[<html>
   <head><title>];
   print "Launching...";
   print q[</title>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
   <script language="JavaScript">   

	function ReDirectOr() {

   	var agt=navigator.userAgent.toLowerCase();
   	var agt=navigator.userAgent.toLowerCase();
   	var is_major = parseInt(navigator.appVersion);
   	var is_minor = parseFloat(navigator.appVersion);
   	var is_nav = ((agt.indexOf('mozilla')!=-1) && (agt.indexOf('spoofer')==-1) && (agt.indexOf('compatible') == -1) && (agt.indexOf('opera')==-1) && (agt.indexOf('webtv')==-1));
   	var is_nav2 = (is_nav && (is_major == 2));
   	var is_nav3 = (is_nav && (is_major == 3));
   	var is_nav4 = (is_nav && (is_major == 4));
   	var is_nav4up = (is_nav && (is_major >= 4));
   	var is_navonly = (is_nav && ((agt.indexOf(";nav") != -1) || (agt.indexOf("; nav") != -1)) );
   	var is_nav5 = (is_nav && (is_major == 5));
   	var is_nav5up = (is_nav && (is_major >= 5));
   	var is_ie = (agt.indexOf("msie") != -1);
   	var is_ie3 = (is_ie && (is_major < 4));
   	var is_ie4 = (is_ie && (is_major == 4) && (agt.indexOf("msie 5.0")==-1) );
   	var is_ie4up = (is_ie && (is_major >= 4));
   	var is_ie5 = (is_ie && (is_major == 4) && (agt.indexOf("msie 5.0")!=-1) );
   	var is_ie5up = (is_ie && !is_ie3 && !is_ie4);
   	var is_aol = (agt.indexOf("aol") != -1);
   	var is_aol3 = (is_aol && is_ie3);
   	var is_aol4 = (is_aol && is_ie4);
   	var is_opera = (agt.indexOf("opera") != -1);
   	var is_webtv = (agt.indexOf("webtv") != -1);
   
   	if (is_nav4||is_webtv||is_ie3||is_nav3) {  
   	];

   		#print q[alert('];
   		print q[msg=window.open('];

   		if ($defplayer eq "") {
   			     print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=settings&pl=&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}&browser=ns4";  
   		        print "','','height=352,width=451,toolbar=no,scrollbars=no');";
   		        if ($nb ne "1") { 
   		         print "history.back();"; 
   		        }
   		}
   		else {
   		        print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=video&pl=$defplayer&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}&browser=ns4";
   		        print "','','height=352,width=451,toolbar=no,scrollbars=no');";
   		        if ($nb ne "1") { 
   		         print "history.back();";
   		        }
   		}

   	   print q[
   	}
   	else {  
   	];

   		#print q[alert('];
   		print q[msg=window.open('];
   
   		if ($defplayer eq "") {
   			print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=settings&pl=&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}";  
   		        print "','','height=352,width=451,toolbar=no,scrollbars=no');";
   		        
   		        if ($nb ne "1") { 
   		         print "history.back();";
   		        }
   		        
   		}
   		else {
   		       	print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=video&pl=$defplayer&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}";
   		        print "','','height=352,width=451,toolbar=no,scrollbars=no');";
   		        
   		        if ($nb ne "1") { 
   		         print "history.back();";
   		        }		        		       
   
   		}


 
	print q[;
	}
}





</script></head>
<body onLoad="ReDirectOr();" bgcolor="#ffffff" text="#000000">launching dynamic player


</body>
</html>];
exit;





}

elsif ($FORM{'frame'} eq "" & $nopopup eq "1") {
#elsif ($nopopup eq "1") {
   
   if (&GetCookies('darling')) { 
           $defplayer = $Cookies{'darling'};
   }

   #print "Content-type:text/html\n\n";
   print "<html><head>\n";
   print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0; url=";
	
	if ($defplayer eq "") {
		print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=settings&pl=&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}";  
	}
	else {
     	print "http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=video&pl=$defplayer&rf=$FORM{'rf'}&st=$FORM{'st'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}";
   }
   print "\">";
   
   
   
   print "</head><body>";
   print "";
   print "</body></html>\n";
   exit;

}



elsif ($FORM{'frame'} eq "settings") {

print "<html>
<head>

<title>Please Select Video Preferences</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<style type=\"text/css\">
.hugetext {font-family: Verdana,Arial,Helvetica\; font-size: 14pt\; font-weight:bold\; color:#000000\;}
.maintext {  font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000 ; font-style: normal; font-weight: normal; margin-right: 14px; margin-left: 4px}
.maintextbold {  font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000 ; font-style: normal; font-weight: bold}
</style>

<script language=\"JavaScript\">";


print q[


function get_radio_value (radio_array) {
  var i;
  for (i = 0; i < radio_array . length; ++ i)
        if (radio_array [i] . checked) 
                  return (radio_array [i] . value);
        return null; 
  } 


function WindowOpen() {
	msg=window.open('http://www.visualfrenzy.com/support.html','','height=600,resize=yes,width=775,toolbar=no,scrollbars=yes');
}


function putCookie() {
  cookie_name = "pl";
  var YouEntered;
  var swsetting;
  swsetting = "darling";
  var is_checked = window.document.vidsettings.remember.checked;

  value = (get_radio_value(window.document.vidsettings.pl));

  if (is_checked == true) {
        if(document.cookie != document.cookie) {
          index = document.cookie.indexOf(cookie_name);
        }
        else {
          index = -1;
        }
        if (index == -1) {
          YouEntered=escape(value);
          document.cookie=swsetting+"="+YouEntered+"; expires=Monday, 04-Apr-2010 05:00:00 GMT";
        }
  }
}

function GetCookie (name) {
  var arg = name + "=";
  var alen = arg.length;
  var clen = document.cookie.length;
  var i = 0;
  while (i < clen) {
    var j = i + alen;
    if (document.cookie.substring(i, j) == arg)
    return getCookieVal (j);
    i = document.cookie.indexOf(" ", i) + 1;
    if (i == 0) break;
  }
  return null;
}
</script>
];


print "
</head>

<body link=\"#000000\" vlink=\"#000000\">

<form name=\"vidsettings\" action=\"http://www.visualfrenzy.com/vf/Viewer?id=$FORM{'id'}&frame=video\" 
onSubmit=\"putCookie();\">";



print "<br><a href=\"http://www.visualfrenzy.com/support.html\" target=\"_blank\"><img 
src=\"/templates/darling2/images/spacer.gif\" 
width=\"384\" height=\"1\" border=\"0\"><img 
src=\"/templates/starwood2/images/help.gif\" border=0></a><br>\n";


print "<input type=\"hidden\" name=\"id\" value=\"$FORM{'id'}\">\n";
print "<input type=\"hidden\" name=\"br\" value=\"$FORM{'br'}\">\n";
print "<input type=\"hidden\" name=\"st\" value=\"$FORM{'st'}\">\n";
print "<input type=\"hidden\" name=\"rf\" value=\"$FORM{'rf'}\">\n";
print "<input type=\"hidden\" name=\"browser\" value=\"$FORM{'browser'}\">\n";

if ($FORM{'dl'} ne "") {
   print "<input type=\"hidden\" name=\"dl\" value=\"$FORM{'dl'}\">\n";
}

if ($FORM{'dt'} ne "") {
   print "<input type=\"hidden\" name=\"dt\" value=\"$FORM{'dt'}\">\n";
}

if ($usetemplatelink eq "1" & $exituponselection ne "1") {
	print "<input type=\"hidden\" name=\"dl\" value=\"$bookingurl\">\n";
	print "<input type=\"hidden\" name=\"dt\" value=\"$ratesstring\">\n";
}

print "<input type=\"hidden\" name=\"frame\" value=\"video\">\n";

print "<table border=0 width=440>\n";
print "<tr><td colspan=7><center><div class=hugetext>To Play Video Please Select<br>Your Video Preferences</tr>";

print "<tr height=50>
<td width=130><a href=\"http://www.real.com\" target=\"_blank\"><img src=\"/templates/starwood2/real.gif\" 
border=0></a></td>
<td width=20><input type=radio name=\"pl\" value=\"R300\"></td>
<td class=\"maintext\" width=200><center>DSL/Lan/T1</center></td>
<td width=20><input type=radio name=\"pl\" value=\"R100\"></td>
<td class=\"maintext\" width=200><center>100K/ISDN</center></td>
<td width=20><input type=radio name=\"pl\" value=\"R56\"></td>
<td class=\"maintext\" width=200><center>56K/Dial-Up</center></td>
</tr>

<tr height=50>
<td width=130><a href=\"http://www.microsoft.com/windows/windowsmedia/download/default.asp\" target=\"_blank\"><img 
src=\"/templates/starwood2/wmp.gif\" 
border=0></a></td>
<td width=20><input type=radio name=\"pl\" value=\"W300\" checked></td>
<td class=\"maintext\" width=200><center>DSL/Lan/T1</a></center></td>
<td width=20><input type=radio name=\"pl\" value=\"W100\"></td>
<td class=\"maintext\" width=200><center>100K/ISDN</center></td>
<td width=20><input type=radio name=\"pl\" value=\"W56\" onClick=\"putCookie('pl','W56');\"></td>
<td class=\"maintext\" width=200><center>56K/Dial-Up</center></td>
</tr>

<tr height=50>
<td width=130><a href=\"http://www.apple.com/quicktime\" target=\"_blank\"><img src=\"/templates/starwood2/quicktime.gif\"
border=0></a></td>
<td width=20><input type=radio name=\"pl\" value=\"Q300\"></td>
<td class=\"maintext\" width=200><center>DSL/Lan/T1</center></td>
<td width=20></td>
<td class=\"maintext\" width=200></td>
<td width=20><input type=radio name=\"pl\" value=\"Q56\"></td>
<td class=\"maintext\" width=200><center>56K/Dial-Up</td>
</tr>


<tr height=40>
<td colspan=2>&nbsp;</td>
<td colspan=3><center><div class=\"maintext\"><input type=\"checkbox\" name=\"remember\"> Remember Video 
Settings</div></center></td></td>
<td colspan=2>&nbsp;</td>
</tr>

<tr>
<td colspan=2>&nbsp;</td>
<td colspan=3><center><div class=\"maintext\"><input name=\"submitbutt\" type=\"submit\"
 value=\"Play Video\"></div></center></td></td>
<td colspan=2>&nbsp;</td>
</tr>

</table>
</form>
</body>
</html>";

}









elsif ($FORM{'frame'} eq "video") {




if ($FORM{'browser'} eq "ns4") {


	print "<html>
<head>
<title>$propertyname - Video</title>
</head>

<body topmargin=\"0\" marginheight=\"0\" leftmargin=\"0\" marginwidth=\"0\">";

print "<table border=0 cellpadding=0 cellspacing=0 width=450>

<tr><td colspan=2>";

	print "<IMG SRC=\"/templates/headers/";
	print "$FORM{'st'}";
	print ".jpg\" ALT=\"\">\n";

print "</td></tr>

<tr><td colspan=2>$propertyname</td></tr>
<tr><td width=240>

";

if ($FORM{'pl'} eq "") {                
        if ($FORM{'sp'} eq "") {
		print "<img SRC=\"/templates/images/$FORM{'id'}.jpg\" WIDTH=240 HEIGHT=180>";
	}
}

elsif ($FORM{'pl'} eq "W300") {

	$vidspeed = "300";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}high.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object>];
}
        
elsif ($FORM{'pl'} eq "W100") {

	$vidspeed = "100";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}mid.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object>];
}


elsif ($FORM{'pl'} eq "W56") { 

	$vidspeed = "56";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}low.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object>];
}
 
elsif ($FORM{'pl'} eq "R300") {

	$vidspeed = "300";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}high.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}high.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>


	];   
}
elsif ($FORM{'pl'} eq "R100") {

	$vidspeed = "100";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}mid.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin 
src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}mid.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>


	];   
}

elsif ($FORM{'pl'} eq "R56") {

	$vidspeed = "56";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}low.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}low.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>

	];   
}


elsif ($FORM{'pl'} eq "Q300") {

	$vidspeed = "300";
                
	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

	print q[
	<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="240" HEIGHT="192"
 	CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
	];
                
	print "<PARAM name=\"SRC\" VALUE=\"http://www.visualfrenzy.com/qt/$FORM{'id'}high.mov\">\n";

	print q[
        <PARAM name="SCALE" VALUE="TOFIT">
	<PARAM name="AUTOPLAY" VALUE="true">
	<PARAM name="CONTROLLER" VALUE="true">
	];

	print "<EMBED SRC=\"http://www.visualfrenzy.com/qt/$FORM{'id'}high.mov\" SCALE=\"TOFIT\" WIDTH=\"240\" HEIGHT=\"192\" AUTOPLAY=\"true\" CONTROLLER=\"true\" PLUGINSPAGE=\"http://www.apple.com/quicktime/download/\">\n";
	print q[</EMBED></OBJECT>];
}

elsif ($FORM{'pl'} eq "Q56") {

	$vidspeed = "56";
                
	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

	print q[
	<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="240" HEIGHT="192" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
	];
                
	print "<PARAM name=\"SRC\" VALUE=\"http://www.visualfrenzy.com/qt/$FORM{'id'}low.mov\">\n";

	print q[
        <PARAM name="SCALE" VALUE="TOFIT">
	<PARAM name="AUTOPLAY" VALUE="true">
	<PARAM name="CONTROLLER" VALUE="true">
	];

	print "<EMBED SRC=\"http://www.visualfrenzy.com/qt/$FORM{'id'}low.mov\" SCALE=\"TOFIT\" WIDTH=\"240\" HEIGHT=\"192\" AUTOPLAY=\"true\" CONTROLLER=\"true\" PLUGINSPAGE=\"http://www.apple.com/quicktime/download/\">\n";
	print q[</EMBED></OBJECT>];

}


print "

</td>
<td valign=top>

<center>
<a href=\"/vf/Viewer?id=$FORM{'id'}&frame=settings&st=$FORM{'st'}&rf=$FORM{'rf'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}&browser=$FORM{'browser'}\">
settings</a> . 
<a href=\"http://www.visualfrenzy.com/support.html\" target=\"_blank\">help</a> . 
<a href=\"javascript:window.close()\">close</a>
</center>";

print "<br>$mailingaddr<br>$city, $state";

#print LongStateToShort($state);

print "<br>$zipcode<br>";
if ($showphone eq "1") { print "<br>$tollfree"; }


print "<br><br>";


if ($showreserve eq "1" | ($FORM{'dl'} ne "") | ($FORM{'dt'} ne "")) { 

	print "<a href=\"http://www.visualfrenzy.com/vf/rc?id=$FORM{'id'}&url=$bookingurl&st=$FORM{'st'}\" ";
		
	if ($bookingurl ne "javascript:window.close()") {
		print "target=\"_blank\""; 
	}

	print ">$ratesstring</a>"; 
}



print "
</td>
</tr>
</table>

</body>
</html>";


	exit;


}





else {

#--- for normal browsers (anything other than NS4) execute this code:


print q[<HTML>
<HEAD>
<TITLE>];

print "$propertyname - Video</TITLE>";

print q[<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

<style type="text/css">];

print "

.maintext {  font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #$normaltext;
font-style: normal; font-weight: bold; margin-right: 4px; margin-left: 4px}

.buttontext {  font-family: Arial, Helvetica, sans-serif; font-size: 13px; color: #$buttontext; 
font-style: normal; font-weight: bold; margin-right: 4px; margin-left: 4px; z-index:3}

.resbuttons { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal; font-weight: bold;
font-variant: normal; text-decoration: none; background-color: #$buttonnormal; text-align: center; 
vertical-align: middle; height: 26px; width:
155px;
border: 1px #000000 solid; padding-top: 3px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; color:
$buttonnormal;
margin-top: 1px; margin-right: 1px; margin-bottom: 1px; margin-left: 1px; position: absolute; left: 289px; top: 
218px; z-index: 2; border-width: 1px 3px 3px 1px?, OffX=?, OffY=?, Positive=?)}

.resbuttonshover { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal; font-weight: 
bold;
font-variant: normal; background-color: #$buttonhighlighted; text-decoration: none; text-align: center; 
vertical-align:
middle; height: 26px; width:
155px;
border: 1px #000000 solid; padding-top: 3px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; color:
$buttonhighlighted;
margin-top: 1px; margin-right: 1px; margin-bottom: 1px; margin-left: 1px; position: absolute; left: 289px; top: 
218px; z-index: 2; border-width: 1px 3px 3px 1px?, OffX=?, OffY=?, Positive=?)}

.mainaddresstext { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal; 
font-weight: bold; font-variant: normal; text-decoration: none; background-color: #$pagebg; text-align: left; 
vertical-align: middle; height: 26px; width: 155px; color: $normaltext; position: absolute; left: 289px; top: 120px; 
z-index: 2)}

.blackbars { font-size: 1px; font-style:normal; background-color: #000000; color: #000000; position: absolute; left: 0px; top: 
70px; width:450px; height:1px; z-index: 0)}

.propertynametext { font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal; 
font-weight: bold; font-variant: normal; text-decoration: none; background-color: #$pagebg; text-align: left; 
vertical-align: middle; height: 2px; width: 320px; color: $normaltext; position: absolute; left: 8px; top: 77px; 
z-index: 2)}";


print q[

</style>  


	<script language="javascript">


	function WindowOpen() {
		msg=window.open('http://www.visualfrenzy.com/support.html','','height=600,resize=yes,width=775,toolbar=no,scrollbars=yes');
	}

        function goPlay() {
                objMediaPlayer.Play();
        }
        function goRewind() { 
                objMediaPlayer.CurrentPosition=(0);
        }
        function goStop() {
                objMediaPlayer.Stop();
        }

        function goPlayReal() {
                document.RV.DoPlay();
        }
        function goStopReal() {
                document.RV.DoPause();
        }
        function goRewindReal() {
                document.RV.DoRewind();
        }


</script>];


if ($FORM{'pl'} eq "W300" | $FORM{'pl'} eq "W100" | $FORM{'pl'} eq "W56") {
        print q[
<SCRIPT language="javascript" src="/volumeasf-dar2.js"></SCRIPT>];
}
elsif ($FORM{'pl'} eq "R300" | $FORM{'pl'} eq "R100" | $FORM{'pl'} eq "R56") {
        print q[
<SCRIPT language="javascript" src="/volumereal-dar2.js"></SCRIPT>];
}
elsif ($FORM{'pl'} eq "Q300" | $FORM{'pl'} eq "Q56") {
        print q[
		<script language="JavaScript">
			function InitVolControl() {
			}
		</script>
	];

}


print q[</HEAD>

];

#netscape4URL,anythingelseurl
print "<BODY BGCOLOR=#$pagebg LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 onLoad=\"InitVolControl();\">";

print q[

<TABLE WIDTH=451 BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD COLSPAN=11>];

print "<IMG SRC=\"/templates/headers/";
print "$FORM{'st'}";
print ".jpg\" ALT=\"\">\n";


if ($showreserve eq "1" | ($FORM{'dl'} ne "") | ($FORM{'dt'} ne "")) { 

	#if ($bookingurl ne "") { 
	if ($exituponselection eq "1") {
		print "<a href=\"javascript:window.close()\" ";
		print " class=\"resbuttons\" onMouseOver=\"this.className='resbuttonshover';\" onMouseOut=\"this.className='resbuttons';\"><div class=\"buttontext\">$ratesstring</div></a>"; 
		print "<img style=\"position:absolute; left:442px; top:218px; z-index:10\" src=\"/templates/darling2/images/rightside.gif\">";
		print "<img style=\"position:absolute; left:290px; top:242px; z-index:10\" src=\"/templates/darling2/images/bottom.gif\">";

	}
	
	else {
	
		print "<a href=\"http://www.visualfrenzy.com/vf/rc?id=$FORM{'id'}&url=$bookingurl&st=$FORM{'st'}\" ";
		
		if ($bookingurl ne "javascript:window.close()") {
			print "target=\"_blank\";"; 
		}

		print " class=\"resbuttons\" onMouseOver=\"this.className='resbuttonshover';\" onMouseOut=\"this.className='resbuttons';\"><div class=\"buttontext\">$ratesstring</div></a>"; 
		print "<img style=\"position:absolute; left:442px; top:218px; z-index:10\" src=\"/templates/darling2/images/rightside.gif\">";
		print "<img style=\"position:absolute; left:290px; top:242px; z-index:10\" src=\"/templates/darling2/images/bottom.gif\">";
	}
}



if ($playertype eq "W300" || $playertype eq "W100" || $playertype eq W56 || $playertype eq "R300" || $playertype eq "R100" || $playertype eq "R56") {

print q[
<div id="vslider" style="position:absolute; left: 166px; top: 316px; visibility:visible; z-index:0;">
<IMG name="vsliderpic" SRC="/templates/darling2/images/volume.gif" WIDTH=89 HEIGHT=18 ALT=""></div>

<div id="vsliderbutton" style="position:absolute; left: 
199px; top: 313px; visibility:visible; z-index:1;">
<img name="vsliderbuttonpic" src="/templates/darling2/images/volumebutton.gif"></div>
];
}


print "<div class=\"mainaddresstext\">$mailingaddr<br>$city, $state";

#print LongStateToShort($state);

print "<br>$zipcode<br>";
if ($showphone eq "1") { print "<br>$tollfree"; }
print "</div>";


print "<div class=\"propertynametext\">$propertyname</div>";


if ($showblackbar eq "1") { print "<div class=\"blackbars\"></div>"; }


		print q[</TD>
	</TR>
];




#if ($showblackbar eq "1") { print q[<TR><TD COLSPAN=11 BGCOLOR=000000 HEIGHT=1></TD></TR>];}



print q[
	<TR>
		<TD COLSPAN=8><IMG SRC="/templates/darling2/images/index_02.gif" WIDTH=324 HEIGHT=20 ALT=""></TD>
		<TD>];

		print "<a href=\"/vf/Viewer?id=$FORM{'id'}&frame=settings&st=$FORM{'st'}&rf=$FORM{'rf'}&dl=$FORM{'dl'}&dt=$FORM{'dt'}&browser=$FORM{'browser'}\">";

		print q[<IMG SRC="/templates/darling2/images/index_03.gif" WIDTH=51 HEIGHT=20 ALT="" BORDER=0></A></TD>
		<TD><a href="http://www.visualfrenzy.com/support.html" target="_blank"><IMG SRC="/templates/darling2/images/index_04.gif" WIDTH=34 HEIGHT=20 ALT="" border=0></a></TD>
		<TD><a href="javascript:window.close()"><IMG SRC="/templates/darling2/images/index_05.gif" WIDTH=42 HEIGHT=20 ALT="" border=0></a></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=20 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=11><IMG SRC="/templates/darling2/images/index_06.gif" WIDTH=451 HEIGHT=4 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=4 ALT=""></TD>
	</TR>
	<TR>
		<TD ROWSPAN=5><IMG SRC="/templates/darling2/images/index_07.gif" WIDTH=16 HEIGHT=260 ALT=""></TD>
		<TD COLSPAN=5 width=248 height=211 bgcolor=#D8D8D8>];




if ($FORM{'frame'} eq "") {
	print "<center><img SRC=\"/templates/images/$FORM{'id'}.jpg\"></center>";
}
elsif ($FORM{'frame'} eq "video") {



if ($FORM{'pl'} eq "") {                
        if ($FORM{'sp'} eq "") {
		print "<center><img SRC=\"/templates/images/$FORM{'id'}.jpg\" WIDTH=240 HEIGHT=180></center>";
	}
}

elsif ($FORM{'pl'} eq "W300") {

	$vidspeed = "300";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<center><object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}high.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object></center>];
}
        
elsif ($FORM{'pl'} eq "W100") {

	$vidspeed = "100";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<center><object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}mid.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object></center>];
}


elsif ($FORM{'pl'} eq "W56") { 

	$vidspeed = "56";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print q[<center><object id='objMediaPlayer' codeBase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,2,902' classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=240 height=203 type='application/x-oleobject' standby='Loading Player...'>];
	print "<param NAME='Filename' VALUE='$streamfrom$FORM{'id'}$FORM{'clip'}low.asf'>";
	print q[<param NAME='ShowControls' VALUE='False'>
	<param NAME='AutoRewind' VALUE='True'>
	<param NAME='ShowStatusBar' VALUE='True'>
	<param NAME='AutoStart' VALUE='True'>
	<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/" src="];
	print "$streamfrom$FORM{'id'}$FORM{'clip'}high.asf";
	print q[" showcontrols=0 showstatusbar=1 autostart=1 animationatstart=1 width=240 height=203 align="ABSMIDDLE"></embed></object></center>];
}
 
elsif ($FORM{'pl'} eq "R300") {

	$vidspeed = "300";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}high.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}high.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>


	];   
}

elsif ($FORM{'pl'} eq "R100") {

	$vidspeed = "100";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}mid.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}mid.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>


	];   
}

elsif ($FORM{'pl'} eq "R56") {

	$vidspeed = "56";

	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

        print "
	<OBJECT ID=RV CLASSID=\"clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\" WIDTH=240 HEIGHT=180>
	<PARAM NAME=\"src\" VALUE=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}low.rm\">
	<PARAM NAME=\"controls\" VALUE=\"ImageWindow\">
	<PARAM NAME=\"console\" VALUE=\"vts\">
	<PARAM NAME=\"autostart\" VALUE=\"true\">
	<PARAM NAME=\"border\" VALUE=\"0\">
	";
	print "<embed name=RV type=audio/x-pn-realaudio-plugin src=\"rtsp://rg2s01.activate.net/visiontrip/rm/$FORM{'id'}low.rm\"";
	print q[ width=240 height=180 controls="ImageWindow" console=vts autostart=true border=0><br>
	<embed type=audio/x-pn-realaudio-plugin width=240 height=23 controls=ControlPanel console=vts>
        </embed>
	</object>

	];   
}


elsif ($FORM{'pl'} eq "Q300") {

	$vidspeed = "300";
                
	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

	print q[
	<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="240" HEIGHT="192" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
	];
                
	print "<PARAM name=\"SRC\" VALUE=\"http://www.visualfrenzy.com/qt/$FORM{'id'}high.mov\">\n";

	print q[
        <PARAM name="SCALE" VALUE="TOFIT">
	<PARAM name="AUTOPLAY" VALUE="true">
	<PARAM name="CONTROLLER" VALUE="true">
	];

	print "<EMBED SRC=\"http://www.visualfrenzy.com/qt/$FORM{'id'}high.mov\" SCALE=\"TOFIT\" WIDTH=\"240\" HEIGHT=\"192\" AUTOPLAY=\"true\" CONTROLLER=\"true\" PLUGINSPAGE=\"http://www.apple.com/quicktime/download/\">\n";
	print q[</EMBED></OBJECT>];

}

elsif ($FORM{'pl'} eq "Q56") {

	$vidspeed = "56";
                
	$sth=$dbh-> prepare('INSERT into newdata4 values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
	$sth->execute($thetime,$usersip,$name,$referer,$videotoplay,$vidspeed,$playertype,$userbooking,$playerstyle,$usercookie,$http_user_agent,$querystring,$videosessionid,$sessionid,$viewerid,$linkedfromshort,$activitytype,$st) or die "can not execute";

	print q[
	<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="240" HEIGHT="192" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
	];
                
	print "<PARAM name=\"SRC\" VALUE=\"http://www.visualfrenzy.com/qt/$FORM{'id'}low.mov\">\n";

	print q[
        <PARAM name="SCALE" VALUE="TOFIT">
	<PARAM name="AUTOPLAY" VALUE="true">
	<PARAM name="CONTROLLER" VALUE="true">
	];

	print "<EMBED SRC=\"http://www.visualfrenzy.com/qt/$FORM{'id'}low.mov\" SCALE=\"TOFIT\" WIDTH=\"240\" HEIGHT=\"192\" AUTOPLAY=\"true\" CONTROLLER=\"true\" PLUGINSPAGE=\"http://www.apple.com/quicktime/download/\">\n";

	print q[</EMBED></OBJECT>];

}

}


		print q[
		</TD>
		<TD ROWSPAN=5><IMG SRC="/templates/darling2/images/index_09.gif" WIDTH=16 HEIGHT=260 ALT=""></TD>
		<TD COLSPAN=4 ROWSPAN=3><IMG SRC="/templates/darling2/images/index_10.gif" WIDTH=171 HEIGHT=222 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=211 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=5><IMG SRC="/templates/darling2/images/index_11.gif" WIDTH=248 HEIGHT=4 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=4 ALT=""></TD>
	</TR>
	<TR>
		<TD ROWSPAN=3><IMG SRC="/templates/darling2/images/index_12.gif" WIDTH=8 HEIGHT=45 ALT=""></TD>
		<TD ROWSPAN=2>];

			if ($playertype eq "W300" || $playertype eq "W100" || $playertype eq "W56") {

				print q[<a href="javascript:goPlay()"><IMG SRC="/templates/darling2/images/index_13.gif" WIDTH=65 HEIGHT=26 ALT="" border=0></a>];

			}
			elsif ($playertype eq "R300" || $playertype eq "R100" || $playertype eq "R56") {

				print q[<a href="javascript:goPlayReal()"><IMG SRC="/templates/darling2/images/index_13.gif" WIDTH=65 HEIGHT=26 ALT="" border=0></a>];

			}
			elsif ($playertype eq "Q300" || $playertype eq "Q56") {

				print q[<IMG SRC="/templates/darling2/images/qt_13.gif" WIDTH=65 HEIGHT=26 ALT="" border=0>];

			}


		print q[</TD>
		<TD ROWSPAN=3><IMG SRC="/templates/darling2/images/index_14.gif" WIDTH=3 HEIGHT=45 ALT=""></TD>
		<TD ROWSPAN=2>];



			if ($playertype eq "W300" || $playertype eq "W100" || $playertype eq "W56") {

				print q[<a href="javascript:goStop()"><IMG SRC="/templates/darling2/images/index_15.gif" WIDTH=65 HEIGHT=26 ALT="" border=0></a>];

			}
			elsif ($playertype eq "R300" || $playertype eq "R100" || $playertype eq "R56") {

				print q[<a href="javascript:goStopReal()"><IMG SRC="/templates/darling2/images/index_15.gif" WIDTH=65 HEIGHT=26 ALT="" border=0></a>];

			}
			elsif ($playertype eq "Q300" || $playertype eq "Q56") {

				print q[<IMG SRC="/templates/darling2/images/qt_15.gif" WIDTH=65 HEIGHT=26 ALT="" border=0>];

			}




		print q[</TD>
		<TD ROWSPAN=2><IMG SRC="/templates/darling2/images/index_16.gif" WIDTH=107 HEIGHT=26 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=7 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=4 ROWSPAN=2>];

	if ($showpoweredby eq "1") {
		print q[<A HREF="http://www.visualfrenzy.com" target="_blank"><IMG SRC="/templates/darling2/images/index_17.gif" WIDTH=171 HEIGHT=38 ALT="" BORDER=0></A>];
	}
	else {
		print q[<IMG SRC="/templates/1/spacer.gif" WIDTH=171 HEIGHT=38 ALT="" BORDER=0>];
	}

	print q[</TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=19 ALT=""></TD>
	</TR>
	<TR>
		<TD><IMG SRC="/templates/darling2/images/index_18.gif" WIDTH=65 HEIGHT=19 ALT=""></TD>
		<TD COLSPAN=2><IMG SRC="/templates/darling2/images/index_19.gif" WIDTH=172 HEIGHT=19 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=1 HEIGHT=19 ALT=""></TD>
	</TR>
	<TR>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=16 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=8 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=65 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=3 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=65 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=107 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=16 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=44 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=51 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=34 HEIGHT=1 ALT=""></TD>
		<TD><IMG SRC="/templates/darling2/images/spacer.gif" WIDTH=42 HEIGHT=1 ALT=""></TD>
		<TD></TD>
	</TR>
</TABLE>
</BODY>
</HTML>];


}
}


sub LongStateToShort {
        my $data = $_[ARG0];
        if (lc($data) eq "alabama") { $data2 = "AB"; }
        elsif (lc($data) eq "alaska") { $data2 = "AK"; }
        elsif (lc($data) eq "american samoa") { $data2 = "AS"; }
        elsif (lc($data) eq "arizona") { $data2 = "AZ"; }
        elsif (lc($data) eq "arkansas") { $data2 = "AR"; }
        elsif (lc($data) eq "california") { $data2 = "CA"; }
        elsif (lc($data) eq "colorado") { $data2 = "CO"; }
        elsif (lc($data) eq "connecticut") { $data2 = "CT"; }
        elsif (lc($data) eq "delaware") { $data2 = "DE"; }
        elsif (lc($data) eq "district of columbia") { $data2 = "DC"; }
        elsif (lc($data) eq "d.c.") { $data2 = "DC"; }
        elsif (lc($data) eq "florida") { $data2 = "FL"; }
        elsif (lc($data) eq "georgia") { $data2 = "GA"; }
        elsif (lc($data) eq "guam") { $data2 = "GU"; }
        elsif (lc($data) eq "hawaii") { $data2 = "HI"; }
        elsif (lc($data) eq "idaho") { $data2 = "ID"; }
        elsif (lc($data) eq "illinois") { $data2 = "IL"; }
        elsif (lc($data) eq "indiana") { $data2 = "IN"; }
        elsif (lc($data) eq "iowa") { $data2 = "IA"; }
        elsif (lc($data) eq "kansas") { $data2 = "KS"; }
        elsif (lc($data) eq "kentucky") { $data2 = "KY"; }
        elsif (lc($data) eq "louisiana") { $data2 = "LA"; }
        elsif (lc($data) eq "maine") { $data2 = "ME"; }
        elsif (lc($data) eq "marshall islands") { $data2 = "MH"; }
        elsif (lc($data) eq "maryland") { $data2 = "MD"; }
        elsif (lc($data) eq "massachusetts") { $data2 = "MA"; }
        elsif (lc($data) eq "michigan") { $data2 = "MI"; }
        elsif (lc($data) eq "minnesota") { $data2 = "MN"; }
        elsif (lc($data) eq "mississippi") { $data2 = "MS"; }
        elsif (lc($data) eq "missouri") { $data2 = "MO"; }
        elsif (lc($data) eq "montana") { $data2 = "MT"; }
        elsif (lc($data) eq "nebraska") { $data2 = "NE"; }
        elsif (lc($data) eq "nevada") { $data2 = "NV"; }
        elsif (lc($data) eq "new hampshire") { $data2 = "NH"; }
        elsif (lc($data) eq "new jersey") { $data2 = "NJ"; }
        elsif (lc($data) eq "new mexico") { $data2 = "NM"; }
        elsif (lc($data) eq "new york") { $data2 = "NY"; }
        elsif (lc($data) eq "north carolina") { $data2 = "NC"; }
        elsif (lc($data) eq "n. carolina") { $data2 = "NC"; }
        elsif (lc($data) eq "north dakota") { $data2 = "ND"; }
        elsif (lc($data) eq "ohio") { $data2 = "OH"; }
        elsif (lc($data) eq "oklahoma") { $data2 = "OK"; }
        elsif (lc($data) eq "oregon") { $data2 = "OR"; }
        elsif (lc($data) eq "pennsylvania") { $data2 = "PA"; }
        elsif (lc($data) eq "puerto rico") { $data2 = "PR"; }
        elsif (lc($data) eq "rhode island") { $data2 = "RI"; }
        elsif (lc($data) eq "south carolina") { $data2 = "SC"; }
        elsif (lc($data) eq "s. carolina") { $data2 = "SC"; }
        elsif (lc($data) eq "tennessee") { $data2 = "TN"; }
        elsif (lc($data) eq "texas") { $data2 = "TX"; }
        elsif (lc($data) eq "utah") { $data2 = "UT"; }
        elsif (lc($data) eq "vermont") { $data2 = "VT"; }
        elsif (lc($data) eq "virgin islands") { $data2 = "VI"; }
        elsif (lc($data) eq "virginia") { $data2 = "VA"; }
        elsif (lc($data) eq "washington") { $data2 = "WA"; }
        elsif (lc($data) eq "west virginia") { $data2 = "WV"; }
        elsif (lc($data) eq "wisconsin") { $data2 = "WI"; }
        elsif (lc($data) eq "wyoming") { $data2 = "WY"; }
        else {

                if (lc($dat[9]) eq "japan") {
                        $data2 = "JP";
                }
                elsif (lc($dat[9]) eq "canada") {
                        $data2 = "CAN";
                }
                else {
                        $data2 = $dat[9];
                }

        }
        print $data2;
        return;
}