<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ADMSubs.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="UserExists.asp"
  MM_rsKeyConnection=MM_ADMSubs_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("EmailAddress"))
  MM_dupKeySQL="SELECT EmailAddress FROM dbo.EZineUsers WHERE EmailAddress='" & Replace(MM_dupKeyUsernameValue,"'","''") & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "WAATKRegistrationForm") Then

  MM_editConnection = MM_ADMSubs_STRING
  MM_editTable = "dbo.EZineUsers"
  MM_editRedirectUrl = "EZineUsers_LogIn.asp"
  MM_fieldsStr  = "EmailAddress|value|PWD|value|FirstName|value|LastName|value|CCRNotify|value|ADMNotify|value|GearNotify|value|NextIssNotify|value|EZineNotify|value|DoNotNotify|value"
  MM_columnsStr = "EmailAddress|',none,''|PWD|',none,''|FirstName|',none,''|LastName|',none,''|CCRNotify|none,1,0|ADMNotify|none,1,0|GearNotify|none,1,0|NextIssNotify|none,1,0|EZineNotify|none,1,0|DoNotNotify|none,1,0"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
	'~~~Get UserID~~~~~~~~~~~~~
		Set rsSqlGetIdentity = Server.CreateObject("ADODB.Recordset")
		SqlGetIdentity = "Select @@IDENTITY as NewID From dbo.EZineUsers"
		rsSqlGetIdentity.open SqlGetIdentity,MM_editCmd.ActiveConnection
 
		 Session("SessUID") = rsSqlGetIdentity("NewID")
		 Session("EmailAddress")= Request("EmailAddress")
		 
 
		rsSqlGetIdentity.close
		Set rsSqlGetIdentity = Nothing 
    	MM_editCmd.ActiveConnection.Close

	    If (Session("SessUID") <> "") Then
    	  Response.Redirect("EZineUsers_Registered.asp")
	    End If

	
	'~~~~~~~~~~~~~~~~~~~
	
   'MM_editCmd.ActiveConnection.Close

    'If (MM_editRedirectUrl <> "") Then
    '  Response.Redirect(MM_editRedirectUrl)
    'End If
  End If

End If
%>
<% 
if session("ad")=3 then 
   session("ad")=1 
else 
   session("ad")=session("ad")+1 
end if  
%> 
<HTML><!-- InstanceBegin template="/Templates/ADMMenuNEZine.dwt" codeOutsideHTMLIsLocked="false" -->
<HEAD>

<!-- InstanceBeginEditable name="doctitle" -->
<TITLE>Registration</TITLE>
<!-- InstanceEndEditable -->

<script language="JavaScript" type="text/javascript">
<!--



<!--
function PopWindow(PicVar, Cap)
{
PicVar="ImgPage.asp?PicVar=" + PicVar + "&Cap=" + Cap
window.open(PicVar,'Images','width=420,height=800,menubar=no,scrollbars=yes,toolbar=no,location=no,directories=no,resizable=no,top=0,left=0');
}
//-->
</script>


<META content="ADM Member Home" name=object>
<META content="ADM Member Home" name=keywords>
<META content="This is the member " name=description>
<META content=INDEX,FOLLOW name=robots>
<META content="1 day" name=revisit-after>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<LINK href="StyxStyle.css" type=text/css rel=stylesheet>
<!-- styles for demo menu #1-->
<link rel="stylesheet" href="menu.css">

<META content="MSHTML 6.00.2713.1100" name=GENERATOR>
<!-- InstanceBeginEditable name="head" -->
<link href="WA_SecurityAssist/styles/Refined_Pacifica.css" rel="stylesheet" type="text/css" />
<link href="WA_SecurityAssist/styles/Arial.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function WAAddError(formElement,errorMsg,focusIt,stopIt)  {
  if (document.WAFV_Error)  {
	  document.WAFV_Error += "\n" + errorMsg;
  }
  else  {
    document.WAFV_Error = errorMsg;
  }
  if (!document.WAFV_InvalidArray)  {
    document.WAFV_InvalidArray = new Array();
  }
  document.WAFV_InvalidArray[document.WAFV_InvalidArray.length] = formElement;
  if (focusIt && !document.WAFV_Focus)  {
	document.WAFV_Focus = focusIt;
  }

  if (stopIt == 1)  {
	document.WAFV_Stop = true;
  }
  else if (stopIt == 2)  {
	formElement.WAFV_Continue = true;
  }
  else if (stopIt == 3)  {
	formElement.WAFV_Stop = true;
	formElement.WAFV_Continue = false;
  }
}

