<!--<%@LANGUAGE="VBSCRIPT"%>-->

<!--<%
set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_connADM_STRING
rsNews.Source = "SELECT * FROM ADMNews ORDER BY DatWritten DESC"
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 3
rsNews.Open()
rsNews_numRows = 0
%>
<%
Dim rsNewsDet__MMColParam
rsNewsDet__MMColParam = "2"
if (Request.QueryString("newsID") <> "") then rsNewsDet__MMColParam = Request.QueryString("newsID")
%>
<%
set rsNewsDet = Server.CreateObject("ADODB.Recordset")
rsNewsDet.ActiveConnection = MM_connADM_STRING
rsNewsDet.Source = "SELECT aID, Title, DescFull, Links, Stat, Author, pixLink, pixth  FROM ADMNews  WHERE aID = " + Replace(rsNewsDet__MMColParam, "'", "''") + "  ORDER BY DatWritten DESC"
rsNewsDet.CursorType = 0
rsNewsDet.CursorLocation = 2
rsNewsDet.LockType = 3
rsNewsDet.Open()
rsNewsDet_numRows = 0
%>
<%
set rsRecentDat = Server.CreateObject("ADODB.Recordset")
rsRecentDat.ActiveConnection = MM_connADM_STRING
rsRecentDat.Source = "SELECT aID, DatWritten FROM ADMNews ORDER BY DatWritten DESC"
rsRecentDat.CursorType = 0
rsRecentDat.CursorLocation = 2
rsRecentDat.LockType = 3
rsRecentDat.Open()
rsRecentDat_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 7
Dim Repeat1__index
Repeat1__index = 0
rsNews_numRows = rsNews_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
rsNews_total = rsNews.RecordCount

' set the number of rows displayed on this page
If (rsNews_numRows < 0) Then
  rsNews_numRows = rsNews_total
Elseif (rsNews_numRows = 0) Then
  rsNews_numRows = 1
End If

' set the first and last displayed record
rsNews_first = 1
rsNews_last  = rsNews_first + rsNews_numRows - 1

' if we have the correct record count, check the other stats
If (rsNews_total <> -1) Then
  If (rsNews_first > rsNews_total) Then rsNews_first = rsNews_total
  If (rsNews_last > rsNews_total) Then rsNews_last = rsNews_total
  If (rsNews_numRows > rsNews_total) Then rsNews_numRows = rsNews_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNews_total = -1) Then

  ' count the total records by iterating through the recordset
  rsNews_total=0
  While (Not rsNews.EOF)
    rsNews_total = rsNews_total + 1
    rsNews.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsNews.CursorType > 0) Then
    rsNews.MoveFirst
  Else
    rsNews.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsNews_numRows < 0 Or rsNews_numRows > rsNews_total) Then
    rsNews_numRows = rsNews_total
  End If

  ' set the first and last displayed record
  rsNews_first = 1
  rsNews_last = rsNews_first + rsNews_numRows - 1
  If (rsNews_first > rsNews_total) Then rsNews_first = rsNews_total
  If (rsNews_last > rsNews_total) Then rsNews_last = rsNews_total

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = rsNews
MM_rsCount   = rsNews_total
MM_size      = rsNews_numRows
MM_uniqueCol = "aID"
MM_paramName = "newsID"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

  ' get the value of the parameter
  param = Request.QueryString(MM_paramName)

  ' find the record with the unique column value equal to the parameter value
  MM_offset = 0
  Do While (Not MM_rs.EOF)
    If (Cstr(MM_rs.Fields.Item(MM_uniqueCol).Value) = param) Then
      Exit Do
    End If
    MM_offset = MM_offset + 1
    MM_rs.MoveNext
  Loop

  ' if not found, set the number of records and reset the cursor
  If (MM_rs.EOF) Then
    If (MM_rsCount < 0) Then MM_rsCount = MM_offset
    If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset
    MM_offset = 0

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
      MM_rs.MoveFirst
    Else
      MM_rs.Close
      MM_rs.Open
    End If
  End If

