https://drralphstanley.com/default.js

1<!--
2var win;
3var domain = "drralphstanley.com";
4var special;
5
6function openURI(site) {
7
8   win = window.open(site, "extwin");
9   win.focus();
10}
11
12function sendemail(name, subj)
13{
14   window.open("mailto:" + name + "@" + domain + "?subject=" + subj);
15}
16
17function confirmSubscription()
18{
19   var address = new String();
20
21   address = window.prompt( "Please enter your email address", "" );
22   if ( address ) {
23      document.verify.address.value = address;
24      return( true );
25   }
26   return( false );
27}
28
29//
30// Initialize the form with the URL query parameters provided
31//
32function getparam( param ) {
33
34   var loc = new String( document.location + "" );
35   var value = 0;
36
37   //
38   // http://domain.com/page.html?param1=value1&param2=value2&param3=value3
39   //
40   pstart = loc.indexOf( param );
41   if ( pstart != -1 ) {
42      vstart = loc.indexOf( "=", pstart ) + 1;
43      if ( vstart != -1) {
44         vend = loc.indexOf( "&", vstart );
45         if (vend == -1) vend = loc.length;
46         value = loc.slice( vstart, vend );
47      }
48   }
49   return ( value );
50}
51
52//
53// Open special notice page with dated material
54//
55function special( page, startdate, enddate )
56{
57   var today = new Date();
58   var StartDate = new Date( startdate );
59   var EndDate = new Date( enddate );
60
61//   alert( "Current date is " + today.getTime() + "\nStart is " + StartDate.getTime() + "\nEnd is " + EndDate.getTime() );
62   if ( page ) {
63//   alert( "Popup page is " + page );
64      if ( StartDate.getTime() <= today.getTime() && EndDate.getTime() >= today.getTime() ) {
65         special = window.open( page, "special", "height=590px,width=820px,location=no,menubar=no,resizable=no,scrollbars=yes" )
66         special.focus();
67//       alert( "Popup page " + page + " is displayed");
68//      } else
69//      {
70//         alert( "Start or end date is not in range" );
71      }
72   }
73}
74
75//
76// PerlShop Init Function
77// Sets the original referrer page for store exit
78//
79function PerlShopInit()
80{
81   var loc = new String( document.location );
82   var qindex = loc.indexOf( "?" );
83
84   if ( loc.indexOf( "?" ) == -1 )
85   {
86      document.store.RETURNPAGE.value = loc;
87   } else
88   {
89      document.store.RETURNPAGE.value = loc.substring( 0, qindex );
90   }
91}
92
93// -->