home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / AdvSearch.asp < prev    next >
Text File  |  1997-11-01  |  18KB  |  561 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  2. <HTML>
  3. <HEAD>
  4. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  5. </SCRIPT>
  6. <TITLE>Advanced Site Search</TITLE>
  7. <META NAME="DESCRIPTION" CONTENT="ExAir's Advanced Sample search query form">
  8. <META NAME="KEYWORDS"    CONTENT="search, query, content, hit">
  9. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  10. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  11.  
  12. <!--#include file=..\libGlobalFuncs.inc-->
  13.  
  14. <%
  15.     If Not IsIndexServerInstalled() Then
  16.         Response.Redirect("NoIndexServer.asp")
  17.     End If
  18. %>
  19.  
  20. <%
  21.     DebugFlag = FALSE
  22.     NewQuery = FALSE
  23.     UseSavedQuery = FALSE
  24.     SearchString = ""
  25.  
  26.     ' If request_method is a post then we have posted back to ourselves
  27.     if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  28.         SearchString = Request.Form("SearchString")
  29.         DocAuthorRestriction = Request.Form("DocAuthorRestriction")
  30.         FSRest = Request.Form("FSRest")
  31.         FSRestVal = Request.Form("FSRestVal")
  32.         FSRestOther = Request.Form("FSRestOther")
  33.         FMMod = Request.Form("FMMod")
  34.         FMModDate = Request.Form("FMModDate")
  35.         SortBy = Request.Form("SortBy")
  36.         Colset = Request.Form("ColChoice")
  37.         Scope = Request.Form("Scope")
  38.         ' NOTE: this will be true only if the button is actually pushed.
  39.         if Request.Form("Action") = "Search" then
  40.             NewQuery = TRUE
  41.         end if
  42.     end if
  43.  %>
  44. </HEAD>
  45.  
  46. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  47. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  48.  
  49. <!--Change link color on mouseover
  50.     Only if running Internet Explorer 4.0 or later -->
  51. <!--#include file=../libHighlight.inc-->
  52.  
  53. <!--COLOR BANNER_START-->
  54. <CENTER>
  55. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  56.     <TR>
  57.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  58.       </TD>
  59.     </TR>
  60. </TABLE>
  61. </CENTER>
  62. <!--COLOR BANNER_END-->
  63.  
  64. <!--BEGIN TABLE CONTAINING LOGO AND NAVIGATIONAL LINKS -->
  65. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  66.     <TR>
  67.       <TD VALIGN=TOP WIDTH=415>
  68.         <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Return to Exploration Air Homepage" BORDER=0></A> 
  69.         <BR>
  70.         <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5 ALT="Return to Exploration Air Homepage" BORDER=0></A>
  71.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG><A HREF="<%=HomePage("..")%>">EXPLORATION  AIR HOMEPAGE</A></STRONG></FONT>
  72.       </TD>
  73.       <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>Advanced Search Page</FONT>
  74.       </TD>
  75.       <TD ALIGN=RIGHT VALIGN=MIDDLE>
  76.     <A HREF="../HowItWorks/HIWIndexServer.asp"><IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this     page works" BORDER=0></A>
  77.     </TD>
  78.     </TR>
  79.     <TR>
  80.       <TD VALIGN=TOP WIDTH=415 HEIGHT=15>
  81.             <A HREF="Search.Asp"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5 ALT="Return to Simple Search Page" BORDER=0></A>
  82.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2> <STRONG><A HREF="Search.Asp">SIMPLE  SEARCH  PAGE</A></STRONG></FONT>
  83.       </TD>
  84.       </TR>
  85. </TABLE>
  86. <!--END TABLE CONTAINING LOGO AND NAVIGATIONAL LINKS -->
  87.  
  88. <BR>
  89.  
  90. <SCRIPT LANGUAGE=JavaScript>
  91. function SetAll()
  92. {
  93.     document.QForm.SearchString.value = "<%=SearchString%>";
  94.  
  95.     <%select case FSRest%>
  96.     <%case " > "%>
  97.         document.QForm.FSRest.selectedIndex = 1;
  98.     <%case else%>
  99.         document.QForm.FSRest.selectedIndex = 0;
  100.     <%end select%>
  101.  
  102.     <%select case FSRestVal%>
  103.     <%case "any"%>
  104.         document.QForm.FSRestVal.selectedIndex = 0;
  105.     <%case "100"%>
  106.         document.QForm.FSRestVal.selectedIndex = 1;
  107.     <%case "1024"%>
  108.         document.QForm.FSRestVal.selectedIndex = 2;
  109.     <%case "10240"%>
  110.         document.QForm.FSRestVal.selectedIndex = 3;
  111.     <%case "102400"%>
  112.         document.QForm.FSRestVal.selectedIndex = 4;
  113.     <%case "1048576"%>
  114.         document.QForm.FSRestVal.selectedIndex = 5;
  115.     <%case "10485760"%>
  116.         document.QForm.FSRestVal.selectedIndex = 6;
  117.     <%case "104857600"%>
  118.         document.QForm.FSRestVal.selectedIndex = 7;
  119.     <%case "other"%>
  120.         document.QForm.FSRestVal.selectedIndex = 8;
  121.     <%case else%>
  122.         document.QForm.FSRestVal.selectedIndex = 0;
  123.     <%end select%>
  124.  
  125.     document.QForm.FSRestOther.value = "<%=FSRestOther%>";
  126.  
  127.     <%select case FMMod%>
  128.     <%case "any"%>
  129.         document.QForm.FMMod.selectedIndex = 0;
  130.     <%case "-10n"%>
  131.         document.QForm.FMMod.selectedIndex = 1;
  132.     <%case "-1h"%>
  133.         document.QForm.FMMod.selectedIndex = 2;
  134.     <%case "-1d"%>
  135.         document.QForm.FMMod.selectedIndex = 3;
  136.     <%case "-1w"%>
  137.         document.QForm.FMMod.selectedIndex = 4;
  138.     <%case "-1m"%>
  139.         document.QForm.FMMod.selectedIndex = 5;
  140.     <%case "-1y"%>
  141.         document.QForm.FMMod.selectedIndex = 6;
  142.     <%case "since"%>
  143.         document.QForm.FMMod.selectedIndex = 7;
  144.     <%case else%>
  145.         document.QForm.FMMod.selectedIndex = 0;
  146.     <%end select%>
  147.  
  148.     document.QForm.FMModDate.value = "<%=FMModDate%>";
  149.  
  150.     document.QForm.DocAuthorRestriction.value = "<%=DocAuthorRestriction%>";
  151. }
  152.  
  153. </SCRIPT>
  154.  
  155.     <TABLE CELLPADDING=10>
  156.     <TR>
  157.     <TD COLSPAN=2>
  158.     <FORM NAME="QForm" ACTION="AdvSearch.Asp" METHOD=POST>
  159.     <IMG SRC="../images/search.jpg" WIDTH=217 HEIGHT=169 ALT="Search the site" BORDER=0></A></TD>
  160.         <TD>
  161.             Please fill out the form below to create your complex search query:</TD>
  162.     </TR>
  163.         <TR>
  164.             <TD WIDTH=60> </TD>
  165.             <TD ALIGN=RIGHT>
  166.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  167.                     Words to search for:
  168.                 </FONT>
  169.             </TD>
  170.             <TD>
  171.                 <INPUT TYPE="TEXT" NAME="SearchString" SIZE="40" MAXLENGTH="100" VALUE="">
  172.                 <INPUT TYPE="SUBMIT" NAME="Action" VALUE="Search">
  173.                 <INPUT TYPE="RESET"  NAME="Clear" VALUE="Clear">
  174.             </TD>
  175.         </TR>
  176.         
  177.         <TR>
  178.             <TD WIDTH=60> </TD>
  179.             <TD ALIGN=RIGHT>
  180.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  181.                     File Size is:
  182.                 </FONT>
  183.             </TD>
  184.             <TD>
  185.                    <SELECT NAME="FSRest">
  186.                    <OPTION VALUE=" < " SELECTED>Less Than
  187.                    <OPTION VALUE=" > " >Greater Than
  188.                    </SELECT>
  189.  
  190.                    <SELECT NAME="FSRestVal">
  191.                    <OPTION VALUE="any" SELECTED>any size
  192.                    <OPTION VALUE="100" >100 bytes
  193.                    <OPTION VALUE="1024" >1K bytes
  194.                    <OPTION VALUE="10240" >10K bytes
  195.                    <OPTION VALUE="102400" >100K bytes
  196.                    <OPTION VALUE="1048576" >1M byte
  197.                    <OPTION VALUE="10485760" >10M bytes
  198.                    <OPTION VALUE="104857600" >100M bytes
  199.                    <OPTION VALUE="other" >Other
  200.                    </SELECT>
  201.  
  202.                    <INPUT TYPE="TEXT" NAME="FSRestOther" SIZE="14" MAXLENGTH="9" VALUE="">
  203.             </TD>
  204.         </TR>
  205.  
  206.         <TR>
  207.             <TD WIDTH=60> </TD>
  208.             <TD ALIGN=RIGHT>
  209.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  210.                     Modified:
  211.                 </FONT>
  212.             </TD>
  213.             <TD>
  214.                 <SELECT NAME="FMMod">
  215.                 <OPTION VALUE="any" SELECTED >at any time.
  216.                 <OPTION VALUE="-10n">in the last 10 minutes.
  217.                 <OPTION VALUE="-1h">in the last hour.
  218.                 <OPTION VALUE="-1d">in the last day.
  219.                 <OPTION VALUE="-1w">in the last week.
  220.                 <OPTION VALUE="-1m">in the last month.
  221.                 <OPTION VALUE="-1y">in the last year.
  222.                 <OPTION VALUE="since">since GMT (yy/mm/dd)
  223.                 </SELECT>
  224.                 <INPUT TYPE="TEXT" NAME="FMModDate" SIZE="20" MAXLENGTH="9" VALUE="">
  225.             </TD>
  226.         </TR>
  227.         
  228.         <TR>
  229.             <TD WIDTH=60> </TD>
  230.             <TD ALIGN=RIGHT>
  231.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  232.                     Document Author:
  233.                 </FONT>
  234.             </TD>
  235.             <TD>
  236.                 <INPUT TYPE="TEXT" NAME="DocAuthorRestriction" SIZE="40" MAXLENGTH="100" VALUE="">
  237.             </TD>
  238.         </TR>
  239.       
  240.         <INPUT TYPE="HIDDEN" NAME="SortBy" VALUE="rank[d]">
  241.         <INPUT TYPE="HIDDEN" NAME="ColChoice" VALUE="1">
  242.         <INPUT TYPE="HIDDEN" NAME="Scope" VALUE="/iissamples/ExAir">
  243.     </TABLE>
  244. </FORM>
  245.  
  246. <BR>
  247.  
  248. <%if DebugFlag then%>
  249.     <PRE>
  250.     SearchString         = <%=SearchString%>
  251.     DocAuthorRestriction = <%=DocAuthorRestriction%>
  252.     FSRest               = <%=FSRest%>
  253.     FSRestVal            = <%=FSRestVal%>
  254.     FSRestOther          = <%=FSRestOther%>
  255.     FMMod                = <%=FMMod%>
  256.     FMModDate            = <%=FMModDate%>
  257.     SortBy               = <%=SortBy%>
  258.     Colset               = <%=Colset%>
  259.     Scope                = <%=Scope%>
  260.     NewQuery             = <%=CStr(NewQuery)%>
  261.     UseSavedQuery        = <%=CStr(UseSavedQuery)%>
  262.     </PRE>
  263. <%end if%>
  264.  
  265. <%
  266.     if NewQuery then
  267.         set Session("Query") = nothing
  268.         set Session("Recordset") = nothing
  269.         NextRecordNumber = 1
  270.         set Q = Server.CreateObject("ixsso.Query")
  271.  
  272.         Composer = ""
  273.         TheQuery = ""
  274.  
  275.         if SearchString <> "" then
  276.             if Left( SearchSting, 1 ) <> "@" AND Left( SearchString, 1 ) <> "#" AND Left( SearchString, 1 ) <> "$" then
  277.                 TheQuery = "@Contents " + SearchString
  278.             else
  279.                 TheQuery = SearchString
  280.             end if
  281.  
  282.             Composer = " & "
  283.         end if
  284.  
  285.         if FSRestVal <> "any" then
  286.             if FSRestVal <> "other" then
  287.                 TheQuery = "(@Size " + FSRest + FSRestVal + ") " + Composer + TheQuery
  288.             else
  289.                 TheQuery = "(@Size " + FSRest + FSRestOther + ") " + Composer + TheQuery
  290.             end if
  291.  
  292.             Composer = " & "
  293.         end if
  294.  
  295.         if DocAuthorRestriction <> "" then
  296.             TheQuery = "(@DocAuthor " + DocAuthorRestriction + ") " + Composer + TheQuery
  297.  
  298.             Composer = " & "
  299.         end if
  300.  
  301.         if FMMod <> "" AND FMMod <> "any" then
  302.             if FMMod <> "since" then
  303.                 TheQuery = "(@Write > " + FMMod + ") " + Composer + TheQuery
  304.             else
  305.                 TheQuery = "(@Write > " + FMModDate + ") " + Composer + TheQuery
  306.             end if
  307.         end if
  308.  
  309. %> <%if DebugFlag then%> TheQuery = <%=TheQuery%> <%end if%> <%
  310.  
  311.         Q.Query = TheQuery
  312.  
  313.         Q.SortBy = SortBy
  314.         if Scope <> "/" then
  315.             set Util = Server.CreateObject("ixsso.Util")
  316.             Util.AddScopeToQuery Q, Scope, "DEEP"
  317.             set Util = nothing
  318.         end if
  319.         if ColSet = 1 then
  320.             Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization"
  321.             RecordsPerPage = 10
  322.         elseif ColSet = 2 then
  323.             Q.Columns = "vpath, path"
  324.             RecordsPerPage = 200
  325.         elseif ColSet = 3 then
  326.             Q.Columns = "filename, vpath, size, write"
  327.             RecordsPerPage = 25
  328.         end if
  329.  
  330.         set RS = Q.CreateRecordSet("nonsequential")
  331.         RS.PageSize = RecordsPerPage
  332.         ActiveQuery = TRUE
  333.     elseif UseSavedQuery then
  334.         if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
  335.             set Q = Session("Query")
  336.             set RS = Session("RecordSet")
  337.             if RS.RecordCount <> -1 and NextPageNumber <> -1 then
  338.                 RS.AbsolutePage = NextPageNumber
  339.                 NextRecordNumber = RS.AbsolutePosition
  340.             end if
  341.             ActiveQuery = TRUE
  342.         else
  343.             Response.Write "ERROR - No saved query"
  344.         end if
  345.     end if
  346.  
  347.     if ActiveQuery then
  348.         if not RS.EOF then
  349.  %>
  350.  
  351. <CENTER>
  352. <P>
  353. <HR WIDTH=500>
  354. <P>
  355. </CENTER>
  356.  
  357. <%
  358.         LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
  359.         CurrentPage = RS.AbsolutePage
  360.         if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
  361.             LastRecordOnPage = RS.RecordCount
  362.         end if
  363.  
  364.         Response.Write "Documents " & NextRecordNumber & " to " & LastRecordOnPage
  365.         if RS.RecordCount <> -1 then
  366.             Response.Write " of " & RS.RecordCount
  367.         end if
  368.  
  369.         if SearchString <> "" then
  370.             Response.Write " matching the query " & chr(34) & "<I>"
  371.             Response.Write SearchString & "</I>" & chr(34) & ".<P>"
  372.         end if
  373.  %>
  374.  
  375. </PRE>
  376. <!-- BEGIN column header -->
  377.  
  378. <%      if ColSet = 1 then%>
  379. <!--#include file = "qryhead1.inc"-->
  380. <%      elseif ColSet = 2 then%>
  381. <!--#include file = "qryhead2.inc"-->
  382. <%      elseif ColSet = 3 then%>
  383. <!--#include file = "qryhead3.inc"-->
  384. <%      end if%>
  385.  
  386. <%if DebugFlag then%>
  387.     <PRE>
  388.     RS.EOF           = <%=CStr(RS.EOF)%>
  389.     NextRecordNumber = <%=NextRecordNumber%>
  390.     LastRecordOnPage = <%=LastRecordOnPage%>
  391.     </PRE>
  392. <%end if%>
  393.  
  394. <!-- BEGIN first row of query results table -->
  395. <% Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage %>
  396.  
  397. <%      if ColSet = 1 then%>
  398. <!--#include file="qrybody1.inc"-->
  399. <%      elseif ColSet = 2 then%>
  400. <!--#include file="qrybody2.inc"-->
  401. <%      elseif ColSet = 3 then%>
  402. <!--#include file="qrybody3.inc"-->
  403. <%      end if%>
  404.  
  405. <%
  406.           RS.MoveNext
  407.           NextRecordNumber = NextRecordNumber+1
  408.       Loop
  409.  %>
  410.  
  411. <%      if ColSet = 1 then%>
  412. <!--#include file="qrytail1.inc"-->
  413. <%      elseif ColSet = 2 then%>
  414. <!--#include file="qrytail2.inc"-->
  415. <%      elseif ColSet = 3 then%>
  416. <!--#include file="qrytail3.inc"-->
  417. <%      end if%>
  418.  
  419. <P><BR>
  420.  
  421. <%
  422.   else   ' NOT RS.EOF
  423.       if NextRecordNumber = 1 then
  424.           Response.Write "No documents matched the query<P>"
  425.       else
  426.           Response.Write "No more documents in the query<P>"
  427.       end if
  428.  
  429.   end if ' NOT RS.EOF
  430.  %>
  431.  
  432. <!-- If the index is out of date, display the fact -->
  433.  
  434. <%if Q.OutOfDate then%>
  435.     <P>
  436.     <I><B>The index is out of date.</B></I><BR>
  437. <%end if%>
  438.  
  439. <!--
  440.     If the query was not executed because it needed to enumerate to
  441.     resolve the query instead of using the index, but AllowEnumeration
  442.     was FALSE, let the user know
  443. -->
  444.  
  445. <%if Q.QueryIncomplete then%>
  446.     <P>
  447.     <I><B>The query is too expensive to complete.</B></I><BR>
  448. <%end if%>
  449.  
  450. <!--
  451.     If the query took too long to execute (for example, if too much work
  452.     was required to resolve the query), let the user know
  453. -->
  454.  
  455. <%if Q.QueryTimedOut then%>
  456.     <P>
  457.     <I><B>The query took too long to complete.</B></I><BR>
  458. <%end if%>
  459.  
  460.  
  461. <TABLE>
  462.  
  463. <!--
  464.     This is the "previous" button.
  465.     This retrieves the previous page of documents for the query.
  466. -->
  467.  
  468. <%SaveQuery = FALSE%>
  469. <%if CurrentPage > 1 and RS.RecordCount <> -1 then ' BUGBUG - use RS.Supports(adMovePrevious)%>
  470.     <td align=left>
  471.         <form action="query.asp" method="get">
  472.             <INPUT TYPE="HIDDEN" NAME="qu" VALUE="<%=SearchString%>">
  473.             <INPUT TYPE="HIDDEN" NAME="so" VALUE="<%=Q.SortBy%>">
  474.             <INPUT TYPE="HIDDEN" NAME="co" VALUE="<%=ColSet%>">
  475.             <INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=Q.CiScope%>">
  476.             <INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage-1%>" >
  477.             <input type="submit" value="Previous <%=RS.PageSize%> documents">
  478.         </form>
  479.     </TD>
  480.     <%SaveQuery = TRUE%>
  481. <%end if%>
  482.  
  483. <!--
  484.     This is the "next" button for unsorted queries.
  485.     This retrieves the next page of documents for the query.
  486.     This is different from the sorted version of "next" because that version
  487.     can use the CiRecordsNextPage parameter for the text of the button.
  488.     This variable is not available for sequential queries.
  489. -->
  490.  
  491. <%if Not RS.EOF then%>
  492.     <TD ALIGN=RIGHT>
  493.         <form action="query.asp" method="get">
  494.             <INPUT TYPE="HIDDEN" NAME="qu" VALUE="<%=SearchString%>">
  495.             <INPUT TYPE="HIDDEN" NAME="so" VALUE="<%=Q.SortBy%>">
  496.             <INPUT TYPE="HIDDEN" NAME="co" VALUE="<%=ColSet%>">
  497.             <INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=Q.CiScope%>">
  498.             <INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage+1%>" >
  499.  
  500.             <% NextString = "Next "
  501.                if RS.RecordCount <> -1 then
  502.                    NextSet = (RS.RecordCount - NextRecordNumber) + 1
  503.                    if NextSet > RS.PageSize then
  504.                        NextSet = RS.PageSize
  505.                    end if
  506.                    NextString = NextString & NextSet & " documents"
  507.                else
  508.                    NextString = NextString & " page of documents"
  509.                end if
  510.              %>
  511.             <input type="submit" value="<%=NextString%>">
  512.         </FORM>
  513.     </TD>
  514.     <%SaveQuery = TRUE%>
  515. <%end if%>
  516.  
  517. </TABLE>
  518.  
  519.  
  520. <!-- Display the page number -->
  521.  
  522. Page <%=CurrentPage%>
  523. <%if RS.PageCount <> -1 then
  524.      Response.Write " of " & RS.PageCount
  525.   end if %>
  526.  
  527. <%
  528.     ' If either of the previous or back buttons were displayed, save the query
  529.     ' and the recordset in session variables.
  530.     if SaveQuery then
  531.         set Session("Query") = Q
  532.         set Session("RecordSet") = RS
  533.     else
  534.         RS.close
  535.         Set RS = Nothing
  536.         Set Q = Nothing
  537.         set Session("Query") = Nothing
  538.         set Session("RecordSet") = Nothing
  539.     end if
  540.  %>
  541. <% end if %>
  542.  
  543. <P>
  544. <CENTER>
  545. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  546. </CENTER>
  547. <P>
  548.  
  549. <!--BEGIN COLOR BANNER-->
  550. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  551.     <TR>
  552.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  553.       </TD>
  554.     </TR>
  555. </TABLE>
  556. <!--END COLOR BANNER-->
  557.  
  558. </BODY>
  559. </HTML>
  560.  
  561.