function WAValidateEM(formElement,value,errorMsg,focusIt,stopIt,required) {
  var isValid = true;
  if ((!document.WAFV_Stop && !formElement.WAFV_Stop) && !(!required && value==""))  {
    var knownDomsPat = /^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
    var emailPat = /^(.+)@(.+)$/;
    var accepted = "\[^\\s\\(\\)><@,;:\\\\\\\"\\.\\[\\]\]+";
    var quotedUser = "(\"[^\"]*\")";
    var ipDomainPat = /^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
    var section = "(" + accepted + "|" + quotedUser + ")";
    var userPat = new RegExp("^" + section + "(\\." + section + ")*$");
    var domainPat = new RegExp("^" + accepted + "(\\." + accepted +")*$");
    var theMatch = value.match(emailPat);
    var acceptedPat = new RegExp("^" + accepted + "$");
    var userName = "";
    var domainName = "";
    if (theMatch==null) {
      isValid = false;
    }
    else  {
      userName = theMatch[1];
      domainName = theMatch[2];
	  var domArr = domainName.split(".");
	  var IPArray = domainName.match(ipDomainPat);
      for (x=0; x < userName.length; x++) {
        if ((userName.charCodeAt(x) > 127 && userName.charCodeAt(x) < 192) || userName.charCodeAt(x) > 255) {
          isValid = false;
        }
      }
      for (x=0; x < domainName.length; x++) {
        if ((domainName.charCodeAt(x) > 127 && domainName.charCodeAt(x) < 192) || domainName.charCodeAt(x) > 255) {
          isValid = false;
        }
      }
      if (userName.match(userPat) == null) {
        isValid = false;
      }
      if (IPArray != null) {
        for (var x=1; x<=4; x++) {
          if (IPArray[x] > 255) {
            isValid = false;
          }
        }
      }
      for (x=0; x < domArr.length; x++) {
        if (domArr[x].search(acceptedPat) == -1 || domArr[x].length == 0 || (domArr[x].length < 2 && x >= domArr.length-2)) {
          isValid = false;
        }
      }
      if (domArr[domArr.length-1].length !=2 && domArr[domArr.length-1].search(knownDomsPat) == -1) {
        isValid = false;
      }
      if (domArr.length < 2) {
        isValid = false;
      }
    }
  }
  if (!isValid)  {
    WAAddError(formElement,errorMsg,focusIt,stopIt);
  }
}

function WAValidateAN(formElement,value,errorMsg,allowUpper,allowLower,allowNumbers,allowSpace,extraChars,focusIt,stopIt,required)  {
  var isValid = true;
  extraChars = extraChars.replace(/&quot;/g,'"');
  if ((!document.WAFV_Stop && !formElement.WAFV_Stop) || formElement.WAFV_Continue)  {
    for (var x=0; x<value.length; x++)  {
	  var charGood = false;
	  var nextChar = value.charAt(x);
	  var charCode = value.charCodeAt(x);
	  if (allowLower)  {
	    if (charCode >= 97 && charCode <= 122)  {
		  charGood = true;
		}
	  }
	  if (allowUpper)  {
	    if (charCode >= 65 && charCode <= 90)  {
		  charGood = true;
		}
	  }
	  if (allowNumbers)  {
	    if (charCode >= 48 && charCode <= 57)  {
		  charGood = true;
		}
	  }
	  if (allowSpace)  {
	    if (nextChar == " ")  {
		  charGood = true;
		}
	  }
	  if (extraChars)  {
	    if (unescape(extraChars).indexOf(nextChar) >= 0)  {
		  charGood = true;
		}
	  }
	  if (!charGood)  {
	    isValid = false;
		x = value.length;
	  }
	}
	if (required && value=="")
	  isValid = false;
  }
  if (!isValid)  {
    WAAddError(formElement,errorMsg,focusIt,stopIt);
  }
}

