[VBScript]
<%
Set results = ISYSSearch.Execute
Set document = results.Item(1)
firstHit = document.GetLineWithHitAfter(0)
lineCount = document.LineCount
for i = firstHit to firstHit + 3
if i < lineCount then
Response.Write document.Line(i, Plain)
end if
next
%>
|