<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Session("Privacy") = "Privacy and Confidentiality Notice:  The information contained in this electronic mail message is intended for the named recipient(s) only. It may contain privileged and confidential information. If you are not an intended recipient, you must not copy, forward, distribute, or take any action in reliance on it. If you have received this electronic mail message in error, please notify the sender immediately."
%>
<%
Session("Reg1") = Request.Form("firstname")
Session("Reg2") = Request.Form("surname")
Session("Reg3") = Request.Form("company")
Session("Reg4") = Request.Form("address")
Session("Reg5") = Request.Form("towncity")
Session("Reg6") = Request.Form("county")
Session("Reg7") = Request.Form("postcode")
Session("Reg8") = Request.Form("tel")
Session("Reg9") = Request.Form("fax")
Session("Reg10") = Request.Form("email")
Session("Reg11") = Request.Form("question")
Session("MM_Register") = 0
%>
<%
If (Request.Form("firstname")) <> ("") AND (Request.Form("surname")) <> ("") AND (Request.Form("address")) <> ("") AND (Request.Form("towncity")) <> ("") AND (Request.Form("postcode")) <> ("") AND (Request.Form("tel")) <> ("") AND (Request.Form("email")) <> ("") AND (Request.Form("question")) <> ("") Then
	Session("MM_Register") = 1
End if
%>

<%
' *** Do Not Cache Page
' *** MagicBeat Server Behavior - 2005 - by Jag S. Sidhu - www.magicbeat.com
Response.Expires=-1000
Response.CacheControl="no-cache"
%>
<!--#include file="Connections/TPNConnection.asp" -->
<%
Dim CompanyRecordset
Dim CompanyRecordset_numRows

Set CompanyRecordset = Server.CreateObject("ADODB.Recordset")
CompanyRecordset.ActiveConnection = MM_TPNConnection_STRING
CompanyRecordset.Source = "SELECT *  FROM TPNCompany"
CompanyRecordset.CursorType = 0
CompanyRecordset.CursorLocation = 2
CompanyRecordset.LockType = 1
CompanyRecordset.Open()

CompanyRecordset_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("userid"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization="TPNUserLevel"
  MM_redirectLoginSuccess="tracking.asp"
  MM_redirectLoginFailed="faillogin.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_TPNConnection_STRING
  MM_rsUser.Source = "SELECT *"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM TPNUsers WHERE TPNUserEmail='" & Replace(MM_valUsername,"'","''") &"' AND TPNUserPWD='" & Replace(Request.Form("userpwd"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
	Session("TPNUserName") = CStr(MM_rsUser.Fields.Item("TPNUserFirstName").Value & " " & MM_rsUser.Fields.Item("TPNUserSurName").Value)
	Session("TPNUserID") = (MM_rsUser.Fields.Item("TPNUserID").Value)
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Validate request to log in to this site.
MM_MemLoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_MemLoginAction = MM_MemLoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("memid"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization="TPNUserLevel"
  MM_redirectLoginSuccess="member.asp"
  MM_redirectLoginFailed="faillogin.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_TPNConnection_STRING
  MM_rsUser.Source = "SELECT *"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM TPNUsers WHERE TPNUserEmail='" & Replace(MM_valUsername,"'","''") &"' AND TPNUserPWD='" & Replace(Request.Form("mempwd"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
	Session("TPNUserName") = CStr(MM_rsUser.Fields.Item("TPNUserFirstName").Value & " " & MM_rsUser.Fields.Item("TPNUserSurName").Value)
	Session("TPNUserID") = (MM_rsUser.Fields.Item("TPNUserID").Value)
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "EmailForm") Then


End if
%>
<%
' *** Validate request to log in to this site.
MM_NewsUpdate = Request.ServerVariables("URL")
MM_valEmail=CStr(Request.Form("updateemail"))
If MM_valEmail <> "" Then
Session("Privacy") = "Privacy and Confidentiality Notice:  The information contained in this electronic mail message is intended for the named recipient(s) only. It may contain privileged and confidential information. If you are not an intended recipient, you must not copy, forward, distribute, or take any action in reliance on it. If you have received this electronic mail message in error, please notify the sender immediately."
Dim Updatebodycopy
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.thepalletnetworkltd.co.uk"
JMail.Sender = Request.Form("updateemail")
JMail.Subject = "TPN Newletter Subscription Request"

JMail.AddRecipient "mail@thepalletnetworkltd.co.uk"
JMail.AddRecipientCC "mail@thepalletnetworkltd.co.uk"


Updatebodycopy = "Dear TPN," & vbCrLf & vbCrLf
Updatebodycopy = Updatebodycopy & "I would like to subscribe to your newsletter." & vbCrLf & vbCrLf
Updatebodycopy = Updatebodycopy & "My email address is " & (Request.Form("updateemail")) & vbCrLf & vbCrLf
Updatebodycopy = Updatebodycopy & Session("Privacy")
JMail.Body = Updatebodycopy
JMail.Priority = 3
JMail.Execute
JMail.Close()
End If
%>
<%
' *** Validate request to log in to this site.
MM_NewsUnsub = Request.ServerVariables("URL")
MM_valEmail=CStr(Request.Form("unsubemail"))
If MM_valEmail <> "" Then
Session("Privacy") = "Privacy and Confidentiality Notice:  The information contained in this electronic mail message is intended for the named recipient(s) only. It may contain privileged and confidential information. If you are not an intended recipient, you must not copy, forward, distribute, or take any action in reliance on it. If you have received this electronic mail message in error, please notify the sender immediately."
Dim Unsubbodycopy
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.thepalletnetworkltd.co.uk"
JMail.Sender = Request.Form("unsubemail")
JMail.Subject = "TPN Newletter Unsubscription Request"

JMail.AddRecipient "mail@thepalletnetworkltd.co.uk"
JMail.AddRecipientCC "mail@thepalletnetworkltd.co.uk"


Unsubbodycopy = "Dear TPN," & vbCrLf & vbCrLf
Unsubbodycopy = Unsubbodycopy & "I would like to be removed from your mailing list for your newsletter." & vbCrLf & vbCrLf
Unsubbodycopy = Unsubbodycopy & "My email address is " & (Request.Form("unsubemail")) & vbCrLf & vbCrLf
Unsubbodycopy = Unsubbodycopy & Session("Privacy")
JMail.Body = Unsubbodycopy
JMail.Priority = 3
JMail.Execute
JMail.Close()
End If
%>
<% 
dim todaysDate
 todaysDate=now()
%>
<html>
<head>
<title>TPN - Contacts</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--

function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}

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.01
  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 && d.getElementById) x=d.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>