function WAAlertErrors(errorHead,errorFoot,setFocus,submitForm)  { 
  if (!document.WAFV_StopAlert)  { 
	  document.WAFV_StopAlert = true;
	  if (document.WAFV_InvalidArray)  {  
	    document.WAFV_Stop = true;
        var errorMsg = document.WAFV_Error;
	    if (errorHead!="")
		  errorMsg = errorHead + "\n" + errorMsg;
		if (errorFoot!="")
		  errorMsg += "\n" + errorFoot;
		document.MM_returnValue = false;
		if (document.WAFV_Error!="")
		  alert(errorMsg.replace(/&quot;/g,'"'));
		else if (submitForm)
		  submitForm.submit();
	    if (setFocus && document.WAFV_Focus)  {
		  document.tempFocus = document.WAFV_Focus;
          setTimeout("document.tempFocus.focus();setTimeout('document.WAFV_Stop = false;document.WAFV_StopAlert = false;',1)",1); 
        }
        else {
          document.WAFV_Stop = false;
          document.WAFV_StopAlert = false;
        }
        for (var x=0; x<document.WAFV_InvalidArray.length; x++)  {
	      document.WAFV_InvalidArray[x].WAFV_Stop = false;
	    }
	  }
	  else  {
        document.WAFV_Stop = false;
        document.WAFV_StopAlert = false;
	    if (submitForm)  {
	      submitForm.submit();
	    }
	    document.MM_returnValue = true;
	  }
      document.WAFV_Focus = false;
	  document.WAFV_Error = false;
	  document.WAFV_InvalidArray = false;
  }
}
//-->
</script><!-- InstanceEndEditable -->
</HEAD>
<BODY text=#000000 bgColor=#999999 leftMargin=20 topMargin=10 
onload="MM_preloadImages('/images/footer_r1_c7_f2.gif','/images/footer_r1_c9_f2.gif')" 
marginheight="10" marginwidth="10"><table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#999999">
	  <TABLE borderColor=#cccccc cellSpacing=2 cellPadding=1 width="100%" 
      bgColor=#999999 border=1>
        <TBODY>
        <TR vAlign=top align=left>
          <TD width="65%">
            <TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
              <TBODY>
              <TR>
                <TD id=title>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR><TD align="center"><img src="images/EZINEBANNER.JPG" alt="EZine banner" width="819" height="134"></TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
	  
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD><!-- START: navbar.tpl -->
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR vAlign=top align=left>
                <TD bgColor=#000000>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR vAlign=top align=left>
                <TD bgColor=#000000>
                  <TABLE width="600" border=0 align="left" cellPadding=0 cellSpacing=0>
                          <TBODY>
                            <TR> 
                                      <TD> menu</TD>
                            </TR>
                          </TBODY>
                        </TABLE>
						                  <TABLE width="100" height="23" border=0 align="right" cellPadding=0 cellSpacing=0>
                          <TBODY>
                            <TR> 
								<td><!-- InstanceBeginEditable name="EditCartLogo" -->&nbsp;<!-- InstanceEndEditable --></td>
								<td><IMG height=20 
                        src="images/ADMBanner/spacer.gif" width=40></td>
                                      <TD noWrap bgColor=#000000><A class=top-menu 
                        href="Contact/contact.html">&nbsp;&nbsp;</A></TD>
                    
                            </TR>
                          </TBODY>
                        </TABLE>
						</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=1 width="100%" bgColor=#666666 border=0>
  <TBODY>
  <TR>
    <TD valign="top">
      <TABLE borderColor=#cccccc cellSpacing=2 cellPadding=1 width="100%" 
      bgColor=#999999 border=1>
        <TBODY>
        <TR vAlign=top align=left>
          <TD width="65%">
            <TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
              <TBODY>
              <TR>
                <TD id=title>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                              <TD class=title vAlign=center align=left 
                      background="images/ADMBanner/main1-pic.gif"><!-- InstanceBeginEditable name="Title1" -->ADM
                                  Online<!-- InstanceEndEditable --></TD>
                              <TD vAlign=top align=right  
                      background="images/ADMBanner/main1-pic.gif"><IMG 
                        height=19 src="images/ADMBanner/main-pic.gif" 
                        width=100></TD></TR></TBODY></TABLE>
                  </TD>
              </TR>
              <TR>
                <TD id=tableb bgColor=#83adf3>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD bgColor=#1049a5>
                        <TABLE cellSpacing=1 cellPadding=2 width="100%" 