End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsNews_first = MM_offset + 1
rsNews_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (rsNews_first > MM_rsCount) Then rsNews_first = MM_rsCount
  If (rsNews_last > MM_rsCount) Then rsNews_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsPagList_total = -1) Then

  ' count the total records by iterating through the recordset
  rsPagList_total=0
  While (Not rsPagList.EOF)
    rsPagList_total = rsPagList_total + 1
    rsPagList.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsPagList.CursorType > 0) Then
    rsPagList.MoveFirst
  Else
    rsPagList.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsPagList_numRows < 0 Or rsPagList_numRows > rsPagList_total) Then
    rsPagList_numRows = rsPagList_total
  End If

  ' set the first and last displayed record
  rsPagList_first = 1
  rsPagList_last = rsPagList_first + rsPagList_numRows - 1
  If (rsPagList_first > rsPagList_total) Then rsPagList_first = rsPagList_total
  If (rsPagList_last > rsPagList_total) Then rsPagList_last = rsPagList_total

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsNewsDet_total = -1) Then

  ' count the total records by iterating through the recordset
  rsNewsDet_total=0
  While (Not rsNewsDet.EOF)
    rsNewsDet_total = rsNewsDet_total + 1
    rsNewsDet.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsNewsDet.CursorType > 0) Then
    rsNewsDet.MoveFirst
  Else
    rsNewsDet.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsNewsDet_numRows < 0 Or rsNewsDet_numRows > rsNewsDet_total) Then
    rsNewsDet_numRows = rsNewsDet_total
  End If

  ' set the first and last displayed record
  rsNewsDet_first = 1
  rsNewsDet_last = rsNewsDet_first + rsNewsDet_numRows - 1
  If (rsNewsDet_first > rsNewsDet_total) Then rsNewsDet_first = rsNewsDet_total
  If (rsNewsDet_last > rsNewsDet_total) Then rsNewsDet_last = rsNewsDet_total

