[VBScript]
<%
dim Results : set Results = ISYSSearch.Execute
dim Document : Document = Results(1)
firsthit = Document.GetLineWithHitAfter(0)
for i = firsthit to firsthit + 1
if i > Document.LineCount then exit for
Response.Write Document.Line(i, isysStylePlain)
next
%>
|