border=0>
                          <TBODY>
                          <TR>
                            <TD id=tablec vAlign=top align=left 
                              bgColor=#e6e6e6><TABLE cellSpacing=1 cellPadding=0 
                              width="100%" border=0>
                                <TBODY>
                                <TR>
                                <TD bgcolor="#FFFFFF">
                               <!-- InstanceBeginEditable name="EditRegion3" -->
                               <h2><em>Register for ADM EZine </em><br>
                                 <em class="sitetitle">Acces to the EZine download requires registration. </em></h2>
                               <div id="RegistrationContainer" class="WAATK">
                                 <form action="<%=MM_editAction%>" method="post" name="WAATKRegistrationForm" id="WAATKRegistrationForm" onSubmit="WAValidateEM(document.WAATKRegistrationForm.EmailAddress,document.WAATKRegistrationForm.EmailAddress.value,'- Invalid email address',document.WAATKRegistrationForm.EmailAddress,0,true);WAValidateAN(document.WAATKRegistrationForm.PWD,document.WAATKRegistrationForm.PWD.value,'- Invalid character in Password\nCan\'t be empty.',true,true,true,true,'',document.WAATKRegistrationForm.PWD,0,true);WAValidateAN(document.WAATKRegistrationForm.FirstName,document.WAATKRegistrationForm.FirstName.value,'- Invalid character in First Name\nCan\'t Be Empty',true,true,true,true,'',document.WAATKRegistrationForm.FirstName,0,true);WAValidateAN(document.WAATKRegistrationForm.LastName,document.WAATKRegistrationForm.LastName.value,'- Invalid character in Last Name\nCan\'t be empty',true,true,true,true,'',document.WAATKRegistrationForm.LastName,0,true);WAAlertErrors('The following errors were found','Correct invalid entries to continue',true,false);return document.MM_returnValue">
                                   <h1>Registration</h1>
                                   <table class="WAATKDataTable" cellpadding="0" cellspacing="0" border="0">
                                     <tr>
                                       <th>EmailAddress:</th>
                                       <td><input type="text" class="WAATKTextField" name="EmailAddress" id="EmailAddress" value="" size="32" /></td>
                                     </tr>
                                     <tr>
                                       <th colspan="2" align="center">To activate your account you must return to your personal e-mail address   (above), and respond.<BR></th>
                                       </tr>
                                     <tr>
                                       <th>PWD:</th>
                                       <td><input type="password" class="WAATKTextField" name="PWD" id="PWD" value="" ></td>
                                     </tr>
                                     <tr>
                                       <th>FirstName:</th>
                                       <td><input type="text" class="WAATKTextField" name="FirstName" id="FirstName" value="" size="32" /></td>
                                     </tr>
                                     <tr>
                                       <th>LastName:</th>
                                       <td><input type="text" class="WAATKTextField" name="LastName" id="LastName" value="" size="32" /></td>
                                     </tr>
                                     <tr>
                                       <th colspan="2" align="left" bgcolor="#CCCCCC"><div align="left">The below check boxes will place your e-mail address on ADM's notify lists. If   you do not wish to be on any ADM e-mail notify lists, please check Do Not   Notify.</div></th>
                                       </tr>
                                     <tr>
                                       <th>Check this box, If you wish to be notified on any ADM CCR Events, courses, or   special dive expeditions.:</th>
                                       <td><input type="checkbox" name="CCRNotify" id="CCRNotify" value="1" /></td>
                                     </tr>
                                     <tr>
                                       <th>Check this box, If you wish to be notified of ADM sponsored events, courses or   ADM expeditions
                                         :</th>
                                       <td><input type="checkbox" name="ADMNotify" id="ADMNotify" value="1" /></td>
                                     </tr>
                                     <tr>
                                       <th>Check this box, If you wish to be notified of any ADM advertisers equipment   specials, manufacturers news, or equipment recalls:</th>
                                       <td><input type="checkbox" name="GearNotify" id="GearNotify" value="1" /></td>
                                     </tr>
                                     <tr>
                                       <th>Check this box, If you wish to be notified when the next issue of advanced Diver   Magazine (The Hard Copy) has been released:</th>
                                       <td><input type="checkbox" name="NextIssNotify" id="NextIssNotify" value="1" /></td>
                                     </tr>
                                     <tr>
                                       <th>Check this box, If you wish to be notified when the next issue of ADM E-Zine   (On-line magazine) has been released:</th>
                                       <td><input type="checkbox" name="EZineNotify" id="EZineNotify" value="1" /></td>
                                     </tr>
                                     <tr>
                                       <th>Check this box, If you wish NOT to be notified about anything:</th>
                                       <td><input type="checkbox" name="DoNotNotify" id="DoNotNotify" value="1" /></td>
                                     </tr>
                                   </table>
                                   <div class="WAATKButtonRow">
                                     <input type="image" hspace="0" vspace="0" border="0" name="Register" id="Register" value="Register" alt="Register" src="WA_SecurityAssist/images/Pacifica/Refined_register.gif"  />
                                     <input type="hidden" name="MM_insert" value="WAATKRegistrationForm">
                                   </div>
                                 </form>
                               </div>