End If
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>-->
<html>
<head>
<title>Admerasia - Privacy</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script LANGUAGE="JavaScript">
function popupwindow(){
window.open("login.asp","","height=300,width=500,menubar=1,resizable=1,scrollbars=1, status=1,titlebar=1,toolbar=1,left=0,top=0")
}
function popupwindow1(){
window.open("register.asp","","height=300,width=400,menubar=0,resizable=1,scrollbars=0, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
function popupwindow2(){
window.open("asian.asp","","height=400,width=500,menubar=0,resizable=0,scrollbars=0, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
function popupwindow3(){
window.open("partnerslist.asp","","height=380,width=500,menubar=0,resizable=0,scrollbars=1, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
function popupwindow4(){
window.open("recent.asp","","height=500,width=500,menubar=0,resizable=0,scrollbars=1, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
function popupwindow5(){
window.open("spent.asp","","height=350,width=500,menubar=0,resizable=0,scrollbars=0, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
function popupwindow6(){
window.open("business.asp","","height=400,width=450,menubar=0,resizable=0,scrollbars=yes, status=0,titlebar=0,toolbar=0,left=0,top=0")
}
</script>
<script LANGUAGE="JavaScript">
<!--



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];}}
}
//-->
</script>
<STYLE type="text/css">
<!--
A { text-decoration:none }
-->
</STYLE>
</head>
<body bgcolor="#8A0000" marginheight="0" marginwidth="0" leftmargin="0" topmargin="0" height="100%" text="#990000" link="#000000" vlink="#990000" alink="#990000" background="images/bkg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr valign="top"> 
    <td width="200*">&nbsp;</td>
    <td bgcolor="#FF0000" width="1"><img src="images/blank.gif" width="1" height="10"></td>
    <td width="760" bgcolor="#A80202"> 
      <div align="center"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td bgcolor="#A80202"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="5">
                <tr bgcolor="#A80202"> 
                  <td width="10"><img src="images/logo.gif"></td>
                  <td bgcolor="#A80202" valign="bottom" align="right"> <img src="images/blank.gif" width="10" height="10"> 
                  </td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="5"><img src="images/blank.gif" width="10" height="5"></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td height="26">
			<table width="100%" border="0" cellspacing="0">
			<tr bgcolor="#A80202">
			<td width="82%" bgcolor="FCC66" >  <font size="3" face="Arial, Helvetica, sans-serif" color="#990000"> 
                      about &nbsp;&nbsp;<a href="solutions.html" target="_parent" co>solutions</a> 
                      &nbsp;&nbsp;<a href="partner.html">partner</a>&nbsp;&nbsp; 
                      <a href="clients.html">clients</a>&nbsp;&nbsp; <a href="contacts.html">contacts</a>&nbsp;&nbsp;<a href="news.html">news</a> &nbsp;&nbsp; <a href="asian.html" target="_blank">asian 
                      market</a> &nbsp;&nbsp; <a href="Javascript:popupwindow( )" >spend 
                      a day with us</a></font></td>
                  <td width="18%" align="right" bgcolor="FCC66" ><font size="2" face="Arial, Helvetica, sans-serif"><font size="5" color="#990000"> 
                     EARTH</font></font></td>
                </tr>
                <tr> 
                  <td colspan="2" bgcolor="#FEF0D3"><blockquote> 
                      <blockquote><font size="2" face="Arial, Helvetica, sans-serif" color="#990000"> 
                        <p><a href="about.html">mission</a>&nbsp;&nbsp; <a href="philosophy.html">philosophy</a>&nbsp;&nbsp; 
                          <a href="history.html">history</a>&nbsp;&nbsp; <a href="people.html">people</a>&nbsp;&nbsp;</p>
                        </font></blockquote>
                    </blockquote></td>
                </tr>
			</table>
			
          </tr>
          <tr bgcolor="#FFF9E5"> 
            <td height="313"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0" height="313">
                <tr> 
                  <td width="30"><font face="Arial, Helvetica, sans-serif" color="#FF0000"><b><img src="images/blank.gif" width="30" height="313"></b></font></td>
                  <td align="center" valign="top"> <br>
                    <br><font size="2" face="Arial, Helvetica, sans-serif" color="#333333"> 
                    <table width="85%" border="0" cellspacing="0" cellpadding="5">
                      <tr> 
                        <td width="103%"><div align="left"><font size="2" face="Arial, Helvetica, sans-serif" color="#333333">
                            <p><font face="Arial, Helvetica, sans-serif" size="5" color="#A80202">Privacy 
                              Policy</font> </p>
                            <p>This is the web site of Admerasia.com. We can be 
                              reached via email at <a href="mailto:info@admerasia.com">info@admerasia.com</a>. For each 
                              visitor to our Web site, our computers automatically 
                              recognize the user's domain name and IP address, 
                              but not the email address. We collect only the domain 
                              name and IP address of visitors to our web page, 
                              aggregate information on what pages consumers access 
                              or visit and information volunteered by the consumer, 
                              such as survey information and/or site registrations.</p>
                            <p>The information we collect is used to improve the 
                              content and navigation of our site, to customize 
                              the content and/or layout of the page to each individual 
                              consumer for maximum experience value, to notify 
                              visitors about updates to our Web site and to contact 
                              consumers for marketing purposes. Subsidiaries, 
                              subcontractors or agencies that follow our Privacy 
                              Policy may have access to this information only 
                              when acting on our behalf.</p>
                            <p>The information we collect is not shared with anyone 
                              else and it's kept confidential by Admerasia.</p>
                            <p>If you do not want to receive email from us in 
                              the future, please let us know by sending email 
                              to us at the above address and telling us that you 
                              do not want to receive email from our company or 
                              follow the instructions provided in each email to 
                              you. Persons who supply us with their telephone 
                              number(s) or email address may receive telephone 
                              calls or email from us with information or requests 
                              for information regarding information requests they 
                              have placed online. For your benefit, please provide 
                              us with your correct phone number(s) and/or email 
                              address.</p></font>
                          </div></td>
                      </tr>
                      <tr> 
                       
                      </tr>
                    </table>
                    <div align="left"></div>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td height="145*" valign="top"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="1"><img src="images/blank.gif" width="10" height="1"></td>
                </tr>
                <tr> 
                  <td bgcolor="#D8BA75"><img src="images/blank.gif" width="10" height="5"></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="6">
                <tr> 
                  <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">&copy; 
                    copyright 2005 admerasia. all rights reserved. </font></td>
                  <td width="485*"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">&nbsp;</font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <img src="images/blank.gif" width="760" height="2"></div>
    </td>
    <td width="1" bgcolor="#FF0000"><img src="images/blank.gif" width="1" height="10"></td>
    <td width="200*">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<!--<%
rsNews.Close()
%>
<%
rsNewsDet.Close()
%>
<%
rsRecentDat.Close()
%>-->
<!-- text below generated by server. PLEASE REMOVE --><!-- Counter/Statistics data collection code --><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/whv2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.webhosting.yahoo.com/visit.gif?us1210811926" alt="setstats" border="0" width="1" height="1"></noscript>