<perl> my @rv=(); if ( $ENV{REQUEST_URI} =~ m/international/i ) { push @rv, qq{theregister.net - International Hotel Guide}; } else { push @rv,qq{theregister.net - Trade Guide to UK hotels}; } return join '',@rv; </perl>

my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; $sessiondata->{style}='default' unless $sessiondata->{style}; $sessiondata->{abta}=0 unless $sessiondata->{abta}; my $zp=$cgi->param("z_pagecount") || 1; if ( $zp == -1 ) { $sessiondata->{pagecount}=0; } $session->data($sessiondata); use VB::Featured; my $search=new VB::Featured($dbh,$cgi,$session); $search->london; $search->country; my $sessiontemp=$session->temp; my @rv = (); return join "\n",@rv; <perl> my @rv=(); if ( $ENV{REQUEST_URI} =~ m/international/i ) { push @rv, qq{theregister.net - International Hotel Guide}; } else { push @rv,qq{theregister.net - Trade Guide to UK hotels}; } return join '',@rv; </perl>

my @rv=(); if ( $ENV{REQUEST_URI} =~ m/international/i ) { push @rv,qq{Map Search}; } else { push @rv,qq{Map Search}; } return join "",@rv; Special Offers my @rv=(); unless ( $ENV{REQUEST_URI} =~ m/international/i ) { push @rv,qq{International Hotels}; } return join '',@rv; Golf Hotels Wedding Venues Spa Hotels Receive Newsletter

Home

Advanced Search ABTA Login Your Hotel Feedback Sitemap Contact Us

International Hotel Guide

North America, Central America, South America, Europe, Africa, Asia, Australasia

Town / City
County / State
Country
Name of Hotel
Name of Group

Quick Search
Amsterdam Bangkok Brussels California Dubai Dublin Edinburgh London Mexico	Moscow New York Paris Phuket Portugal Rome Singapore Sydney Tokyo

The Hotel Register - Free Phone 0800 007 5600

International Hotel Guide