<!-- InstanceEndEditable -->                                             </TD>
                                            </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
  </TR></TBODY></TABLE>
<SCRIPT language=JavaScript>
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</SCRIPT>

<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#999999 border=0>
  <TBODY>
  <TR>
    <TD vAlign=top align=left width="12%" 
    background="images/ADMBanner/footer_r1_c6.gif">
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD><IMG height=27 src="images/ADMBanner/footer_r1_c1.gif" 
            width=10 border=0 name=footer_r1_c1></TD>
          <TD><IMG height=27 src="images/ADMBanner/footer_r1_c3.gif" 
            width=190 border=0 name=footer_r1_c3></TD>
          <TD><IMG height=27 src="images/ADMBanner/footer_r1_c4.gif" 
            width=54 border=0 name=footer_r1_c4></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top align=right width="88%" 
    background="images/ADMBanner/footer_r1_c6.gif"></TD>
    <TD vAlign=top align=right width="88%" 
    background="images/ADMBanner/footer_r1_c6.gif">
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
              <TD><A 
            onmouseover="MM_swapImage('footer_r1_c71','','images/ADMBanner/footer_r1_c7_f2.gif',1)" 
            onmouseout=MM_swapImgRestore() 
            href="Default.asp"><IMG height=27 
            src="images/ADMBanner/footer_r1_c7.gif" width=23 border=0 
            name=footer_r1_c71></A></TD>
              <TD>&nbsp;</TD>
              <TD><A 
            onmouseover="MM_swapImage('footer_r1_c91','','images/ADMBanner/footer_r1_c9_f2.gif',1)" 
            onmouseout=MM_swapImgRestore() 
            href="mailto:%20info@ADM-NET.com"><IMG 
            height=27 src="images/ADMBanner/footer_r1_c9.gif" width=29 
            border=0 
name=footer_r1_c91></A></TD>
            </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<DIV align=right><FONT face="Arial, Helvetica, sans-serif" size=1>Design by ADM
    Online and Styx Media</FONT><FONT face="Arial, Helvetica, sans-serif" size=1></FONT></DIV>
</td>
  </tr>
  <tr>
    <td align="right"><font size=1 face="Arial, Helvetica, sans-serif"><b><img src="images/frog.gif" width="100" height="105" align="left"></b><a href="Default.asp"><font color="blue">Home</font></a><font color="blue"> | <a href="Members/Onlinehome.asp">Members</a>| <a href="http://www.golemgear.com" target="_blank">ADM Store</a> | <a href="Forum/default.asp">Forum</a> | <a href="PhotoGHome.asp">Photo</a> | <a href="Expeditions.asp">Expeditions</a></font></font><br>
    <b><a href="http://www.styxmedia.com/" target=_blank><img src="images/ADMBanner/StyxMedia.jpg" 
alt="Hosting provided by Styx Media and Hades Byte Delivery" width=100 height=62 
border=0 align="right"></a></b>    </td>
  </tr>
</table><!-- menu script itself. you should not modify this file -->
<script language="JavaScript" src="menu.js"></script>
<!-- items structure. menu hierarchy and links are stored there -->
<script language="JavaScript" src="menu_items.js"></script>
<!-- files with geometry and styles structures -->
<script language="JavaScript" src="menu_tpl.js"></script>

<script language="JavaScript">
	<!--//
	new menu (MENU_ITEMS, MENU_POS);
	//-->
</script>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-1367085-1";
urchinTracker();
</script>
</BODY><!-- InstanceEnd --></HTML>