home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / is20.cab / SQLQHit.asp < prev    next >
Text File  |  1997-10-14  |  4KB  |  102 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Query Results from OLE DB Provider for Microsoft Index Server</TITLE>
  4. <LINK REL=STYLESHEET HREF="is2style.css" TYPE="text/css">
  5. </HEAD>
  6. <BODY BGCOLOR=#FFFFFF>
  7.  
  8. <TABLE>
  9.     <TR><TD><A HREF="http://www.microsoft.com/ntserver/search" target="_top"><IMG SRC ="is2logo.gif" VALIGN=MIDDLE ALIGN=LEFT border=0></a></TD></TR>
  10.     <TR><TD ALIGN="RIGHT"><H3>Simple SQL Search Results</H3></TD></TR>
  11. </TABLE>
  12.  
  13. <P>
  14.  
  15. <%' !--#INCLUDE VIRTUAL="/iissamples/issamples/ADOVBS.INC"--%>
  16. <%
  17. QueryForm = "/iissamples/issamples/sqlqhit.htm"
  18. Set Conn = Server.CreateObject("ADODB.Connection")
  19. Conn.ConnectionString =  "provider=msidxs;"
  20. Conn.Open
  21. Set AdoCommand = Server.CreateObject("ADODB.Command")
  22. set AdoCommand.ActiveConnection = Conn
  23. %>
  24. Executing the following query:
  25.  
  26. <% if Request.QueryString("CiRestriction")="" then %>
  27.     <% if Request.QueryString("CiOrderBy")="" then %>
  28.         <% AdoCommand.CommandText = "Select "&Request.QueryString("CiColumns")&" from " &Request.QueryString("CiScope")  %>
  29.     <% else %>
  30.         <% AdoCommand.CommandText = "Select "&Request.QueryString("CiColumns")&" FROM " &Request.QueryString("CiScope")&" ORDER BY " &Request.QueryString("CiOrderBy") %>
  31.     <% end if %>
  32. <% else %>
  33.     <% if Request.QueryString("CiOrderBy")="" then %>
  34.         <% AdoCommand.CommandText = "Select "&Request.QueryString("CiColumns")&" from " &Request.QueryString("CiScope")&" where "&Request.QueryString("CiRestriction") %>
  35.     <% else %>
  36.         <% AdoCommand.CommandText = "Select "&Request.QueryString("CiColumns")&" FROM " &Request.QueryString("CiScope")&" WHERE "&Request.QueryString("CiRestriction")&" ORDER BY " &Request.QueryString("CiOrderBy") %>
  37.     <% end if %>
  38. <% end if%>
  39.  
  40. <P><I><%=AdoCommand.CommandText%></I>
  41. <%
  42. Set RS = Server.CreateObject("ADODB.RecordSet")
  43. AdoCommand.Properties("Bookmarkable") = True
  44. RS.CursorType = adOpenKeyset
  45. RS.MaxRecords = 300
  46. RS.open AdoCommand
  47.  
  48. CiSearchString = CStr(RS.Properties("Query Restriction"))
  49. %>
  50. <P>
  51. <TABLE BORDER=1>
  52. <TR>
  53. <% For i = 0 to RS.Fields.Count - 1 %>
  54.     <TH class=RecordTitle><B><% = RS(i).Name %></B></TH>
  55. <% Next %>
  56. </TR>
  57.  
  58. <% Do While Not RS.EOF %>
  59.     <TR>
  60.     <% For i = 0 to RS.Fields.Count - 1 %>
  61.         <%if RS(i).Name = "PATH" or RS(i).Name="VPATH" then %>
  62.             <%if RS(i).Name="VPATH" and CiSearchString <> "" then %>
  63.                 <%
  64.                 ' Construct the URL for hit highlighting
  65.  
  66.                 WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") )
  67.                 WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( CiSearchString )
  68.                 WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "<b class=Hit>" )
  69.                 WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "</b>" )
  70.                 WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
  71.                 '       WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID
  72.                  %>
  73.                 <TD>
  74.                 <TABLE>
  75.                 <TR><TD><b><a href="<%=RS(i)%>"><% = RS(i) %></a></b></TD></TR>
  76.                 <TR NOWRAP><TD><I>
  77.                     Hit Highlighting:<br>
  78.                     <a href="oop/qsumrhit.htw?<%= WebHitsQuery %>"><IMG src="hilight.gif" align=left alt="Highlight matching terms in document using Summary mode."> Summary</a><br>
  79.                     <a href="oop/qfullhit.htw?<%= WebHitsQuery %>&CiHiliteType=Full"><IMG src="hilight.gif" align=left alt="Highlight matching terms in document."> Full</a>
  80.                 </I></TD></TR>
  81.                 </TABLE>
  82.             <%else%>
  83.                 <TD><b><a href="<%=RS(i)%>"><% = RS(i) %></a></b></TD>
  84.             <%end if%>
  85.         <%else%>
  86.             <TD><% = RS(i) %></TD>
  87.         <%end if%>
  88.     <% Next %>
  89.     </TR>
  90.     <%
  91.     RS.MoveNext
  92.     Loop
  93. RS.Close
  94. Conn.Close
  95. %>
  96. </TABLE>
  97.  
  98. <!--#include file ="is2foot.inc"-->
  99.  
  100. </BODY>
  101. </HTML>
  102.