<link href="tpncss.css" rel="stylesheet" type="text/css">
<link rel="shortcut icon" href="favicon.ico" />
</head>

<body bgcolor="#393780" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('media/images/rebutton_001b.gif')">
<!-- DO NOT MOVE! The following AllWebMenus code must always be placed right AFTER the BODY tag-->
<!-- ******** BEGIN ALLWEBMENUS CODE FOR tpnmenu ******** -->
<span id='xawmMenuPathImg-tpnmenu' style='position:absolute;top:-50px'><img name='awmMenuPathImg-tpnmenu' id='awmMenuPathImg-tpnmenu' src='media/js/awmmenupath.gif' alt=''></span>
<script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='530'; awmAltUrl='';</script>
<script src='media/js/tpnmenu.js' language='JavaScript1.2' type='text/javascript'></script>
<script type='text/javascript'>awmBuildMenu();</script>
<!-- ******** END ALLWEBMENUS CODE FOR tpnmenu ******** -->
<table width="760" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="05173c">
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="F8C42A">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="97" valign="top" bgcolor="05173c" style="width: 202px"><img src="media/images/mainlogo.gif" alt="TPN Logo" width="202" height="95"></td>
            <td><table width="100%" height="97" border="0" cellpadding="0" cellspacing="0" bgcolor="#05173c" class="NewsSubHeading">
              <tr>
                <td align="left" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="556" height="70">
                  <param name="movie" value="media/flash/banner.swf">
                  <param name="quality" value="high">
                  <embed src="media/flash/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="556" height="70"></embed>
                </object></td>
              </tr>
              <tr>
                <td height="26" valign="top"><div align="left">
  <style type="text/css">.awmAnchor {position:relative;z-index:0}</style><span id='awmAnchor-tpnmenu' class='awmAnchor'>&nbsp;</span>
                </div></td>
              </tr>
            </table></td>
          </tr>
            <td height="11" colspan="2" background="media/images/baseline.gif"></td>
          </tr>
          <tr bgcolor="05173c">
            <td height="2" colspan="2"></td>
          </tr>
          <tr>
            <td valign="top" style="width: 202px"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="F1EA54">
              <tr>
                <td height="70"><form name="membersform" method="post" action="<%=MM_MemLoginAction%>">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                       <tr valign="top">
                        <td colspan="2"></td>
                        </tr>
                      <tr>
                        <td>&nbsp;</td>
                        <td height="30" valign="bottom"><img src="media/images/loginheader.gif" width="96" height="18"></td>
                      </tr>
                      <tr>
                        <td width="50" height="24" align="right" valign="middle"><div align="right"></div>
                            <img src="media/images/userheader.gif" align="absmiddle">&nbsp; </td>
                        <td background="media/images/home_tram.gif"><input name="memid" type="text" class="InputTextBox" id="memid" size="21">
                        </td>
                      </tr>
                      <tr>
                        <td width="50" align="right" valign="top"><div align="right"><img src="media/images/passheader.gif" width="41" height="14" align="absmiddle">&nbsp;</div>
                        </td>
                        <td valign="top"><input name="mempwd" type="password" class="InputTextBox" id="mempwd" size="16">
                            <input name="Submit" type="submit" class="Buttons" value="Go">
                            <br>
                            <a href="forwardrequest.asp" class="EmailLink" onMouseOver="MM_displayStatusMsg('Click here to request your password.');return document.MM_returnValue" onMouseOut="MM_displayStatusMsg('');return document.MM_returnValue">Forgotten
                            Password?</a> </td>
                      </tr>
                    </table>
                  </form>
                </td>
              </tr>
              <tr>
                <td height="2" bgcolor="05173c"> </td>
              </tr>
              <tr>
                <td height="11" background="media/images/baseline.gif"> </td>
              </tr>
              <tr>
                <td height="2" bgcolor="05173c"> </td>
              </tr>
              <tr>
                <td height="50" valign="middle"><form name="loginform" method="POST" action="tracking.asp">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="30" align="right" valign="middle"><div align="right"></div>
                            <div align="center"><img src="media/images/trackerheader.gif" width="83" height="18" align="absmiddle">
                                <input name="Submit5" type="submit" class="Buttons" value="Go">
                            </div>
                        </td>
                      </tr>
                      <tr>
                        <td height="24" align="right" valign="middle"><div align="right"></div>
                            <div align="center"><span class="BodyCopy10pt">This
                                system allows you to check proof of delivery
                                of your Pallet.</span></div>
                        </td>
                      </tr>
                    </table>
                  </form>
                </td>
              </tr>
              <tr>
                <td height="2" bgcolor="05173c"> </td>
              </tr>
              <tr>
                <td height="11" background="media/images/baseline.gif"> </td>
              </tr>
              <tr>
                <td height="2" bgcolor="05173c"> </td>
              </tr>
              <tr>
                <td height="20" bgcolor="F1EA54" class="BodyCopy12pt"><div align="center">
                    <table width="90%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td class="BodyCopy10pt"><div align="center">To stay
                            updated with<br>
                The Pallet Network news just click on the button below.</div>
                        </td>
                      </tr>
                      <tr>
                        <td><form name="form2" method="post" action="register.asp">
                            <div align="center">
                              <input name="tpnupdate" type="hidden" id="tpnupdate" value="1">
                              <input name="Submit22" type="submit" class="Buttons" value="Stay updated with TPN">
                            </div>
                          </form>
                        </td>
                      </tr>
                    </table>
                  </div>
                </td>
              </tr>
              <tr>
                <td height="1" bgcolor="05173c"></td>
              </tr>
              <tr>
                <td height="11" background="media/images/baseline.gif"> </td>
              </tr>
              <tr>
                <td height="2" bgcolor="05173c"> </td>
              </tr>
              <tr>
                <td height="65" valign="top" background="media/images/background001.gif">
              <img src="media/images/pic_contact.gif" width="202" height="298"></td>
              </tr>
            </table>              
              </td>
            <td height="11" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" align="left" valign="bottom" bgcolor="#F1EA54"><div align="center"><img src="media/images/page_perform_contact.gif" width="556" height="68"></div>                  </td>
                </tr>
            </table>
              <table height="455" border="0" cellpadding="1" cellspacing="0" style="width: 556px">
                <tr>
                  <td bgcolor="#F8C42A">
					<table border="0" cellpadding="0" cellspacing="0" style="width: 102%; height: 540px;">
                    <tr>
                      <td align="left" valign="top" bgcolor="#F8C42A">                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td align="center" bgcolor="#F8C42A">&nbsp;</td>
                        </tr>
                      </table>
                        <% If (Session("MM_Register")) = (0) Then 'script %>
                        <table width="95%" height="150" border="0" align="center" cellpadding="1" cellspacing="0">
                          <tr>
                              <td bgcolor="#F8C42A"><table width="100%" height="150	" border="0" cellpadding="0" cellspacing="0">
                                          <td bgcolor="#F8C42A"><p align="center" class="BodyCopy12ptLight">The Pallet Network   Ltd<br>                  
                                                    Email: <a href="mailto:mail@tpnmail.co.uk">mail@tpnmail.co.uk</a></p>         
                                                            </table>
                              </td>
                          </tr>
                              </table>
                        <% End If ' end If (Session("MM_Register")) = (0) script %>
 
                        <% If (Session("MM_Register")) = (1) Then 'script %>
                        <table width="95%" border="0" align="center" cellpadding="1" cellspacing="0">
                          <tr>
                            <td bgcolor="#05173c"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td bgcolor="#F1EA54"><div align="center">
                                      <p>&nbsp;</p><%
