<%
Set Q = Server.CreateObject("ixsso.Query")
Keyword = Request("Keyword")
If Keyword = Empty Then Keyword = "王國榮"
Q.Query = Keyword
Q.Columns = "DocTitle,Characterization,Rank,VPath,Write,Size"
Q.MaxRecords = 10
Set rs = Q.CreateRecordset("nonsequential")

count = 1
While Not rs.EOF
  DocTitle =  rs("DocTitle")
  If DocTitle = Empty Then DocTitle="無"
%>
  <B>標題: </B><%=DocTitle%><BR>
  <B>相符: </B><%=rs("Rank")%><BR>
  <B>摘要: </B><%=rs("Characterization")%><BR>
  <B>網址: </B><A HREF=<%=rs("VPath")%>><%=rs("VPath")%></A><BR>
  <B>時間: </B><%=rs("Write")%><BR>
  <B>大小: </B><%=rs("Size")%><P>
<%
   rs.MoveNext
Wend
%>