Creating A Search Agent To Search The Internet

Sub Initialize
'-- For each Query document selected by the Agent :
'-- This script will perform searches of Yahoo!'s site.

'-- Get unprocessed document collection from Current Database
Dim Session As New NotesSession
Dim currentdb As NotesDatabase
Set currentdb = Session.CurrentDatabase
Dim webdoc As NotesDocument

Dim unprocessed As NotesDocumentCollection
Set unprocessed = currentdb.unprocesseddocuments

'-- Iterate through collection
Dim doc As NotesDocument
Set doc = unprocessed.getfirstdocument

Do While Not (doc Is Nothing)

'-- Process Yahoo Documents Only
If doc.form(0) = "Yahoo Search" Then

'-- Get the search string from the document
Dim YahooQuery As String
YahooQuery = doc.QueryText(0)

'-- Yahoo! uses the plus character as the "And" operator.
'-- Loop through and replace spaces with plus characters.
Do While Instr(YahooQuery," ")
pos = Instr(YahooQuery," ")
YahooQuery = Left$(YahooQuery,pos - 1) + "+" +
Right$(YahooQuery, Len(YahooQuery) - pos)

'-- Perform the Full Text Search, returning the results
u = "" + YahooQuery

'- Get the page
Set webdoc = currentdb.getdocumentbyurl(u,True)
'- Make the new document a response to the query document
Call webdoc.MakeResponse(doc)

End If

'-- Label the Query Document
Call session.UpdateProcessedDoc(doc)

'-- Get next document
Set doc = unprocessed.getnextdocument(doc)


End Sub

This was first published in November 2000

Dig Deeper on Domino Resources - Part 3



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...