Dim bodycopy
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.thepalletnetworkltd.co.uk"
JMail.Sender = Request.Form("email")
JMail.Subject = "TPN Website Contact Request"

JMail.AddRecipient "mail@thepalletnetworkltd.co.uk"
JMail.AddRecipientCC "mail@thepalletnetworkltd.co.uk"

bodycopy = "Dear TPN," & vbCrLf & vbCrLf
bodycopy = bodycopy & "Please find below my contact details and request: " & vbCrLf & vbCrLf
bodycopy = bodycopy & "First Name: " & (Request.Form("firstname")) & vbCrLf
bodycopy = bodycopy & "Surname: " & (Request.Form("surname")) & vbCrLf
bodycopy = bodycopy & "Company: " & (Request.Form("company")) & vbCrLf
bodycopy = bodycopy & "Address: " & (Request.Form("address")) & vbCrLf
bodycopy = bodycopy & "Town/City: " & (Request.Form("towncity")) & vbCrLf
bodycopy = bodycopy & "County: " & (Request.Form("county")) & vbCrLf
bodycopy = bodycopy & "Postcode: " & (Request.Form("postcode")) & vbCrLf
bodycopy = bodycopy & "Tel: " & (Request.Form("tel")) & vbCrLf
bodycopy = bodycopy & "Fax: " & (Request.Form("fax")) & vbCrLf
bodycopy = bodycopy & "Email: " & (Request.Form("email")) & vbCrLf
bodycopy = bodycopy & "Question: " & (Request.Form("question")) & vbCrLf
bodycopy = bodycopy & "Kind Regards" & vbCrLf
bodycopy = bodycopy & (Request.Form("firstname")) & " " & (Request.Form("surname"))
bodycopy = bodycopy & vbCrLf
bodycopy = bodycopy & Session("Privacy")
JMail.Body = bodycopy
JMail.Priority = 3
JMail.Execute
JMail.Close()
%>
                                      <p class="BodyCopy12pt">&nbsp; Click on the Email link above and 
                                      one of our representatives will contact you.<br>
                                      Thank you for your interest. 
                                        </p>
                                      <p>&nbsp;</p>
                                    </div>
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>
                        <% End If ' end If (Session("MM_Register")) = (1) script %>                        
                        <table width="95%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#F8C42A">
                          <tr>
                            <td bgcolor="#F8C42A"><table width="100%" border="0" cellpadding="5" cellspacing="2" bgcolor="#F8C42A">
                                <tr>
                                  <td bgcolor="#F8C42A"><div align="center">
                                    <p><img src="media/images/mainlogo.gif" alt="TPN Logo" width="202" height="95"></p>
                                    <p>&nbsp;</p>
                                    <p>&nbsp;</p>
                                    </div></td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>                        <p><span class="BodyCopy12pt"> </span> </p></td>
                    </tr>
                  </table></td>
                	<td>
              &nbsp;</td>
                </tr>
              </table></td>
          </tr>
        </table>
          <table width="100%" height="11" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="2" bgcolor="05173c"></td>
            </tr>
            <tr>
              <td background="media/images/baseline.gif"></td>
            </tr>
          </table></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="10"><div align="center"><span class="TradeMarkText">&copy;</span><span class="BodyCopy12pt">
      </span><span class="TradeMarkText">
        <%
Response.write year(now())

 
%>
      </span>    <span class="TradeMarkText"> 2008 The Pallet
          Network</span> <span class="TradeMarkText">&nbsp;|&nbsp;&nbsp;<a href="terms.asp" class="TradeMarkText" onMouseOver="MM_displayStatusMsg('View Our Terms and Conditions');return document.MM_returnValue" onMouseOut="MM_displayStatusMsg('');return document.MM_returnValue">Terms</a></span> <span class="TradeMarkText">&nbsp;|&nbsp;&nbsp;<a href="privacy.asp" class="TradeMarkText" onMouseOver="MM_displayStatusMsg('View Our Privacy Policy');return document.MM_returnValue" onMouseOut="MM_displayStatusMsg('');return document.MM_returnValue">Privacy
        Policy</a></span></div></td>
  </tr>
</table>
<div align="center"></div>
</body>
</html>
<%
CompanyRecordset.Close()
Set CompanyRecordset = Nothing
%>