home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / qrybody1.inc < prev    next >
Text File  |  1998-04-27  |  2KB  |  30 lines
  1. <%
  2.     ' This is the detail portion for Title, Abstract, URL, Size, and
  3.     ' Modification Date.
  4.  
  5.     ' If there is a title, display it, otherwise display the virtual path.
  6. %>
  7.     <p>
  8.     <dt><%= NextRecordNumber%>.
  9.         <%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%>
  10.             <b><a href="<%=RS("vpath")%>"><%= Server.HTMLEncode( RS("filename") )%></a></b>
  11.         <%else%>
  12.             <b><a href="<%=RS("vpath")%>"><%= Server.HTMLEncode(RS("DocTitle"))%></a></b>
  13.         <%end if%>
  14.     <dd>
  15.         <%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
  16.             <b><i>Abstract:  </I></b><%= Server.HTMLEncode(RS("characterization"))%>
  17.             <br>
  18.         <%end if%>
  19.         <cite>
  20.             <a href="<%=RS("vpath")%>">http://<%=Request("server_name")%><%=RS("vpath")%></a>
  21.             <font size=-1> - <%if RS("size") = "" then%>(size and time unknown)<%else%>size <%=RS("size")%> bytes - <%=RS("write")%> GMT<%end if%></font>
  22.         </cite>
  23.         <%if SearchString <> "" then%>
  24.         <BR>
  25.         <a href="qsumrhit.htw?CiWebHitsFile=<%=Server.URLEncode( RS("vpath") )%>&CiRestriction=<%=Server.URLEncode( SearchString )%>&CiBeginHilite=<%=Server.URLEncode( "<font color=""#FF0000""><b><em>" )%>&CiEndHilite=<%=Server.URLEncode( "</em></b></font>")%>&CiUserParam3=AdvQuery.asp"><b>Show Highlights (condensed)</b></a> /
  26.         <a href="qfullhit.htw?CiWebHitsFile=<%=Server.URLEncode( RS("vpath") )%>&CiRestriction=<%=Server.URLEncode( SearchString )%>&CiBeginHilite=<%=Server.URLEncode( "<font color=""#FF0000""><b><em>" )%>&CiEndHilite=<%=Server.URLEncode( "</em></b></font>")%>&CiUserParam3=AdvQuery.asp&CiHiliteType=Full"><b>Show Highlights (full text)</b></a>
  27.         <BR>
  28.         <%end if%>
  29.  
  30.