home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / notes / 50lbwis.exe / DATA1.CAB / NotesDataFilesRequiredDataFiles / perweb50.ntf (.txt) < prev   
Encoding:
Lotus Notes Storage Facility  |  1999-01-28  |  1.0 MB  |  9,509 lines
  1. Personal Web Navigator (R5.0)
  2. #1StdR50PersonalWebNavigator
  3. STG13885
  4. }&lemH
  5. EOu#B 
  6. J7)e`|qT
  7. >%!-eWv
  8. CN=Lotus Notes Template Development/O=Lotus Notes
  9. CN=Dave Newbold/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notest
  10. ###############################
  11. $Modified
  12.     1S2S3S
  13. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
  14. $Flags
  15.     0SL1S4S5S3724
  16. $TITLE
  17. CN=Marina Bodik/O=Iris###############
  18. URLDoclinkURLDoclink
  19. URLDoclink
  20. CN=Winnie Liang/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  21. }&lemH
  22. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  23. CN=Teresa Deane/O=Irisc:\notes\data\perweb46.ntf(Home)Rin
  24. Personal Web Navigator (R5.0)
  25. #1StdR50PersonalWebNavigator
  26. CN=Teresa Deane/O=IrisCN=Marina Bodik/O=Iris#################################################
  27. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  28. )Other\House Cleaning|House Cleaning/OF
  29. TIME_DATE
  30. TIME_DATE
  31.     0S0E
  32.     0S0E
  33. $47Title$45$46$Conflict
  34. Cookie
  35. Admin
  36. HelpForm
  37. WebBrowserForm
  38. bookmark
  39.     L1S6S7S17S18S19S
  40. $47$45
  41. $45Title
  42. $47Size
  43. TitleDocument title$45DateN
  44. TIME_DATE
  45. TIME_DATE
  46.     0S0E
  47. $46Type*
  48.     0S0E
  49. IEVersion
  50. IEVersionMinor|
  51.     1S2S
  52. Admin
  53. Admin
  54. forward
  55. HTMLForm
  56. IEVersion
  57. Admin
  58. Admin
  59. forward
  60. HTMLForm
  61. WebBrowserForm
  62. IEVersion
  63. Admin
  64. Admin
  65. forward
  66. HTMLForm
  67. WebBrowser4Form
  68.     0R9RT12S13S23RTT29RTTT32S33S46RTT50RTTT53S54S66RTT69RT70R
  69. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  70. Internet OptionsAdminDC
  71. $Script1SaveHTMLKeepPageWebServerReduceSizeReduceDaysSearchURLPreferredSearchEngineScanAheadSendMailToUpdatesFoundOptionsSearchFrequencyListingAddressPlainFixedBodyAnchor_styleWebDatabaseReduceNumMBReduceNumDaysOpenURLStartUpOptions
  72. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  73. (Internet Profile)|Internet ProfilesB
  74. $Conflict
  75. Admin
  76.     L1S2S3S1
  77. Internet Options
  78. Internet Options&
  79. Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  80. Other\File Archive|File Archive/O
  81.     3S15S
  82.     3S15S
  83. $46NULL$45$Conflict
  84.     L1S1
  85. $46$45
  86. $46$45
  87. $46$45
  88.  $46File NameJ
  89.     3S15SNULL$45File SizeJ
  90.     3S15S&
  91. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  92. CN=Ryan Jansen/O=IrisCN=Barbara Mathers/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesLotus NotesCN=Teresa Deane/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=IrisCN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1##
  93. ShareWebPageShareWebPageDC
  94. RatingtmpWebDbtmpWebServerSharedOptionsCommentscontentURLTitle
  95. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  96. (ImportBookmark)CDBookmarkFile
  97. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  98. (ImportFavorite)BookmarkFile
  99. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  100. ##########################################################
  101. gD1DE5FB167B5A71A831BA6EC2E9C9C3667843E4301C6054E658E2C2D65E5AC9DHTMLFormDC
  102. SubjectSaveOptionsFileNameHostTypeHTTPStatusURLTitleBody
  103. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  104. 1Favorites and Bookmarks|Bookmarks|Favorites|BookmarksFavorites and Bookmarks|Bookmarks|Favorites|Bookmarks
  105. Bookmark
  106.     6S8S
  107. $37Title$36URL$Conflict
  108. Title
  109. Title
  110. Bookmark
  111.     6S8S
  112. TitlePageTitle$36Date
  113. URLURL&
  114. IEVersion
  115. IEVersionMinor|
  116.     1S2S
  117. Admin
  118. Admin
  119. forward
  120. HTMLForm
  121. IEVersion
  122. Admin
  123. Admin
  124. forward
  125. HTMLForm
  126. WebBrowserForm
  127. IEVersion
  128. Admin
  129. Admin
  130. forward
  131. HTMLForm
  132. WebBrowser4Form
  133.     0R9RT12S13S23RTT29RTTT32S33S46RTT50RTTT53S54S66RTT69RT70R3FYd
  134. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  135. ########################################################
  136. ForwardForwardCDForwardOptions
  137. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  138. EXT61806.lssKJ
  139. EXT61806.lso
  140. STG28821
  141. EXT34422
  142. EXT34422Browser$BodyWebBrowserFormC
  143. EXT34422.lss#
  144. EXT34422.lso
  145. T8Wxy
  146. $OLEPreviewActivateSaveOptions
  147. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  148. EOu#B 
  149. (WebBrowserView)|WebBrowserView
  150. www.G
  151. www.`
  152.     15S18S27S30S
  153. $34Title$Conflict
  154. WebBrowserG
  155.     L1S1
  156.  $34v
  157. www.G
  158. www.`
  159.     15S18S27S30S
  160. TitleDocument Title&
  161. CN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  162. J7)e`|qT
  163. Housekeeping
  164. 1SfL3
  165. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  166. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  167. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  168. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  169. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  170. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  171. HelpFormHD
  172. BodyTitle
  173. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
  174. Web Ahead
  175. 1SfL3
  176. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  177. CN=Teresa Deane/O=IrisCN=Marina Bodik/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesInternetFunctionss34Q1#################################
  178. O=Lotus Notes
  179. O=Lotus Notes
  180. PURSAFO
  181. |.:#U
  182. O=Lotus Notes
  183. CN=Lotus Notes Template Development/O=Lotus Notes
  184. PURSAFO
  185. k|3to
  186. $ACLDigest
  187. O=Lotus Notes
  188. O=Lotus Notes
  189. PURSAFO
  190. |.:#U
  191. O=Lotus Notes
  192. CN=Lotus Notes Template Development/O=Lotus Notes
  193. PURSAFO
  194. Fde!f^^
  195. $INFO
  196. $BODY
  197. Times New Roman
  198. &Arial
  199. Using Personal 
  200. Web Navigator 5.0
  201.     This database is designed so you can easily access the Internet right from your Notes workstation and store Web pages in your own Personal Web Navigator database.  
  202. Getting started viewing and searching pages
  203.     To browse a page, click  
  204. ?_?__
  205. `!b`1
  206. 7`^///?
  207. ?b___
  208. `bOOO
  209. `<b!R
  210. *.BMP
  211. CGM Imag
  212. ;*.WR1;*.WRK;*.W
  213.       which brings up your home page specified in Internet Options.  You can enter new URL's for other Web pages in the search bar.   You can save the page in the All Bookmarks view to read later by clicking the Add Bookmark... button. We have also included some of our favorite Web pages in the All Bookmarks view, which you can display by switching to the All Bookmarks view and selecting a page.
  214.     If you want to search for information in pages stored in the Personal Web Navigator database, you can search the database using full text search as you would any other Notes database. See online Help (Help4.nsf) for information on using full text search. 
  215.     To use an Internet search engine, such as CNet, to search all available pages on the Internet, click 
  216. ?_?__
  217. `!b`1
  218. 7`^///?
  219. ?b___
  220. `bOOO
  221. `<b!R
  222. 922 2EDFA3BC D$S
  223. *.BMP
  224. CGM Imag
  225.      and enter your search criteria.
  226.     You can change the default Internet search engine as well as other Personal Web Navigator settings in the Internet Options document. To access this document, choose Actions - Internet Options when you are using the Personal Web Navigator database.
  227. Using the Personal Web Navigator views
  228.     The Personal Web Navigator database contains the following views:
  229.     Favorites and Bookmarks 
  230.     Displays pages for which you created bookmarks and also pages that you added to the Favorites folder.
  231.     Web Bots
  232.     Web Ahead 
  233.     Notes launches a background agent, which you enable, called Web Ahead that runs on each of the pages stored in this folder. This agent retrieves all the Web pages specified by the URLs on a particular Web page and saves all the resulting Web pages in your database for you to read later. You can set the agent to retrieve the URLs several levels down from the page you specify. 
  234.     Page Minder 
  235.     Notes launches a background agent, which you enable, called Page Minder that monitors each of the Web pages stored in this folder and notifies you when the contents of that page change.
  236.     All Bookmarks
  237.      Lets you quickly view your favorite pages. You can create bookmarks for pages stored in the Personal Web Navigator database as well as pages that you access frequently on the Web.
  238.     All Pages
  239.      Displays all pages stored in the Personal Web Navigator database. You can browse these pages even when you are disconnected from the network.
  240.     Other
  241.     File Archive
  242.      Displays a list of files downloaded from Web pages, sorted in alphabetical order by file size.
  243.     House Cleaning
  244.      Displays a list of documents, sorted in ascending order by document size.
  245.     Use these views to reduce the number of documents in the database based on document or file size.
  246. Getting more information
  247.     This is just a brief summary of the features you may want to use in the Personal Web Navigator database. For additional information,
  248. '++LotusScript Development Environment:2:5:(Options):0:66
  249. '++LotusScript Development Environment:2:5:(Forward):0:1
  250. Declare Sub Click(Source As Button)
  251. '++LotusScript Development Environment:2:5:(Declarations):0:2
  252. '++LotusScript Development Environment:2:2:BindEvents:1:129
  253. Private Sub BindEvents(Byval Objectname_ As String)
  254.      Static Source As BUTTON
  255.      Set Source = Bind(Objectname_)
  256.      On Event Click From Source Call Click
  257. End Sub
  258. '++LotusScript Development Environment:2:2:Click:1:12
  259. Sub Click(Source As Button)
  260.      
  261.      Dim mailserver As String
  262.      Dim helpdb As New notesdatabase("", "")
  263.      
  264.      Dim workspace As New NotesUIWorkspace
  265.      Dim s As New notessession
  266.      mailserver = s.getenvironmentstring("MailServer", True)
  267.      
  268.      If Helpdb.open("", "help4.nsf") Then 
  269.           Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  270.      Elseif Helpdb.open("", "helplt4.nsf") Then
  271.           Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  272.      Elseif Helpdb.open(Mailserver, "help4.nsf") Then
  273.           Call workspace.OpenDatabase ( mailserver, "help4.nsf", "Web")
  274.      Elseif Helpdb.open(Mailserver, "helplt4.nsf") Then
  275.           Call workspace.OpenDatabase ( mailserver, "helplt4.nsf", "Web")
  276.      Else
  277.           Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  278.      End If
  279.      
  280. End Sub
  281.      click the following help icon:
  282. 60606
  283.  @  @@ @` @
  284. @@ @@@@@`@@
  285. `@ `@@`@``@
  286. O=Lotus Notes
  287. O=Lotus Notes
  288. PURSAFO
  289. |.:#U
  290. O=Lotus Notes
  291. CN=Lotus Notes Template Development/O=Lotus Notes
  292. PURSAFO
  293. ?Q9/+<1>Z
  294. $INFO
  295. $BODY
  296. Times New Roman
  297. &Arial
  298. About Personal
  299. Web Navigator 5.0
  300.     Welcome to the Personal Web Navigator database.  The Personal Web Navigator database allows you to access the Internet directly from your Notes workstation.  This database acts as a repository for Web pages and files that have been downloaded so you can easily organize your pages and browse them when you are disconnected from the network. It also acts as an easy entry point for exploring the Internet.  This version of the Personal Web Navigator database allows you to make use of the integrated Notes with Internet Explorer option to view pages using Internet Explorer while keeping all of the powerful functionality of Notes.
  301.     Choose "Using This Database" from the Help menu for information on using this database. 
  302. -------------------
  303.     (Close this window to return to the database.)
  304. O=Lotus Notes
  305. O=Lotus Notes
  306. PURSAFO
  307. |.:#U
  308. O=Lotus Notes
  309. CN=Lotus Notes Template Development/O=Lotus Notes
  310. PURSAFO
  311. $INFO
  312. $BODY
  313. Categori_ze
  314. _Edit Document
  315. Send Docu_ment
  316. _Forward
  317. _Move to Folder...
  318. _Remove from Folder...
  319. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  320. '++LotusScript Development Environment:2:5:(Forward):0:1
  321. Declare Sub Click(Source As Button)
  322. '++LotusScript Development Environment:2:5:(Declarations):0:2
  323. '++LotusScript Development Environment:2:2:BindEvents:1:129
  324. Private Sub BindEvents(Byval Objectname_ As String)
  325.      Static Source As BUTTON
  326.      Set Source = Bind(Objectname_)
  327.      On Event Click From Source Call Click
  328. End Sub
  329. '++LotusScript Development Environment:2:2:Click:1:12
  330. Sub Click(Source As Button)
  331.      
  332.      Browse
  333. End Sub
  334. _Delete
  335. '++LotusScript Development Environment:2:5:(Options):0:66
  336. '++LotusScript Development Environment:2:5:(Forward):0:1
  337. Declare Sub Click(Source As Button)
  338. '++LotusScript Development Environment:2:5:(Declarations):0:2
  339. '++LotusScript Development Environment:2:2:BindEvents:1:129
  340. Private Sub BindEvents(Byval Objectname_ As String)
  341.      Static Source As BUTTON
  342.      Set Source = Bind(Objectname_)
  343.      On Event Click From Source Call Click
  344. End Sub
  345. '++LotusScript Development Environment:2:2:Click:1:12
  346. Sub Click(Source As Button)
  347.      ViewDelete
  348. End Sub
  349. Reduce to Bookmarkp
  350. title
  351. Favorites
  352.     0S0E
  353. (RemoveObjects)
  354. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  355. '++LotusScript Development Environment:2:5:(Forward):0:1
  356. Declare Sub Click(Source As Button)
  357. '++LotusScript Development Environment:2:5:(Declarations):0:2
  358. '++LotusScript Development Environment:2:2:BindEvents:1:129
  359. Private Sub BindEvents(Byval Objectname_ As String)
  360.      Static Source As BUTTON
  361.      Set Source = Bind(Objectname_)
  362.      On Event Click From Source Call Click
  363. End Sub
  364. '++LotusScript Development Environment:2:2:Click:1:12
  365. Sub Click(Source As Button)
  366.      
  367.      PrintWebDocument
  368. End Sub
  369. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  370. '++LotusScript Development Environment:2:5:(Forward):0:1
  371. Declare Sub Click(Source As Button)
  372. '++LotusScript Development Environment:2:5:(Declarations):0:2
  373. '++LotusScript Development Environment:2:2:BindEvents:1:129
  374. Private Sub BindEvents(Byval Objectname_ As String)
  375.      Static Source As BUTTON
  376.      Set Source = Bind(Objectname_)
  377.      On Event Click From Source Call Click
  378. End Sub
  379. '++LotusScript Development Environment:2:2:Click:1:12
  380. Sub Click(Source As Button)
  381.      
  382.      Dim docLocal As NotesDocument
  383.      Dim docCollection As NotesDocumentCollection     
  384.      Set docCollection = db.UnprocessedDocuments
  385.      If (docCollection.Count = 0) Then
  386.           Msgbox "You must select a document.",16,"Error"
  387.           Exit Sub
  388.      Else
  389.           For j = 1 To docCollection.Count
  390.                Set docLocal = docCollection.getnthdocument(j)               
  391.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  392.                     Select Case docLocal.ForwardOptions(0)
  393.                     Case "1" : 'user wants to forward the URL only
  394.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  395.                     Case "2" : 'user wants to send entire page
  396.                          Call  ViewForward(docLocal)
  397.                     End Select
  398.           'remove any remaining fields that don't need to be carried around
  399.                     docLocal.RemoveItem "ForwardOptions" 
  400.                     docLocal.save True, False
  401.                     
  402.                End If
  403.                Exit Sub
  404.           Next
  405.      End If
  406.      Exit Sub
  407. End Sub
  408. Categori_ze
  409. _Edit Document
  410. Send Docu_ment
  411. _Forward
  412. _Move to Folder...
  413. _Remove from Folder...
  414. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  415. '++LotusScript Development Environment:2:5:(Forward):0:1
  416. Declare Sub Click(Source As Button)
  417. '++LotusScript Development Environment:2:5:(Declarations):0:2
  418. '++LotusScript Development Environment:2:2:BindEvents:1:129
  419. Private Sub BindEvents(Byval Objectname_ As String)
  420.      Static Source As BUTTON
  421.      Set Source = Bind(Objectname_)
  422.      On Event Click From Source Call Click
  423. End Sub
  424. '++LotusScript Development Environment:2:2:Click:1:12
  425. Sub Click(Source As Button)
  426.      
  427.      Browse
  428. End Sub
  429. _Delete
  430. '++LotusScript Development Environment:2:5:(Options):0:66
  431. '++LotusScript Development Environment:2:5:(Forward):0:1
  432. Declare Sub Click(Source As Button)
  433. '++LotusScript Development Environment:2:5:(Declarations):0:2
  434. '++LotusScript Development Environment:2:2:BindEvents:1:129
  435. Private Sub BindEvents(Byval Objectname_ As String)
  436.      Static Source As BUTTON
  437.      Set Source = Bind(Objectname_)
  438.      On Event Click From Source Call Click
  439. End Sub
  440. '++LotusScript Development Environment:2:2:Click:1:12
  441. Sub Click(Source As Button)
  442.      ViewDelete
  443. End Sub
  444. Reduce to Bookmarkp
  445. title
  446. Favorites
  447.     0S0E
  448. (RemoveObjects)
  449. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  450. '++LotusScript Development Environment:2:5:(Forward):0:1
  451. Declare Sub Click(Source As Button)
  452. '++LotusScript Development Environment:2:5:(Declarations):0:2
  453. '++LotusScript Development Environment:2:2:BindEvents:1:129
  454. Private Sub BindEvents(Byval Objectname_ As String)
  455.      Static Source As BUTTON
  456.      Set Source = Bind(Objectname_)
  457.      On Event Click From Source Call Click
  458. End Sub
  459. '++LotusScript Development Environment:2:2:Click:1:12
  460. Sub Click(Source As Button)
  461.      
  462.      PrintWebDocument
  463. End Sub
  464. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  465. '++LotusScript Development Environment:2:5:(Forward):0:1
  466. Declare Sub Click(Source As Button)
  467. '++LotusScript Development Environment:2:5:(Declarations):0:2
  468. '++LotusScript Development Environment:2:2:BindEvents:1:129
  469. Private Sub BindEvents(Byval Objectname_ As String)
  470.      Static Source As BUTTON
  471.      Set Source = Bind(Objectname_)
  472.      On Event Click From Source Call Click
  473. End Sub
  474. '++LotusScript Development Environment:2:2:Click:1:12
  475. Sub Click(Source As Button)
  476.      
  477.      Dim docLocal As NotesDocument
  478.      Dim docCollection As NotesDocumentCollection     
  479.      Set docCollection = db.UnprocessedDocuments
  480.      If (docCollection.Count = 0) Then
  481.           Msgbox "You must select a document.",16,"Error"
  482.           Exit Sub
  483.      Else
  484.           For j = 1 To docCollection.Count
  485.                Set docLocal = docCollection.getnthdocument(j)               
  486.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  487.                     Select Case docLocal.ForwardOptions(0)
  488.                     Case "1" : 'user wants to forward the URL only
  489.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  490.                     Case "2" : 'user wants to send entire page
  491.                          Call  ViewForward(docLocal)
  492.                     End Select
  493.           'remove any remaining fields that don't need to be carried around
  494.                     docLocal.RemoveItem "ForwardOptions" 
  495.                     docLocal.save True, False
  496.                     
  497.                End If
  498.                Exit Sub
  499.           Next
  500.      End If
  501.      Exit Sub
  502. End Sub
  503. '++LotusScript Development Environment:2:5:(Options):0:74
  504. Option Public
  505. Use "InternetFunctions"
  506. '++LotusScript Development Environment:2:5:(Forward):0:1
  507. '++LotusScript Development Environment:2:5:(Declarations):0:2
  508. '++LotusScript Development Environment:2:5:(Options):0:66
  509. '++LotusScript Development Environment:2:5:(Forward):0:1
  510. Declare Sub Postopen(Source As Notesuiview)
  511. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  512. '++LotusScript Development Environment:2:5:(Declarations):0:2
  513. '++LotusScript Development Environment:2:2:BindEvents:1:129
  514. Private Sub BindEvents(Byval Objectname_ As String)
  515.      Static Source As NOTESUIVIEW
  516.      Set Source = Bind(Objectname_)
  517.      On Event Postopen From Source Call Postopen
  518.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  519. End Sub
  520. '++LotusScript Development Environment:2:2:Postopen:1:12
  521. Sub Postopen(Source As Notesuiview)
  522.      InstantiateObjects
  523. End Sub
  524. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  525. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  526.      Call MoveToFolder(source,target,continue)
  527. End Sub
  528. O=Lotus Notes
  529. O=Lotus Notes
  530. PURSAFO
  531. |.:#U
  532. O=Lotus Notes
  533. CN=Lotus Notes Template Development/O=Lotus Notes
  534. PURSAFO
  535. $SCRIPTOBJ_12
  536. $SCRIPTOBJ_11
  537. $TITLE
  538. $Index
  539. $Formula
  540. $FormulaClass
  541. $VIEWFORMAT
  542. $FormFormula
  543. $Comment
  544. $V5ACTIONS
  545. $ACTIONS
  546. $SCRIPTOBJ_6
  547. $SCRIPTOBJ_7
  548. $SCRIPTOBJ_9
  549. $SCRIPTOBJ_10
  550. $ViewGlobalScript
  551. $ViewGlobalScript_O
  552. $ViewScript
  553. $ViewScript_O
  554. FOLDER_DIRECTORY_OBJECT
  555. Favorites and Bookmarks|Bookmarks|Favorites|Bookmarks
  556. Personal Web Navigator Internet Options
  557. &Arial
  558. '++LotusScript Development Environment:2:5:(Options):0:74
  559. Option Public
  560. Use "InternetFunctions"
  561. '++LotusScript Development Environment:2:5:(Forward):0:1
  562. '++LotusScript Development Environment:2:5:(Declarations):0:10
  563. Dim DocWasSaved As Integer
  564. Dim HPValue As String
  565. Dim OldHPValue As String
  566. Dim SearchValue As String
  567. Dim OldSearchValue As String
  568. Dim uidoc As notesuidocument
  569.  Admin'++LotusScript Development Environment:2:5:(Options):0:66
  570. '++LotusScript Development Environment:2:5:(Forward):0:1
  571. Declare Sub Postopen(Source As Notesuidocument)
  572. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  573. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  574. '++LotusScript Development Environment:2:5:(Declarations):0:2
  575. '++LotusScript Development Environment:2:2:BindEvents:1:129
  576. Private Sub BindEvents(Byval Objectname_ As String)
  577.      Static Source As NOTESUIDOCUMENT
  578.      Set Source = Bind(Objectname_)
  579.      On Event Postopen From Source Call Postopen
  580.      On Event Querysave From Source Call Querysave
  581.      On Event Queryclose From Source Call Queryclose
  582. End Sub
  583. '++LotusScript Development Environment:2:2:Postopen:1:12
  584. Sub Postopen(Source As Notesuidocument)
  585.      'initialize some varibales
  586.      Set w = New notesuiworkspace
  587.      Set uidoc = w.currentdocument
  588.      Set note = source.Document
  589.      Set session = New NotesSession
  590.      Set db = session.CurrentDatabase
  591.      'we need to see if a profile document exists
  592.      Set view = db.GetView("(Internet Profile)")
  593.      Set docProfile = view.GetFirstDocument
  594.      If Not (docProfile Is Nothing) Then
  595.           'clear out any existing items, even though there probably isn't any
  596.           Forall fields In note.Items
  597.                fields.Remove
  598.           End Forall
  599.                'copy the items from the docProfile to this and disable saving
  600.           docProfile.CopyAllItems note
  601.      End If
  602.      DocWasSaved = False
  603.      source.Refresh
  604. End Sub
  605. '++LotusScript Development Environment:2:2:Querysave:1:12
  606. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  607.      
  608.      Dim lpSubKey1 As String
  609.      Dim IEHomePageURL As String
  610.      Dim NewHPValue As String
  611.      Dim IESearchURL As String
  612.      Dim NewSearchValue As String
  613.      
  614.      If (docProfile Is Nothing) Then
  615.           note.Saveoptions = "1"
  616.      Else
  617.           note.saveoptions = "0"
  618.           DocWasSaved = True
  619.           
  620.      End If
  621.      Call Session.Setenvironmentvar("W3LocalFormSave", "1", False)
  622.      
  623.      'If the home page or the search url have changed, write them out to the registry
  624.      
  625.      If GetcurrentLocation = "3" Then
  626.           If ( source.document.startupoptions(0) ="1") And (source.document.openurl(0) <> "") Then
  627.           'synchronize homepage with IE if Location is set to Notes with IE
  628.                NewHPValue = source.fieldgettext("OpenURL")
  629.                If NewHPValue <> OldHPValue Then
  630.                     lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
  631.                     IEHomePageURL =  GetRegValue (lpsubkey1, "Start Page" )
  632.                     CompareResult = CompareValues (IEHomePageURL, NewHPValue)
  633.                     Select Case CompareResult
  634.                     Case "SetRegistry"
  635.           'Put the Notes Value in the W32 Registry
  636.                          Call SetRegValue(lpSubKey1, "Start Page", NewHPValue)
  637.                     Case "SetNotes"
  638.           'Put the W32 Registry value in Notes
  639.                          docprofile.OpenURL = IEHomePageURL
  640.                          Call docprofile.save(True, False)
  641.                     End Select
  642.                End If
  643.           End If
  644.           
  645.           'Sync search page values if they have changed
  646.           
  647.           NewSearchValue = source.fieldgettext("PreferredSearchEngine")
  648.           NewSearchURL = source.fieldgettext("SearchURL")
  649.           If NewSearchValue <> OldSearchValue Then
  650.                lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
  651.                IESearchURL =  GetRegValue (lpsubkey1, "Search Page" )
  652.                CompareResult = CompareValues (IESearchURL, NewSearchURL)
  653.                Select Case CompareResult
  654.                Case "SetRegistry"
  655.           'Put the Notes Value in the W32 Registry
  656.                     Call SetRegValue(lpSubKey1, "Search Page", NewSearchURL)
  657.                Case "SetNotes"
  658.           'Put the W32 Registry value in Notes
  659.                     source.document.SearchURL = IESearchURL
  660.                End Select
  661.           End If
  662.      End If
  663. End Sub
  664. '++LotusScript Development Environment:2:2:Queryclose:1:12
  665. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  666.      source.refreshhideformulas
  667.           'see if there is a profile document
  668.      If Not (DocWasSaved) Or (docProfile Is Nothing) Then
  669.           'there isn't a profile document, go ahead and save
  670.           Exit Sub
  671.      Else
  672.           'we need to delete the items in the docprofile and copy the current items to it
  673.           Forall fields In docProfile.Items
  674.                fields.Remove
  675.           End Forall
  676.           note.CopyAllItems docProfile
  677.           docProfile.SaveOptions = "1"
  678.           docProfile.Save True, True
  679.      End If
  680. End Sub
  681. '++LotusScript Development Environment:2:5:(Options):0:66
  682. '++LotusScript Development Environment:2:5:(Forward):0:1
  683. Declare Sub Exiting(Source As Field)
  684. '++LotusScript Development Environment:2:5:(Declarations):0:2
  685. '++LotusScript Development Environment:2:2:BindEvents:1:129
  686. Private Sub BindEvents(Byval Objectname_ As String)
  687.      Static Source As FIELD
  688.      Set Source = Bind(Objectname_)
  689.      On Event Exiting From Source Call Exiting
  690. End Sub
  691. '++LotusScript Development Environment:2:2:Exiting:1:12
  692. Sub Exiting(Source As Field)
  693.      
  694. End Sub
  695. '++LotusScript Development Environment:2:5:(Options):0:66
  696. '++LotusScript Development Environment:2:5:(Forward):0:1
  697. Declare Sub Exiting(Source As Field)
  698. Declare Sub Entering(Source As Field)
  699. '++LotusScript Development Environment:2:5:(Declarations):0:2
  700. '++LotusScript Development Environment:2:2:BindEvents:1:129
  701. Private Sub BindEvents(Byval Objectname_ As String)
  702.      Static Source As FIELD
  703.      Set Source = Bind(Objectname_)
  704.      On Event Exiting From Source Call Exiting
  705.      On Event Entering From Source Call Entering
  706. End Sub
  707. '++LotusScript Development Environment:2:2:Exiting:1:12
  708. Sub Exiting(Source As Field)
  709.      
  710. End Sub
  711. '++LotusScript Development Environment:2:2:Entering:1:12
  712. Sub Entering(Source As Field)
  713.      HPvalue = uidoc.fieldgettext("OpenURL")
  714.      OldHPValue = HPvalue
  715. End Sub
  716. '++LotusScript Development Environment:2:5:(Options):0:66
  717. '++LotusScript Development Environment:2:5:(Forward):0:1
  718. Declare Sub Exiting(Source As Field)
  719. '++LotusScript Development Environment:2:5:(Declarations):0:2
  720. '++LotusScript Development Environment:2:2:BindEvents:1:129
  721. Private Sub BindEvents(Byval Objectname_ As String)
  722.      Static Source As FIELD
  723.      Set Source = Bind(Objectname_)
  724.      On Event Exiting From Source Call Exiting
  725. End Sub
  726. '++LotusScript Development Environment:2:2:Exiting:1:12
  727. Sub Exiting(Source As Field)
  728.      
  729. End Sub
  730. '++LotusScript Development Environment:2:5:(Options):0:66
  731. '++LotusScript Development Environment:2:5:(Forward):0:1
  732. Declare Sub Entering(Source As Field)
  733. Declare Sub Exiting(Source As Field)
  734. '++LotusScript Development Environment:2:5:(Declarations):0:2
  735. '++LotusScript Development Environment:2:2:BindEvents:1:129
  736. Private Sub BindEvents(Byval Objectname_ As String)
  737.      Static Source As FIELD
  738.      Set Source = Bind(Objectname_)
  739.      On Event Entering From Source Call Entering
  740.      On Event Exiting From Source Call Exiting
  741. End Sub
  742. '++LotusScript Development Environment:2:2:Entering:1:12
  743. Sub Entering(Source As Field)
  744.      Searchvalue = uidoc.fieldgettext("PreferredSearchEngine")
  745.      OldSearchValue = Searchvalue
  746. End Sub
  747. '++LotusScript Development Environment:2:2:Exiting:1:12
  748. Sub Exiting(Source As Field)
  749.      
  750. End Sub
  751. '++LotusScript Development Environment:2:5:(Options):0:66
  752. '++LotusScript Development Environment:2:5:(Forward):0:1
  753. Declare Sub Exiting(Source As Field)
  754. '++LotusScript Development Environment:2:5:(Declarations):0:2
  755. '++LotusScript Development Environment:2:2:BindEvents:1:129
  756. Private Sub BindEvents(Byval Objectname_ As String)
  757.      Static Source As FIELD
  758.      Set Source = Bind(Objectname_)
  759.      On Event Exiting From Source Call Exiting
  760. End Sub
  761. '++LotusScript Development Environment:2:2:Exiting:1:12
  762. Sub Exiting(Source As Field)
  763.      Dim  w As New notesuiworkspace
  764.      Dim uidoc As notesuidocument
  765.      Dim docnote As notesdocument
  766.      Set uidoc = w.currentdocument
  767.      uidoc.refresh
  768.      Set docnote = uidoc.document
  769.      If "" <> (uidoc.fieldgettext("*")) Then
  770.           var = docnote.GetItemValue("*")
  771.           Forall item In var
  772.                If Not (item = "*") Then
  773.                     uidoc.fieldclear(item)
  774.                End If
  775.           End Forall
  776.      End If     
  777. End Sub
  778. DiskSizeOptions
  779. ReduceReadG
  780.     0S0E
  781. Internet Options for
  782.     0S0E
  783. DisplayName
  784.     Startup options:
  785. StartUpOptionsCheck this box to specify a default Web page each time you open this database.
  786. Open home page on database open:|1
  787. http://notes.net/welcome.nsf
  788. startupoptions
  789. OpenURL
  790. You have selected to have a home page opened every time the database is opened.  Please enter a home page in the home page field.
  791.     5S6S9S10SOpenURLEnter the URL for the Web page you want to open each time you open this database.
  792.       Database size options:
  793. ReduceDays
  794.     1S2S
  795. ReduceNumDaysSelect the number of days that a page should be in the database before Notes purges it.
  796. 15306090
  797. ReduceNumMBSelect the size the database should reach before Notes warns you.
  798. 5102550
  799.     days
  800.     megabytes
  801.      Collaboration options:
  802.     Share specified Web pages and Rating documents with:
  803.     Server:
  804.     Database:
  805. web.nsf
  806. WebServer
  807. web.nsf
  808. WebServer
  809. names.nsf
  810. ($ServersLookup)
  811. WebServer
  812. WebDBName
  813.     0S0E
  814. WebDatabaseSpecify the name of the Server Web Navigator database to share Web pages and Ratings documents with.
  815. SaveHTML
  816.     0S0E
  817. Underline/Blue
  818. Anchor_styleChoose a style for URLs on Web pages.
  819. Bold/Underline/BlueUnderline/BlueBold/BlueUnderline only
  820. Times 12
  821. BodyChoose a font for the body tag on Web pages.    
  822. Times 10Times 11Times 12Helvetica 10Helvetica 11Helvetica 12Courier 10Courier 11Courier 12
  823. Courier
  824. FixedChoose a font for tags that display "fixed" type on Web pages.
  825. TimesHelveticaCourier
  826. Courier
  827. PlainChoose a font for plaintext type tags on Web pages.
  828. TimesHelveticaCourier
  829. Times
  830. AddressChoose a font for the address tag on Web pages.
  831. TimesHelveticaCourier
  832. Courier
  833. ListingChoose a font for listing type tags on Web pages.
  834. TimesHelveticaCourier
  835.      Presentation preferences:
  836.     Anchors:
  837.     Body text:
  838.     Fixed:
  839.     Plain:
  840.     Address:
  841.     Listing:
  842.      Network preferences:
  843.     Internet Network Preferences can be set by editing your current location document.
  844.     0S0E
  845.     Edit Location...
  846.     Search for updates every:
  847. SearchFrequencyChoose how often you want the agent to check to see if the contents of the page have changed.
  848. Hour|04 Hours|1Day|2Week|3
  849.     When updates are found:
  850. UpdatesFoundOptionsSpecify how you want to be alerted when the contents of the page changes.
  851. Mail the actual page|0Send a summary|1
  852.     Send to:
  853.     0S0E
  854. Page Minder
  855. sendmailto
  856. You must enter an e-mail address for Page Minder to send updates to.{
  857.     1S6S7S9S10S13S
  858. SendMailToSpecify the name of the person to alert when the contents of the page changes.
  859.     Preload Web pages:
  860. ScanAheadEnter the number of levels of pages you want this agent to retrieve.
  861.     level(s) ahead
  862.     Preferred Search Engine:
  863. PreferredSearchEngineSpecify the search engine you want to use when you click the Search button.
  864. AltaVista|0CNet|4Excite|1Lycos|2Other|5Yahoo|3
  865. PreferredSearchEngine
  866.     1S2S
  867. PreferredSearchEngine
  868. http://altavista.digital.com/
  869. PreferredSearchEngine
  870. http://www.excite.com/
  871. PreferredSearchEngine
  872. http://www.lycos.com/
  873. PreferredSearchEngine
  874. http://www.yahoo.com/
  875. PreferredSearchEngine
  876. http://www.search.com/
  877. PreferredSearchEngine
  878. SearchURL
  879. http://
  880.     3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S33S34S35S36S38S
  881. SearchURLEnter the URL of a specific search engine you want to associate with the Search button.
  882.      Search options:
  883.      Page Minder agent preferences:
  884.      Web Ahead agent preferences:
  885. ReduceDaysChoose how you want Notes to purge the database.
  886. Reduce full pages to links if not read within:|0Remove pages from database if not read in:|1Disable|2
  887. ReduceSizeSpecify that Notes should warn you by displaying a message box when the database exceeds a certain size.
  888. Warn me when the database exceeds:|1
  889. Web Ahead
  890.     0S0E
  891. Web Ahead
  892.     0S0E
  893.     0R4S
  894. Enabled Background Agents
  895. You have just enabled a background agent on your Notes workstation.  Please make sure that you have enabled background agents in your Notes preferences by choosing File - Tools - User Preferences and selecting Enable scheduled local agents.
  896.     0R6S
  897.     Enable Web Ahead
  898. Page Minder
  899.     0S0E
  900. Page Minder
  901.     0S0E
  902.     0R4S
  903. Enabled Background Agents
  904. You have just enabled a background agent on your Notes workstation.  Please make sure that you have enabled background agents in your Notes preferences by choosing File - Tools - User Preferences and selecting Enable scheduled local agents.
  905.     0R6S
  906.     Enable Page Minder
  907.     Home Page:
  908. SendMailTo
  909. SendMailTo
  910.     1S2S3S10S11S
  911.     0S0E
  912.     Address...
  913. Page Minder
  914.     0S0E
  915. Page Minder
  916.     0S0E
  917.     Disable Page Minder
  918. Web Ahead
  919.     0S0E
  920. Web Ahead
  921.     0S0E
  922.     Disable Web Ahead
  923.     0S0E
  924. WebServerPlease enter the name of the InterNotes Server which you would like to share web pages with
  925. Housekeeping
  926. reducedays
  927.     0S0E
  928. Housekeeping
  929.     0S0E
  930.     Disable Housekeeping 
  931. Housekeeping
  932. reducedays
  933.     0S0E
  934. Housekeeping
  935.     0S0E
  936.      Enable Housekeeping 
  937.     0S0E
  938. KeepPage
  939. Automatically store pages for disconnected use|0Manually store pages for disconnected use|1
  940. SaveHTMLCheck to save the source HTML text in the HTMLSource field in the Notes document.
  941. Save as Rich Text only|0Save as Rich Text and HTML|1Save as MIME only|2
  942.     HTML Save Options:
  943. $Script1
  944. Categori_zeK
  945. _Edit Document
  946. Send Docu_ment
  947. _Forward
  948. _Move To Folder...
  949. _Remove From FolderK
  950. Close
  951.     0S0E
  952. Save 
  953.     0S0E
  954. Categori_zeK
  955. _Edit Document
  956. Send Docu_ment
  957. _Forward
  958. _Move To Folder...
  959. _Remove From FolderK
  960. Close
  961.     0S0E
  962. Save 
  963.     0S0E
  964. O=Lotus Notes
  965. O=Lotus Notes
  966. PURSAFO
  967. |.:#U
  968. O=Lotus Notes
  969. CN=Lotus Notes Template Development/O=Lotus Notes
  970. PURSAFO
  971. Vy:MH
  972. $INFO
  973. $WINDOWTITLE
  974. $Script
  975. $$Script_O
  976. $$ScriptName
  977. $$FormScript
  978. $$$FormScript_O
  979. $$StartUpOptions
  980. $StartUpOptions_O
  981. $$OpenURL
  982. $OpenURL_O
  983. $$ScanAhead
  984. $ScanAhead_O
  985. $$PreferredSearchEngine
  986. $PreferredSearchEngine_O
  987. $$$Script1
  988. $$Script1_O
  989. $BODY
  990. $V5ACTIONS
  991. $ACTIONS
  992. Categori_ze0
  993. _Edit Document
  994. Send Docu_ment
  995. _Forward
  996. _Move To Folder...
  997. _Remove From Folder
  998. O=Lotus Notes
  999. O=Lotus Notes
  1000. PURSAFO
  1001. |.:#U
  1002. O=Lotus Notes
  1003. CN=Lotus Notes Template Development/O=Lotus Notes
  1004. PURSAFO
  1005. Fde!f^^
  1006. ML(_}
  1007. $TITLE
  1008. $Index
  1009. $Formula
  1010. $FormulaClass
  1011. $VIEWFORMAT
  1012. $Comment
  1013. $ACTIONS
  1014. Categori_zeK
  1015. _Edit Document
  1016. Send Docu_ment
  1017. _Forward
  1018. _Move to Folder...
  1019. _Remove from Folder...
  1020. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  1021. '++LotusScript Development Environment:2:5:(Forward):0:1
  1022. Declare Sub Click(Source As Button)
  1023. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1024. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1025. Private Sub BindEvents(Byval Objectname_ As String)
  1026.      Static Source As BUTTON
  1027.      Set Source = Bind(Objectname_)
  1028.      On Event Click From Source Call Click
  1029. End Sub
  1030. '++LotusScript Development Environment:2:2:Click:1:12
  1031. Sub Click(Source As Button)
  1032.      
  1033.      Browse
  1034. End Sub
  1035. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  1036. '++LotusScript Development Environment:2:5:(Forward):0:1
  1037. Declare Sub Click(Source As Button)
  1038. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1039. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1040. Private Sub BindEvents(Byval Objectname_ As String)
  1041.      Static Source As BUTTON
  1042.      Set Source = Bind(Objectname_)
  1043.      On Event Click From Source Call Click
  1044. End Sub
  1045. '++LotusScript Development Environment:2:2:Click:1:12
  1046. Sub Click(Source As Button)
  1047.      
  1048.      ViewDelete
  1049. End Sub
  1050. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  1051. '++LotusScript Development Environment:2:5:(Forward):0:1
  1052. Declare Sub Click(Source As Button)
  1053. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1054. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1055. Private Sub BindEvents(Byval Objectname_ As String)
  1056.      Static Source As BUTTON
  1057.      Set Source = Bind(Objectname_)
  1058.      On Event Click From Source Call Click
  1059. End Sub
  1060. '++LotusScript Development Environment:2:2:Click:1:12
  1061. Sub Click(Source As Button)
  1062.      
  1063.      PrintWebDocument
  1064. End Sub
  1065. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  1066. '++LotusScript Development Environment:2:5:(Forward):0:1
  1067. Declare Sub Click(Source As Button)
  1068. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1069. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1070. Private Sub BindEvents(Byval Objectname_ As String)
  1071.      Static Source As BUTTON
  1072.      Set Source = Bind(Objectname_)
  1073.      On Event Click From Source Call Click
  1074. End Sub
  1075. '++LotusScript Development Environment:2:2:Click:1:12
  1076. Sub Click(Source As Button)
  1077.      
  1078.      Dim docLocal As NotesDocument
  1079.      Dim docCollection As NotesDocumentCollection     
  1080.      Set docCollection = db.UnprocessedDocuments
  1081.      If (docCollection.Count = 0) Then
  1082.           Msgbox "You must select a document.",16,"Error"
  1083.           Exit Sub
  1084.      Else
  1085.           For j = 1 To docCollection.Count
  1086.                Set docLocal = docCollection.getnthdocument(j)               
  1087.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  1088.                     Select Case docLocal.ForwardOptions(0)
  1089.                     Case "1" : 'user wants to forward the URL only
  1090.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  1091.                     Case "2" : 'user wants to send entire page
  1092.                          Call  ViewForward(docLocal)
  1093.                     End Select
  1094.           'remove any remaining fields that don't need to be carried around
  1095.                     docLocal.RemoveItem "ForwardOptions" 
  1096.                     docLocal.save True, False
  1097.                     
  1098.                End If
  1099.                Exit Sub
  1100.           Next
  1101.      End If
  1102.      Exit Sub
  1103. End Sub
  1104. '++LotusScript Development Environment:2:5:(Options):0:74
  1105. Option Public
  1106. Use "InternetFunctions"
  1107. '++LotusScript Development Environment:2:5:(Forward):0:1
  1108. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1109. '++LotusScript Development Environment:2:5:(Options):0:66
  1110. '++LotusScript Development Environment:2:5:(Forward):0:1
  1111. Declare Sub Postopen(Source As Notesuiview)
  1112. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  1113. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1114. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1115. Private Sub BindEvents(Byval Objectname_ As String)
  1116.      Static Source As NOTESUIVIEW
  1117.      Set Source = Bind(Objectname_)
  1118.      On Event Postopen From Source Call Postopen
  1119.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  1120. End Sub
  1121. '++LotusScript Development Environment:2:2:Postopen:1:12
  1122. Sub Postopen(Source As Notesuiview)
  1123.      InstantiateObjects
  1124. End Sub
  1125. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  1126. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  1127.      Call MoveToFolder(source,target,continue)
  1128. End Sub
  1129. O=Lotus Notes
  1130. O=Lotus Notes
  1131. PURSAFO
  1132. |.:#U
  1133. O=Lotus Notes
  1134. CN=Lotus Notes Template Development/O=Lotus Notes
  1135. PURSAFO
  1136. $SCRIPTOBJ_10
  1137. $TITLE
  1138. $Index
  1139. $Formula
  1140. $FormulaClass
  1141. $Totals
  1142. $VIEWFORMAT
  1143. $Comment
  1144. $ACTIONS
  1145. $SCRIPTOBJ_6
  1146. $SCRIPTOBJ_7
  1147. $SCRIPTOBJ_8
  1148. $SCRIPTOBJ_9
  1149. $ViewGlobalScript
  1150. $ViewGlobalScript_O
  1151. $ViewScript
  1152. $ViewScript_O
  1153. '++LotusScript Development Environment:2:5:(Options):0:74
  1154. Use "InternetFunctions"
  1155. '++LotusScript Development Environment:2:5:(Forward):0:1
  1156. Declare Sub Postopen(Source As Notesuidatabase)
  1157. Declare Sub PerformWebSetup
  1158. Declare Sub ReduceDocumentsToLinks
  1159. Declare Sub RemoveDocumentsFromDatabase
  1160. Declare Function DocumentCanBeProcessed  As Integer
  1161. Declare Sub SetupExpirationDates
  1162. Declare Sub ReduceOneDocumentToLink
  1163. Declare Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
  1164. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1165. 'Active_X_Personal_Web_Navigator: 
  1166. Dim docCollection As NotesDocumentCollection
  1167. Dim urldoc As NotesDocument
  1168. Dim doc As NotesDocument
  1169. Dim dtExpiration As NotesDateTime
  1170. Dim dtLastAccessed As NotesDateTime
  1171. Dim hskpgagent As NotesAgent
  1172. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1173. Private Sub BindEvents(Byval Objectname_ As String)
  1174.      Static Source As NOTESUIDATABASE
  1175.      Set Source = Bind(Objectname_)
  1176.      On Event Postopen From Source Call Postopen
  1177.      On Event Queryclose From Source Call Queryclose
  1178. End Sub
  1179. '++LotusScript Development Environment:2:2:Postopen:1:12
  1180. Sub Postopen(Source As Notesuidatabase)
  1181.      'intialize variables
  1182.      InstantiateObjects
  1183.      Dim BrowserDoc As notesdocument
  1184.      Dim BrowserobjectCollection As notesdocumentcollection
  1185.      Dim iedoc As New notesdocument(db)
  1186.      Dim BrowserOption As Variant
  1187.      Dim dt As New notesdatetime ("1/1/90")
  1188.      
  1189.      On Error 4005 Goto LoadHomeURL
  1190.      
  1191.      
  1192.      'Get current location retriever value
  1193.      BrowserOption = GetLocationItem("WebRetriever")
  1194.      
  1195.      
  1196.      'ensure that the user's profile document exists
  1197.      
  1198.      If (docprofile Is Nothing) Then 
  1199.           PerformWebSetup    
  1200.           'Get the current folders in the database for future use by the bookmark function
  1201.           Goto LoadHomeURL
  1202.      Else
  1203.           'Get the current folders in the database for future use by the bookmark function
  1204.           If (docprofile.ReduceDays(0) <> "2") Then
  1205.                Set hskpgagent = db.getagent("Housekeeping")
  1206.                If Not(hskpgagent.IsEnabled) Then                
  1207.                     Msgbox "You have specified that you would like to reduce the unread pages in your Personal"  _
  1208.                     + "Web Database.  Please select Actions - Internet Options to enable the housekeeping " _
  1209.                     + "agent which will perform this task nightly at 1:00 AM.", 16,"Enable Housekeeping Agent"    
  1210.                End If
  1211.           End If
  1212.           
  1213.           If (docprofile.ReduceSize(0) = "1") Then
  1214.                'compare the current database size against the limit set in the user profile
  1215.                If (db.Size > Cdbl(docprofile.ReduceNumMB(0)) *  1048576) Then Msgbox "The size of this database exceeds the user specified amount of "_
  1216.                & docprofile.ReduceNumMB(0) & "MB.",16,"Internet Options"
  1217.           End If
  1218.           
  1219.           'open up the user's home page if they have specified one 
  1220.           If (docprofile.StartUpOptions(0) = "1") Then
  1221. LoadHomeURL: 
  1222.                If BrowserOption(0) = "3" Then
  1223.                     CheckRegistrySettings
  1224.                     Set BrowserObjectCollection = db.search(("(Form = ""WebBrowserForm""|Form=""WebBrowser4Form"")& home = ""1"""), dt, 0)
  1225.                     
  1226.                     If BrowserObjectCollection.count <> 0 Then
  1227.                          Set BrowserDoc = BrowserObjectCollection.getfirstdocument
  1228.                          Call BrowserDoc.replaceitemvalue("url", docprofile.openurl(0))
  1229.                          Call BrowserDoc.save(True, False)
  1230.                          Call w.editdocument(False, browserdoc)                         
  1231.                     Else
  1232.                          If session.GetEnvironmentString("IEVersionMinor", False)="70" Then
  1233.                               Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
  1234.                          End If
  1235.                          If Cint(session.GetEnvironmentString("IEVersionMinor", False))>70 Then
  1236.                               Call iedoc.replaceitemvalue("Form", "WebBrowser4Form")
  1237.                          End If
  1238.                          Call iedoc.replaceitemvalue("home", "1")
  1239.                          Call iedoc.replaceitemvalue("SaveOptions", "1")
  1240.                          Call ieDoc.replaceitemvalue("url", docprofile.openurl(0))
  1241.                          Call ieDoc.save(True,False)
  1242.                          Call w.viewrefresh
  1243.                          Call w.editdocument(False, iedoc)
  1244.                     End If
  1245.                Elseif BrowserOption(0) = "0" Then
  1246.                     w.URLOpen docprofile.OpenURL(0)
  1247.                End If
  1248.           End If
  1249.      End If
  1250. End Sub
  1251. '++LotusScript Development Environment:2:2:PerformWebSetup:1:8
  1252. Sub PerformWebSetup
  1253.                'create the new document with default settings
  1254.      Set docprofile = New NotesDocument(db)
  1255.      docprofile.Form = "Admin"
  1256.      docprofile.StartUpOptions = "1"
  1257.      docprofile.OpenURL = "http://notes.net/welcome.nsf"
  1258.      docprofile.PreferredSearchEngine = "4"
  1259.      docprofile.SearchURL="http://www.search.com/"
  1260.      docprofile.ScanAhead = "1"
  1261.      docprofile.SearchFrequency = "2"
  1262.      docprofile.UpdatesFoundOptions = "1"
  1263.      docprofile.SendMailTo = session.UserName
  1264.      docprofile.ReduceDays = "2"
  1265.      docprofile.KeepPage = "0"
  1266.      docprofile.Save True, True
  1267. End Sub
  1268. '++LotusScript Development Environment:2:2:ReduceDocumentsToLinks:1:8
  1269. Sub ReduceDocumentsToLinks
  1270.      SetupExpirationDates
  1271.      
  1272.      Set docCollection = db.AllDocuments
  1273.      Set doc = docCollection.GetFirstDocument
  1274.      While Not (doc Is Nothing)
  1275.           If (DocumentCanBeProcessed) Then ReduceOneDocumentToLink
  1276.           Set doc = docCollection.GetNextDocument(doc)
  1277.      Wend
  1278. End Sub
  1279. '++LotusScript Development Environment:2:2:RemoveDocumentsFromDatabase:1:8
  1280. Sub RemoveDocumentsFromDatabase
  1281.      SetupExpirationDates
  1282.      
  1283.      Set docCollection = db.AllDocuments
  1284.      For i = 1 To docCollection.Count
  1285.           Set doc = docCollection.GetNthDocument(i)          
  1286.           If (DocumentCanBeProcessed) Then 
  1287.                Print "Removing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days..."
  1288.                doc.Remove True
  1289.           End If               
  1290.      Next
  1291. End Sub
  1292. '++LotusScript Development Environment:2:1:DocumentCanBeProcessed:1:8
  1293. Function DocumentCanBeProcessed  As Integer
  1294. 'determines if a document meets the criteria to be reduced or removed from the database
  1295.      If (doc.Form(0) = "Admin") Then 
  1296.           DocumentCanBeProcessed = False
  1297.           Exit Function
  1298.      End If
  1299. 'if this is the home page, do not process it
  1300.      If (doc.Url(0) = docprofile.OpenUrl(0)) Then
  1301.           DocumentCanBeProcessed = False
  1302.           Exit Function          
  1303.      End If
  1304. 'compare the last accessed date/time
  1305.      dtLastAccessed.LSLocalTime = doc.LastAccessed
  1306.      If (dtExpiration.TimeDifference(dtLastAccessed) > 0) Then DocumentCanBeProcessed = True
  1307. End Function
  1308. '++LotusScript Development Environment:2:2:SetupExpirationDates:1:8
  1309. Sub SetupExpirationDates
  1310. 'initiate the date/time objects
  1311.      Set dtLastAccessed = New NotesDateTime("")
  1312.      Set dtExpiration = New NotesDateTime("")
  1313.      dtLastAccessed.SetNow
  1314.      dtExpiration.SetNow
  1315. 'dtExpired must be set back the number of days specified in the profile document
  1316.      dtExpiration.AdjustDay(-1*Cint(docprofile.ReduceNumDays(0)))
  1317. End Sub
  1318. '++LotusScript Development Environment:2:2:ReduceOneDocumentToLink:1:8
  1319. Sub ReduceOneDocumentToLink
  1320.      Print "Reducing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days..."
  1321.      doc.RemoveItem "Body"
  1322.      doc.RemoveItem "HTMLSouce"
  1323.      doc.RemoveItem "HTMLBody"
  1324.      doc.RemoveItem "$Background"
  1325.      doc.RemoveItem "$FILE"
  1326.      doc.RemoveItem "URLLinks1"
  1327.      doc.RemoveItem "WebAheadStatus"
  1328.      doc.RemoveItem "WebAgentError"
  1329.      doc.RemoveItem "PageMinderStatus"
  1330.      doc.Save True,True
  1331. End Sub
  1332. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1333. Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
  1334.      
  1335. End Sub
  1336. x    x    $
  1337. O=Lotus Notes
  1338. O=Lotus Notes
  1339. PURSAFO
  1340. |.:#U
  1341. O=Lotus Notes
  1342. CN=Lotus Notes Template Development/O=Lotus Notes
  1343. PURSAFO
  1344. zCV1rR
  1345. $DBScript
  1346. $DBScript_O
  1347. $TITLE
  1348. $Flags
  1349. $PublicAccess
  1350.  ShareWebPage
  1351. SharedOptions
  1352.     1S2S
  1353.     This Web page will be copied to the following Web Navigator database (the location of the Web Navigator database can be changed by choosing Actions - Internet Options from the menu)
  1354. Rating
  1355. SharedOptions
  1356.     3S4S5S6S
  1357. Rating
  1358. Rating
  1359. Rating
  1360. Rating
  1361. SharedOptions
  1362.     3S4S5S6S
  1363. Rating
  1364. Rating
  1365. Rating
  1366. Rating
  1367. SharedOptions
  1368.     3S4S5S6S
  1369. Rating
  1370. Rating
  1371. Rating
  1372. Rating
  1373. SharedOptions
  1374.     3S4S5S6S
  1375. Rating
  1376. Rating
  1377. Rating
  1378. Rating
  1379. SharedOptions
  1380.     3S4S5S6S
  1381. Rating
  1382. Rating
  1383. Rating
  1384. Rating
  1385. SharedOptions
  1386.     3S4S5S6S
  1387. Rating
  1388. Rating
  1389. Rating
  1390. Rating
  1391. SharedOptions
  1392.     3S4S5S6S
  1393. Rating
  1394. Rating
  1395. Rating
  1396. Rating
  1397. SharedOptions
  1398.     3S4S5S6S
  1399. Rating
  1400. Rating
  1401. Rating
  1402. Rating
  1403. SharedOptions
  1404.     3S4S5S6S
  1405. Rating
  1406. Rating
  1407. Rating
  1408. Rating
  1409. SharedOptions
  1410.     3S4S5S6S
  1411. Rating
  1412. Rating
  1413. Rating
  1414. SharedOptions
  1415.     1S2S
  1416. Title
  1417. Title
  1418. Poor   < ------------------------------  >   Great!
  1419. contentSelect category from list that best describes contents of this document
  1420. ArtsBusinessComputersCultureEducationEntertainmentFinanceGovernmentInternetPublicationsRecreationReferenceScienceShoppingSports
  1421. Category:
  1422. CommentsWrite your descriptive comments about the page here!
  1423. Your comments:
  1424. SharedOptions
  1425. Copy page to shared Web Navigator database|2Create Rating in shared Web Navigator database|3
  1426. SharedOptions
  1427.     1S2S
  1428.     Send URL to:
  1429. tmpWebServer
  1430. tmpWebServer
  1431. tmpWebDb
  1432. tmpWebDb
  1433.     Server:
  1434.     Path:
  1435. SharedOptions
  1436. Rating
  1437. You must enter a rating for this page.{
  1438.     3S4S5S6S7S8S
  1439. Rating
  1440. O=Lotus Notes
  1441. O=Lotus Notes
  1442. PURSAFO
  1443. |.:#U
  1444. O=Lotus Notes
  1445. CN=Lotus Notes Template Development/O=Lotus Notes
  1446. PURSAFO
  1447. x_f)k
  1448. $TITLE
  1449. $INFO
  1450. $$Script_O
  1451. $$ScriptName
  1452. $BODY
  1453. '++LotusScript Development Environment:2:5:(Options):0:74
  1454. Option Public
  1455. '++LotusScript Development Environment:2:5:(Forward):0:1
  1456. Declare Sub Initialize
  1457. Declare Sub ExtractHTTPAddress(szEntry As String) 
  1458. Declare Sub CreateBookmarkDocument
  1459. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1460. Dim ws As NotesUIWorkspace
  1461. Dim session As NotesSession
  1462. Dim db As NotesDatabase
  1463. Dim bookmark As NotesDocument
  1464. Dim note As NotesDocument
  1465. Dim hFile As Integer
  1466. Dim szPath As String
  1467. Dim szEntry As String
  1468. Dim szURL As String
  1469. Dim szTitle As String
  1470. '++LotusScript Development Environment:2:2:Initialize:1:10
  1471. Sub Initialize
  1472.      
  1473. End Sub
  1474. '++LotusScript Development Environment:2:2:ExtractHTTPAddress:1:8
  1475. Sub ExtractHTTPAddress(szEntry As String) 
  1476.      Dim posHTTPBegin As Integer
  1477.      Dim posHTTPEnd As Integer
  1478.      Dim posTITLEBegin As Integer
  1479.      Dim posTITLEEnd As Integer
  1480.      
  1481. 'first, get the position of an HTTP referece
  1482.      posHTTPBegin = Instr(1,szEntry,"http",5)
  1483.      If (posHTTPBegin = 0) Then 
  1484.           szURL = ""
  1485.           Exit Sub
  1486.      Else
  1487. 'get the position of the closing quote
  1488.           posHTTPEnd = Instr(posHTTPBegin,szEntry,"/""",5)
  1489.           szURL = Mid$(szEntry,posHTTPBegin,(posHTTPEnd-posHTTPBegin)+1)
  1490. 'now, we need to get the title
  1491.           posTITLEBegin = Instr(posHTTPEnd,szEntry,">",5)
  1492.           If (posTITLEBegin = 0) Then
  1493.                szTitle = ""
  1494.           Else
  1495.                posTITLEEnd = Instr(posTITLEBegin,szEntry,"</a",5)
  1496.                szTitle = Mid$(szEntry,posTITLEBegin+1,(posTITLEEnd-posTITLEBegin)-1)               
  1497.           End If
  1498.      End If   
  1499. End Sub
  1500. '++LotusScript Development Environment:2:2:CreateBookmarkDocument:1:8
  1501. Sub CreateBookmarkDocument
  1502.      
  1503.      Set bookmark = New NotesDocument(db)
  1504.      
  1505.      bookmark.URL = szURL
  1506.      bookmark.Form = "HTMLForm"
  1507.      bookmark.Title = szTitle
  1508.      bookmark.Subject = szTitle
  1509.      bookmark.Imported = True     
  1510.      Call bookmark.Save(True,True,True)
  1511.      Call bookmark.PutInFolder("My Bookmarks")
  1512.      
  1513. End Sub
  1514. (ImportBookmark)'++LotusScript Development Environment:2:5:(Options):0:66
  1515. '++LotusScript Development Environment:2:5:(Forward):0:1
  1516. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1517. Declare Sub Postopen(Source As Notesuidocument)
  1518. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1519. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1520. Private Sub BindEvents(Byval Objectname_ As String)
  1521.      Static Source As NOTESUIDOCUMENT
  1522.      Set Source = Bind(Objectname_)
  1523.      On Event Queryopen From Source Call Queryopen
  1524.      On Event Postopen From Source Call Postopen
  1525. End Sub
  1526. '++LotusScript Development Environment:2:2:Queryopen:1:12
  1527. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1528.      
  1529. End Sub
  1530. '++LotusScript Development Environment:2:2:Postopen:1:12
  1531. Sub Postopen(Source As Notesuidocument)
  1532.      Set ws = New NotesUIWorkspace
  1533.      Set session = New NotesSession
  1534.      Set db = session.CurrentDatabase
  1535.      Set note = source.Document
  1536. End Sub
  1537.     Netscape Bookmark file:
  1538. BookmarkFile
  1539. bookmarkfile
  1540. Choose path for Netscape Bookmarks
  1541.     1S2S
  1542.     Browse...
  1543.     For example, C:\NETSCAPE\NAVIGATOR\BOOKMARK.HTM
  1544. O=Lotus Notes
  1545. O=Lotus Notes
  1546. PURSAFO
  1547. |.:#U
  1548. O=Lotus Notes
  1549. CN=Lotus Notes Template Development/O=Lotus Notes
  1550. PURSAFO
  1551. gh-|X
  1552. $TITLE
  1553. $INFO
  1554. $Script
  1555. $$Script_O
  1556. $$ScriptName
  1557. $$FormScript
  1558. $$$FormScript_O
  1559. $BODY
  1560. (ImportFavorite)
  1561.     Microsoft Favorites Directory or filename:
  1562. BookmarkFile
  1563.     For example, C:\WIN95\PROFILES\USERNAME\FAVORITES
  1564. bookmarkfile
  1565. Choose path for Microsoft Favorite
  1566.     1S2S
  1567.     Browse...
  1568. O=Lotus Notes
  1569. O=Lotus Notes
  1570. PURSAFO
  1571. |.:#U
  1572. O=Lotus Notes
  1573. CN=Lotus Notes Template Development/O=Lotus Notes
  1574. PURSAFO
  1575. $TITLE
  1576. $INFO
  1577. $$ScriptName
  1578. $BODY
  1579. WebRefreshFailed
  1580. Refresh of 
  1581. Title
  1582.  failed
  1583. Title
  1584.     3S4S9S10S
  1585. &Arial
  1586. '++LotusScript Development Environment:2:5:(Options):0:74
  1587. Option Public
  1588. Use "InternetFunctions"
  1589. '++LotusScript Development Environment:2:5:(Forward):0:1
  1590. Declare Sub Initialize
  1591. Declare Sub InstantiateFormObjects
  1592. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1593. Dim uidoc As NotesUIDocument
  1594. Dim doc As NotesDocument
  1595. '++LotusScript Development Environment:2:2:Initialize:1:10
  1596. Sub Initialize
  1597.      
  1598. End Sub
  1599. '++LotusScript Development Environment:2:2:InstantiateFormObjects:1:8
  1600. Sub InstantiateFormObjects
  1601. 'call the global instantiate objects     
  1602.      InstantiateObjects
  1603.      Set uidoc = w.CurrentDocument    
  1604.      Set doc = uidoc.Document     
  1605. End Sub
  1606. HTMLForm'++LotusScript Development Environment:2:5:(Options):0:66
  1607. '++LotusScript Development Environment:2:5:(Forward):0:1
  1608. Declare Sub Postopen(Source As Notesuidocument)
  1609. Declare Sub Terminate
  1610. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1611. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1612. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1613. Private Sub BindEvents(Byval Objectname_ As String)
  1614.     Static Source As NOTESUIDOCUMENT
  1615.     Set Source = Bind(Objectname_)
  1616.     On Event Postopen From Source Call Postopen
  1617.     On Event Queryopen From Source Call Queryopen
  1618. End Sub
  1619. '++LotusScript Development Environment:2:2:Postopen:1:12
  1620. Sub Postopen(Source As Notesuidocument)
  1621.     'Dim doc As notesdocument
  1622.     'Dim w As New notesuiworkspace
  1623.     'Dim locationdoc As notesdocument
  1624.     'Dim BrowserObjectCollection As notesdocumentcollection
  1625.     'Dim dt As New notesdatetime ("1/1/90")
  1626.     'Dim BrowserDoc As notesdocument
  1627.     'source.refreshhideformulas
  1628. 'If we are in the process of forwarding the document, don't open it with the web browser form.     
  1629.     'If source.document.forward(0) = "1" Then
  1630.     '    Exit Sub
  1631.     'End If
  1632.     'If Not (source.inpreviewpane)  Then
  1633.     '    InstantiateObjects
  1634.     '    Set doc = source.document
  1635.     '    Dim url As String
  1636.     '    url = doc.url(0)
  1637.     '    If GetcurrentLocation = "3" Then
  1638.     '        source.close
  1639.     '        w.urlopen(url)
  1640.     '    End If
  1641.     'End If
  1642. End Sub
  1643. '++LotusScript Development Environment:2:2:Terminate:1:10
  1644. Sub Terminate
  1645. End Sub
  1646. '++LotusScript Development Environment:2:2:Queryopen:1:12
  1647. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1648. End Sub
  1649. Lotus Product)
  1650. V0.0^
  1651. D-43#
  1652. A}L%K<$S
  1653. A}d8}
  1654. A}d8}
  1655. A}t8}
  1656. A}L%K<$S
  1657. K<#, 4#
  1658. ^,FK<
  1659. K<FQT>}
  1660. K<F,T8
  1661. K<#, 4#
  1662. K<#, 4#
  1663. ^LFK<#,
  1664. ^\FK<#-X3#
  1665. K\F,`>#
  1666. ^lFK<#-X3#
  1667. KLF,P;#
  1668. K<F,T8
  1669. E}89J
  1670. K|F-43#
  1671.                                                                                                                                                                                         
  1672. Title:
  1673. Title
  1674. Title
  1675. You must enter a subject for your document.
  1676. Title
  1677.                         
  1678. URL:        
  1679. Stub/Status:
  1680. HTTPStatus
  1681. Type:        
  1682. Host:        
  1683.             File Name:    
  1684.     0S0E
  1685. FileName
  1686. SaveOptions
  1687. Subject
  1688. Subject
  1689.     1S2S3S
  1690. Subject
  1691. Title
  1692. Subject
  1693.                                                                                                                                                                                         
  1694. '++LotusScript Development Environment:2:5:(Options):0:66
  1695. '++LotusScript Development Environment:2:5:(Forward):0:1
  1696. Declare Sub Click(Source As Button)
  1697. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1698. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1699. Private Sub BindEvents(Byval Objectname_ As String)
  1700.      Static Source As BUTTON
  1701.      Set Source = Bind(Objectname_)
  1702.      On Event Click From Source Call Click
  1703. End Sub
  1704. '++LotusScript Development Environment:2:2:Click:1:12
  1705. Sub Click(Source As Button)
  1706.      
  1707.      If (doc Is Nothing) Then InstantiateFormObjects
  1708.      OpenHomeURL
  1709. End Sub
  1710. Forward
  1711. Forward
  1712. '++LotusScript Development Environment:2:5:(Options):0:66
  1713. '++LotusScript Development Environment:2:5:(Forward):0:1
  1714. Declare Sub Click(Source As Button)
  1715. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1716. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1717. Private Sub BindEvents(Byval Objectname_ As String)
  1718.      Static Source As BUTTON
  1719.      Set Source = Bind(Objectname_)
  1720.      On Event Click From Source Call Click
  1721. End Sub
  1722. '++LotusScript Development Environment:2:2:Click:1:12
  1723. Sub Click(Source As Button)
  1724.      InstantiateFormObjects
  1725.      Call NotesForwardNote(doc)
  1726. End Sub
  1727. Print... 
  1728.     0S0E
  1729. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  1730. '++LotusScript Development Environment:2:5:(Forward):0:1
  1731. Declare Sub Click(Source As Button)
  1732. Declare Function GetInternetProfile As NotesDocument
  1733. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1734. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1735. Private Sub BindEvents(Byval Objectname_ As String)
  1736.      Static Source As BUTTON
  1737.      Set Source = Bind(Objectname_)
  1738.      On Event Click From Source Call Click
  1739. End Sub
  1740. '++LotusScript Development Environment:2:2:Click:1:12
  1741. Sub Click(Source As Button)
  1742.      If (doc Is Nothing) Then InstantiateFormObjects
  1743.      If doc.hasitem("URL") Then
  1744.           If (docProfile Is Nothing) Then
  1745.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  1746.                Exit Sub 
  1747.           End If
  1748.           doc.tmpWebServer  = docProfile.WebServer
  1749.           doc.tmpWebDb = docProfile.WebDatabase
  1750.       'first, display a prompt to get user input
  1751.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  1752.                doc.Save True, True
  1753.           'determine which action we need to take
  1754.                Select Case doc.SharedOptions(0)
  1755.        '   Case "1" : 'user wants to forward this as a bookmark
  1756.                'CreateNotesLink doc               
  1757.                Case "2" : 'user wants to copy this to the shared web database
  1758.                     CopyDocumentToSharedDatabase doc, doc.url(0)               
  1759.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  1760.                     CreateRatingDocument doc, doc.url(0), doc.title(0)
  1761.                End Select
  1762.           'remove any remaining fields that don't need to be carried around
  1763.                doc.removeItem "ForwardTo"
  1764.                doc.RemoveItem "SharedOptions" 
  1765.                doc.removeItem "ForwardTo"
  1766.                doc.RemoveItem "SharedOptions" 
  1767.                doc.RemoveItem "Rating"
  1768.                doc.removeItem "Content"
  1769.                doc.removeItem "Comments"
  1770.                doc.RemoveItem "tmpWebServer"
  1771.                doc.RemoveItem "tmpWebDb"
  1772.                doc.Save True,True          
  1773.           End If
  1774.      Else
  1775.           Msgbox "This document does not contain a URL."
  1776.      End If
  1777. End Sub
  1778. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  1779. Function GetInternetProfile As NotesDocument
  1780.      'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  1781.      Set view = db.getView("(Internet Profile)")
  1782.      Set GetInternetProfile = view.GetFirstDocument
  1783. End Function
  1784. Internet Profiles
  1785. Internet Options
  1786. webserver
  1787.     12S13S
  1788. Categori_ze
  1789. _Edit Document
  1790. Send Docu_ment    
  1791. _Remove from Folder...
  1792. Add Bookmark...!2
  1793. title
  1794.     0S0E
  1795. Open History Folder
  1796. Go to Bookmarks
  1797. '++LotusScript Development Environment:2:5:(Options):0:66
  1798. '++LotusScript Development Environment:2:5:(Forward):0:1
  1799. Declare Sub Click(Source As Button)
  1800. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1801. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1802. Private Sub BindEvents(Byval Objectname_ As String)
  1803.     Static Source As BUTTON
  1804.     Set Source = Bind(Objectname_)
  1805.     On Event Click From Source Call Click
  1806. End Sub
  1807. '++LotusScript Development Environment:2:2:Click:1:12
  1808. Sub Click(Source As Button)
  1809.     InstantiateFormObjects
  1810.     Call w.opendatabase("", "bookmark.nsf")
  1811. End Sub
  1812. '++LotusScript Development Environment:2:5:(Options):0:66
  1813. '++LotusScript Development Environment:2:5:(Forward):0:1
  1814. Declare Sub Click(Source As Button)
  1815. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1816. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1817. Private Sub BindEvents(Byval Objectname_ As String)
  1818.      Static Source As BUTTON
  1819.      Set Source = Bind(Objectname_)
  1820.      On Event Click From Source Call Click
  1821. End Sub
  1822. '++LotusScript Development Environment:2:2:Click:1:12
  1823. Sub Click(Source As Button)
  1824.      
  1825.      If (doc Is Nothing) Then InstantiateFormObjects
  1826.      OpenHomeURL
  1827. End Sub
  1828. Forward 
  1829. Forward
  1830. '++LotusScript Development Environment:2:5:(Options):0:66
  1831. '++LotusScript Development Environment:2:5:(Forward):0:1
  1832. Declare Sub Click(Source As Button)
  1833. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1834. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1835. Private Sub BindEvents(Byval Objectname_ As String)
  1836.      Static Source As BUTTON
  1837.      Set Source = Bind(Objectname_)
  1838.      On Event Click From Source Call Click
  1839. End Sub
  1840. '++LotusScript Development Environment:2:2:Click:1:12
  1841. Sub Click(Source As Button)
  1842.      InstantiateFormObjects
  1843.      Call NotesForwardNote(doc)
  1844. End Sub
  1845. Print... 
  1846.     0S0E
  1847. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  1848. '++LotusScript Development Environment:2:5:(Forward):0:1
  1849. Declare Sub Click(Source As Button)
  1850. Declare Function GetInternetProfile As NotesDocument
  1851. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1852. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1853. Private Sub BindEvents(Byval Objectname_ As String)
  1854.      Static Source As BUTTON
  1855.      Set Source = Bind(Objectname_)
  1856.      On Event Click From Source Call Click
  1857. End Sub
  1858. '++LotusScript Development Environment:2:2:Click:1:12
  1859. Sub Click(Source As Button)
  1860.      If (doc Is Nothing) Then InstantiateFormObjects
  1861.      If doc.hasitem("URL") Then
  1862.           If (docProfile Is Nothing) Then
  1863.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  1864.                Exit Sub 
  1865.           End If
  1866.           doc.tmpWebServer  = docProfile.WebServer
  1867.           doc.tmpWebDb = docProfile.WebDatabase
  1868.       'first, display a prompt to get user input
  1869.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  1870.                doc.Save True, True
  1871.           'determine which action we need to take
  1872.                Select Case doc.SharedOptions(0)
  1873.        '   Case "1" : 'user wants to forward this as a bookmark
  1874.                'CreateNotesLink doc               
  1875.                Case "2" : 'user wants to copy this to the shared web database
  1876.                     CopyDocumentToSharedDatabase doc, doc.url(0)               
  1877.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  1878.                     CreateRatingDocument doc, doc.url(0), doc.title(0)
  1879.                End Select
  1880.           'remove any remaining fields that don't need to be carried around
  1881.                doc.removeItem "ForwardTo"
  1882.                doc.RemoveItem "SharedOptions" 
  1883.                doc.removeItem "ForwardTo"
  1884.                doc.RemoveItem "SharedOptions" 
  1885.                doc.RemoveItem "Rating"
  1886.                doc.removeItem "Content"
  1887.                doc.removeItem "Comments"
  1888.                doc.RemoveItem "tmpWebServer"
  1889.                doc.RemoveItem "tmpWebDb"
  1890.                doc.Save True,True          
  1891.           End If
  1892.      Else
  1893.           Msgbox "This document does not contain a URL."
  1894.      End If
  1895. End Sub
  1896. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  1897. Function GetInternetProfile As NotesDocument
  1898.      'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  1899.      Set view = db.getView("(Internet Profile)")
  1900.      Set GetInternetProfile = view.GetFirstDocument
  1901. End Function
  1902. Internet Profiles
  1903. Internet Options
  1904. webserver
  1905.     12S13S
  1906. Categori_ze
  1907. _Edit Document
  1908. Send Docu_ment    
  1909. _Remove from Folder...
  1910. Add Bookmark...
  1911. title
  1912.     0S0E
  1913. Open History Folder
  1914. Go to Bookmarks
  1915. '++LotusScript Development Environment:2:5:(Options):0:66
  1916. '++LotusScript Development Environment:2:5:(Forward):0:1
  1917. Declare Sub Click(Source As Button)
  1918. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1919. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1920. Private Sub BindEvents(Byval Objectname_ As String)
  1921.     Static Source As BUTTON
  1922.     Set Source = Bind(Objectname_)
  1923.     On Event Click From Source Call Click
  1924. End Sub
  1925. '++LotusScript Development Environment:2:2:Click:1:12
  1926. Sub Click(Source As Button)
  1927.     InstantiateFormObjects
  1928.     Call w.opendatabase("", "bookmark.nsf")
  1929. End Sub
  1930. Lotus Product
  1931. V0.0i
  1932. O=Lotus Notes
  1933. O=Lotus Notes
  1934. PURSAFO
  1935. |.:#U
  1936. O=Lotus Notes
  1937. CN=Lotus Notes Template Development/O=Lotus Notes
  1938. PURSAFO
  1939. Counter
  1940. $Hotspot0_O
  1941. Created
  1942. Expiration
  1943. Privacy_flags
  1944. Original_Date
  1945. Last_Modified
  1946. $SCRIPTOBJ_21
  1947. $SCRIPTOBJ_20
  1948. $SCRIPTOBJ_16
  1949. $SCRIPTOBJ_17
  1950. $INFO
  1951. $WINDOWTITLE
  1952. $Script
  1953. $$Script_O
  1954. $$ScriptName
  1955. $$FormScript
  1956. $$$FormScript_O
  1957. $BODY
  1958. $V5ACTIONS
  1959. $ACTIONS
  1960. $SCRIPTOBJ_0
  1961. $SCRIPTOBJ_2
  1962. $SCRIPTOBJ_4
  1963. $SCRIPTOBJ_12
  1964. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  1965. '++LotusScript Development Environment:2:5:(Forward):0:1
  1966. Declare Sub Click(Source As Button)
  1967. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1968. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1969. Private Sub BindEvents(Byval Objectname_ As String)
  1970.      Static Source As BUTTON
  1971.      Set Source = Bind(Objectname_)
  1972.      On Event Click From Source Call Click
  1973. End Sub
  1974. '++LotusScript Development Environment:2:2:Click:1:12
  1975. Sub Click(Source As Button)
  1976.      Browse
  1977.      
  1978. End Sub
  1979. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  1980. '++LotusScript Development Environment:2:5:(Forward):0:1
  1981. Declare Sub Click(Source As Button)
  1982. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1983. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1984. Private Sub BindEvents(Byval Objectname_ As String)
  1985.      Static Source As BUTTON
  1986.      Set Source = Bind(Objectname_)
  1987.      On Event Click From Source Call Click
  1988. End Sub
  1989. '++LotusScript Development Environment:2:2:Click:1:12
  1990. Sub Click(Source As Button)
  1991.      ViewDelete     
  1992.      
  1993. End Sub
  1994. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  1995. '++LotusScript Development Environment:2:5:(Forward):0:1
  1996. Declare Sub Click(Source As Button)
  1997. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1998. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1999. Private Sub BindEvents(Byval Objectname_ As String)
  2000.      Static Source As BUTTON
  2001.      Set Source = Bind(Objectname_)
  2002.      On Event Click From Source Call Click
  2003. End Sub
  2004. '++LotusScript Development Environment:2:2:Click:1:12
  2005. Sub Click(Source As Button)
  2006.      PrintWebDocument
  2007.      
  2008. End Sub
  2009. _SearchG'++LotusScript Development Environment:2:5:(Options):0:66
  2010. '++LotusScript Development Environment:2:5:(Forward):0:1
  2011. Declare Sub Click(Source As Button)
  2012. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2013. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2014. Private Sub BindEvents(Byval Objectname_ As String)
  2015.      Static Source As BUTTON
  2016.      Set Source = Bind(Objectname_)
  2017.      On Event Click From Source Call Click
  2018. End Sub
  2019. '++LotusScript Development Environment:2:2:Click:1:12
  2020. Sub Click(Source As Button)
  2021.      
  2022.      Dim docLocal As NotesDocument
  2023.      Dim docCollection As NotesDocumentCollection     
  2024.      Set docCollection = db.UnprocessedDocuments
  2025.      If (docCollection.Count = 0) Then
  2026.           Msgbox "You must select a document.",16,"Error"
  2027.           Exit Sub
  2028.      End If
  2029.      Set docLocal = docCollection.GetFirstDocument
  2030.      OpenSearchSite docLocal
  2031. End Sub
  2032. $IndexY
  2033.     0S0E
  2034. _Forward
  2035. Sh_are...n'++LotusScript Development Environment:2:5:(Options):0:66
  2036. '++LotusScript Development Environment:2:5:(Forward):0:1
  2037. Declare Sub Click(Source As Button)
  2038. Declare Function GetInternetProfile
  2039. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2040. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2041. Private Sub BindEvents(Byval Objectname_ As String)
  2042.      Static Source As BUTTON
  2043.      Set Source = Bind(Objectname_)
  2044.      On Event Click From Source Call Click
  2045. End Sub
  2046. '++LotusScript Development Environment:2:2:Click:1:12
  2047. Sub Click(Source As Button)
  2048.      
  2049.      Dim docLocal As NotesDocument
  2050.      Dim webdoc As notesdocument
  2051.      Dim docCollection As NotesDocumentCollection     
  2052.      Set docCollection = db.UnprocessedDocuments
  2053.      If (docCollection.Count = 0) Then
  2054.           Msgbox "You must select a document.",16,"Error"
  2055.           Exit Sub
  2056.      End If
  2057.      Set docLocal = docCollection.GetFirstDocument
  2058.      If docLocal.hasitem("URL") Then
  2059.           docLocal.tmpWebServer  = docProfile.WebServer
  2060.           docLocal.tmpWebDb = docProfile.WebDatabase
  2061.           docLocal.Save True, True
  2062.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  2063.                docLocal.Save True, True
  2064.                Select Case docLocal.SharedOptions(0)
  2065.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  2066.                Case "2" : 'user wants to copy this to the shared web database
  2067.                     If docLocal.Form(0) = "WebBrowserForm" Then
  2068.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  2069.                     Else
  2070.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  2071.                     End If
  2072.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  2073.                     If docLocal.Form(0) = "WebBrowserForm" Then
  2074.                          CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
  2075.                     Else
  2076.                          CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
  2077.                     End If
  2078.                End Select
  2079.           'remove any remaining fields that don't need to be carried around
  2080.                docLocal.removeItem "ForwardTo"
  2081.                docLocal.RemoveItem "SharedOptions" 
  2082.                docLocal.RemoveItem "Rating"
  2083.                docLocal.removeItem "Content"
  2084.                docLocal.removeItem "Comments"
  2085.           End If     
  2086.           docLocal.RemoveItem "tmpWebServer"
  2087.           docLocal.RemoveItem "tmpWebDb"
  2088.           docLocal.Save True, True
  2089.      Else
  2090.           Msgbox "This document does not contain a URL."
  2091.      End If
  2092. End Sub
  2093. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  2094. Function GetInternetProfile
  2095.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  2096.      Set view = db.getView("(Internet Profile)")
  2097.      Set GetInternetProfile = view.GetFirstDocument
  2098. End Function
  2099. Internet Profiles
  2100. Internet Options
  2101. WebServer
  2102.     0S0E
  2103. Categori_zet
  2104. _Edit Document
  2105. Send Docu_ment    
  2106. _Move to Folder...
  2107. Move Page to Folder... 
  2108.     0S0E
  2109. _Remove from Folder...
  2110. Reduce to Bookmarkp
  2111. title
  2112. Favorites
  2113.     0S0E
  2114. (RemoveObjects)
  2115. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  2116. '++LotusScript Development Environment:2:5:(Forward):0:1
  2117. Declare Sub Click(Source As Button)
  2118. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2119. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2120. Private Sub BindEvents(Byval Objectname_ As String)
  2121.      Static Source As BUTTON
  2122.      Set Source = Bind(Objectname_)
  2123.      On Event Click From Source Call Click
  2124. End Sub
  2125. '++LotusScript Development Environment:2:2:Click:1:12
  2126. Sub Click(Source As Button)
  2127.      
  2128.      Dim docLocal As NotesDocument
  2129.      Dim docCollection As NotesDocumentCollection     
  2130.      Set docCollection = db.UnprocessedDocuments
  2131.      If (docCollection.Count = 0) Then
  2132.           Msgbox "You must select a document.",16,"Error"
  2133.           Exit Sub
  2134.      Else
  2135.           For j = 1 To docCollection.Count
  2136.                Set docLocal = docCollection.getnthdocument(j)               
  2137.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  2138.                     Select Case docLocal.ForwardOptions(0)
  2139.                     Case "1" : 'user wants to forward the URL only
  2140.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  2141.                     Case "2" : 'user wants to send entire page
  2142.                          Call  ViewForward(docLocal)
  2143.                     End Select
  2144.           'remove any remaining fields that don't need to be carried around
  2145.                     docLocal.RemoveItem "ForwardOptions" 
  2146.                     docLocal.save True, False
  2147.                     
  2148.                End If
  2149.                Exit Sub
  2150.           Next
  2151.      End If
  2152.      Exit Sub
  2153. End Sub
  2154. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  2155. '++LotusScript Development Environment:2:5:(Forward):0:1
  2156. Declare Sub Click(Source As Button)
  2157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2158. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2159. Private Sub BindEvents(Byval Objectname_ As String)
  2160.      Static Source As BUTTON
  2161.      Set Source = Bind(Objectname_)
  2162.      On Event Click From Source Call Click
  2163. End Sub
  2164. '++LotusScript Development Environment:2:2:Click:1:12
  2165. Sub Click(Source As Button)
  2166.      Browse
  2167.      
  2168. End Sub
  2169. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  2170. '++LotusScript Development Environment:2:5:(Forward):0:1
  2171. Declare Sub Click(Source As Button)
  2172. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2173. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2174. Private Sub BindEvents(Byval Objectname_ As String)
  2175.      Static Source As BUTTON
  2176.      Set Source = Bind(Objectname_)
  2177.      On Event Click From Source Call Click
  2178. End Sub
  2179. '++LotusScript Development Environment:2:2:Click:1:12
  2180. Sub Click(Source As Button)
  2181.      ViewDelete     
  2182.      
  2183. End Sub
  2184. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  2185. '++LotusScript Development Environment:2:5:(Forward):0:1
  2186. Declare Sub Click(Source As Button)
  2187. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2188. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2189. Private Sub BindEvents(Byval Objectname_ As String)
  2190.      Static Source As BUTTON
  2191.      Set Source = Bind(Objectname_)
  2192.      On Event Click From Source Call Click
  2193. End Sub
  2194. '++LotusScript Development Environment:2:2:Click:1:12
  2195. Sub Click(Source As Button)
  2196.      PrintWebDocument
  2197.      
  2198. End Sub
  2199. _SearchO'++LotusScript Development Environment:2:5:(Options):0:66
  2200. '++LotusScript Development Environment:2:5:(Forward):0:1
  2201. Declare Sub Click(Source As Button)
  2202. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2203. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2204. Private Sub BindEvents(Byval Objectname_ As String)
  2205.      Static Source As BUTTON
  2206.      Set Source = Bind(Objectname_)
  2207.      On Event Click From Source Call Click
  2208. End Sub
  2209. '++LotusScript Development Environment:2:2:Click:1:12
  2210. Sub Click(Source As Button)
  2211.      
  2212.      Dim docLocal As NotesDocument
  2213.      Dim docCollection As NotesDocumentCollection     
  2214.      Set docCollection = db.UnprocessedDocuments
  2215.      If (docCollection.Count = 0) Then
  2216.           Msgbox "You must select a document.",16,"Error"
  2217.           Exit Sub
  2218.      End If
  2219.      Set docLocal = docCollection.GetFirstDocument
  2220.      OpenSearchSite docLocal
  2221. End Sub
  2222. $IndexY
  2223.     0S0E
  2224. _Forward
  2225. Sh_are...e'++LotusScript Development Environment:2:5:(Options):0:66
  2226. '++LotusScript Development Environment:2:5:(Forward):0:1
  2227. Declare Sub Click(Source As Button)
  2228. Declare Function GetInternetProfile
  2229. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2230. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2231. Private Sub BindEvents(Byval Objectname_ As String)
  2232.      Static Source As BUTTON
  2233.      Set Source = Bind(Objectname_)
  2234.      On Event Click From Source Call Click
  2235. End Sub
  2236. '++LotusScript Development Environment:2:2:Click:1:12
  2237. Sub Click(Source As Button)
  2238.      
  2239.      Dim docLocal As NotesDocument
  2240.      Dim webdoc As notesdocument
  2241.      Dim docCollection As NotesDocumentCollection     
  2242.      Set docCollection = db.UnprocessedDocuments
  2243.      If (docCollection.Count = 0) Then
  2244.           Msgbox "You must select a document.",16,"Error"
  2245.           Exit Sub
  2246.      End If
  2247.      Set docLocal = docCollection.GetFirstDocument
  2248.      If docLocal.hasitem("URL") Then
  2249.           docLocal.tmpWebServer  = docProfile.WebServer
  2250.           docLocal.tmpWebDb = docProfile.WebDatabase
  2251.           docLocal.Save True, True
  2252.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  2253.                docLocal.Save True, True
  2254.                Select Case docLocal.SharedOptions(0)
  2255.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  2256.                Case "2" : 'user wants to copy this to the shared web database
  2257.                     If docLocal.Form(0) = "WebBrowserForm" Then
  2258.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  2259.                     Else
  2260.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  2261.                     End If
  2262.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  2263.                     If docLocal.Form(0) = "WebBrowserForm" Then
  2264.                          CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
  2265.                     Else
  2266.                          CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
  2267.                     End If
  2268.                End Select
  2269.           'remove any remaining fields that don't need to be carried around
  2270.                docLocal.removeItem "ForwardTo"
  2271.                docLocal.RemoveItem "SharedOptions" 
  2272.                docLocal.RemoveItem "Rating"
  2273.                docLocal.removeItem "Content"
  2274.                docLocal.removeItem "Comments"
  2275.           End If     
  2276.           docLocal.RemoveItem "tmpWebServer"
  2277.           docLocal.RemoveItem "tmpWebDb"
  2278.           docLocal.Save True, True
  2279.      Else
  2280.           Msgbox "This document does not contain a URL."
  2281.      End If
  2282. End Sub
  2283. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  2284. Function GetInternetProfile
  2285.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  2286.      Set view = db.getView("(Internet Profile)")
  2287.      Set GetInternetProfile = view.GetFirstDocument
  2288. End Function
  2289. Internet Profiles
  2290. Internet Options
  2291. WebServer
  2292.     0S0E
  2293. Categori_ze
  2294. _Edit Document
  2295. Send Docu_ment    
  2296. _Move to Folder...
  2297. Move Page to Folder... 
  2298.     0S0E
  2299. _Remove from Folder...
  2300. Reduce to Bookmarkp
  2301. title
  2302. Favorites
  2303.     0S0E
  2304. (RemoveObjects)
  2305. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  2306. '++LotusScript Development Environment:2:5:(Forward):0:1
  2307. Declare Sub Click(Source As Button)
  2308. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2309. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2310. Private Sub BindEvents(Byval Objectname_ As String)
  2311.      Static Source As BUTTON
  2312.      Set Source = Bind(Objectname_)
  2313.      On Event Click From Source Call Click
  2314. End Sub
  2315. '++LotusScript Development Environment:2:2:Click:1:12
  2316. Sub Click(Source As Button)
  2317.      
  2318.      Dim docLocal As NotesDocument
  2319.      Dim docCollection As NotesDocumentCollection     
  2320.      Set docCollection = db.UnprocessedDocuments
  2321.      If (docCollection.Count = 0) Then
  2322.           Msgbox "You must select a document.",16,"Error"
  2323.           Exit Sub
  2324.      Else
  2325.           For j = 1 To docCollection.Count
  2326.                Set docLocal = docCollection.getnthdocument(j)               
  2327.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  2328.                     Select Case docLocal.ForwardOptions(0)
  2329.                     Case "1" : 'user wants to forward the URL only
  2330.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  2331.                     Case "2" : 'user wants to send entire page
  2332.                          Call  ViewForward(docLocal)
  2333.                     End Select
  2334.           'remove any remaining fields that don't need to be carried around
  2335.                     docLocal.RemoveItem "ForwardOptions" 
  2336.                     docLocal.save True, False
  2337.                     
  2338.                End If
  2339.                Exit Sub
  2340.           Next
  2341.      End If
  2342.      Exit Sub
  2343. End Sub
  2344. '++LotusScript Development Environment:2:5:(Options):0:74
  2345. Option Public
  2346. Use "InternetFunctions"
  2347. '++LotusScript Development Environment:2:5:(Forward):0:1
  2348. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2349. '++LotusScript Development Environment:2:5:(Options):0:66
  2350. '++LotusScript Development Environment:2:5:(Forward):0:1
  2351. Declare Sub Postopen(Source As Notesuiview)
  2352. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  2353. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2354. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2355. Private Sub BindEvents(Byval Objectname_ As String)
  2356.      Static Source As NOTESUIVIEW
  2357.      Set Source = Bind(Objectname_)
  2358.      On Event Postopen From Source Call Postopen
  2359.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  2360. End Sub
  2361. '++LotusScript Development Environment:2:2:Postopen:1:12
  2362. Sub Postopen(Source As Notesuiview)
  2363.      InstantiateObjects
  2364. End Sub
  2365. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  2366. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  2367.      Call MoveToFolder(source,target,continue)
  2368. End Sub
  2369. O=Lotus Notes
  2370. O=Lotus Notes
  2371. PURSAFO
  2372. |.:#U
  2373. O=Lotus Notes
  2374. CN=Lotus Notes Template Development/O=Lotus Notes
  2375. PURSAFO
  2376. $SCRIPTOBJ_20
  2377. $SCRIPTOBJ_19
  2378. $SCRIPTOBJ_17
  2379. $SCRIPTOBJ_18
  2380. $SCRIPTOBJ_16
  2381. $SCRIPTOBJ_14
  2382. $SCRIPTOBJ_15
  2383. $TITLE
  2384. $Name
  2385. $Index
  2386. $Formula
  2387. $FormulaClass
  2388. $VIEWFORMAT
  2389. $FormFormula
  2390. $Comment
  2391. $V5ACTIONS
  2392. $ACTIONS
  2393. $SCRIPTOBJ_0
  2394. $SCRIPTOBJ_1
  2395. $SCRIPTOBJ_2
  2396. $SCRIPTOBJ_3
  2397. $SCRIPTOBJ_5
  2398. $SCRIPTOBJ_13
  2399. $ViewGlobalScript
  2400. $ViewGlobalScript_O
  2401. $ViewScript
  2402. $ViewScript_O
  2403.  Forward
  2404. ForwardOptions
  2405. Forward bookmark to page|1Forward copy of page|2
  2406. ForwardOptions
  2407.     0S0E
  2408.     0S0E
  2409. ?_?__
  2410. `!b`1
  2411. 7`^///?
  2412. ?b___
  2413. `bOOO
  2414. `<b!R
  2415.                                 
  2416.     0S0E
  2417.     0S0E
  2418. ForwardOptions
  2419.     0S0E
  2420.     0S0E
  2421. ;&565'
  2422. 5&E5E5
  2423. &64&6&646'
  2424. ?_?__
  2425. `!b`1
  2426. 7`^///?
  2427. ?b___
  2428. `bOOO
  2429. `<b!R
  2430.                                 4
  2431. tFlags$UpdatedBy
  2432. Create Authorize--------apikoff/O=Iris$$;;;;;;;;WR1
  2433. off/O=Iris$$
  2434. O=Lotus Notes
  2435. O=Lotus Notes
  2436. PURSAFO
  2437. |.:#U
  2438. O=Lotus Notes
  2439. CN=Lotus Notes Template Development/O=Lotus Notes
  2440. PURSAFO
  2441. Jyz'A
  2442. $TITLE
  2443. $INFO
  2444. $$ScriptName
  2445. $BODY
  2446. STG28821
  2447. '++LotusScript Development Environment:2:5:(Options):0:66
  2448. '++LotusScript Development Environment:2:5:(Forward):0:1
  2449. Declare Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
  2450. Declare Sub Navigatecomplete(Source As Webbrowser, Url As String)
  2451. Declare Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
  2452. Declare Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
  2453. Declare Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
  2454. Declare Sub Downloadbegin(Source As Webbrowser)
  2455. Declare Sub Downloadcomplete(Source As Webbrowser)
  2456. Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
  2457. Declare Sub Titlechange(Source As Webbrowser, Text As String)
  2458. Declare Sub Statustextchange(Source As Webbrowser, Text As String)     
  2459. Declare Sub Initialize
  2460. Declare Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
  2461. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2462. Dim WebDatabase As notesdatabase
  2463. Dim datadoc As notesdocument
  2464. Dim Session As notessession
  2465. Dim DocNoteID As notesdocument
  2466. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2467. Private Sub BindEvents(Byval Objectname_ As String)
  2468.      Static Source As WEBBROWSER
  2469.      Set Source = Bind(Objectname_)
  2470.      On Event Beforenavigate From Source Call Beforenavigate
  2471.      On Event Navigatecomplete From Source Call Navigatecomplete
  2472.      On Event Framebeforenavigate From Source Call Framebeforenavigate
  2473.      On Event Framenavigatecomplete From Source Call Framenavigatecomplete
  2474.      On Event Framenewwindow From Source Call Framenewwindow
  2475.      On Event Downloadbegin From Source Call Downloadbegin
  2476.      On Event Downloadcomplete From Source Call Downloadcomplete
  2477.      On Event Progresschange From Source Call Progresschange
  2478.      On Event Titlechange From Source Call Titlechange
  2479.      On Event Statustextchange From Source Call Statustextchange
  2480.      On Event Newwindow From Source Call Newwindow
  2481. End Sub
  2482. '++LotusScript Development Environment:2:2:Beforenavigate:1:12
  2483. Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
  2484.       '    A navigation has requested a new window be opened
  2485.      ' we'll take care of everything and tell the caller we opened a new window
  2486.      ' otherwise the IE application starts up in a new window
  2487.      
  2488.      On Error 213 Resume Next
  2489.      
  2490.      If uidoc.inpreviewpane And firstnavigatedone Then
  2491.           If Instr(parseURL(url), "mailto") =0 Then
  2492.                Dim iedoc As New notesdocument(db)
  2493.                Dim newuidoc As NotesUIDocument
  2494.                Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
  2495.                Call iedoc.replaceitemvalue("SaveOptions", "1")
  2496.                Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
  2497.                Call iedoc.replaceitemvalue("$NavigateToURL", Url)
  2498.                Call ieDoc.save(True,False)
  2499.                Call w.viewrefresh
  2500.                Call w.editdocument(False, iedoc) 
  2501.                Set newuidoc = w.currentdocument        
  2502.                Set browserobject=newuidoc.GetObject("Browser")
  2503.                browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers 
  2504.                Cancel = True
  2505.           Else
  2506.                browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers 
  2507.           End If
  2508.      End If       
  2509. End Sub
  2510. '++LotusScript Development Environment:2:2:Navigatecomplete:1:12
  2511. Sub Navigatecomplete(Source As Webbrowser, Url As String)
  2512.      Dim nulldoc As notesdocument
  2513.      'Error 213 is OLEException Error in lserr.lss
  2514.      On Error 213 Goto ErrorRoutine
  2515.      
  2516.      If url <>"" Then
  2517.      ' Set the URL in the Navigation Bar URL field
  2518.           uidoc.NavBarSetText Url
  2519.           If docprofile Is Nothing Then 
  2520.                'This will happen if the user is opening the database for the first time therefore the dbopen script has not been
  2521.                'executed.  Go ahead and retrieve the document because keeppage is on automatically.
  2522.                Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  2523.                Exit Sub
  2524.           End If
  2525.           If docprofile.keeppage(0) = "0" Then
  2526.                 ' Request the URL to be retrieved but don't wait for it to come in
  2527.               ' Print "(DEBUG) - Queue request for: " + url
  2528.                Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  2529.           End If
  2530.           
  2531.      End If
  2532.      
  2533.      Exit Sub
  2534. ErrorRoutine:
  2535.      Print "Error:  Accessing web browser control ErrOLEException("& Err & ")"
  2536.      Resume Next
  2537.      
  2538. End Sub
  2539. '++LotusScript Development Environment:2:2:Framebeforenavigate:1:12
  2540. Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
  2541.      
  2542. End Sub
  2543. '++LotusScript Development Environment:2:2:Framenavigatecomplete:1:12
  2544. Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
  2545.      
  2546. End Sub
  2547. '++LotusScript Development Environment:2:2:Framenewwindow:1:12
  2548. Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
  2549.      
  2550.  '    A navigation has requested a new window be opened
  2551.      ' we'll take care of everything and tell the caller we opened a new window
  2552.      ' otherwise the IE application starts up in a new window
  2553.      
  2554.      
  2555.      Dim iedoc As New notesdocument(db)
  2556.      Dim newuidoc As NotesUIDocument
  2557.      
  2558.      Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
  2559.      Call iedoc.replaceitemvalue("SaveOptions", "1")
  2560.      Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
  2561.      Call iedoc.replaceitemvalue("$NavigateToURL", Url)
  2562.      Call ieDoc.save(True,False)
  2563.      Call w.viewrefresh
  2564.      Call w.editdocument(False, iedoc) 
  2565.      Set newuidoc = w.currentdocument
  2566.      
  2567.      Set browserobject=newuidoc.GetObject("Browser")
  2568.      browserobject.Navigate Url, Flags, "", Postdata,  Headers 
  2569.      
  2570.      Processed = True
  2571.      
  2572. End Sub
  2573. '++LotusScript Development Environment:2:2:Downloadbegin:1:12
  2574. Sub Downloadbegin(Source As Webbrowser)
  2575.     '   Start Animation...
  2576.      uidoc.Navbarspinnerstart
  2577. End Sub
  2578. '++LotusScript Development Environment:2:2:Downloadcomplete:1:12
  2579. Sub Downloadcomplete(Source As Webbrowser)
  2580.      
  2581.      '   Stop Animation...
  2582.      uidoc.Navbarspinnerstop
  2583.      
  2584. End Sub
  2585. '++LotusScript Development Environment:2:2:Progresschange:1:12
  2586. Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
  2587.      Dim percent As Long
  2588.      If progress = -1 Then
  2589.           Print "   Done"
  2590.      Else  
  2591.           If ProgressMax > 0 Then
  2592.                percent = (Progress * 100) / Progressmax
  2593.                If percent > 0 Then
  2594.                     Print "   " & percent & " %  complete"
  2595.                End If
  2596.           Else
  2597.                If progress >0 Then 
  2598.                     Print "   " & progress & " bytes read"
  2599.                End If 
  2600.           End If
  2601.      End If
  2602.      
  2603. End Sub
  2604. '++LotusScript Development Environment:2:2:Titlechange:1:12
  2605. Sub Titlechange(Source As Webbrowser, Text As String)
  2606.      Dim NavBarURL As String
  2607. '    Ask the browser object for the current URL     
  2608.      NavBarURL = browserobject.LocationURL     
  2609. '    Set the Text in the Nav bar and the window title
  2610.      uidoc.NavBarSetText NavBarURL, Text
  2611. End Sub
  2612. '++LotusScript Development Environment:2:2:Statustextchange:1:12
  2613. Sub Statustextchange(Source As Webbrowser, Text As String)     
  2614.      Print "   " & Text 
  2615. End Sub
  2616. '++LotusScript Development Environment:2:2:Initialize:1:10
  2617. Sub Initialize
  2618.      '*
  2619.      '*  Initialize  Variables and declare local variables
  2620.      '*
  2621.      Dim InterNetProfile As Notesdocument
  2622.      Dim ProfileView As notesview
  2623.      Dim URL As Variant
  2624.      
  2625.      Set Session = New NotesSession
  2626.      Set WebDatabase = Session.CurrentDatabase
  2627. End Sub
  2628. '++LotusScript Development Environment:2:2:Newwindow:1:12
  2629. Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
  2630.          '
  2631.  '    A navigation has requested a new window be opened
  2632.      ' we'll take care of everything and tell the caller we opened a new window
  2633.      ' otherwise the IE application starts up in a new window
  2634.      
  2635.   '   InstantiateWebBrowserFormObjects
  2636.      
  2637.      Dim iedoc As New notesdocument(db)
  2638.      Dim newuidoc As NotesUIDocument
  2639.     'Print "Got New Window request..."
  2640.      
  2641.      Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
  2642.      Call iedoc.replaceitemvalue("SaveOptions", "1")
  2643.      Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
  2644.      Call iedoc.replaceitemvalue("$NavigateToURL", Url)
  2645.      Call ieDoc.save(True,False)
  2646.      Call w.viewrefresh
  2647.      Call w.editdocument(False, iedoc) 
  2648.      Set newuidoc = w.currentdocument
  2649.      
  2650.      Set browserobject=newuidoc.GetObject("Browser")
  2651.      browserobject.Navigate Url, Flags, "", Postdata,  Headers 
  2652.      
  2653.      Processed=True
  2654. End Sub
  2655. Lotus Product
  2656. 8    X    H    H    
  2657. x    x    `
  2658. Notes Web Browsing
  2659.     0S0E
  2660. &Arial
  2661. '++LotusScript Development Environment:2:5:(Options):0:74
  2662. Option Public
  2663. Use "InternetFunctions"
  2664. '++LotusScript Development Environment:2:5:(Forward):0:1
  2665. Declare Sub InstantiateWebBrowserFormObjects
  2666. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2667. 'Global Form Variables
  2668. Dim uidoc As notesuidocument
  2669. Dim doc As notesdocument
  2670. Dim browserobject As Variant
  2671. '++LotusScript Development Environment:2:2:InstantiateWebBrowserFormObjects:1:8
  2672. Sub InstantiateWebBrowserFormObjects
  2673.     InstantiateObjects
  2674. End Sub
  2675. Lotus Product
  2676. V0.0s
  2677. WebBrowserForm'++LotusScript Development Environment:2:5:(Options):0:66
  2678. '++LotusScript Development Environment:2:5:(Forward):0:1
  2679. Declare Sub Postopen(Source As Notesuidocument)
  2680. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2681. Declare Sub Initialize
  2682. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2683. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2684. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2685. Private Sub BindEvents(Byval Objectname_ As String)
  2686.     Static Source As NOTESUIDOCUMENT
  2687.     Set Source = Bind(Objectname_)
  2688.     On Event Postopen From Source Call Postopen
  2689.     On Event Queryclose From Source Call Queryclose
  2690.     On Event Queryopen From Source Call Queryopen
  2691. End Sub
  2692. '++LotusScript Development Environment:2:2:Postopen:1:12
  2693. Sub Postopen(Source As Notesuidocument)
  2694.     InstantiateWebBrowserFormObjects
  2695.     Set uidoc = source
  2696.     Set doc = uidoc.Document     
  2697.     Set browserobject=uidoc.GetObject("Browser")
  2698.     If docprofile Is Nothing Then
  2699.         Set docprofile = New NotesDocument(db)
  2700.         docprofile.Form = "Admin"
  2701.         docprofile.StartUpOptions = "1"
  2702.         docprofile.OpenURL = "http://notes.net/welcome.nsf"
  2703.         docprofile.PreferredSearchEngine = "4"
  2704.         docprofile.SearchURL="http://www.search.com/"
  2705.         docprofile.ScanAhead = "1"
  2706.         docprofile.SearchFrequency = "2"
  2707.         docprofile.UpdatesFoundOptions = "1"
  2708.         docprofile.SendMailTo = session.UserName
  2709.         docprofile.ReduceDays = "2"
  2710.         docprofile.KeepPage = "0"
  2711.         docprofile.Save True, True
  2712.     End If
  2713.     uidoc.refreshhideformulas
  2714.            ' Make sure there is a URL field and it's not empty before we try to
  2715.           ' navigate there
  2716.     If doc.hasitem("URL")   And doc.URL(0) <> "" Then
  2717.               ' Print "Postopen Navigating to " + doc.URL(0)
  2718.         browserobject.navigate doc.url(0)
  2719.         If source.inpreviewpane Then
  2720.             firstnavigatedone = True
  2721.         End If
  2722.     End If    
  2723. End Sub
  2724. '++LotusScript Development Environment:2:2:Queryclose:1:12
  2725. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2726.     ' If source.document.hasitem("firstnavigatedone") Then          
  2727.     FirstNavigateDone = False
  2728.      '     source.document.removeitem("firstnavigatedone")
  2729.       '    source.document.removeitem("$FILE")
  2730.        '   source.document.removeitem("$OLEOBJINFO")
  2731.         '  source.document.save True, False
  2732.    '  Print "reset flag field"
  2733.    ' Print firstnavigatedone
  2734.      'End If
  2735. End Sub
  2736. '++LotusScript Development Environment:2:2:Initialize:1:10
  2737. Sub Initialize
  2738. End Sub
  2739. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2740. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2741. End Sub
  2742. Lotus Product
  2743. OBJECT
  2744. <    <    0
  2745. SaveOptions
  2746. EXT34422Shell.Explorer.1
  2747. $OLEPreviewActivate
  2748. '++LotusScript Development Environment:2:5:(Options):0:66
  2749. '++LotusScript Development Environment:2:5:(Forward):0:1
  2750. Declare Sub Click(Source As Button)
  2751. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2752. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2753. Private Sub BindEvents(Byval Objectname_ As String)
  2754.      Static Source As BUTTON
  2755.      Set Source = Bind(Objectname_)
  2756.      On Event Click From Source Call Click
  2757. End Sub
  2758. '++LotusScript Development Environment:2:2:Click:1:12
  2759. Sub Click(Source As Button)
  2760.      
  2761.      InstantiateWebBrowserFormObjects
  2762.      If docprofile.OpenURL(0) <> "" Then
  2763.           browserobject.GoHome
  2764.      Else
  2765.           Msgbox "Home page is not specified in your Internet Options.  "  _
  2766.           + "Please select Actions - Internet Options to specify a home page. " , 16,"Open Home Page"    
  2767.      End If
  2768. End Sub
  2769. Keep Page '++LotusScript Development Environment:2:5:(Options):0:66
  2770. '++LotusScript Development Environment:2:5:(Forward):0:1
  2771. Declare Sub Click(Source As Button)
  2772. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2773. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2774. Private Sub BindEvents(Byval Objectname_ As String)
  2775.      Static Source As BUTTON
  2776.      Set Source = Bind(Objectname_)
  2777.      On Event Click From Source Call Click
  2778. End Sub
  2779. '++LotusScript Development Environment:2:2:Click:1:12
  2780. Sub Click(Source As Button)
  2781.      
  2782.      On Error Resume Next
  2783.      InstantiateWebBrowserFormObjects
  2784.      Dim nulldoc As notesdocument
  2785.      Dim url As String
  2786.      url = browserobject.locationURL
  2787.      If  url <>"" Then
  2788.           ' Request the URL to be retrieved but don't wait for it to come in
  2789.           Print "(DEBUG) - Queue request for: " + url
  2790.           Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  2791.      End If
  2792.      uidoc.refreshhideformulas
  2793. End Sub
  2794. (Internet Profile)
  2795. Internet Options
  2796. keeppage
  2797.     0S0E
  2798. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  2799. '++LotusScript Development Environment:2:5:(Forward):0:1
  2800. Declare Sub Click(Source As Button)
  2801. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2802. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2803. Private Sub BindEvents(Byval Objectname_ As String)
  2804.      Static Source As BUTTON
  2805.      Set Source = Bind(Objectname_)
  2806.      On Event Click From Source Call Click
  2807. End Sub
  2808. '++LotusScript Development Environment:2:2:Click:1:12
  2809. Sub Click(Source As Button)
  2810.      
  2811.      InstantiateWebBrowserFormObjects
  2812.      Call IEForwardNote(doc,Browserobject)
  2813. End Sub
  2814. Print... 
  2815.     0S0E
  2816. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  2817. '++LotusScript Development Environment:2:5:(Forward):0:1
  2818. Declare Sub Click(Source As Button)
  2819. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2820. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2821. Private Sub BindEvents(Byval Objectname_ As String)
  2822.      Static Source As BUTTON
  2823.      Set Source = Bind(Objectname_)
  2824.      On Event Click From Source Call Click
  2825. End Sub
  2826. '++LotusScript Development Environment:2:2:Click:1:12
  2827. Sub Click(Source As Button)
  2828.      
  2829.      InstantiateWebBrowserFormObjects
  2830.      If doc.form(0) <> "HelpForm" Then
  2831.           
  2832.           doc.url=browserobject.locationurl
  2833.           doc.title=browserobject.locationname
  2834.           
  2835.           If (docProfile Is Nothing) Then
  2836.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  2837.                Exit Sub 
  2838.           End If
  2839.           doc.tmpWebServer  = docProfile.WebServer
  2840.           doc.tmpWebDb = docProfile.WebDatabase
  2841.       'first, display a prompt to get user input
  2842.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  2843.               'determine which action we need to take
  2844.                Select Case doc.SharedOptions(0)
  2845.                     
  2846.                Case "2" : 'user wants to copy this to the shared web database
  2847.                     If getcurrentlocation="3" Then
  2848.                          CopyDocumentToSharedDatabase doc, browserobject.locationurl
  2849.                     Else
  2850.                          CopyDocumentToSharedDatabase doc, doc.url(0)
  2851.                     End If
  2852.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  2853.                     If getcurrentlocation="3" Then
  2854.                          CreateRatingDocument doc, browserobject.locationurl, browserobject.Locationname
  2855.                     Else
  2856.                          CreateRatingDocument doc,doc.url(0), doc.title(0)
  2857.                     End If
  2858.                End Select
  2859.           'remove any remaining fields that don't need to be carried around
  2860.                doc.removeItem "ForwardTo"
  2861.                doc.RemoveItem "SharedOptions" 
  2862.                doc.removeItem "ForwardTo"
  2863.                doc.RemoveItem "SharedOptions" 
  2864.                doc.RemoveItem "Rating"
  2865.                doc.removeItem "Content"
  2866.                doc.removeItem "Comments"
  2867.                doc.RemoveItem "tmpWebServer"
  2868.                doc.RemoveItem "tmpWebDb"
  2869.                doc.Save True,True          
  2870.           End If
  2871.      Else
  2872.           Msgbox "This document is a help document."
  2873.      End If
  2874. End Sub
  2875. Internet Profiles
  2876. Internet Options
  2877. webserver
  2878.     12S13S
  2879. _Move To Folder...
  2880. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  2881. '++LotusScript Development Environment:2:5:(Forward):0:1
  2882. Declare Sub Click(Source As Button)
  2883. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2884. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2885. Private Sub BindEvents(Byval Objectname_ As String)
  2886.      Static Source As BUTTON
  2887.      Set Source = Bind(Objectname_)
  2888.      On Event Click From Source Call Click
  2889. End Sub
  2890. '++LotusScript Development Environment:2:2:Click:1:12
  2891. Sub Click(Source As Button)
  2892.      
  2893.      InstantiateWebBrowserFormObjects
  2894.      Dim webdoc As notesdocument
  2895.      Dim noteid As String
  2896.      noteid = ""
  2897.      
  2898.      Response = Msgbox ("This will permanently delete the selected page from the database.  Do you want to continue?", 20, "Delete Document")
  2899.      If Response = 6 Then    
  2900.           uidoc.close
  2901.           Set webdoc=db.getdocumentbyurl(doc.url(0))
  2902.           Call RemoveObjects(webdoc)
  2903.          ' webdoc.Remove True
  2904.           
  2905.           If doc.isuidocopen Then
  2906.                noteid = doc.noteid             
  2907.                Delete doc
  2908.                Set doc = db.getdocumentbyid (noteid) 
  2909.                doc.remove True
  2910.                w.viewrefresh  
  2911.                w.viewrefresh
  2912.           Else
  2913.                doc.Remove True 
  2914.           End If
  2915.           
  2916.           w.viewrefresh
  2917.           
  2918.           
  2919.           
  2920.      End If
  2921.      
  2922. End Sub
  2923. Categori_zes
  2924. _Edit Document    
  2925. Send Docu_ment
  2926. _Forward
  2927. $ControlURLNavigate''++LotusScript Development Environment:2:5:(Options):0:66
  2928. '++LotusScript Development Environment:2:5:(Forward):0:1
  2929. Declare Sub Click(Source As Button)
  2930. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2931. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2932. Private Sub BindEvents(Byval Objectname_ As String)
  2933.      Static Source As BUTTON
  2934.      Set Source = Bind(Objectname_)
  2935.      On Event Click From Source Call Click
  2936. End Sub
  2937. '++LotusScript Development Environment:2:2:Click:1:12
  2938. Sub Click(Source As Button)
  2939.      
  2940.      InstantiateWebBrowserFormObjects
  2941.      Dim URL As Variant
  2942.      Dim Reload As Variant
  2943.      Dim Flags As Integer
  2944.      Dim TmpUrl As String
  2945.      
  2946.      URL = doc.GetitemValue("$NavigateToURL")
  2947.      Reload = doc.GetItemValue("$ReloadRefresh")
  2948.      Flags =Val (Reload(0))
  2949.      On Error 213  Resume Next
  2950.      
  2951.      TmpUrl=browserobject.LocationURL
  2952.      
  2953.      If Flags = 1 Then
  2954.           Flags = 4
  2955.      End If
  2956.      
  2957.      
  2958.      If URL(0) <> "" Then
  2959.           If URL(0) = TmpUrl Then
  2960.               ' Print "Refreshing " + Url(0)
  2961.                browserobject.Refresh     
  2962.           Else
  2963.              '  Print "Attempting " + URL(0) + " Flags = "+ Str(Flags)
  2964.                browserobject.Navigate URL(0), Flags
  2965.                
  2966.           ' Once navigation is done delete the item form the form
  2967.                doc.REMOVEITEM("$NavigateToURL")
  2968.                doc.RemoveItem("$ReloadRefresh")
  2969.                Call doc.Save( True, False )
  2970.           End If
  2971.      Else
  2972.           Messagebox "No URL specified.", 0, "ErrorNavigating"
  2973.      End If     
  2974. End Sub
  2975. _Remove From Foldere
  2976. Open History Folderu
  2977. Import Microsoft Favorites...
  2978. '++LotusScript Development Environment:2:5:(Options):0:66
  2979. '++LotusScript Development Environment:2:5:(Forward):0:1
  2980. Declare Sub Click(Source As Button)
  2981. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2982. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2983. Private Sub BindEvents(Byval Objectname_ As String)
  2984.      Static Source As BUTTON
  2985.      Set Source = Bind(Objectname_)
  2986.      On Event Click From Source Call Click
  2987. End Sub
  2988. '++LotusScript Development Environment:2:2:Click:1:12
  2989. Sub Click(Source As Button)
  2990.      
  2991.      ImportFavorites
  2992. End Sub
  2993. Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
  2994. '++LotusScript Development Environment:2:5:(Forward):0:1
  2995. Declare Sub Click(Source As Button)
  2996. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2997. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2998. Private Sub BindEvents(Byval Objectname_ As String)
  2999.      Static Source As BUTTON
  3000.      Set Source = Bind(Objectname_)
  3001.      On Event Click From Source Call Click
  3002. End Sub
  3003. '++LotusScript Development Environment:2:2:Click:1:12
  3004. Sub Click(Source As Button)
  3005.      
  3006.      ImportBookmarks
  3007. End Sub
  3008. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  3009. '++LotusScript Development Environment:2:5:(Forward):0:1
  3010. Declare Sub Click(Source As Button)
  3011. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3012. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3013. Private Sub BindEvents(Byval Objectname_ As String)
  3014.      Static Source As BUTTON
  3015.      Set Source = Bind(Objectname_)
  3016.      On Event Click From Source Call Click
  3017. End Sub
  3018. '++LotusScript Development Environment:2:2:Click:1:12
  3019. Sub Click(Source As Button)
  3020.      
  3021.      Dim iret As Integer
  3022.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  3023. End Sub
  3024.     0S0E
  3025. '++LotusScript Development Environment:2:5:(Options):0:66
  3026. '++LotusScript Development Environment:2:5:(Forward):0:1
  3027. Declare Sub Click(Source As Button)
  3028. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3029. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3030. Private Sub BindEvents(Byval Objectname_ As String)
  3031.      Static Source As BUTTON
  3032.      Set Source = Bind(Objectname_)
  3033.      On Event Click From Source Call Click
  3034. End Sub
  3035. '++LotusScript Development Environment:2:2:Click:1:12
  3036. Sub Click(Source As Button)
  3037.      
  3038.      InstantiateWebBrowserFormObjects
  3039.      If docprofile.OpenURL(0) <> "" Then
  3040.           browserobject.GoHome
  3041.      Else
  3042.           Msgbox "Home page is not specified in your Internet Options.  "  _
  3043.           + "Please select Actions - Internet Options to specify a home page. " , 16,"Open Home Page"    
  3044.      End If
  3045. End Sub
  3046. Keep Pagee'++LotusScript Development Environment:2:5:(Options):0:66
  3047. '++LotusScript Development Environment:2:5:(Forward):0:1
  3048. Declare Sub Click(Source As Button)
  3049. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3050. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3051. Private Sub BindEvents(Byval Objectname_ As String)
  3052.      Static Source As BUTTON
  3053.      Set Source = Bind(Objectname_)
  3054.      On Event Click From Source Call Click
  3055. End Sub
  3056. '++LotusScript Development Environment:2:2:Click:1:12
  3057. Sub Click(Source As Button)
  3058.      
  3059.      On Error Resume Next
  3060.      InstantiateWebBrowserFormObjects
  3061.      Dim nulldoc As notesdocument
  3062.      Dim url As String
  3063.      url = browserobject.locationURL
  3064.      If  url <>"" Then
  3065.           ' Request the URL to be retrieved but don't wait for it to come in
  3066.           Print "(DEBUG) - Queue request for: " + url
  3067.           Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  3068.      End If
  3069.      uidoc.refreshhideformulas
  3070. End Sub
  3071. (Internet Profile)
  3072. Internet Options
  3073. keeppage
  3074.     0S0E
  3075. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  3076. '++LotusScript Development Environment:2:5:(Forward):0:1
  3077. Declare Sub Click(Source As Button)
  3078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3080. Private Sub BindEvents(Byval Objectname_ As String)
  3081.      Static Source As BUTTON
  3082.      Set Source = Bind(Objectname_)
  3083.      On Event Click From Source Call Click
  3084. End Sub
  3085. '++LotusScript Development Environment:2:2:Click:1:12
  3086. Sub Click(Source As Button)
  3087.      
  3088.      InstantiateWebBrowserFormObjects
  3089.      Call IEForwardNote(doc,Browserobject)
  3090. End Sub
  3091. Print... 
  3092.     0S0E
  3093. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  3094. '++LotusScript Development Environment:2:5:(Forward):0:1
  3095. Declare Sub Click(Source As Button)
  3096. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3097. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3098. Private Sub BindEvents(Byval Objectname_ As String)
  3099.      Static Source As BUTTON
  3100.      Set Source = Bind(Objectname_)
  3101.      On Event Click From Source Call Click
  3102. End Sub
  3103. '++LotusScript Development Environment:2:2:Click:1:12
  3104. Sub Click(Source As Button)
  3105.      
  3106.      InstantiateWebBrowserFormObjects
  3107.      If doc.form(0) <> "HelpForm" Then
  3108.           
  3109.           doc.url=browserobject.locationurl
  3110.           doc.title=browserobject.locationname
  3111.           
  3112.           If (docProfile Is Nothing) Then
  3113.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  3114.                Exit Sub 
  3115.           End If
  3116.           doc.tmpWebServer  = docProfile.WebServer
  3117.           doc.tmpWebDb = docProfile.WebDatabase
  3118.       'first, display a prompt to get user input
  3119.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  3120.               'determine which action we need to take
  3121.                Select Case doc.SharedOptions(0)
  3122.                     
  3123.                Case "2" : 'user wants to copy this to the shared web database
  3124.                     If getcurrentlocation="3" Then
  3125.                          CopyDocumentToSharedDatabase doc, browserobject.locationurl
  3126.                     Else
  3127.                          CopyDocumentToSharedDatabase doc, doc.url(0)
  3128.                     End If
  3129.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  3130.                     If getcurrentlocation="3" Then
  3131.                          CreateRatingDocument doc, browserobject.locationurl, browserobject.Locationname
  3132.                     Else
  3133.                          CreateRatingDocument doc,doc.url(0), doc.title(0)
  3134.                     End If
  3135.                End Select
  3136.           'remove any remaining fields that don't need to be carried around
  3137.                doc.removeItem "ForwardTo"
  3138.                doc.RemoveItem "SharedOptions" 
  3139.                doc.removeItem "ForwardTo"
  3140.                doc.RemoveItem "SharedOptions" 
  3141.                doc.RemoveItem "Rating"
  3142.                doc.removeItem "Content"
  3143.                doc.removeItem "Comments"
  3144.                doc.RemoveItem "tmpWebServer"
  3145.                doc.RemoveItem "tmpWebDb"
  3146.                doc.Save True,True          
  3147.           End If
  3148.      Else
  3149.           Msgbox "This document is a help document."
  3150.      End If
  3151. End Sub
  3152. Internet Profiles
  3153. Internet Options
  3154. webserver
  3155.     12S13S
  3156. _Move To Folder...
  3157. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  3158. '++LotusScript Development Environment:2:5:(Forward):0:1
  3159. Declare Sub Click(Source As Button)
  3160. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3161. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3162. Private Sub BindEvents(Byval Objectname_ As String)
  3163.      Static Source As BUTTON
  3164.      Set Source = Bind(Objectname_)
  3165.      On Event Click From Source Call Click
  3166. End Sub
  3167. '++LotusScript Development Environment:2:2:Click:1:12
  3168. Sub Click(Source As Button)
  3169.      
  3170.      InstantiateWebBrowserFormObjects
  3171.      Dim webdoc As notesdocument
  3172.      Dim noteid As String
  3173.      noteid = ""
  3174.      
  3175.      Response = Msgbox ("This will permanently delete the selected page from the database.  Do you want to continue?", 20, "Delete Document")
  3176.      If Response = 6 Then    
  3177.           uidoc.close
  3178.           Set webdoc=db.getdocumentbyurl(doc.url(0))
  3179.           Call RemoveObjects(webdoc)
  3180.          ' webdoc.Remove True
  3181.           
  3182.           If doc.isuidocopen Then
  3183.                noteid = doc.noteid             
  3184.                Delete doc
  3185.                Set doc = db.getdocumentbyid (noteid) 
  3186.                doc.remove True
  3187.                w.viewrefresh  
  3188.                w.viewrefresh
  3189.           Else
  3190.                doc.Remove True 
  3191.           End If
  3192.           
  3193.           w.viewrefresh
  3194.           
  3195.           
  3196.           
  3197.      End If
  3198.      
  3199. End Sub
  3200. Categori_ze 
  3201. _Edit Document    
  3202. Send Docu_ment
  3203. _Forward
  3204. $ControlURLNavigatec'++LotusScript Development Environment:2:5:(Options):0:66
  3205. '++LotusScript Development Environment:2:5:(Forward):0:1
  3206. Declare Sub Click(Source As Button)
  3207. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3208. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3209. Private Sub BindEvents(Byval Objectname_ As String)
  3210.      Static Source As BUTTON
  3211.      Set Source = Bind(Objectname_)
  3212.      On Event Click From Source Call Click
  3213. End Sub
  3214. '++LotusScript Development Environment:2:2:Click:1:12
  3215. Sub Click(Source As Button)
  3216.      
  3217.      InstantiateWebBrowserFormObjects
  3218.      Dim URL As Variant
  3219.      Dim Reload As Variant
  3220.      Dim Flags As Integer
  3221.      Dim TmpUrl As String
  3222.      
  3223.      URL = doc.GetitemValue("$NavigateToURL")
  3224.      Reload = doc.GetItemValue("$ReloadRefresh")
  3225.      Flags =Val (Reload(0))
  3226.      On Error 213  Resume Next
  3227.      
  3228.      TmpUrl=browserobject.LocationURL
  3229.      
  3230.      If Flags = 1 Then
  3231.           Flags = 4
  3232.      End If
  3233.      
  3234.      
  3235.      If URL(0) <> "" Then
  3236.           If URL(0) = TmpUrl Then
  3237.               ' Print "Refreshing " + Url(0)
  3238.                browserobject.Refresh     
  3239.           Else
  3240.              '  Print "Attempting " + URL(0) + " Flags = "+ Str(Flags)
  3241.                browserobject.Navigate URL(0), Flags
  3242.                
  3243.           ' Once navigation is done delete the item form the form
  3244.                doc.REMOVEITEM("$NavigateToURL")
  3245.                doc.RemoveItem("$ReloadRefresh")
  3246.                Call doc.Save( True, False )
  3247.           End If
  3248.      Else
  3249.           Messagebox "No URL specified.", 0, "ErrorNavigating"
  3250.      End If     
  3251. End Sub
  3252. _Remove From FolderN
  3253. Open History Folder 
  3254. Import Microsoft Favorites...
  3255. '++LotusScript Development Environment:2:5:(Options):0:66
  3256. '++LotusScript Development Environment:2:5:(Forward):0:1
  3257. Declare Sub Click(Source As Button)
  3258. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3259. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3260. Private Sub BindEvents(Byval Objectname_ As String)
  3261.      Static Source As BUTTON
  3262.      Set Source = Bind(Objectname_)
  3263.      On Event Click From Source Call Click
  3264. End Sub
  3265. '++LotusScript Development Environment:2:2:Click:1:12
  3266. Sub Click(Source As Button)
  3267.      
  3268.      ImportFavorites
  3269. End Sub
  3270. Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
  3271. '++LotusScript Development Environment:2:5:(Forward):0:1
  3272. Declare Sub Click(Source As Button)
  3273. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3274. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3275. Private Sub BindEvents(Byval Objectname_ As String)
  3276.      Static Source As BUTTON
  3277.      Set Source = Bind(Objectname_)
  3278.      On Event Click From Source Call Click
  3279. End Sub
  3280. '++LotusScript Development Environment:2:2:Click:1:12
  3281. Sub Click(Source As Button)
  3282.      
  3283.      ImportBookmarks
  3284. End Sub
  3285. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  3286. '++LotusScript Development Environment:2:5:(Forward):0:1
  3287. Declare Sub Click(Source As Button)
  3288. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3289. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3290. Private Sub BindEvents(Byval Objectname_ As String)
  3291.      Static Source As BUTTON
  3292.      Set Source = Bind(Objectname_)
  3293.      On Event Click From Source Call Click
  3294. End Sub
  3295. '++LotusScript Development Environment:2:2:Click:1:12
  3296. Sub Click(Source As Button)
  3297.      
  3298.      Dim iret As Integer
  3299.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  3300. End Sub
  3301.     0S0E
  3302. Lotus Product
  3303. OBJECT
  3304. Lotus Product
  3305. Lotus Product)
  3306. V0.0^
  3307. D-43#
  3308. A}L%K<$S
  3309. A}d8}
  3310. A}d8}
  3311. A}t8}
  3312. A}L%K<$S
  3313. K<#, 4#
  3314. ^,FK<
  3315. K<FQT>}
  3316. K<F,T8
  3317. K<#, 4#
  3318. K<#, 4#
  3319. ^LFK<#,
  3320. ^\FK<#-X3#
  3321. K\F,`>#
  3322. ^lFK<#-X3#
  3323. KLF,P;#
  3324. K<F,T8
  3325. E}89J
  3326. K|F-43#
  3327. Lotus Product
  3328. OBJECT
  3329. Lotus Product
  3330. V0.0S
  3331. Lotus Product
  3332. OBJECT
  3333. Lotus Product
  3334. OBJECT
  3335. Lotus Product
  3336. OBJECT
  3337. Lotus Product
  3338. OBJECT
  3339. O=Lotus Notes
  3340. O=Lotus Notes
  3341. PURSAFO
  3342. |.:#U
  3343. O=Lotus Notes
  3344. CN=Lotus Notes Template Development/O=Lotus Notes
  3345. PURSAFO
  3346. $FILE
  3347. EXT61806.lss
  3348. $FILE
  3349. EXT61806.lso
  3350. $SCRIPTOBJ_26
  3351. $SCRIPTOBJ_18
  3352. $SCRIPTOBJ_21
  3353. $SCRIPTOBJ_22
  3354. $SCRIPTOBJ_23
  3355. $SCRIPTOBJ_24
  3356. $SCRIPTOBJ_25
  3357. $FILE
  3358. STG28821
  3359. $FILE
  3360. EXT34422
  3361. $OLEOBJINFO
  3362. $INFO
  3363. $WINDOWTITLE
  3364. $Script
  3365. $$Script_O
  3366. $$ScriptName
  3367. $$FormScript
  3368. $$$FormScript_O
  3369. $FILE
  3370. EXT34422.lss
  3371. $FILE
  3372. EXT34422.lso
  3373. $BODY
  3374. $V5ACTIONS
  3375. $ACTIONS
  3376. $SCRIPTOBJ_0
  3377. $SCRIPTOBJ_1
  3378. $SCRIPTOBJ_2
  3379. $SCRIPTOBJ_4
  3380. $SCRIPTOBJ_6
  3381. $SCRIPTOBJ_11
  3382. $SCRIPTOBJ_14
  3383. $SCRIPTOBJ_15
  3384. $SCRIPTOBJ_16
  3385. ,D    } 
  3386. ^t    K,
  3387. Nt    PD
  3388. _Forward
  3389. Categori_zeK
  3390. _Edit Document
  3391. Send Docu_ment
  3392. _Move to Folder...
  3393. _Remove from Folder...
  3394. >|'++LotusScript Development Environment:2:5:(Options):0:74
  3395. Option Public
  3396. Use "InternetFunctions"
  3397. '++LotusScript Development Environment:2:5:(Forward):0:1
  3398. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3399. '++LotusScript Development Environment:2:5:(Options):0:66
  3400. '++LotusScript Development Environment:2:5:(Forward):0:1
  3401. Declare Sub Postopen(Source As Notesuiview)
  3402. Declare Sub Initialize
  3403. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3404. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3405. Private Sub BindEvents(Byval Objectname_ As String)
  3406.      Static Source As NOTESUIVIEW
  3407.      Set Source = Bind(Objectname_)
  3408.      On Event Postopen From Source Call Postopen
  3409. End Sub
  3410. '++LotusScript Development Environment:2:2:Postopen:1:12
  3411. Sub Postopen(Source As Notesuiview)
  3412.      InstantiateObjects
  3413. End Sub
  3414. '++LotusScript Development Environment:2:2:Initialize:1:10
  3415. Sub Initialize
  3416.      ' Create a Browser form
  3417.      
  3418.      
  3419.      
  3420. End Sub
  3421. O=Lotus Notes
  3422. O=Lotus Notes
  3423. PURSAFO
  3424. |.:#U
  3425. O=Lotus Notes
  3426. CN=Lotus Notes Template Development/O=Lotus Notes
  3427. PURSAFO
  3428. Anf}1)(UV/B
  3429. $SCRIPTOBJ_19
  3430. $SCRIPTOBJ_20
  3431. $SCRIPTOBJ_7
  3432. $SCRIPTOBJ_9
  3433. $SCRIPTOBJ_10
  3434. $SCRIPTOBJ_18
  3435. $TITLE
  3436. $Index
  3437. $Formula
  3438. $FormulaClass
  3439. $VIEWFORMAT
  3440. $Comment
  3441. $ACTIONS
  3442. $ViewGlobalScript
  3443. $ViewScript
  3444. $ViewScript_O
  3445. '++LotusScript Development Environment:2:5:(Options):0:74
  3446. Option Public
  3447. Use "AgentFunctions"
  3448. '++LotusScript Development Environment:2:5:(Forward):0:1
  3449. Declare Sub Initialize
  3450. Declare Sub ReduceDocumentsToLinks
  3451. Declare Sub RemoveDocumentsFromDatabase
  3452. Declare Sub SetupExpirationDates
  3453. Declare Function DocumentCanBeProcessed  As Integer
  3454. Declare Sub ReduceOneDocumentToLink
  3455. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3456. Dim housekeepingagent As notesagent
  3457. Dim docCollection As NotesDocumentCollection
  3458. Dim urldoc As NotesDocument
  3459. Dim doc As NotesDocument
  3460. Dim dtExpiration As NotesDateTime
  3461. Dim dtLastAccessed As NotesDateTime
  3462. '++LotusScript Development Environment:2:2:Initialize:1:10
  3463. Sub Initialize
  3464.      On Error Goto ProcessError
  3465.      InstantiateAgentObjects
  3466.      
  3467.      'Open the error log for error handling
  3468.      Set HousekeepingAgent = Session.currentagent
  3469.      Set AgentLog = OpenLog(HousekeepingAgent.name)
  3470.      
  3471.      If LogLocation = "Agent Log" Then agentLog.LogErrors = True   
  3472.      Call logaction( "Starting Housekeeping agent.....")
  3473.      
  3474.       'check to see if we need to perform and database/document cleanup
  3475.      If (docprofile.ReduceDays(0) = "0") Then
  3476.           ReduceDocumentsToLinks
  3477.      Elseif (docprofile.ReduceDays(0) = "1") Then
  3478.           RemoveDocumentsFromDatabase
  3479.      End If
  3480.      Goto Cleanup
  3481.      
  3482. ProcessError:
  3483.      Call logerror(Err, Error$)
  3484.      Call logaction("The preceeding error occurred in the Initialization routine of the Housekeeping Agent.")
  3485.      Resume Next     
  3486. Cleanup:
  3487.      Call logaction("Housekeeping Agent finished."     )
  3488.      If LogLocation = "Agent Log" Then  Call agentlog.close
  3489.      
  3490. End Sub
  3491. '++LotusScript Development Environment:2:2:ReduceDocumentsToLinks:1:8
  3492. Sub ReduceDocumentsToLinks
  3493.      On Error Goto ProcessError
  3494.      SetupExpirationDates
  3495.      
  3496.      Set docCollection = db.AllDocuments
  3497.      Set doc = docCollection.GetFirstDocument
  3498.      While Not (doc Is Nothing)
  3499.           If (DocumentCanBeProcessed) Then ReduceOneDocumentToLink
  3500.           Set doc = docCollection.GetNextDocument(doc)
  3501.      Wend
  3502.      Exit Sub
  3503. ProcessError:
  3504.      Call logerror(Err, Error$)
  3505.      Call logaction("The preceeding error occurred in the ReduceDocumentsToLinks routine of the Housekeeping Agent.")
  3506.      Resume Next 
  3507.      
  3508. End Sub
  3509. '++LotusScript Development Environment:2:2:RemoveDocumentsFromDatabase:1:8
  3510. Sub RemoveDocumentsFromDatabase
  3511.      On Error Goto ProcessError
  3512.      SetupExpirationDates
  3513.      Set docCollection = db.AllDocuments
  3514.      For i = 1 To docCollection.Count
  3515.           Set doc = docCollection.GetNthDocument(i)          
  3516.           If (DocumentCanBeProcessed) Then 
  3517.                Call RemoveObjects(doc)
  3518.                Call logaction( "Removing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days...")
  3519.                doc.Remove True
  3520.           End If               
  3521.      Next
  3522.      Exit Sub
  3523.      
  3524. ProcessError:
  3525.      Call logerror(Err, Error$)
  3526.      Call logaction("The preceeding error occurred in the RemoveDocumentsFromDatabase routine of the Housekeeping Agent.")
  3527.      Resume Next 
  3528.      
  3529. End Sub
  3530. '++LotusScript Development Environment:2:2:SetupExpirationDates:1:8
  3531. Sub SetupExpirationDates
  3532.      On Error Goto ProcessError
  3533. 'initiate the date/time objects
  3534.      Set dtLastAccessed = New NotesDateTime("")
  3535.      Set dtExpiration = New NotesDateTime("")
  3536.      dtLastAccessed.SetNow
  3537.      dtExpiration.SetNow
  3538. 'dtExpired must be set back the number of days specified in the profile document
  3539.      dtExpiration.AdjustDay(-1*Cint(docprofile.ReduceNumDays(0)))
  3540.      Exit Sub
  3541. ProcessError:
  3542.      Call logerror(Err, Error$)
  3543.      Call logaction("The preceeding error occurred in the SetExpirationDates routine of the Housekeeping Agent.")
  3544.      Resume Next 
  3545. End Sub
  3546. '++LotusScript Development Environment:2:1:DocumentCanBeProcessed:1:8
  3547. Function DocumentCanBeProcessed  As Integer
  3548.      On Error Goto ProcessError
  3549. 'determines if a document meets the criteria to be reduced or removed from the database
  3550.      If (doc.Form(0) = "Admin") Then 
  3551.           DocumentCanBeProcessed = False
  3552.           Exit Function
  3553.      End If
  3554. 'if this is the home page, do not process it
  3555.      If (doc.Url(0) = docprofile.OpenUrl(0)) Then
  3556.           DocumentCanBeProcessed = False
  3557.           Exit Function          
  3558.      End If
  3559.      'if this page is a Web Browser Object page, do not process it
  3560.      If (doc.form(0) = "WebBrowserForm") Then
  3561.           documentcanbeprocessed = False
  3562.           Exit Function
  3563.      End If
  3564. 'compare the last accessed date/time
  3565.      dtLastAccessed.LSLocalTime = doc.LastAccessed
  3566.      If (dtExpiration.TimeDifference(dtLastAccessed) > 0) Then DocumentCanBeProcessed = True
  3567.      Exit Function
  3568. ProcessError:
  3569.      Call logerror(Err, Error$)
  3570.      Call logaction("The preceeding error occurred in the DocumentCanBeProcessed routine of the Housekeeping Agent.")
  3571.      Resume Next 
  3572. End Function
  3573. '++LotusScript Development Environment:2:2:ReduceOneDocumentToLink:1:8
  3574. Sub ReduceOneDocumentToLink
  3575.      On Error Goto ProcessError
  3576.      
  3577.      Call logaction( "Reducing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days...")
  3578.      doc.RemoveItem "Body"
  3579.      doc.RemoveItem "HTMLSouce"
  3580.      doc.RemoveItem "HTMLBody"
  3581.      doc.RemoveItem "$Background"
  3582.      doc.RemoveItem "$FILE"
  3583.      doc.RemoveItem "URLLinks1"
  3584.      doc.RemoveItem "WebAheadStatus"
  3585.      doc.RemoveItem "WebAgentError"
  3586.      doc.RemoveItem "PageMinderStatus"
  3587.      doc.Save True,True
  3588.      Exit Sub
  3589.      
  3590. ProcessError:
  3591.      Call logerror(Err, Error$)
  3592.      Call logaction("The preceeding error occurred in the ReduceOneDocumentToLink routine of the Housekeeping Agent.")
  3593.      Resume Next 
  3594. End Sub
  3595. O=Lotus Notes
  3596. O=Lotus Notes
  3597. PURSAFO
  3598. |.:#U
  3599. O=Lotus Notes
  3600. CN=Lotus Notes Template Development/O=Lotus Notes
  3601. PURSAFO
  3602. {>HX!)
  3603. $TITLE
  3604. $AssistType
  3605. $AssistLastRun
  3606. $AssistDocCount
  3607. $AssistFlags
  3608. $AssistTrigger
  3609. $AssistInfo
  3610. $AssistQuery
  3611. $AssistAction
  3612. $AssistAction_Ex
  3613. O=Lotus Notes
  3614. O=Lotus Notes
  3615. PURSAFO
  3616. |.:#U
  3617. O=Lotus Notes
  3618. CN=Lotus Notes Template Development/O=Lotus Notes
  3619. PURSAFO
  3620. sZ%!ZM}
  3621. $Flags
  3622. O=Lotus Notes
  3623. O=Lotus Notes
  3624. PURSAFO
  3625. |.:#U
  3626. O=Lotus Notes
  3627. CN=Lotus Notes Template Development/O=Lotus Notes
  3628. PURSAFO
  3629. sZ%!ZM}
  3630. $Flags
  3631. O=Lotus Notes
  3632. O=Lotus Notes
  3633. PURSAFO
  3634. |.:#U
  3635. O=Lotus Notes
  3636. CN=Lotus Notes Template Development/O=Lotus Notes
  3637. PURSAFO
  3638. sZ%!ZM}
  3639. $Flags
  3640. O=Lotus Notes
  3641. O=Lotus Notes
  3642. PURSAFO
  3643. |.:#U
  3644. O=Lotus Notes
  3645. CN=Lotus Notes Template Development/O=Lotus Notes
  3646. PURSAFO
  3647. sZ%!ZM}
  3648. wyEn-
  3649. qRw+\
  3650. $Flags
  3651. HAll Pages|($All)|Main
  3652. www.G
  3653. www.`
  3654.     15S18S36S39S
  3655. $44Title$36$Conflict
  3656. HTMLForm
  3657. $Title
  3658. HTMLFormDoc
  3659. Guided Tour
  3660. DeferredObject
  3661. Title
  3662. BLANK.HTM
  3663. bookmark
  3664.     L1S21S
  3665. www.G
  3666. www.`
  3667.     15S18S36S39S
  3668. ?TitlePage Title$36Date
  3669. IEVersion
  3670. IEVersionMinor|
  3671.     1S2S
  3672. Admin
  3673. Admin
  3674. forward
  3675. HTMLForm
  3676. IEVersion
  3677. Admin
  3678. Admin
  3679. forward
  3680. HTMLForm
  3681. WebBrowserForm
  3682. IEVersion
  3683. Admin
  3684. Admin
  3685. forward
  3686. HTMLForm
  3687. WebBrowser4Form
  3688.     0R9RT12S13S23RTT29RTTT32S33S46RTT50RTTT53S54S66RTT69RT70R
  3689. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
  3690. Web Bots\Page MinderWeb Bots\Page Minder
  3691. Bookmark
  3692. HelpForm
  3693. PageMinderStatus
  3694. PageMinderStatus
  3695. PageMinderStatus
  3696. PageMinderStatus
  3697. PageMinderStatus
  3698.     6S9S10S
  3699. $39Title$36URL$Conflict
  3700. $39Title
  3701. Title
  3702. Bookmark
  3703. HelpForm
  3704. PageMinderStatus
  3705. PageMinderStatus
  3706. PageMinderStatus
  3707. PageMinderStatus
  3708. PageMinderStatus
  3709.     6S9S10STitlePageTitle$36Date
  3710. URLURL&
  3711. IEVersion
  3712. IEVersionMinor|
  3713.     1S2S
  3714. Admin
  3715. Admin
  3716. forward
  3717. HTMLForm
  3718. HelpForm
  3719. HelpForm
  3720. IEVersion
  3721. Admin
  3722. Admin
  3723. forward
  3724. HTMLForm
  3725. HelpForm
  3726. HelpForm
  3727. WebBrowserForm
  3728. IEVersion
  3729. Admin
  3730. Admin
  3731. forward
  3732. HTMLForm
  3733. HelpForm
  3734. HelpForm
  3735. WebBrowser4Form
  3736.     0R9RT12S13S23S27S29RTT35RTTT38S39S49S2E53S58RTT62RTTT65S66S76S2E80S84RTT87RT88R3FY
  3737. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  3738. ###########
  3739. Web Bots\Web AheadWeb Bots\Web Ahead
  3740. Bookmark
  3741. HelpForm
  3742. PageMinderStatus
  3743. PageMinderStatus
  3744. PageMinderStatus
  3745. PageMinderStatus
  3746. PageMinderStatus
  3747.     6S9S10S
  3748. $39Title$36URL$Conflict
  3749. $39Title
  3750. Title
  3751. Bookmark
  3752. HelpForm
  3753. PageMinderStatus
  3754. PageMinderStatus
  3755. PageMinderStatus
  3756. PageMinderStatus
  3757. PageMinderStatus
  3758.     6S9S10STitlePageTitle$36Date
  3759. URLURL&
  3760. IEVersion
  3761. IEVersionMinor|
  3762.     1S2S
  3763. Admin
  3764. Admin
  3765. forward
  3766. HTMLForm
  3767. HelpForm
  3768. HelpForm
  3769. IEVersion
  3770. Admin
  3771. Admin
  3772. forward
  3773. HTMLForm
  3774. HelpForm
  3775. HelpForm
  3776. WebBrowserForm
  3777. IEVersion
  3778. Admin
  3779. Admin
  3780. forward
  3781. HTMLForm
  3782. HelpForm
  3783. HelpForm
  3784. WebBrowser4Form
  3785.     0R9RT12S13S23S27S29RTT35RTTT38S39S49S2E53S58RTT62RTTT65S66S76S2E80S84RTT87RT88R3FY
  3786. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  3787. ###############
  3788. Internet Options...303
  3789. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  3790. Page Minder
  3791. 1SfL3
  3792. CN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  3793. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAgentFunctionss34Q1####################
  3794. (Images)N
  3795. URL$Conflict
  3796. HTTPContent_type
  3797. image
  3798.     L1S1
  3799. URLURL&
  3800. IEVersion
  3801. IEVersionMinor|
  3802.     1S2S
  3803. Admin
  3804. Admin
  3805. forward
  3806. HTMLForm
  3807. IEVersion
  3808. Admin
  3809. Admin
  3810. forward
  3811. HTMLForm
  3812. WebBrowserForm
  3813. IEVersion
  3814. Admin
  3815. Admin
  3816. forward
  3817. HTMLForm
  3818. WebBrowser4Form
  3819.     0R9RT12S13S23RTT29RTTT32S33S46RTT50RTTT53S54S66RTT69RT70RY
  3820. CN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  3821. ##########################################################
  3822. HelpFormUsing the Page Minder Feature
  3823. CN=Teresa Deane/O=Iris#############
  3824. >%!-eWv
  3825. HelpFormUsing the Web Ahead Feature
  3826. CN=Teresa Deane/O=Iris###############
  3827. http://www.lotus.com/Lotus Development Corporation1
  3828. CN=Teresa Deane/O=Iris
  3829. ###########################################
  3830. IBM Home Page1http://www.ibm.com/
  3831. CN=Teresa Deane/O=Iris
  3832. #####################################################
  3833. 1Notes Nethttp://www.notes.net/
  3834. CN=Teresa Deane/O=Iris
  3835. ##########################################################
  3836. WebBrowserForm11http://notes.net/welcome.nsf
  3837. CN=Teresa Deane/O=Iris
  3838. ##########################
  3839. EXT11761.lsseo
  3840. EXT11761.lso
  3841. STG13885
  3842. EXT11761
  3843. EXT11761browser$BodyWebBrowser4FormCD
  3844. SaveOptions$OLEPreviewActivate
  3845. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  3846. CookieCookiePC
  3847. SecureCookieCookieValueExpirationDateCookieNamePathHostDomainUsername
  3848. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  3849. Other\Cookies|Cookies
  3850. Username
  3851. Username
  3852. Domain
  3853. Domain
  3854. CookieName
  3855. CookieName
  3856. ExpirationDate
  3857. ExpirationDate
  3858. UsernameDomainPathCookieNameExpirationDate$Conflict
  3859. Cookie
  3860.     L1S1>
  3861. UsernameDomainPathCookieName
  3862. Domain
  3863. UsernameNotes User
  3864. Username
  3865. Username
  3866. DomainDomain
  3867. Domain
  3868. Domain
  3869. PathPath
  3870. CookieNameCookie Name"
  3871. CookieName
  3872. CookieName
  3873. ExpirationDateExpiration Date*
  3874. ExpirationDate
  3875. ExpirationDate
  3876. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  3877. (RemoveObjects)
  3878. EH4fL3
  3879. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  3880. $ACTIONSC34y
  3881. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  3882. ##########################################################
  3883. ##########################################################
  3884. ##########################################################
  3885. ##########################################################
  3886. ##########################################################
  3887. ##########################################################
  3888. ##########################################################
  3889. ##########################################################
  3890. ##########################################################
  3891. ##########################################################
  3892. ##########################################################
  3893. ##########################################################
  3894. ##########################################################
  3895. ##########################################################
  3896. ##########################################################
  3897. ##########################################################
  3898. ##########################################################
  3899. ##########################################################
  3900. ##########################################################
  3901. ##########################################################
  3902. ##########################################################
  3903. ##########################################################
  3904. ##########################################################
  3905. ##########################################################
  3906. ##########################################################
  3907. ##########################################################
  3908. ##########################################################
  3909. ##########################################################
  3910. ##########################################################
  3911. ##########################################################
  3912. ##########################################################
  3913. ##########################################################
  3914.     0S0E
  3915.     0S0E
  3916.     0S0E
  3917.     0S0E
  3918. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  3919. '++LotusScript Development Environment:2:5:(Forward):0:1
  3920. Declare Sub Click(Source As Button)
  3921. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3922. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3923. Private Sub BindEvents(Byval Objectname_ As String)
  3924.      Static Source As BUTTON
  3925.      Set Source = Bind(Objectname_)
  3926.      On Event Click From Source Call Click
  3927. End Sub
  3928. '++LotusScript Development Environment:2:2:Click:1:12
  3929. Sub Click(Source As Button)
  3930.      
  3931.      Browse
  3932. End Sub
  3933. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  3934. '++LotusScript Development Environment:2:5:(Forward):0:1
  3935. Declare Sub Click(Source As Button)
  3936. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3937. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3938. Private Sub BindEvents(Byval Objectname_ As String)
  3939.      Static Source As BUTTON
  3940.      Set Source = Bind(Objectname_)
  3941.      On Event Click From Source Call Click
  3942. End Sub
  3943. '++LotusScript Development Environment:2:2:Click:1:12
  3944. Sub Click(Source As Button)
  3945.      
  3946.      viewdelete
  3947.      
  3948. End Sub
  3949. _Reload
  3950.     0S0E
  3951.     0S0E
  3952. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  3953. '++LotusScript Development Environment:2:5:(Forward):0:1
  3954. Declare Sub Click(Source As Button)
  3955. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3956. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3957. Private Sub BindEvents(Byval Objectname_ As String)
  3958.      Static Source As BUTTON
  3959.      Set Source = Bind(Objectname_)
  3960.      On Event Click From Source Call Click
  3961. End Sub
  3962. '++LotusScript Development Environment:2:2:Click:1:12
  3963. Sub Click(Source As Button)
  3964.      
  3965.      PrintWebDocument
  3966. End Sub
  3967. _Search
  3968. '++LotusScript Development Environment:2:5:(Options):0:66
  3969. '++LotusScript Development Environment:2:5:(Forward):0:1
  3970. Declare Sub Click(Source As Button)
  3971. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3972. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3973. Private Sub BindEvents(Byval Objectname_ As String)
  3974.      Static Source As BUTTON
  3975.      Set Source = Bind(Objectname_)
  3976.      On Event Click From Source Call Click
  3977. End Sub
  3978. '++LotusScript Development Environment:2:2:Click:1:12
  3979. Sub Click(Source As Button)
  3980.      
  3981.      Dim docLocal As NotesDocument
  3982.      Dim browserobject As Variant
  3983.      Dim objectitem As notesrichtextitem
  3984.      
  3985.      Dim docCollection As NotesDocumentCollection     
  3986.      Set docCollection = db.UnprocessedDocuments
  3987.      If (docCollection.Count = 0) Then
  3988.           Msgbox "You must select a document.",16,"Error"
  3989.           Exit Sub
  3990.      End If
  3991.      Set docLocal = docCollection.GetFirstDocument
  3992.      If docLocal.Form(0) = "WebBrowserForm" Then
  3993.           Set objectitem = docLocal.getfirstitem("Browser")
  3994.           browserobject = objectitem.getembeddedobject("Browser")
  3995.           IESearch(browserobject)
  3996.      Else
  3997.           OpenSearchSite docLocal
  3998.      End If
  3999.      
  4000. End Sub
  4001. _Forward    
  4002. Sh_are...K'++LotusScript Development Environment:2:5:(Options):0:66
  4003. '++LotusScript Development Environment:2:5:(Forward):0:1
  4004. Declare Sub Click(Source As Button)
  4005. Declare Function GetInternetProfile
  4006. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4007. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4008. Private Sub BindEvents(Byval Objectname_ As String)
  4009.      Static Source As BUTTON
  4010.      Set Source = Bind(Objectname_)
  4011.      On Event Click From Source Call Click
  4012. End Sub
  4013. '++LotusScript Development Environment:2:2:Click:1:12
  4014. Sub Click(Source As Button)
  4015.      
  4016.      Dim docLocal As NotesDocument
  4017.      Dim webdoc As notesdocument
  4018.      Dim docCollection As NotesDocumentCollection     
  4019.      Set docCollection = db.UnprocessedDocuments
  4020.      If (docCollection.Count = 0) Then
  4021.           Msgbox "You must select a document.",16,"Error"
  4022.           Exit Sub
  4023.      End If
  4024.      Set docLocal = docCollection.GetFirstDocument
  4025.      If docLocal.hasitem("URL") Then
  4026.           docLocal.tmpWebServer  = docProfile.WebServer
  4027.           docLocal.tmpWebDb = docProfile.WebDatabase
  4028.           docLocal.Save True, True
  4029.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  4030.                docLocal.Save True, True
  4031.                Select Case docLocal.SharedOptions(0)
  4032.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  4033.                Case "2" : 'user wants to copy this to the shared web database
  4034.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4035.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  4036.                     Else
  4037.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  4038.                     End If
  4039.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  4040.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4041.                          CreateRatingDocument docLocal, browserobject.locationurl, browserobject.Locationname
  4042.                     Else
  4043.                          CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
  4044.                     End If
  4045.                End Select
  4046.           'remove any remaining fields that don't need to be carried around
  4047.                docLocal.removeItem "ForwardTo"
  4048.                docLocal.RemoveItem "SharedOptions" 
  4049.                docLocal.RemoveItem "Rating"
  4050.                docLocal.removeItem "Content"
  4051.                docLocal.removeItem "Comments"
  4052.           End If     
  4053.           docLocal.RemoveItem "tmpWebServer"
  4054.           docLocal.RemoveItem "tmpWebDb"
  4055.           docLocal.Save True, True
  4056.      Else
  4057.           Msgbox "This document does not contain a URL."
  4058.      End If
  4059. End Sub
  4060. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  4061. Function GetInternetProfile
  4062.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  4063.      Set view = db.getView("(Internet Profile)")
  4064.      Set GetInternetProfile = view.GetFirstDocument
  4065. End Function
  4066. Internet Profiles
  4067. Internet Options
  4068. WebServer
  4069.     0S0E
  4070. _Move to Folder...
  4071. Categori_zeo
  4072. _Edit Document
  4073. Send Docu_ment
  4074. Move Page to Folder... 
  4075.     0S0E
  4076. _Remove from Folder...
  4077. Open History Folder
  4078. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  4079. '++LotusScript Development Environment:2:5:(Forward):0:1
  4080. Declare Sub Click(Source As Button)
  4081. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4082. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4083. Private Sub BindEvents(Byval Objectname_ As String)
  4084.      Static Source As BUTTON
  4085.      Set Source = Bind(Objectname_)
  4086.      On Event Click From Source Call Click
  4087. End Sub
  4088. '++LotusScript Development Environment:2:2:Click:1:12
  4089. Sub Click(Source As Button)
  4090.      
  4091.      Dim iret As Integer
  4092.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  4093. End Sub
  4094.     0S0E
  4095. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  4096. '++LotusScript Development Environment:2:5:(Forward):0:1
  4097. Declare Sub Click(Source As Button)
  4098. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4099. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4100. Private Sub BindEvents(Byval Objectname_ As String)
  4101.      Static Source As BUTTON
  4102.      Set Source = Bind(Objectname_)
  4103.      On Event Click From Source Call Click
  4104. End Sub
  4105. '++LotusScript Development Environment:2:2:Click:1:12
  4106. Sub Click(Source As Button)
  4107.      
  4108.      Dim docLocal As NotesDocument
  4109.      Dim docCollection As NotesDocumentCollection     
  4110.      Set docCollection = db.UnprocessedDocuments
  4111.      If (docCollection.Count = 0) Then
  4112.           Msgbox "You must select a document.",16,"Error"
  4113.           Exit Sub
  4114.      Else
  4115.           For j = 1 To docCollection.Count
  4116.                Set docLocal = docCollection.getnthdocument(j)               
  4117.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  4118.                     Select Case docLocal.ForwardOptions(0)
  4119.                     Case "1" : 'user wants to forward the URL only
  4120.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  4121.                     Case "2" : 'user wants to send entire page
  4122.                          Call  ViewForward(docLocal)
  4123.                     End Select
  4124.           'remove any remaining fields that don't need to be carried around
  4125.                     docLocal.RemoveItem "ForwardOptions" 
  4126.                     docLocal.save True, False
  4127.                     
  4128.                End If
  4129.                Exit Sub
  4130.           Next
  4131.      End If
  4132.      Exit Sub
  4133. End Sub
  4134. Reduce to Bookmarkp
  4135. title
  4136. Favorites
  4137.     0S0E
  4138. (RemoveObjects)
  4139.     0S0E
  4140.     0S0E
  4141.     0S0E
  4142.     0S0E
  4143. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  4144. '++LotusScript Development Environment:2:5:(Forward):0:1
  4145. Declare Sub Click(Source As Button)
  4146. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4147. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4148. Private Sub BindEvents(Byval Objectname_ As String)
  4149.      Static Source As BUTTON
  4150.      Set Source = Bind(Objectname_)
  4151.      On Event Click From Source Call Click
  4152. End Sub
  4153. '++LotusScript Development Environment:2:2:Click:1:12
  4154. Sub Click(Source As Button)
  4155.      
  4156.      Browse
  4157. End Sub
  4158. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  4159. '++LotusScript Development Environment:2:5:(Forward):0:1
  4160. Declare Sub Click(Source As Button)
  4161. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4162. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4163. Private Sub BindEvents(Byval Objectname_ As String)
  4164.      Static Source As BUTTON
  4165.      Set Source = Bind(Objectname_)
  4166.      On Event Click From Source Call Click
  4167. End Sub
  4168. '++LotusScript Development Environment:2:2:Click:1:12
  4169. Sub Click(Source As Button)
  4170.      
  4171.      viewdelete
  4172.      
  4173. End Sub
  4174. _Reload (
  4175.     0S0E
  4176.     0S0E
  4177. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  4178. '++LotusScript Development Environment:2:5:(Forward):0:1
  4179. Declare Sub Click(Source As Button)
  4180. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4181. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4182. Private Sub BindEvents(Byval Objectname_ As String)
  4183.      Static Source As BUTTON
  4184.      Set Source = Bind(Objectname_)
  4185.      On Event Click From Source Call Click
  4186. End Sub
  4187. '++LotusScript Development Environment:2:2:Click:1:12
  4188. Sub Click(Source As Button)
  4189.      
  4190.      PrintWebDocument
  4191. End Sub
  4192. _Searchv'++LotusScript Development Environment:2:5:(Options):0:66
  4193. '++LotusScript Development Environment:2:5:(Forward):0:1
  4194. Declare Sub Click(Source As Button)
  4195. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4196. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4197. Private Sub BindEvents(Byval Objectname_ As String)
  4198.      Static Source As BUTTON
  4199.      Set Source = Bind(Objectname_)
  4200.      On Event Click From Source Call Click
  4201. End Sub
  4202. '++LotusScript Development Environment:2:2:Click:1:12
  4203. Sub Click(Source As Button)
  4204.      
  4205.      Dim docLocal As NotesDocument
  4206.      Dim browserobject As Variant
  4207.      Dim objectitem As notesrichtextitem
  4208.      
  4209.      Dim docCollection As NotesDocumentCollection     
  4210.      Set docCollection = db.UnprocessedDocuments
  4211.      If (docCollection.Count = 0) Then
  4212.           Msgbox "You must select a document.",16,"Error"
  4213.           Exit Sub
  4214.      End If
  4215.      Set docLocal = docCollection.GetFirstDocument
  4216.      If docLocal.Form(0) = "WebBrowserForm" Then
  4217.           Set objectitem = docLocal.getfirstitem("Browser")
  4218.           browserobject = objectitem.getembeddedobject("Browser")
  4219.           IESearch(browserobject)
  4220.      Else
  4221.           OpenSearchSite docLocal
  4222.      End If
  4223.      
  4224. End Sub
  4225. _Forward    
  4226. Sh_are...
  4227. '++LotusScript Development Environment:2:5:(Options):0:66
  4228. '++LotusScript Development Environment:2:5:(Forward):0:1
  4229. Declare Sub Click(Source As Button)
  4230. Declare Function GetInternetProfile
  4231. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4232. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4233. Private Sub BindEvents(Byval Objectname_ As String)
  4234.      Static Source As BUTTON
  4235.      Set Source = Bind(Objectname_)
  4236.      On Event Click From Source Call Click
  4237. End Sub
  4238. '++LotusScript Development Environment:2:2:Click:1:12
  4239. Sub Click(Source As Button)
  4240.      
  4241.      Dim docLocal As NotesDocument
  4242.      Dim webdoc As notesdocument
  4243.      Dim docCollection As NotesDocumentCollection     
  4244.      Set docCollection = db.UnprocessedDocuments
  4245.      If (docCollection.Count = 0) Then
  4246.           Msgbox "You must select a document.",16,"Error"
  4247.           Exit Sub
  4248.      End If
  4249.      Set docLocal = docCollection.GetFirstDocument
  4250.      If docLocal.hasitem("URL") Then
  4251.           docLocal.tmpWebServer  = docProfile.WebServer
  4252.           docLocal.tmpWebDb = docProfile.WebDatabase
  4253.           docLocal.Save True, True
  4254.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  4255.                docLocal.Save True, True
  4256.                Select Case docLocal.SharedOptions(0)
  4257.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  4258.                Case "2" : 'user wants to copy this to the shared web database
  4259.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4260.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  4261.                     Else
  4262.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  4263.                     End If
  4264.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  4265.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4266.                          CreateRatingDocument docLocal, browserobject.locationurl, browserobject.Locationname
  4267.                     Else
  4268.                          CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
  4269.                     End If
  4270.                End Select
  4271.           'remove any remaining fields that don't need to be carried around
  4272.                docLocal.removeItem "ForwardTo"
  4273.                docLocal.RemoveItem "SharedOptions" 
  4274.                docLocal.RemoveItem "Rating"
  4275.                docLocal.removeItem "Content"
  4276.                docLocal.removeItem "Comments"
  4277.           End If     
  4278.           docLocal.RemoveItem "tmpWebServer"
  4279.           docLocal.RemoveItem "tmpWebDb"
  4280.           docLocal.Save True, True
  4281.      Else
  4282.           Msgbox "This document does not contain a URL."
  4283.      End If
  4284. End Sub
  4285. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  4286. Function GetInternetProfile
  4287.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  4288.      Set view = db.getView("(Internet Profile)")
  4289.      Set GetInternetProfile = view.GetFirstDocument
  4290. End Function
  4291. Internet Profiles
  4292. Internet Options
  4293. WebServer
  4294.     0S0E
  4295. _Move to Folder...
  4296. Categori_ze
  4297. _Edit Document
  4298. Send Docu_ment
  4299. Move Page to Folder... 
  4300.     0S0E
  4301. _Remove from Folder...
  4302. Open History Folder
  4303. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  4304. '++LotusScript Development Environment:2:5:(Forward):0:1
  4305. Declare Sub Click(Source As Button)
  4306. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4307. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4308. Private Sub BindEvents(Byval Objectname_ As String)
  4309.      Static Source As BUTTON
  4310.      Set Source = Bind(Objectname_)
  4311.      On Event Click From Source Call Click
  4312. End Sub
  4313. '++LotusScript Development Environment:2:2:Click:1:12
  4314. Sub Click(Source As Button)
  4315.      
  4316.      Dim iret As Integer
  4317.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  4318. End Sub
  4319.     0S0E
  4320. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  4321. '++LotusScript Development Environment:2:5:(Forward):0:1
  4322. Declare Sub Click(Source As Button)
  4323. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4324. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4325. Private Sub BindEvents(Byval Objectname_ As String)
  4326.      Static Source As BUTTON
  4327.      Set Source = Bind(Objectname_)
  4328.      On Event Click From Source Call Click
  4329. End Sub
  4330. '++LotusScript Development Environment:2:2:Click:1:12
  4331. Sub Click(Source As Button)
  4332.      
  4333.      Dim docLocal As NotesDocument
  4334.      Dim docCollection As NotesDocumentCollection     
  4335.      Set docCollection = db.UnprocessedDocuments
  4336.      If (docCollection.Count = 0) Then
  4337.           Msgbox "You must select a document.",16,"Error"
  4338.           Exit Sub
  4339.      Else
  4340.           For j = 1 To docCollection.Count
  4341.                Set docLocal = docCollection.getnthdocument(j)               
  4342.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  4343.                     Select Case docLocal.ForwardOptions(0)
  4344.                     Case "1" : 'user wants to forward the URL only
  4345.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  4346.                     Case "2" : 'user wants to send entire page
  4347.                          Call  ViewForward(docLocal)
  4348.                     End Select
  4349.           'remove any remaining fields that don't need to be carried around
  4350.                     docLocal.RemoveItem "ForwardOptions" 
  4351.                     docLocal.save True, False
  4352.                     
  4353.                End If
  4354.                Exit Sub
  4355.           Next
  4356.      End If
  4357.      Exit Sub
  4358. End Sub
  4359. Reduce to Bookmarkp
  4360. title
  4361. Favorites
  4362.     0S0E
  4363. (RemoveObjects)
  4364. '++LotusScript Development Environment:2:5:(Options):0:74
  4365. Option Public
  4366. Use "InternetFunctions"
  4367. '++LotusScript Development Environment:2:5:(Forward):0:1
  4368. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4369. '++LotusScript Development Environment:2:5:(Options):0:66
  4370. '++LotusScript Development Environment:2:5:(Forward):0:1
  4371. Declare Sub Postopen(Source As Notesuiview)
  4372. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  4373. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4374. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4375. Private Sub BindEvents(Byval Objectname_ As String)
  4376.      Static Source As NOTESUIVIEW
  4377.      Set Source = Bind(Objectname_)
  4378.      On Event Postopen From Source Call Postopen
  4379.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  4380. End Sub
  4381. '++LotusScript Development Environment:2:2:Postopen:1:12
  4382. Sub Postopen(Source As Notesuiview)
  4383.      InstantiateObjects
  4384. End Sub
  4385. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  4386. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  4387.      Call MoveToFolder(source,target,continue)
  4388. End Sub
  4389. O=Lotus Notes
  4390. O=Lotus Notes
  4391. PURSAFO
  4392. |.:#U
  4393. O=Lotus Notes
  4394. CN=Lotus Notes Template Development/O=Lotus Notes
  4395. PURSAFO
  4396. |<Y&WQ~i
  4397. $SCRIPTOBJ_22
  4398. $SCRIPTOBJ_20
  4399. $SCRIPTOBJ_21
  4400. $TITLE
  4401. $Index
  4402. $Formula
  4403. $FormulaClass
  4404. $VIEWFORMAT
  4405. $FormFormula
  4406. $Comment
  4407. $V5ACTIONS
  4408. $ACTIONS
  4409. $SCRIPTOBJ_2
  4410. $SCRIPTOBJ_3
  4411. $SCRIPTOBJ_6
  4412. $SCRIPTOBJ_7
  4413. $SCRIPTOBJ_9
  4414. $SCRIPTOBJ_17
  4415. $SCRIPTOBJ_18
  4416. $ViewGlobalScript
  4417. $ViewGlobalScript_O
  4418. $ViewScript
  4419. $ViewScript_O
  4420. O=Lotus Notes
  4421. O=Lotus Notes
  4422. PURSAFO
  4423. |.:#U
  4424. O=Lotus Notes
  4425. CN=Lotus Notes Template Development/O=Lotus Notes
  4426. PURSAFO
  4427. sZ%!ZM}
  4428. $Flags
  4429. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  4430. '++LotusScript Development Environment:2:5:(Forward):0:1
  4431. Declare Sub Click(Source As Button)
  4432. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4433. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4434. Private Sub BindEvents(Byval Objectname_ As String)
  4435.      Static Source As BUTTON
  4436.      Set Source = Bind(Objectname_)
  4437.      On Event Click From Source Call Click
  4438. End Sub
  4439. '++LotusScript Development Environment:2:2:Click:1:12
  4440. Sub Click(Source As Button)
  4441.      Browse
  4442. End Sub
  4443. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  4444. '++LotusScript Development Environment:2:5:(Forward):0:1
  4445. Declare Sub Click(Source As Button)
  4446. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4447. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4448. Private Sub BindEvents(Byval Objectname_ As String)
  4449.      Static Source As BUTTON
  4450.      Set Source = Bind(Objectname_)
  4451.      On Event Click From Source Call Click
  4452. End Sub
  4453. '++LotusScript Development Environment:2:2:Click:1:12
  4454. Sub Click(Source As Button)
  4455.      ViewDelete
  4456. End Sub
  4457. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  4458. '++LotusScript Development Environment:2:5:(Forward):0:1
  4459. Declare Sub Click(Source As Button)
  4460. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4461. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4462. Private Sub BindEvents(Byval Objectname_ As String)
  4463.      Static Source As BUTTON
  4464.      Set Source = Bind(Objectname_)
  4465.      On Event Click From Source Call Click
  4466. End Sub
  4467. '++LotusScript Development Environment:2:2:Click:1:12
  4468. Sub Click(Source As Button)
  4469.      PrintWebDocument
  4470. End Sub
  4471. _Forward
  4472. Sh_are...r'++LotusScript Development Environment:2:5:(Options):0:66
  4473. '++LotusScript Development Environment:2:5:(Forward):0:1
  4474. Declare Sub Click(Source As Button)
  4475. Declare Function GetInternetProfile
  4476. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4477. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4478. Private Sub BindEvents(Byval Objectname_ As String)
  4479.      Static Source As BUTTON
  4480.      Set Source = Bind(Objectname_)
  4481.      On Event Click From Source Call Click
  4482. End Sub
  4483. '++LotusScript Development Environment:2:2:Click:1:12
  4484. Sub Click(Source As Button)
  4485.      
  4486.      Dim docLocal As NotesDocument
  4487.      Dim webdoc As notesdocument
  4488.      Dim docCollection As NotesDocumentCollection   
  4489.      
  4490.      Set docCollection = db.UnprocessedDocuments
  4491.      If (docCollection.Count = 0) Then
  4492.           Msgbox "You must select a document.",16,"Error"
  4493.           Exit Sub
  4494.      End If
  4495.      Set docLocal = docCollection.GetFirstDocument
  4496.      If docLocal.hasitem("URL") Then 
  4497.           docLocal.tmpWebServer  = docProfile.WebServer
  4498.           docLocal.tmpWebDb = docProfile.WebDatabase
  4499.           docLocal.Save True, True
  4500.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  4501.                docLocal.Save True, True
  4502.                Select Case docLocal.SharedOptions(0)
  4503.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  4504.                Case "2" : 'user wants to copy this to the shared web database
  4505.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4506.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  4507.                     Else
  4508.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  4509.                     End If
  4510.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  4511.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4512.                          CreateRatingDocument docLocal, browserobject.locationurl, browserobject.locationname
  4513.                     Else
  4514.                          CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
  4515.                     End If
  4516.                End Select
  4517.           'remove any remaining fields that don't need to be carried around
  4518.                docLocal.removeItem "ForwardTo"
  4519.                docLocal.RemoveItem "SharedOptions" 
  4520.                docLocal.RemoveItem "Rating"
  4521.                docLocal.removeItem "Content"
  4522.                docLocal.removeItem "Comments"
  4523.           End If     
  4524.           docLocal.RemoveItem "tmpWebServer"
  4525.           docLocal.RemoveItem "tmpWebDb"
  4526.           docLocal.Save True, True
  4527.      Else
  4528.           Msgbox "This document does not contain a URL."
  4529.      End If
  4530. End Sub
  4531. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  4532. Function GetInternetProfile
  4533.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  4534.      Set view = db.getView("(Internet Profile)")
  4535.      Set GetInternetProfile = view.GetFirstDocument
  4536. End Function
  4537. Internet Profiles
  4538. Internet Options
  4539. WebServer
  4540.     0S0E
  4541. Categori_ze
  4542. _Edit Document
  4543. Send Docu_ment
  4544. _Move to Folder...    
  4545. Move Page to Folder... 
  4546.     0S0E
  4547. _Remove from Folder...
  4548. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  4549. '++LotusScript Development Environment:2:5:(Forward):0:1
  4550. Declare Sub Click(Source As Button)
  4551. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4552. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4553. Private Sub BindEvents(Byval Objectname_ As String)
  4554.      Static Source As BUTTON
  4555.      Set Source = Bind(Objectname_)
  4556.      On Event Click From Source Call Click
  4557. End Sub
  4558. '++LotusScript Development Environment:2:2:Click:1:12
  4559. Sub Click(Source As Button)
  4560.      
  4561.      Dim docLocal As NotesDocument
  4562.      Dim docCollection As NotesDocumentCollection     
  4563.      Set docCollection = db.UnprocessedDocuments
  4564.      If (docCollection.Count = 0) Then
  4565.           Msgbox "You must select a document.",16,"Error"
  4566.           Exit Sub
  4567.      Else
  4568.           For j = 1 To docCollection.Count
  4569.                Set docLocal = docCollection.getnthdocument(j)               
  4570.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  4571.                     Select Case docLocal.ForwardOptions(0)
  4572.                     Case "1" : 'user wants to forward the URL only
  4573.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  4574.                     Case "2" : 'user wants to send entire page
  4575.                          Call  ViewForward(docLocal)
  4576.                     End Select
  4577.           'remove any remaining fields that don't need to be carried around
  4578.                     docLocal.RemoveItem "ForwardOptions" 
  4579.                     docLocal.save True, False
  4580.                     
  4581.                End If
  4582.                Exit Sub
  4583.           Next
  4584.      End If
  4585.      Exit Sub
  4586. End Sub
  4587. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  4588. '++LotusScript Development Environment:2:5:(Forward):0:1
  4589. Declare Sub Click(Source As Button)
  4590. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4591. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4592. Private Sub BindEvents(Byval Objectname_ As String)
  4593.      Static Source As BUTTON
  4594.      Set Source = Bind(Objectname_)
  4595.      On Event Click From Source Call Click
  4596. End Sub
  4597. '++LotusScript Development Environment:2:2:Click:1:12
  4598. Sub Click(Source As Button)
  4599.      Browse
  4600. End Sub
  4601. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  4602. '++LotusScript Development Environment:2:5:(Forward):0:1
  4603. Declare Sub Click(Source As Button)
  4604. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4605. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4606. Private Sub BindEvents(Byval Objectname_ As String)
  4607.      Static Source As BUTTON
  4608.      Set Source = Bind(Objectname_)
  4609.      On Event Click From Source Call Click
  4610. End Sub
  4611. '++LotusScript Development Environment:2:2:Click:1:12
  4612. Sub Click(Source As Button)
  4613.      ViewDelete
  4614. End Sub
  4615. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  4616. '++LotusScript Development Environment:2:5:(Forward):0:1
  4617. Declare Sub Click(Source As Button)
  4618. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4619. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4620. Private Sub BindEvents(Byval Objectname_ As String)
  4621.      Static Source As BUTTON
  4622.      Set Source = Bind(Objectname_)
  4623.      On Event Click From Source Call Click
  4624. End Sub
  4625. '++LotusScript Development Environment:2:2:Click:1:12
  4626. Sub Click(Source As Button)
  4627.      PrintWebDocument
  4628. End Sub
  4629. _Forward
  4630. Sh_are...
  4631. '++LotusScript Development Environment:2:5:(Options):0:66
  4632. '++LotusScript Development Environment:2:5:(Forward):0:1
  4633. Declare Sub Click(Source As Button)
  4634. Declare Function GetInternetProfile
  4635. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4636. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4637. Private Sub BindEvents(Byval Objectname_ As String)
  4638.      Static Source As BUTTON
  4639.      Set Source = Bind(Objectname_)
  4640.      On Event Click From Source Call Click
  4641. End Sub
  4642. '++LotusScript Development Environment:2:2:Click:1:12
  4643. Sub Click(Source As Button)
  4644.      
  4645.      Dim docLocal As NotesDocument
  4646.      Dim webdoc As notesdocument
  4647.      Dim docCollection As NotesDocumentCollection   
  4648.      
  4649.      Set docCollection = db.UnprocessedDocuments
  4650.      If (docCollection.Count = 0) Then
  4651.           Msgbox "You must select a document.",16,"Error"
  4652.           Exit Sub
  4653.      End If
  4654.      Set docLocal = docCollection.GetFirstDocument
  4655.      If docLocal.hasitem("URL") Then 
  4656.           docLocal.tmpWebServer  = docProfile.WebServer
  4657.           docLocal.tmpWebDb = docProfile.WebDatabase
  4658.           docLocal.Save True, True
  4659.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  4660.                docLocal.Save True, True
  4661.                Select Case docLocal.SharedOptions(0)
  4662.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  4663.                Case "2" : 'user wants to copy this to the shared web database
  4664.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4665.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  4666.                     Else
  4667.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  4668.                     End If
  4669.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  4670.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4671.                          CreateRatingDocument docLocal, browserobject.locationurl, browserobject.locationname
  4672.                     Else
  4673.                          CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
  4674.                     End If
  4675.                End Select
  4676.           'remove any remaining fields that don't need to be carried around
  4677.                docLocal.removeItem "ForwardTo"
  4678.                docLocal.RemoveItem "SharedOptions" 
  4679.                docLocal.RemoveItem "Rating"
  4680.                docLocal.removeItem "Content"
  4681.                docLocal.removeItem "Comments"
  4682.           End If     
  4683.           docLocal.RemoveItem "tmpWebServer"
  4684.           docLocal.RemoveItem "tmpWebDb"
  4685.           docLocal.Save True, True
  4686.      Else
  4687.           Msgbox "This document does not contain a URL."
  4688.      End If
  4689. End Sub
  4690. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  4691. Function GetInternetProfile
  4692.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  4693.      Set view = db.getView("(Internet Profile)")
  4694.      Set GetInternetProfile = view.GetFirstDocument
  4695. End Function
  4696. Internet Profiles
  4697. Internet Options
  4698. WebServer
  4699.     0S0E
  4700. Categori_zee
  4701. _Edit Document
  4702. Send Docu_ment
  4703. _Move to Folder...    
  4704. Move Page to Folder... 
  4705.     0S0E
  4706. _Remove from Folder...
  4707. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  4708. '++LotusScript Development Environment:2:5:(Forward):0:1
  4709. Declare Sub Click(Source As Button)
  4710. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4711. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4712. Private Sub BindEvents(Byval Objectname_ As String)
  4713.      Static Source As BUTTON
  4714.      Set Source = Bind(Objectname_)
  4715.      On Event Click From Source Call Click
  4716. End Sub
  4717. '++LotusScript Development Environment:2:2:Click:1:12
  4718. Sub Click(Source As Button)
  4719.      
  4720.      Dim docLocal As NotesDocument
  4721.      Dim docCollection As NotesDocumentCollection     
  4722.      Set docCollection = db.UnprocessedDocuments
  4723.      If (docCollection.Count = 0) Then
  4724.           Msgbox "You must select a document.",16,"Error"
  4725.           Exit Sub
  4726.      Else
  4727.           For j = 1 To docCollection.Count
  4728.                Set docLocal = docCollection.getnthdocument(j)               
  4729.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  4730.                     Select Case docLocal.ForwardOptions(0)
  4731.                     Case "1" : 'user wants to forward the URL only
  4732.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  4733.                     Case "2" : 'user wants to send entire page
  4734.                          Call  ViewForward(docLocal)
  4735.                     End Select
  4736.           'remove any remaining fields that don't need to be carried around
  4737.                     docLocal.RemoveItem "ForwardOptions" 
  4738.                     docLocal.save True, False
  4739.                     
  4740.                End If
  4741.                Exit Sub
  4742.           Next
  4743.      End If
  4744.      Exit Sub
  4745. End Sub
  4746. '++LotusScript Development Environment:2:5:(Options):0:74
  4747. Option Public
  4748. Use "InternetFunctions"
  4749. '++LotusScript Development Environment:2:5:(Forward):0:1
  4750. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4751. '++LotusScript Development Environment:2:5:(Options):0:66
  4752. '++LotusScript Development Environment:2:5:(Forward):0:1
  4753. Declare Sub Postopen(Source As Notesuiview)
  4754. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  4755. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4756. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4757. Private Sub BindEvents(Byval Objectname_ As String)
  4758.      Static Source As NOTESUIVIEW
  4759.      Set Source = Bind(Objectname_)
  4760.      On Event Postopen From Source Call Postopen
  4761.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  4762. End Sub
  4763. '++LotusScript Development Environment:2:2:Postopen:1:12
  4764. Sub Postopen(Source As Notesuiview)
  4765.      InstantiateObjects
  4766. End Sub
  4767. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  4768. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  4769.      Call MoveToFolder(source,target,continue)
  4770. End Sub
  4771. O=Lotus Notes
  4772. O=Lotus Notes
  4773. PURSAFO
  4774. |.:#U
  4775. O=Lotus Notes
  4776. CN=Lotus Notes Template Development/O=Lotus Notes
  4777. PURSAFO
  4778. f;jEA&
  4779. $SCRIPTOBJ_14
  4780. $SCRIPTOBJ_12
  4781. $SCRIPTOBJ_13
  4782. $TITLE
  4783. $Name
  4784. $Index
  4785. $Formula
  4786. $FormulaClass
  4787. $VIEWFORMAT
  4788. $FormFormula
  4789. $Comment
  4790. $V5ACTIONS
  4791. $ACTIONS
  4792. $SCRIPTOBJ_0
  4793. $SCRIPTOBJ_1
  4794. $SCRIPTOBJ_2
  4795. $SCRIPTOBJ_4
  4796. $SCRIPTOBJ_11
  4797. $ViewGlobalScript
  4798. $ViewGlobalScript_O
  4799. $ViewScript
  4800. $ViewScript_O
  4801. Web Bots\Page Minder
  4802. >%!-eWv
  4803. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  4804. '++LotusScript Development Environment:2:5:(Forward):0:1
  4805. Declare Sub Click(Source As Button)
  4806. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4807. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4808. Private Sub BindEvents(Byval Objectname_ As String)
  4809.      Static Source As BUTTON
  4810.      Set Source = Bind(Objectname_)
  4811.      On Event Click From Source Call Click
  4812. End Sub
  4813. '++LotusScript Development Environment:2:2:Click:1:12
  4814. Sub Click(Source As Button)
  4815.      
  4816.      Browse
  4817. End Sub
  4818. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  4819. '++LotusScript Development Environment:2:5:(Forward):0:1
  4820. Declare Sub Click(Source As Button)
  4821. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4822. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4823. Private Sub BindEvents(Byval Objectname_ As String)
  4824.      Static Source As BUTTON
  4825.      Set Source = Bind(Objectname_)
  4826.      On Event Click From Source Call Click
  4827. End Sub
  4828. '++LotusScript Development Environment:2:2:Click:1:12
  4829. Sub Click(Source As Button)
  4830.      
  4831.      ViewDelete     
  4832. End Sub
  4833. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  4834. '++LotusScript Development Environment:2:5:(Forward):0:1
  4835. Declare Sub Click(Source As Button)
  4836. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4837. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4838. Private Sub BindEvents(Byval Objectname_ As String)
  4839.      Static Source As BUTTON
  4840.      Set Source = Bind(Objectname_)
  4841.      On Event Click From Source Call Click
  4842. End Sub
  4843. '++LotusScript Development Environment:2:2:Click:1:12
  4844. Sub Click(Source As Button)
  4845.      
  4846.      PrintWebDocument
  4847. End Sub
  4848. _Forward
  4849. Sh_are...1'++LotusScript Development Environment:2:5:(Options):0:66
  4850. '++LotusScript Development Environment:2:5:(Forward):0:1
  4851. Declare Sub Click(Source As Button)
  4852. Declare Function GetInternetProfile
  4853. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4854. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4855. Private Sub BindEvents(Byval Objectname_ As String)
  4856.      Static Source As BUTTON
  4857.      Set Source = Bind(Objectname_)
  4858.      On Event Click From Source Call Click
  4859. End Sub
  4860. '++LotusScript Development Environment:2:2:Click:1:12
  4861. Sub Click(Source As Button)
  4862.      
  4863.      Dim docLocal As NotesDocument
  4864.      Dim webdoc As notesdocument
  4865.      Dim docCollection As NotesDocumentCollection     
  4866.      Set docCollection = db.UnprocessedDocuments
  4867.      If (docCollection.Count = 0) Then
  4868.           Msgbox "You must select a document.",16,"Error"
  4869.           Exit Sub
  4870.      End If
  4871.      Set docLocal = docCollection.GetFirstDocument
  4872.      If docLocal.hasitem("URL") Then
  4873.           docLocal.tmpWebServer  = docProfile.WebServer
  4874.           docLocal.tmpWebDb = docProfile.WebDatabase
  4875.           docLocal.Save True, True
  4876.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  4877.                docLocal.Save True, True
  4878.                Select Case docLocal.SharedOptions(0)
  4879.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  4880.                Case "2" : 'user wants to copy this to the shared web database
  4881.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4882.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  4883.                     Else
  4884.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  4885.                     End If
  4886.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  4887.                     If docLocal.Form(0) = "WebBrowserForm" Then
  4888.                          CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
  4889.                     Else
  4890.                          CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
  4891.                     End If
  4892.                End Select
  4893.           'remove any remaining fields that don't need to be carried around
  4894.                docLocal.removeItem "ForwardTo"
  4895.                docLocal.RemoveItem "SharedOptions" 
  4896.                docLocal.RemoveItem "Rating"
  4897.                docLocal.removeItem "Content"
  4898.                docLocal.removeItem "Comments"
  4899.           End If     
  4900.           docLocal.RemoveItem "tmpWebServer"
  4901.           docLocal.RemoveItem "tmpWebDb"
  4902.           docLocal.Save True, True
  4903.      Else
  4904.           Msgbox "This document does not contain a URL."
  4905.      End If
  4906. End Sub
  4907. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  4908. Function GetInternetProfile
  4909.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  4910.      Set view = db.getView("(Internet Profile)")
  4911.      Set GetInternetProfile = view.GetFirstDocument
  4912. End Function
  4913. Internet Profiles
  4914. Internet Options
  4915. WebServer
  4916.     0S0E
  4917. Categori_ze
  4918. _Edit Document
  4919. Send Docu_ment
  4920. _Move to Folder...    
  4921. Move Page to Folder... 
  4922.     0S0E
  4923. _Remove from Folder...
  4924. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  4925. '++LotusScript Development Environment:2:5:(Forward):0:1
  4926. Declare Sub Click(Source As Button)
  4927. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4928. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4929. Private Sub BindEvents(Byval Objectname_ As String)
  4930.      Static Source As BUTTON
  4931.      Set Source = Bind(Objectname_)
  4932.      On Event Click From Source Call Click
  4933. End Sub
  4934. '++LotusScript Development Environment:2:2:Click:1:12
  4935. Sub Click(Source As Button)
  4936.      
  4937.      Dim docLocal As NotesDocument
  4938.      Dim docCollection As NotesDocumentCollection     
  4939.      Set docCollection = db.UnprocessedDocuments
  4940.      If (docCollection.Count = 0) Then
  4941.           Msgbox "You must select a document.",16,"Error"
  4942.           Exit Sub
  4943.      Else
  4944.           For j = 1 To docCollection.Count
  4945.                Set docLocal = docCollection.getnthdocument(j)               
  4946.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  4947.                     Select Case docLocal.ForwardOptions(0)
  4948.                     Case "1" : 'user wants to forward the URL only
  4949.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  4950.                     Case "2" : 'user wants to send entire page
  4951.                          Call  ViewForward(docLocal)
  4952.                     End Select
  4953.           'remove any remaining fields that don't need to be carried around
  4954.                     docLocal.RemoveItem "ForwardOptions" 
  4955.                     docLocal.save True, False
  4956.                     
  4957.                End If
  4958.                Exit Sub
  4959.           Next
  4960.      End If
  4961.      Exit Sub
  4962. End Sub
  4963. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  4964. '++LotusScript Development Environment:2:5:(Forward):0:1
  4965. Declare Sub Click(Source As Button)
  4966. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4967. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4968. Private Sub BindEvents(Byval Objectname_ As String)
  4969.      Static Source As BUTTON
  4970.      Set Source = Bind(Objectname_)
  4971.      On Event Click From Source Call Click
  4972. End Sub
  4973. '++LotusScript Development Environment:2:2:Click:1:12
  4974. Sub Click(Source As Button)
  4975.      
  4976.      Browse
  4977. End Sub
  4978. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  4979. '++LotusScript Development Environment:2:5:(Forward):0:1
  4980. Declare Sub Click(Source As Button)
  4981. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4982. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4983. Private Sub BindEvents(Byval Objectname_ As String)
  4984.      Static Source As BUTTON
  4985.      Set Source = Bind(Objectname_)
  4986.      On Event Click From Source Call Click
  4987. End Sub
  4988. '++LotusScript Development Environment:2:2:Click:1:12
  4989. Sub Click(Source As Button)
  4990.      
  4991.      ViewDelete     
  4992. End Sub
  4993. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  4994. '++LotusScript Development Environment:2:5:(Forward):0:1
  4995. Declare Sub Click(Source As Button)
  4996. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4997. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4998. Private Sub BindEvents(Byval Objectname_ As String)
  4999.      Static Source As BUTTON
  5000.      Set Source = Bind(Objectname_)
  5001.      On Event Click From Source Call Click
  5002. End Sub
  5003. '++LotusScript Development Environment:2:2:Click:1:12
  5004. Sub Click(Source As Button)
  5005.      
  5006.      PrintWebDocument
  5007. End Sub
  5008. _Forward
  5009. Sh_are...
  5010. '++LotusScript Development Environment:2:5:(Options):0:66
  5011. '++LotusScript Development Environment:2:5:(Forward):0:1
  5012. Declare Sub Click(Source As Button)
  5013. Declare Function GetInternetProfile
  5014. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5015. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5016. Private Sub BindEvents(Byval Objectname_ As String)
  5017.      Static Source As BUTTON
  5018.      Set Source = Bind(Objectname_)
  5019.      On Event Click From Source Call Click
  5020. End Sub
  5021. '++LotusScript Development Environment:2:2:Click:1:12
  5022. Sub Click(Source As Button)
  5023.      
  5024.      Dim docLocal As NotesDocument
  5025.      Dim webdoc As notesdocument
  5026.      Dim docCollection As NotesDocumentCollection     
  5027.      Set docCollection = db.UnprocessedDocuments
  5028.      If (docCollection.Count = 0) Then
  5029.           Msgbox "You must select a document.",16,"Error"
  5030.           Exit Sub
  5031.      End If
  5032.      Set docLocal = docCollection.GetFirstDocument
  5033.      If docLocal.hasitem("URL") Then
  5034.           docLocal.tmpWebServer  = docProfile.WebServer
  5035.           docLocal.tmpWebDb = docProfile.WebDatabase
  5036.           docLocal.Save True, True
  5037.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  5038.                docLocal.Save True, True
  5039.                Select Case docLocal.SharedOptions(0)
  5040.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  5041.                Case "2" : 'user wants to copy this to the shared web database
  5042.                     If docLocal.Form(0) = "WebBrowserForm" Then
  5043.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  5044.                     Else
  5045.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  5046.                     End If
  5047.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  5048.                     If docLocal.Form(0) = "WebBrowserForm" Then
  5049.                          CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
  5050.                     Else
  5051.                          CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
  5052.                     End If
  5053.                End Select
  5054.           'remove any remaining fields that don't need to be carried around
  5055.                docLocal.removeItem "ForwardTo"
  5056.                docLocal.RemoveItem "SharedOptions" 
  5057.                docLocal.RemoveItem "Rating"
  5058.                docLocal.removeItem "Content"
  5059.                docLocal.removeItem "Comments"
  5060.           End If     
  5061.           docLocal.RemoveItem "tmpWebServer"
  5062.           docLocal.RemoveItem "tmpWebDb"
  5063.           docLocal.Save True, True
  5064.      Else
  5065.           Msgbox "This document does not contain a URL."
  5066.      End If
  5067. End Sub
  5068. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  5069. Function GetInternetProfile
  5070.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  5071.      Set view = db.getView("(Internet Profile)")
  5072.      Set GetInternetProfile = view.GetFirstDocument
  5073. End Function
  5074. Internet Profiles
  5075. Internet Options
  5076. WebServer
  5077.     0S0E
  5078. Categori_zen
  5079. _Edit Document
  5080. Send Docu_ment
  5081. _Move to Folder...    
  5082. Move Page to Folder... 
  5083.     0S0E
  5084. _Remove from Folder...
  5085. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  5086. '++LotusScript Development Environment:2:5:(Forward):0:1
  5087. Declare Sub Click(Source As Button)
  5088. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5089. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5090. Private Sub BindEvents(Byval Objectname_ As String)
  5091.      Static Source As BUTTON
  5092.      Set Source = Bind(Objectname_)
  5093.      On Event Click From Source Call Click
  5094. End Sub
  5095. '++LotusScript Development Environment:2:2:Click:1:12
  5096. Sub Click(Source As Button)
  5097.      
  5098.      Dim docLocal As NotesDocument
  5099.      Dim docCollection As NotesDocumentCollection     
  5100.      Set docCollection = db.UnprocessedDocuments
  5101.      If (docCollection.Count = 0) Then
  5102.           Msgbox "You must select a document.",16,"Error"
  5103.           Exit Sub
  5104.      Else
  5105.           For j = 1 To docCollection.Count
  5106.                Set docLocal = docCollection.getnthdocument(j)               
  5107.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  5108.                     Select Case docLocal.ForwardOptions(0)
  5109.                     Case "1" : 'user wants to forward the URL only
  5110.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  5111.                     Case "2" : 'user wants to send entire page
  5112.                          Call  ViewForward(docLocal)
  5113.                     End Select
  5114.           'remove any remaining fields that don't need to be carried around
  5115.                     docLocal.RemoveItem "ForwardOptions" 
  5116.                     docLocal.save True, False
  5117.                     
  5118.                End If
  5119.                Exit Sub
  5120.           Next
  5121.      End If
  5122.      Exit Sub
  5123. End Sub
  5124. '++LotusScript Development Environment:2:5:(Options):0:74
  5125. Option Public
  5126. Use "InternetFunctions"
  5127. '++LotusScript Development Environment:2:5:(Forward):0:1
  5128. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5129. '++LotusScript Development Environment:2:5:(Options):0:66
  5130. '++LotusScript Development Environment:2:5:(Forward):0:1
  5131. Declare Sub Postopen(Source As Notesuiview)
  5132. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  5133. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5134. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5135. Private Sub BindEvents(Byval Objectname_ As String)
  5136.      Static Source As NOTESUIVIEW
  5137.      Set Source = Bind(Objectname_)
  5138.      On Event Postopen From Source Call Postopen
  5139.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  5140. End Sub
  5141. '++LotusScript Development Environment:2:2:Postopen:1:12
  5142. Sub Postopen(Source As Notesuiview)
  5143.      InstantiateObjects
  5144. End Sub
  5145. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  5146. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  5147.      Call MoveToFolder(source,target,continue)
  5148. End Sub
  5149. O=Lotus Notes
  5150. O=Lotus Notes
  5151. PURSAFO
  5152. |.:#U
  5153. O=Lotus Notes
  5154. CN=Lotus Notes Template Development/O=Lotus Notes
  5155. PURSAFO
  5156. kl)4z
  5157. $SCRIPTOBJ_14
  5158. $SCRIPTOBJ_12
  5159. $SCRIPTOBJ_13
  5160. $TITLE
  5161. $Name
  5162. $Index
  5163. $Formula
  5164. $FormulaClass
  5165. $VIEWFORMAT
  5166. $FormFormula
  5167. $Comment
  5168. $V5ACTIONS
  5169. $ACTIONS
  5170. $SCRIPTOBJ_0
  5171. $SCRIPTOBJ_1
  5172. $SCRIPTOBJ_2
  5173. $SCRIPTOBJ_4
  5174. $SCRIPTOBJ_11
  5175. $ViewGlobalScript
  5176. $ViewGlobalScript_O
  5177. $ViewScript
  5178. $ViewScript_O
  5179. Web Bots\Web Ahead
  5180. HelpForm
  5181. Title
  5182. O=Lotus Notes
  5183. O=Lotus Notes
  5184. PURSAFO
  5185. |.:#U
  5186. O=Lotus Notes
  5187. CN=Lotus Notes Template Development/O=Lotus Notes
  5188. PURSAFO
  5189. P    N>;
  5190. $TITLE
  5191. $INFO
  5192. $$ScriptName
  5193. $BODY
  5194. '++LotusScript Development Environment:2:5:(Options):0:74
  5195. Option Base 1
  5196. Use "AgentFunctions"
  5197. '++LotusScript Development Environment:2:5:(Forward):0:1
  5198. Declare Sub Initialize
  5199. Declare Sub WormThePage(URLToWorm As Variant)
  5200. Declare Sub ProcessURLField
  5201. Declare Sub RetrievePages(y As Integer)
  5202. Declare Sub CheckPage(urltocheck As String, y As Integer)
  5203. Declare Function OKToRetrieve(checkurl As String, ArraySizeOK As Integer) As Integer
  5204. Declare Function OKToGetPerRobots( url As Variant ) As Integer
  5205. Declare Sub FetchRobotsFile(url As Variant, currentdomain As String)
  5206. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5207. Dim LevelsToWorm As Variant
  5208. Dim WebAheadAuthentication As Variant
  5209. Dim PageToCrawl As notesdocument
  5210. Dim NextPageToCrawl As notesdocument
  5211. Dim URLTextList() As String
  5212. Dim URLListIndex As Integer
  5213. Dim pages_to_worm () As String          'list of pages that links need to be retrieved from
  5214. Dim ptw As Integer  
  5215. Dim next_pages_to_worm () As String    'list of pages to retrieve in the next level pass
  5216. Dim nptw As Integer                              
  5217. Dim pages_retrieved ()As String            'list of pages that have already been retrieved for this session
  5218. Dim pr As Integer                                  
  5219. Dim pages_wormed () As String            'list of pages that have already been processed in this session
  5220. Dim pw As Integer  
  5221. Dim CurrentPageRetrieved As notesdocument
  5222. Dim ArraySizeOK As Integer
  5223. Dim WebAheadAgent As notesagent
  5224. '++LotusScript Development Environment:2:2:Initialize:1:10
  5225. Sub Initialize
  5226.      
  5227.      '*
  5228.      '*  Initialize  Variables and declare local variables
  5229.      '*
  5230.      
  5231.      Dim InterNetProfile As Notesdocument
  5232.      Dim ProfileView As notesview
  5233.      Dim WebAheadFolder As notesview
  5234.      Dim URL As Variant
  5235.      
  5236.      '*
  5237.      '*  Initialize Variables
  5238.      '*
  5239.      ArraySizeOK = True
  5240.      pw=1
  5241.      nptw=1
  5242.      pr=1
  5243.      ptw=1
  5244.      Redim pages_to_worm(ptw)
  5245.      Redim Next_Pages_to_worm(nptw)
  5246.      Redim pages_retrieved(pr)
  5247.      Redim pages_wormed(pw)
  5248.      InstantiateAgentObjects 
  5249.      Set WebDatabase = Session.CurrentDatabase
  5250.      Set WebAheadAgent = Session.currentagent
  5251.      
  5252.       '*
  5253.      '*  Open/Create the Agent Error Log on the client.
  5254.      '*
  5255.      
  5256.      Set AgentLog = OpenLog(WebAheadAgent.name)
  5257.      
  5258.      If LogLocation = "Agent Log" Then agentLog.LogErrors = True
  5259.      
  5260.      Call logaction( "Starting Web Ahead agent.....")
  5261.      
  5262.      
  5263.      '*
  5264.      '*  First check to see if the current location settings are set for local retrievals.
  5265.      '*
  5266.      
  5267.      If WebLocationOK Then
  5268.           
  5269.           If Not ( WebDatabase Is Nothing) Then
  5270.                Set datadoc = Session.SavedData
  5271.                
  5272.                If (DataDoc Is Nothing) Then
  5273.                     Set DataDoc = New Notesdocument (WebDatabase) 
  5274.                End If
  5275.           Else
  5276.                Call  logerror(1, "Unable to open Web Database.")
  5277.                Goto cleanup
  5278.           End If
  5279.           
  5280.           If View Is Nothing Then
  5281.                Call logerror(4, "Profile View does not exist.  Please replace the design of " +WebDatabase.Title+" with Personal Web Navigator 4.6 template.")
  5282.                Goto cleanup
  5283.           End If
  5284.           
  5285.           
  5286.           If docProfile Is Nothing Then
  5287.                Call logerror(4, "No profile document, please select Actions - Internet Options and save the document. ")
  5288.                Goto cleanup
  5289.           End If
  5290.           
  5291.      '*
  5292.      '*  Retrieving pertinent values from the
  5293.      '*  Internet Profile.
  5294.      '*
  5295.           
  5296.           LevelsToWorm = docProfile.ScanAhead
  5297.           If LevelsToWorm(0) = "" Then
  5298.                'Number of levels to Web Ahead not specified, assuming 1.
  5299.                LevelsToWorm(0) = "1"
  5300.           End If
  5301.           
  5302.      '*
  5303.      '*  The following lines instantiate the WebAhead folder and 
  5304.      '*  perform the worming of the pages.
  5305.      '*
  5306.           
  5307.           Set WebAheadFolder = WebDatabase.GetView("Web Bots\Web Ahead")
  5308.           
  5309.           If (WebAheadFolder Is Nothing) Then
  5310.                Call logerror(2, "Could not find Web Ahead Folder.  Please replace the design of " +WebDatabase.Title+" with Personal Web Navigator 4.5 and rerun the Web Ahead agent.")
  5311.                Goto cleanup
  5312.           End If
  5313.           
  5314.           Set PageToCrawl = WebAheadFolder.GetfirstDocument
  5315.           
  5316.           If (PageToCrawl Is Nothing) Then
  5317.                logaction( "No documents were found to retrieve links from.  Web Ahead Agent successfully finished.")
  5318.                Goto cleanup
  5319.           Else
  5320.                
  5321.           '*
  5322.           '*  The while loop retrieves all links off  the pages in the Web Ahead folder for every level specified.
  5323.           '*
  5324.                
  5325.                While Not (PageToCrawl Is Nothing)
  5326.                     If PageToCrawl.form(0) = "HelpForm"  Goto Nextdocument
  5327.                     If PageToCrawl.hasitem("URL") Then
  5328.                          URL = PageToCrawl.URL
  5329.                          Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "1")          
  5330.                          Call PageToCrawl.Save(True, False)
  5331.                          WormThePage(URL(0))
  5332.                     Else
  5333.                          Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "2") 
  5334.                          Call PageToCrawl.Save(True, False)
  5335.                          Goto NextDocument
  5336.                     End If
  5337. NextDocument:
  5338.                     If PageToCrawl.WebAheadStatus(0) <> "2" Then
  5339.                          Set NextPageToCrawl = WebAheadFolder.Getnextdocument(PageToCrawl)
  5340.                          Call PageToCrawl.Removefromfolder("Web Bots\Web Ahead")
  5341.                          Set PageToCrawl = NextPageToCrawl
  5342.                     Else
  5343.                          Set PageToCrawl = WebAheadFolder.Getnextdocument(PageToCrawl)
  5344.                     End If
  5345.                Wend
  5346.                
  5347.           End If
  5348.      End If
  5349. Cleanup:
  5350.      logaction( "Web Ahead agent ending.")
  5351. End Sub
  5352. '++LotusScript Development Environment:2:2:WormThePage:1:8
  5353. Sub WormThePage(URLToWorm As Variant)
  5354.      
  5355.      '*
  5356.      '*  This routine retrieves all links on the current page for the number of levels
  5357.      '*  specified in the internet options form.
  5358.      '*
  5359.      
  5360.      Pages_To_Worm(1) = URLToWorm
  5361.      
  5362.      '*  
  5363.      '* Check to see if there is a page to retrieve links from in the array pages_to_worm
  5364.      '*
  5365.      
  5366.      For y = 1 To Cint(LevelsToWorm(0))
  5367.           If ( DebugFlag = "1" ) Then logaction( "Retrieving level " + Cstr(y))
  5368.           If pages_to_worm(1) <> "" Then
  5369.                Forall J  In pages_to_worm
  5370.                     
  5371.                     If ( DebugFlag = "1" ) Then logaction( "About to retrieve links on  " + j  )     
  5372.                     
  5373.                     '*
  5374.                     '* Before we retrieve it, make sure that it hasn't already been retrieved for this session
  5375.                     '*
  5376.                     
  5377.                     If OKToRetrieve(j, ArraySizeOK) Then
  5378.                          
  5379.                          '*
  5380.                          '*  Make sure it's okay to retrieve pages from the site per the sites robots.txt
  5381.                          '*
  5382.                          
  5383.                          If OKToGetPerRobots(j) Then
  5384.                               Set CurrentPageRetrieved = RetrieveOverInternet(j,PageToCrawl,1)
  5385.                          Else
  5386.                               If ( DebugFlag = "1" ) Then  Call logerror(10, "Not okay to retrieve links off the site per robots.txt")
  5387.                               If ( DebugFlag = "1" ) Then Call logerror(10, "Could not retrieve links off the page"+j+".")
  5388.                               Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "2") 
  5389.                               Call PageToCrawl.Save(True,False)
  5390.                               Exit Sub
  5391.                          End If
  5392.                          
  5393.                     Else
  5394.                          Set CurrentPageRetrieved = WebDatabase.Getdocumentbyurl(j,0,0)
  5395.                          
  5396.                          '*
  5397.                          '*  Make sure that the page which is already in the database is not an error page.
  5398.                          '*
  5399.                          
  5400.                          If (CurrentPageRetrieved.HTTPStatus(0) = "200") Or (CurrentPageRetrieved.HTTPStatus(0) = "304" ) Then
  5401.                               Goto already_retrieved
  5402.                          Else
  5403.                               Set CurrentPageRetrieved = RetrieveOverInternet(j, CurrentPageRetrieved,1)
  5404.                          End If
  5405.                     End If
  5406.                     
  5407.                     
  5408.                     
  5409.                     If (CurrentPageRetrieved.HTTPStatus(0) = "200") Or (CurrentPageRetrieved.HTTPStatus(0) = "304") Then
  5410.                          If ( DebugFlag = "1" ) Then Call logerror(10, "Successfully retrieved " + j)
  5411.                          
  5412.                               '*
  5413.                               '* Add the page to the page retrieval array         
  5414.                               '*
  5415.                          If pr < 10000 Then
  5416.                               pages_retrieved ( pr) = j
  5417.                               pr=pr+1
  5418.                               Redim Preserve pages_retrieved(pr)
  5419.                          Else
  5420.                               ArraySizeOK = False
  5421.                          End If
  5422.                          
  5423.                              '* 
  5424.                              '* Make sure that the returned document has a URLLinks# field
  5425.                              '* since that is where all of the URLs on the page are stored.
  5426.                              '*
  5427.                          
  5428. already_retrieved:
  5429.                          
  5430.                          If CurrentPageRetrieved.hasitem("URLLinks1") Then
  5431.                               
  5432.                                '*
  5433.                                '*  Process the URLLinks# fields into one concise, singular text list of URL's
  5434.                                '*
  5435.                               
  5436.                               ProcessURLField
  5437.                               
  5438.                                '*
  5439.                                '*  Go ahead and retrieve the pages in the URLTextList
  5440.                                '*
  5441.                               
  5442.                               RetrievePages(y)     
  5443.                               If ( DebugFlag = "1" ) Then logaction "Retrieved "+Cstr(URLListIndex) + " from the site "+Cstr(urltoworm)+"."
  5444.                               If ( DebugFlag = "1" ) Then logaction( "Just retrieved all links off of "+PageToCrawl.getitemvalue("URL")(0))
  5445.                          Else
  5446.                               If ( DebugFlag = "1" ) Then logaction( "No links to retrieve on " + PageToCrawl.getitemvalue("URL")(0))
  5447.                          End If            
  5448.                          
  5449.                               '*
  5450.                               '*  Now that the links have been retrieved, add the page to the list of pages that have already been processed.
  5451.                               '*  
  5452.                          
  5453.                          pages_wormed(pw) =CurrentPageRetrieved.getitemvalue("URL")(0)
  5454.                          pw=pw+1
  5455.                          Redim Preserve pages_wormed(pw)
  5456.                          
  5457.                     Else
  5458.                          If ( DebugFlag = "1" ) Then Call logerror(9, "Error page returned for " + j)
  5459.                          If ( DebugFlag = "1" ) Then Call logerror(9, "Could not retrieve links off the page"+j+".")
  5460.                     End If
  5461.                     
  5462.                     
  5463.                End Forall     
  5464.                If ( DebugFlag = "1" ) Then logaction "Finished retrieving links for level "+Cstr(y)
  5465.                
  5466.                
  5467.                '*
  5468.                '*  Now move to the next level of pages to retrieve links from in the pages_to_worm array
  5469.                '*  Reset the pages to worm array to clear out the previous pages to worm
  5470.                '*  Note:  we only need to do this is we are retrieving links for more than one level.
  5471.                '*
  5472.                
  5473.                If LevelsToWorm(0) <> "1" Then 
  5474.                     If nptw = 1 Then Goto Done
  5475.                     Redim pages_to_worm(nptw-1) As String
  5476.                     For z = 1 To (nptw-1)
  5477.                          pages_to_worm(z) = next_pages_to_worm(z)
  5478.                     Next Z
  5479.                     ptw = nptw
  5480.                     
  5481.                     '*
  5482.                     '*  Reinitialize the next pages to worm array
  5483.                     '*
  5484.                     nptw=1
  5485.                     Redim next_pages_to_worm(nptw) As String
  5486.                Else
  5487.                '*
  5488.                '* We are done.  There are no more pages to retrieve off the page.  The page needs to be removed from the folder.
  5489.                '*
  5490. done: 
  5491.                     
  5492.                     Exit For
  5493.                End If
  5494.           End If
  5495.           If ( DebugFlag = "1" ) Then logaction( "Finished retrieving " + LevelsToWorm(0) +" for the page" +Cstr(URLToWorm)+". ")
  5496.           If ( DebugFlag = "1" ) Then logaction( "Retrieved " + Cstr(pw)+"pages.")
  5497.           
  5498.      Next Y
  5499. End Sub
  5500. '++LotusScript Development Environment:2:2:ProcessURLField:1:8
  5501. Sub ProcessURLField
  5502.      
  5503.      '*
  5504.      '*  The purpose of this subroutine is to process all of the URLLinks#
  5505.      '*  fields into one concise, non-duplicated list of URL's that only
  5506.      '*  refer to http pages.  The result is the global array URLTextList.
  5507.      '*
  5508.      
  5509.      Dim URLField As String            'the current URLLinks# field
  5510.      Dim URLNum As Integer
  5511.      Dim URLFieldNum As Integer
  5512.      Dim RawURLList As Variant
  5513.      Dim DuplicatedURLList() As String
  5514.      
  5515.      
  5516.      URLNum =1
  5517.      URLField = "URLLinks1"
  5518.      URLFieldNum = 1
  5519.      
  5520.      '*
  5521.      '*  Put all the URL's in one text array -- URLTextList
  5522.      '*
  5523.      While CurrentPageRetrieved.HasItem(URLField)
  5524.           
  5525.           RawURLList = CurrentPageRetrieved.GetItemValue(URLField)
  5526.           Redim DuplicatedURLList (Ubound(RawURLList)+1)
  5527.           Forall j In RawURLList     
  5528.                
  5529.                '*
  5530.                '*   While we are putting all of the urls into one text array we will remove 
  5531.                '*  any urls other than those that use the http protocol.
  5532.                '*
  5533.                
  5534.                If Instr(1, j, "http",1) <> 0 Then
  5535.                     DuplicatedURLList(URLNum) = j
  5536.                     URLNum = URLNum + 1
  5537.                End If
  5538.           End Forall
  5539.           
  5540.           URLFieldNum = URLFieldNum + 1
  5541.           Mid$(URLField, 5) = Cstr(URLFieldNum)
  5542.      Wend
  5543.      
  5544.      Redim Preserve DuplicatedURLList(URLNum)
  5545.      
  5546.      '*
  5547.      '*  Now all URL's to fetch are in the DuplicatedURLList array
  5548.      '*  Now duplicates need to be removed from the array to save time
  5549.      '*
  5550.      
  5551.      Redim URLTextList(URLNum) As String
  5552.      
  5553.      URLListIndex = 1
  5554.      URLTextList(1) = DuplicatedURLList(1)
  5555.      If URLNum <>1 Then
  5556.           For y = 2 To (URLNum -1)
  5557.                URLListIndex = URLListIndex + 1              
  5558.                URLTextList(URLListIndex) = DuplicatedURLList(y)
  5559.                
  5560.                For x = 1 To (URLListIndex-1) 
  5561.                     If URLTextList(x) = DuplicatedURLList(y) Then
  5562.                          URLListIndex = URLListIndex - 1
  5563.                     End If
  5564.                Next  X             
  5565.           Next Y
  5566.      Else
  5567.           URLListIndex = URLListIndex + 1
  5568.      End If
  5569.      Redim Preserve URLTextList(URLListIndex)
  5570. End Sub
  5571. '++LotusScript Development Environment:2:2:RetrievePages:1:8
  5572. Sub RetrievePages(y As Integer)
  5573.      
  5574.      '*
  5575.      '*  This routine retrieves all of the pages in the URLTextList array.
  5576.      '*
  5577.      
  5578.      Forall j In URLTextList
  5579.           CheckPage j, y
  5580.      End Forall
  5581. End Sub
  5582. '++LotusScript Development Environment:2:2:CheckPage:1:8
  5583. Sub CheckPage(urltocheck As String, y As Integer)
  5584.      
  5585.      '*
  5586.      '*  This subroutine checks the page we are about to retrieve.
  5587.      '*  It first makes sure we have not already retrieved the page in this session.
  5588.      '*  Next it makes sure that the page retrieved is valid per the status code returned.
  5589.      '*
  5590.      
  5591.      Dim webdoc As notesdocument    
  5592.      Dim dummydoc As notesdocument
  5593.      
  5594.      '*
  5595.      '*  Check to make sure we have not already retrieved the page                              
  5596.      '*
  5597.      
  5598.      
  5599.      If OKToRetrieve(urltocheck,ArraySizeOK) Then 
  5600.           If OKToGetPerRobots(urltocheck) Then
  5601.                If Cint(LevelsToWorm(0)) - y  <> 0 Then
  5602.                     Set WebDoc = RetrieveOverInternet(urltocheck,dummydoc,1)
  5603.                Else
  5604.                     Set WebDoc = RetrieveOverInternet(urltocheck,dummydoc,0) 
  5605.                End If
  5606.                
  5607.                If (webdoc.HTTPstatus(0) = "200") Or (webdoc.HTTPStatus(0) = "304") Then
  5608.                     
  5609.                          '*
  5610.                          '* Add the page to the page retrieval array         
  5611.                          '*
  5612.                     If pr < 10000 Then
  5613.                          pages_retrieved ( pr) = (urltocheck)
  5614.                          pr=pr+1
  5615.                          Redim Preserve pages_retrieved(pr)
  5616.                     Else
  5617.                          ArraySizeOK = False
  5618.                     End If
  5619.                     
  5620.                     '*
  5621.                     '*  Add the page to the list of pages to be retreived
  5622.                     '*
  5623.                     If Cint(LevelsToWorm(0)) - y  <> 0 Then    
  5624.                          next_pages_to_worm(nptw) = (urltocheck)
  5625.                          nptw = nptw+1
  5626.                          Redim Preserve next_pages_to_worm(nptw)
  5627.                     End If
  5628.                Elseif (webdoc.HTTPStatus(0) = "401") Then
  5629.                     '*  
  5630.                     '*  The page needs to be authenticated, notify the user in the error log
  5631.                     '*
  5632.                     Call logerror(8,  "Web Ahead is unable to retrieve "+urltocheck+" because it requires authentication.")
  5633.                     Call logerror(8, "Retrieve the page manually and move it into the web ahead folder.")
  5634.                     
  5635.                Else
  5636.                     Call logerror(9, "Page " + urltocheck +" returned a bad status code:  "+webdoc.status(0)+".")
  5637.                End If
  5638.           Else
  5639.                Call logerror(10, "Page " + urltocheck + " is forbidden by the robots.txt file on the server.")
  5640.           End If
  5641.      Else
  5642.           next_pages_to_worm(nptw) = (urltocheck)
  5643.           nptw = nptw+1
  5644.           Redim Preserve next_pages_to_worm(nptw)
  5645.      End If
  5646.      
  5647.      
  5648. End Sub
  5649. '++LotusScript Development Environment:2:1:OKToRetrieve:1:8
  5650. Function OKToRetrieve(checkurl As String, ArraySizeOK As Integer) As Integer
  5651.      
  5652.      '*
  5653.      '*  This function goes throught the current list of URLs which have already
  5654.      '*  been retrieved for this session.  If the page has already been retrieved,
  5655.      '*  it sets the function equal to false.
  5656.      '*
  5657.      If ArraySizeOK Then
  5658.           OKToRetrieve = True
  5659.           Forall j In pages_retrieved
  5660.                If checkurl= j Then 
  5661.                     OKToRetrieve = False
  5662.                     Exit Function
  5663.                End If
  5664.           End Forall
  5665.      End If
  5666. End Function
  5667. '++LotusScript Development Environment:2:1:OKToGetPerRobots:1:8
  5668. Function OKToGetPerRobots( url As Variant ) As Integer
  5669.      '*
  5670.      '*  The purpose of this function is to check the host robots.txt file
  5671.      '*   for the site to make sure that it is okay to retrieve pages from the site.
  5672.      '*   It returns true if the page has not been excluded from robots.txt.
  5673.      '*
  5674.      
  5675.      Dim Currentdomain As String
  5676.      
  5677.      CurrentDomain = (Left(url, (Instr(8, url, "/", 1))))
  5678.      
  5679.      
  5680.      OKToGetPerRobots = True
  5681.      
  5682.      '*
  5683.      '* Check the complete list of "Disallow:" paths to see whether we match any of them
  5684.      '*
  5685.      
  5686.      If datadoc.HasItem( currentdomain ) Then
  5687.           exclist = datadoc.GetItemValue( currentdomain )
  5688.           If exclist(0) = "None" Then
  5689.                OKToGetPerRobots = True
  5690.                Exit Function
  5691.           End If
  5692.      Else
  5693.           Call   FetchRobotsFile(url, currentdomain)
  5694.           exclist = datadoc.GetItemValue( currentdomain )
  5695.           If exclist(0) = "None" Then
  5696.                OKToGetPerRobots = True
  5697.                Exit Function
  5698.           End If
  5699.      End If
  5700.      
  5701.           '*
  5702.           '*  Check whether any in that list match the path we want
  5703.           '*
  5704.      
  5705.      
  5706.      Forall testpath In exclist
  5707.           
  5708.                '*
  5709.                '*  Note:  testpath always begins with a forward-slash.  Wildcards have been removed at this stage,
  5710.                '* so "/" means disallow all paths;  "/tmp" means "/tmp*".  Testpath is also always stored in lowercase.
  5711.                '*
  5712.           
  5713.           Dim l As Integer
  5714.           l  = Len( testpath )
  5715.           If l > 0 Then
  5716.                If Left$( path, l )=testpath Then
  5717.                     
  5718.                          '*
  5719.                          '* Hit an exclusion!  
  5720.                          '*
  5721.                     
  5722.                     OKToGetPerRobots = False
  5723.                     Exit Function
  5724.                End If
  5725.           End If
  5726.      End Forall
  5727.      
  5728. End Function
  5729. '++LotusScript Development Environment:2:2:FetchRobotsFile:1:8
  5730. Sub FetchRobotsFile(url As Variant, currentdomain As String)
  5731.      Dim exclusionpage As NotesDocument
  5732.      Dim dummypage As notesdocument
  5733.           '*
  5734.           '*  Retrieve the site's ROBOTS.TXT. 
  5735.           '*
  5736.      
  5737.      Set exclusionpage = RetrieveOverInternet(CurrentDomain+"robots.txt" , dummypage,0)     
  5738.      
  5739.           '*
  5740.           '* If that failed, we have free access to the site.
  5741.           '*
  5742.      
  5743.      If (exclusionpage.HTTPStatus(0) ="200") Or (exclusionpage.HTTPStatus(0) = "304") Then
  5744.           
  5745.                '*
  5746.                '* Got the robots.txt file - we have to parse the file now!
  5747.                '*
  5748.           
  5749.           Dim robtext As String
  5750.           Dim item As Variant
  5751.           Set item = exclusionpage.GetFirstItem("Body")
  5752.           robtext = Lcase$(item.text)
  5753.           
  5754.                '*
  5755.                '* Parse until we get a User-Agent line which matches "*" or "InterNotes" somewhere (or Mozilla)
  5756.                '* Then look thru the "Disallow" lines to see whether they match our URL path
  5757.                '*
  5758.           
  5759.           Dim begin As Integer
  5760.           Dim dbegin As Integer
  5761.           Dim uapos As Integer
  5762.           Dim dapos As Integer
  5763.           Dim danum As Integer
  5764.           Dim t As String
  5765.           Dim  tt As String
  5766.           Dim darray (0 To 50 ) As String
  5767.           begin = 1
  5768.           uapos = 1
  5769.           danum = 0
  5770.           
  5771.           While uapos>0
  5772.                uapos = Instr( begin, robtext, "user-agent:")
  5773.                If uapos>0 Then
  5774.                     uapos=uapos+11  ' skip the "user-agent:" text
  5775.                     t = Ltrim$( Mid$( robtext, uapos ) )
  5776.                     If Left$( t, 1 )="*" Or Left$( t, 7 )="mozilla" Or Left$( t, 5 )="lotus" Then
  5777.                          
  5778.                               '*
  5779.                               '*  This applies to us!!! Better respect the Disallow flags.
  5780.                               '* First, chop any further User-Agent pieces so we know what to use.
  5781.                               '*
  5782.                          
  5783.                          Dim t1 As Integer
  5784.                          t1 = Instr( t, "user-agent:" )
  5785.                          If t1>0 Then
  5786.                               tt = Rtrim$( Left$( t, t1-1 ) )
  5787.                          Else
  5788.                               tt = Rtrim$( t )
  5789.                          End If
  5790.                          
  5791.                               '*
  5792.                               '* Now parse tt for *all*  the Disallow: paths - don't check them just yet
  5793.                               '*
  5794.                          
  5795.                          dbegin = 1
  5796.                          dapos = 1
  5797.                          While dapos>0
  5798.                               dapos = Instr( dbegin, tt, "disallow:" )
  5799.                               If dapos>0 Then
  5800.                                    Dim ban As String
  5801.                                    dapos = dapos+10   ' skip the "disallow:" text
  5802.                                    dendpos = Instr( dapos, tt, "#" )
  5803.                                    If dendpos=0 Then dendpos = Instr( dapos, tt, Chr$(10) )
  5804.                                    If dendpos=0 Then dendpos = Len( tt )-1
  5805.                                    ban = Trim$( Mid$( tt, dapos, dendpos-dapos ) )
  5806.                                    If Len(ban)>0 Then
  5807.                                         If Right$(ban, 1)="/" Then ban =Left$(ban, Len(ban)-1)
  5808.                                         darray( danum ) = ban
  5809.                                         danum = danum+1                                           
  5810.                                    End If                                 
  5811.                               End If
  5812.                               dbegin = dapos
  5813.                          Wend
  5814.                          
  5815.                               '*
  5816.                               '*  Done that user-agent list.  We should keep going, in case there are more!
  5817.                               '*
  5818.                          
  5819.                     End If
  5820.                     
  5821.                          '*
  5822.                          '* Find the next User-Agent which might apply to us
  5823.                          '*
  5824.                     
  5825.                     begin = uapos
  5826.                End If
  5827.           Wend
  5828.           
  5829.                '*
  5830.                '* Store cleaned-up list of Disallow paths in the SavedData document in the field "banthisserver"
  5831.                '*
  5832.           
  5833.           If danum>0 Then
  5834.                Call datadoc.ReplaceItemValue( currentdomain, darray )
  5835.                Call datadoc.Save( True, False )
  5836.           Else
  5837.                Call datadoc.Replaceitemvalue(currentdomain, "None")
  5838.                Call datadoc.Save( True, False )
  5839.           End If
  5840.      Else
  5841.           If ( DebugFlag = "1" ) Then logaction( "Robots.txt page returned an error.  Probably doesn't exist.")
  5842.           Call datadoc.Replaceitemvalue(currentdomain, "None")
  5843.           Call datadoc.Save( True, False )
  5844.      End If
  5845.      
  5846.      
  5847. End Sub
  5848. [$    K|
  5849. O=Lotus Notes
  5850. O=Lotus Notes
  5851. PURSAFO
  5852. |.:#U
  5853. O=Lotus Notes
  5854. CN=Lotus Notes Template Development/O=Lotus Notes
  5855. PURSAFO
  5856. $TITLE
  5857. $AssistType
  5858. $AssistLastRun
  5859. $AssistDocCount
  5860. $AssistFlags
  5861. $AssistTrigger
  5862. $AssistInfo
  5863. $AssistQuery
  5864. $AssistAction
  5865. $AssistAction_Ex
  5866. '++LotusScript Development Environment:2:5:(Options):0:74
  5867. Option Public
  5868. '++LotusScript Development Environment:2:5:(Forward):0:1
  5869. Declare Sub RefreshPage
  5870. Declare Sub InstantiateObjects
  5871. Declare Sub OpenHomeURL
  5872. Declare Sub OpenSearchSite (docLocal As NotesDocument)
  5873. Declare Sub CreateNotesLink (docLocal As NotesDocument)
  5874. Declare Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String) 
  5875. Declare Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
  5876. Declare Sub ReduceToLink (docLocal As NotesDocument)
  5877. Declare Sub GetProfileDocument
  5878. Declare Function LocationOK As Integer
  5879. Declare Sub  ImportFavorites
  5880. Declare Sub FavoriteExtractAddress(posBegin As Integer)
  5881. Declare Sub CreateFavoriteDocument   
  5882. Declare Sub FavoriteProcessOneLine
  5883. Declare Sub ImportBookmarks
  5884. Declare Sub NavigatorExtractAddress(posBegin As Integer)
  5885. Declare Sub ShrinkFolderName
  5886. Declare Sub NavigatorProcessOneLine
  5887. Declare Sub GetFolderName(posStart As Integer)
  5888. Declare Sub CreateNavigatorDocument
  5889. Declare Sub PrintWebDocument
  5890. Declare Sub WebNavHelp
  5891. Declare Sub IENextdoc(browserobject As Variant)    
  5892. Declare Sub IEPreviousDoc(browserobject As Variant)     
  5893. Declare Sub IEStop(browserobject As Variant)  
  5894. Declare Function GetCurrentLocation As String
  5895. Declare Sub IEForwardNote (doc As notesdocument, browserobject As Variant)
  5896. Declare Sub IERefreshPage(browserobject As Variant)     
  5897. Declare Sub IEOpenHome(browserobject As Variant)
  5898. Declare Sub IESearch(browserobject As Variant)
  5899. Declare Sub CreateIELink(url As String, title As String)
  5900. Declare Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
  5901. Declare Function GetLocalNAB() As NotesDatabase
  5902. Declare Function GetRegValue (szKey$, szValueName$) As String
  5903. Declare Sub SetRegValue(szKey$, szValueName$, szKeyValue)
  5904. Declare Function GetLocationItem (itemname As String) As Variant
  5905. Declare Sub SetLocationItem(itemname As String, itemvalue As String)
  5906. Declare Sub CreateIEBookmark(browserobject As Variant, folder As String)
  5907. Declare Sub RemoveObjects(doc As notesdocument)
  5908. Declare Sub GetCurrentFolders
  5909. Declare Sub ViewDelete
  5910. Declare Sub Browse
  5911. Declare Sub ViewForward(docLocal As notesdocument)
  5912. Declare Function DuplicateBookmark(szURL) As Integer
  5913. Declare Sub CheckRegistrySettings
  5914. Declare Function CompareValues(IEValue As String, NotesValue As Variant) As String
  5915. Declare Function ParseFilename(szPath As String) As String
  5916. Declare Sub NotesForwardNote(doc As notesdocument)
  5917. Declare Function ParseURL(url As String) As String
  5918. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5919. 'this script library is used by the views and forms for sharing various scripts -> Home, Search, Share, Import Bookmarks, and Reduce
  5920. Dim w As NotesUIWorkspace
  5921. Dim session As NotesSession
  5922. Dim db As NotesDatabase
  5923. Dim dbShared As NotesDatabase
  5924. Dim docProfile As NotesDocument
  5925. Dim note As NotesDocument
  5926. Dim bookmark As NotesDocument
  5927. Dim bookmarkfolder As NotesView
  5928. Dim firstnavigatedone As Integer
  5929. Dim view As NotesView
  5930. Dim hFile As Integer
  5931. Dim numDirectories As Integer
  5932. Dim szPath As String
  5933. Dim szEntry As String
  5934. Dim szURL As String
  5935. Dim szTitle As String
  5936. Dim szFolder As String
  5937. Dim filenamepath As String
  5938. Dim filename As String
  5939. Dim fileflag As Integer
  5940. Dim Directories() As String
  5941. %INCLUDE "lsconst.lss"
  5942. ' This declares the routines used for retrieving key values
  5943. ' from the registry on a Windows 32 client.
  5944. ' NOTE: if you are running this app on a platform other than
  5945. ' Windows 32 Intel, then it will not work.
  5946. Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (Byval hKey&, Byval szSubKey$, Byval dwOptions&, Byval SAM&, hKey&) As Long
  5947. Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (Byval hKey&) As Long
  5948. Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, dwType&, Byval szValue$, lpdwBuf&) As Long
  5949. Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, Byval dwType&, Byval lpData$, Byval cbData&)  As Long
  5950. Const HKEY_CURRENT_USER = &H80000001
  5951. Const KEY_READ = &H00020019
  5952. Const KEY_SET_VALUE = &H0002
  5953. Dim RetCode As Long
  5954. Dim dwType As Long
  5955. Dim hKey As Long
  5956. Dim dwSize As Long
  5957. Dim lpData As String
  5958. Dim cbData As Long
  5959. '++LotusScript Development Environment:2:2:RefreshPage:1:8
  5960. Sub RefreshPage
  5961.     Dim currenturl As String  
  5962.     Dim currentdoc As notesuidocument
  5963.     Dim urldoc As notesdocument
  5964.     Dim docCollection As NotesDocumentCollection     
  5965.     Set docCollection = db.UnprocessedDocuments
  5966.     If (docCollection.Count = 0) Then
  5967.         Msgbox "You must select a document.",16,"Error"
  5968.         Exit Sub
  5969.     End If
  5970.     Set currentdoc = w.currentdocument
  5971.     currenturl=currentdoc.fieldgettext("URL") 
  5972.     Set urldoc = db.GetDocumentByURL(currenturl, 1)
  5973.     w.EditDocument False, urldoc
  5974.     w.viewrefresh
  5975. End Sub
  5976. '++LotusScript Development Environment:2:2:InstantiateObjects:1:8
  5977. Sub InstantiateObjects
  5978.     Set w = New NotesUIWorkspace
  5979.     Set session = New NotesSession
  5980.     Set db = session.CurrentDatabase
  5981.     Set view = db.GetView("(Internet Profile)")
  5982.     Set docProfile = view.GetFirstDocument
  5983. End Sub
  5984. '++LotusScript Development Environment:2:2:OpenHomeURL:1:8
  5985. Sub OpenHomeURL
  5986.     On Error 4005 Goto LoadHomeURL
  5987.     Dim urldoc As NotesDocument
  5988.     If (docProfile Is Nothing) Then GetProfileDocument
  5989.     If (docProfile Is Nothing) Then
  5990.         Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
  5991.         Exit Sub 
  5992.     End If
  5993.     If (docProfile.openurl(0) <> "") Then 
  5994.         w.URLOpen docProfile.openurl(0), 2, 0, "", "", "", "", "", True
  5995.     Else
  5996.         Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
  5997.         Exit Sub 
  5998.     End If
  5999.     Exit Sub
  6000. LoadHomeURL:
  6001.     w.URLOpen docProfile.openurl(0), 2, 0, "", "", "", "", "", True
  6002.     Exit Sub
  6003. End Sub
  6004. '++LotusScript Development Environment:2:2:OpenSearchSite:1:8
  6005. Sub OpenSearchSite (docLocal As NotesDocument)
  6006.     Dim SearchDoc As notesdocument
  6007.     If (docProfile Is Nothing) Then GetProfileDocument
  6008.     If (docProfile Is Nothing) Then
  6009.         Msgbox "You need to specify a Search Site URL to open. Choose Actions - Internet Options from the menu."
  6010.         Exit Sub 
  6011.     End If
  6012.        'we need to determine if the current document exists or has the $Index field
  6013.     If (docLocal Is Nothing) Or Not (docLocal.HasItem("$Index")) Then
  6014.         w.URLOpen docProfile.SearchURL(0)   
  6015.     Else
  6016.           'open the url specified
  6017.         i = docLocal.GetItemValue("$Index")
  6018.         pos% = Instr(docLocal.URL(0),"?")
  6019.         If (pos% > 0) Then
  6020.             url$ = Right$(docLocal.URL(0),Len(docLocal.URL(0)) - pos%) & " ?"
  6021.         Else
  6022.             url$ = docLocal.URL(0) & "?"
  6023.         End If
  6024.         index$ = url$ & Inputbox$(i(0),"Search Internet Server")
  6025.         If index$<> "" Then 
  6026.             w.urlopen index$
  6027.         End If
  6028.     End If
  6029. End Sub
  6030. '++LotusScript Development Environment:2:2:CreateNotesLink:1:8
  6031. Sub CreateNotesLink (docLocal As NotesDocument)
  6032.     Dim docMail As NotesDocument
  6033.     Dim rtitem As NotesRichTextItem
  6034.     Set docMail = New NotesDocument(db)
  6035.     Set rtitem = New NotesRichTextItem(docMail,"Body")
  6036.     docMail.Form = "Memo"
  6037.     Call rtitem.AppendText(docLocal.url(0))
  6038.     docMail.Subject = docLocal.Title(0)          
  6039.     docMail.Send False,docLocal.ForwardTo(0)               
  6040. End Sub
  6041. '++LotusScript Development Environment:2:2:CopyDocumentToSharedDatabase:1:8
  6042. Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String) 
  6043.     Dim webdoc As notesdocument
  6044.     If (docProfile Is Nothing) Then GetProfileDocument
  6045.     If (docProfile Is Nothing) Then
  6046.         Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  6047.         Exit Sub 
  6048.     End If
  6049.     If  (docProfile.WebDatabase(0) = "") Then
  6050.         Msgbox "You need to specify the shared server and database. Choose Actions - Internet Options from the menu."
  6051.         Exit Sub
  6052.     End If
  6053.     Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))  
  6054.     If Not (dbShared.IsOpen) Then
  6055.         Msgbox "Can't open the shared database"
  6056.         Exit Sub
  6057.     End If
  6058.     If docLocal.form(0) = "WebBrowserForm" Or docLocal.form(0) = "WebBrowser4Form" Then 
  6059.         Set webdoc = dbshared.getdocumentbyurl(url)
  6060.         dbShared.Close
  6061.     Else
  6062.         Set webdoc = dbshared.getdocumentbyurl(url)
  6063.         dbShared.Close
  6064.     End If
  6065. End Sub
  6066. '++LotusScript Development Environment:2:2:CreateRatingDocument:1:8
  6067. Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
  6068.     Dim docRating As NotesDocument
  6069.     If (docProfile Is Nothing) Then GetProfileDocument
  6070.     If (docProfile Is Nothing) Then
  6071.         Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  6072.         Exit Sub 
  6073.     End If
  6074.     If  (docProfile.WebDatabase(0) = "") Then
  6075.         Msgbox "You need to specify the shared server and database. Choose Actions - Internet Options from the menu."
  6076.         Exit Sub
  6077.     End If
  6078.     Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))  
  6079.     If Not (dbShared.IsOpen) Then
  6080.         Msgbox "Can't open the shared database"
  6081.         Exit Sub
  6082.     End If
  6083.      'create the remote document and add some fields to it
  6084.     Set docRating = New NotesDocument(dbShared)
  6085.     docRating.Form = "Person Rating Form"
  6086.     docRating.Rating = docLocal.Rating
  6087.     docRating.Content = docLocal.Content
  6088.     docRating.Comments = docLocal.Comments
  6089.     docRating.Author = session.UserName
  6090.     docRating.URL = URL
  6091.     docRating.Title = Title
  6092.     docRating.Save True, True
  6093.     dbShared.Close     
  6094. End Sub
  6095. '++LotusScript Development Environment:2:2:ReduceToLink:1:8
  6096. Sub ReduceToLink (docLocal As NotesDocument)
  6097.     If docLocal.hasitem("Body") Then
  6098.         docLocal.RemoveItem "Body"
  6099.         docLocal.RemoveItem "HTMLSource"
  6100.         docLocal.RemoveItem "HTMLBody"
  6101.         docLocal.RemoveItem "$Background"
  6102.         docLocal.RemoveItem "$FILE"
  6103.         docLocal.RemoveItem "$OLEOBJINFO"
  6104.         docLocal.RemoveItem "URLLinks1"
  6105.         docLocal.RemoveItem "WebAheadStatus"
  6106.         docLocal.RemoveItem "WebAgentError"
  6107.         docLocal.RemoveItem "PageMinderStatus"
  6108.         docLocal.bookmark = "1"
  6109.         docLocal.Save True,True
  6110.     Else
  6111.         docLocal.RemoveItem "$Body"
  6112.         docLocal.RemoveItem "HTMLSource"
  6113.         docLocal.RemoveItem "$Background"
  6114.         docLocal.RemoveItem "$FILE"
  6115.         docLocal.RemoveItem "$OLEOBJINFO"
  6116.         docLocal.RemoveItem "URLLinks1"
  6117.         docLocal.RemoveItem "WebAheadStatus"
  6118.         docLocal.RemoveItem "WebAgentError"
  6119.         docLocal.RemoveItem "PageMinderStatus"
  6120.         docLocal.Bookmark = "1"
  6121.         docLocal.Save True,True
  6122.     End If
  6123. End Sub
  6124. '++LotusScript Development Environment:2:2:GetProfileDocument:1:8
  6125. Sub GetProfileDocument
  6126.     Dim view As NotesView
  6127.     Set view = db.GetView("Internet Profiles")
  6128.     Set docProfile = view.GetFirstDocument
  6129. End Sub
  6130. '++LotusScript Development Environment:2:1:LocationOK:1:8
  6131. Function LocationOK As Integer
  6132.      '*
  6133.      '*  This function verifies that the current location settings are correct for local web retrievals.
  6134.      '*
  6135.     LocationOK = True
  6136.     Dim currentbrowser As String
  6137.     Dim MailServer As String
  6138.     currentbrowser = GetLocationItem("WebRetriever")
  6139.     If CurrentBrowser <> "3" Or CurrentBrowser <> "1" Then
  6140.         Msgbox "Your Browser setting for Notes is not set to retrieve in Notes.  Edit your current location to change the browser setting to Notes.", 16, "Error"
  6141.         LocationOK = False
  6142.         Exit Function
  6143.     End If
  6144.     MailServer = GetLocationItem("MailServer")
  6145.     If MailServer = "" Then
  6146.         Msgbox "You do not have a mail file/server specified.  Use File Mobile Edit Current Location... to set them.", 16, "Error"
  6147.         LocationOK = False
  6148.         Exit Function
  6149.     End If
  6150. End Function
  6151. '++LotusScript Development Environment:2:2:ImportFavorites:1:8
  6152. Sub  ImportFavorites
  6153.     InstantiateObjects
  6154.     Set note = New NotesDocument(db)
  6155.     szFolder = "Favorites"
  6156.     numDirectories = 0
  6157.     Redim Directories(20)
  6158.     fileflag = False
  6159.     If(w.DialogBox("(ImportFavorite)",True,True,False,,,,"Import Favorites",note)) Then
  6160.           'get the file to open     
  6161.         szPath = note.BookMarkFile(0)
  6162.         If (szPath = "") Then 
  6163.             Exit Sub
  6164.         Elseif (Right$(szPath,3) = "url" ) Then
  6165.                'file is specified not path parse out filename and go directly to process file
  6166.             filenamepath = szPath
  6167.             fileflag = True
  6168.             Goto ProcessFile
  6169.         Elseif (Right$(szPath,1) <> "\") Then 
  6170.             szPath  = szPath & "\"
  6171.         End If        
  6172.         filename = Dir$(szPath ,ATTR_DIRECTORY)
  6173.         While (filename <>"")
  6174.             If (filename <> ".") And (filename <> "..") Then
  6175.                 filenamepath = szPath & filename
  6176.                 retType = Getfileattr(filenamepath)
  6177.                 If Not(retType = ATTR_DIRECTORY) Then
  6178. ProcessFile:
  6179.                     hFile = Freefile
  6180.                     
  6181. 'open the file     
  6182.                     Open filenamepath For Input As hFile
  6183.                     
  6184. 'read in a line from the file
  6185.                     Do Until Eof(hFile)
  6186.                         Line Input #hFile,szEntry
  6187.                         Call FavoriteProcessOneLine
  6188.                     Loop
  6189.                 Else
  6190. 'this is a directory
  6191.                     Directories(counter) = filename
  6192.                     counter = counter + 1
  6193.                 End If
  6194.             End If
  6195.             If fileflag Then Exit Sub
  6196.             filename = Dir()
  6197.         Wend
  6198.     End If
  6199. 'scan subdirectories if need be
  6200.     If (counter > 0) Then
  6201.         For x = 0 To (counter-1)
  6202.             szFolder = "Bookmarks\" & Directories(x)
  6203.             szSubPath = szPath & Directories(x) & "\"
  6204.             filename = Dir$(szSubPath,ATTR_DIRECTORY)
  6205.             While (filename <>"")
  6206.                 If (filename <> ".") And (filename <> "..") Then
  6207.                     retType = Getfileattr(szSubPath & filename)
  6208.                     If Not(retType = ATTR_DIRECTORY) Then
  6209.                         hFile = Freefile                              
  6210. 'open the file     
  6211.                         Open szSubPath  & filename For Input As hFile
  6212.                         
  6213. 'read in a line from the file
  6214.                         Do Until Eof(hFile)
  6215.                             Line Input #hFile,szEntry
  6216.                             Call FavoriteProcessOneLine
  6217.                         Loop
  6218.                     End If
  6219.                 End If
  6220.                 filename = Dir()
  6221.             Wend               
  6222.         Next
  6223.     End If
  6224. End Sub
  6225. '++LotusScript Development Environment:2:2:FavoriteExtractAddress:1:8
  6226. Sub FavoriteExtractAddress(posBegin As Integer)
  6227. 'get the position of the closing quote
  6228.     szURL = Right$(szEntry,Len(szEntry) - posBegin+1)
  6229. End Sub
  6230. '++LotusScript Development Environment:2:2:CreateFavoriteDocument:1:8
  6231. Sub CreateFavoriteDocument   
  6232.      'Before we create the bookmark document we need to make sure that one does not already exist
  6233.     If Not DuplicateBookmark(szURL) Then
  6234.         Dim nulldoc As notesdocument
  6235.         Dim title As String
  6236.         Set bookmark = New NotesDocument(db)
  6237.         If fileflag Then
  6238.             title = Parsefilename(szPath)
  6239.             bookmark.title = Left$(title, Len(title)-4)
  6240.         Else
  6241.             bookmark.title = Left$(filename, Len(filename)-4)
  6242.         End If
  6243.         bookmark.URL =  szURL
  6244.         bookmark.bookmark = "1"
  6245.         bookmark.form = "HTMLForm"
  6246.         Call bookmark.Save(True,False)
  6247.         Call bookmark.PutInFolder(szFolder)
  6248.         If docprofile.keeppage(0) = "0" Then
  6249.             If GetLocationItem("WebLocation")(0) = "1" Then
  6250.                 Set nulldoc = db.getdocumentbyurl(szURL, 0,0,"","","","","",True)
  6251.             End If
  6252.         End If
  6253.     End If
  6254. End Sub
  6255. '++LotusScript Development Environment:2:2:FavoriteProcessOneLine:1:8
  6256. Sub FavoriteProcessOneLine
  6257. 'we have just read one line from the bookmark file
  6258. 'see if this line has one of two entries in it
  6259.     Dim pos As Integer
  6260. 'look for an http reference
  6261.     pos = Instr(1,szEntry,"=",5)
  6262.     If (pos > 0) Then
  6263.         FavoriteExtractAddress(pos+1)
  6264.         If (szURL <> "") Then Call CreateFavoriteDocument
  6265.         Exit Sub
  6266.     End If
  6267. End Sub
  6268. '++LotusScript Development Environment:2:2:ImportBookmarks:1:8
  6269. Sub ImportBookmarks
  6270.     InstantiateObjects
  6271.     Set note = New NotesDocument(db)
  6272.     szFolder = "Favorites and Bookmarks"
  6273.     If(w.DialogBox("(ImportBookmark)",True,True,False,,,,"Import Bookmark",note)) Then
  6274.           'get the file to open     
  6275.         szPath = note.BookMarkFile(0)
  6276.         If (szPath = "") Then Exit Sub
  6277.         hFile = Freefile
  6278. 'open the file     
  6279.         Open szPath For Input As hFile
  6280. 'read in a line from the file
  6281.         Do Until Eof(hFile)
  6282.             Line Input #hFile,szEntry
  6283.             Call NavigatorProcessOneLine
  6284.         Loop
  6285.     End If
  6286. 'we need to close the file
  6287.     Close hFile
  6288. End Sub
  6289. '++LotusScript Development Environment:2:2:NavigatorExtractAddress:1:8
  6290. Sub NavigatorExtractAddress(posBegin As Integer)
  6291.     Dim posEnd As Integer
  6292.     Dim posTITLEBegin As Integer
  6293.     Dim posTITLEEnd As Integer
  6294. 'get the position of the closing quote
  6295.     posEnd = Instr(posBegin,szEntry,|"|,5)
  6296.     If posEnd = 0 Then 
  6297.         szURL = ""
  6298.         Exit Sub
  6299.     End If
  6300.     szURL = Mid$(szEntry,posBegin,(posEnd-posBegin))
  6301. 'now, we need to get the title
  6302.     posTITLEBegin = Instr(posEnd,szEntry,">",5)
  6303.     If (posTITLEBegin = 0) Then
  6304.         szTitle = ""
  6305.     Else
  6306.         posTITLEEnd = Instr(posTITLEBegin,szEntry,"</a",5)
  6307.         szTitle = Mid$(szEntry,posTITLEBegin+1,(posTITLEEnd-posTITLEBegin)-1)               
  6308.     End If
  6309. End Sub
  6310. '++LotusScript Development Environment:2:2:ShrinkFolderName:1:8
  6311. Sub ShrinkFolderName
  6312.     Dim posCurrent As Integer
  6313.     Dim posHold As Integer
  6314. 'posCurrent is the new position of the "\" character
  6315. 'posHold keeps the most recent position of the "\" character
  6316.     posCurrent = Instr(1,szFolder,"\",5)
  6317.     While(posCurrent > 0)
  6318.         posHold = posCurrent
  6319.         posCurrent = Instr(posHold+1,szFolder,"\",5)
  6320.     Wend
  6321.     If (posHold > 0) Then szFolder = Left$(szFolder,posHold-1)
  6322. End Sub
  6323. '++LotusScript Development Environment:2:2:NavigatorProcessOneLine:1:8
  6324. Sub NavigatorProcessOneLine
  6325. 'we have just read one line from the bookmark file
  6326. 'see if this line has one of two entries in it
  6327.     Dim pos As Integer
  6328. 'first, look for the beginning of a folder
  6329.     pos = Instr(1,szEntry,"h3",5)
  6330.     If (pos > 0) Then 
  6331.         GetFolderName(pos)
  6332.         Exit Sub
  6333.     End If
  6334. 'we didn't find a folder, so look for an http reference
  6335.     pos = Instr(1,szEntry,"http",5)
  6336.     If (pos > 0) Then
  6337.         NavigatorExtractAddress(pos)
  6338.         If (szURL <> "") Then Call CreateNavigatorDocument
  6339.         Exit Sub
  6340.     End If
  6341. 'check for an ftp reference
  6342.     pos = Instr(1,szEntry,"ftp",5)
  6343.     If (pos > 0) Then
  6344.         NavigatorExtractAddress(pos)
  6345.         If(szURL <> "") Then Call CreateNavigatorDocument
  6346.         Exit Sub
  6347.     End If
  6348. 'this isn't a folder, nor is it an http ref; look for the closing of a folder
  6349.     pos = Instr(1,szEntry,"</DL>",5)
  6350.     If (pos > 0) Then Call ShrinkFolderName
  6351. End Sub
  6352. '++LotusScript Development Environment:2:2:GetFolderName:1:8
  6353. Sub GetFolderName(posStart As Integer)
  6354. 'gets the name of the folder
  6355.     Dim posFolderBegin
  6356.     Dim posFolderEnd
  6357.     posFolderBegin = Instr(posStart,szEntry,|">|,5)
  6358.     If (posFolderBegin > 0) Then
  6359.         posFolderEnd = Instr(posFolderBegin,szEntry,"<",5)
  6360.         szFolder = szFolder & "\" & Mid$(szEntry,posFolderBegin+2,posFolderEnd - posFolderBegin-2)
  6361.     End If
  6362. End Sub
  6363. '++LotusScript Development Environment:2:2:CreateNavigatorDocument:1:8
  6364. Sub CreateNavigatorDocument
  6365.      'Before we create the bookmark document, make sure that it doesn't already exist
  6366.     If Not DuplicateBookmark(szURL) Then
  6367.         Dim nulldoc As notesdocument
  6368.         Set bookmark = New NotesDocument(db)
  6369.         bookmark.URL =  szURL
  6370.         bookmark.Title = szTitle
  6371.         bookmark.Subject = szTitle    
  6372.         bookmark.bookmark = "1"
  6373.         bookmark.form = "HTMLForm"
  6374.         Call bookmark.Save(True,False)
  6375.         Call bookmark.PutInFolder(szFolder)
  6376.             'If keep page option is manual or retrievals are set to no retrievals, don't do the nonblocking retrieval
  6377.         If docprofile.keeppage(0) = "0" Then
  6378.             If GetLocationItem("WebLocation")(0) = "1" Then
  6379.                 Set nulldoc = db.getdocumentbyurl(szURL, 0,0,"","","","","",True)
  6380.             End If
  6381.         End If
  6382.     End If
  6383. End Sub
  6384. '++LotusScript Development Environment:2:2:PrintWebDocument:1:8
  6385. Sub PrintWebDocument
  6386.     On Error Goto ErrorRoutine
  6387.     Dim docLocal As NotesDocument
  6388.     Dim uidoc As notesuidocument
  6389.     Dim docCollection As NotesDocumentCollection     
  6390.     Set docCollection = db.UnprocessedDocuments
  6391.     If (docCollection.Count = 0) Then
  6392.         Msgbox "You must select a document.",16,"Error"
  6393.         Exit Sub
  6394.     Else
  6395.         For j = 1 To docCollection.Count
  6396.             Set docLocal = docCollection.getnthdocument(j)
  6397.             Set uidoc = w.editdocument(False, docLocal)
  6398.             Call uidoc.print
  6399.             Call uidoc.close
  6400.         Next
  6401.     End If
  6402.     Exit Sub
  6403. ErrorRoutine:
  6404.     Messagebox Error & " (PrintWebDocument)"
  6405.     Exit Sub
  6406. End Sub
  6407. '++LotusScript Development Environment:2:2:WebNavHelp:1:8
  6408. Sub WebNavHelp
  6409.     On Error Goto ErrorRoutine
  6410.     Dim PrivateAddressBook As notesdatabase
  6411.     Dim CurrentLocation As notesdocument
  6412.     Dim LocationString As String    
  6413.     Dim helpdb As New notesdatabase("", "")
  6414.     Dim workspace As New NotesUIWorkspace
  6415.     Dim Session As New notessession
  6416.     Set PrivateAddressBook = New Notesdatabase("", "names.nsf")
  6417.     LocationString = Session.GetEnvironmentString ( "Location", True)
  6418.     If (PrivateAddressBook Is Nothing) Then
  6419.         If Helpdb.open("", "help4.nsf") Then 
  6420.             Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  6421.         Elseif Helpdb.open("", "helplt4.nsf") Then
  6422.             Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  6423.         Else
  6424.             Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  6425.         End If
  6426.         Exit Sub
  6427.     End If
  6428.     If LocationString <> "" Then
  6429.         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  6430.         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  6431.         Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
  6432.         If Not (CurrentLocation Is Nothing) Then
  6433.             If CurrentLocation.MailServer(0) <> "" Then
  6434.                 If Helpdb.open("", "help4.nsf") Then 
  6435.                     Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  6436.                 Elseif Helpdb.open("", "helplt4.nsf") Then
  6437.                     Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  6438.                 Elseif Helpdb.open(CurrentLocation.MailServer(0), "help4.nsf") Then
  6439.                     Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "help4.nsf", "Web")
  6440.                 Elseif Helpdb.open(CurrentLocation.MailServer(0), "helplt4.nsf") Then
  6441.                     Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "helplt4.nsf", "Web")
  6442.                 Else
  6443.                     Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  6444.                 End If
  6445.             Else
  6446.                 If Helpdb.open("", "help4.nsf") Then 
  6447.                     Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  6448.                 Elseif Helpdb.open("", "helplt4.nsf") Then
  6449.                     Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  6450.                 Else
  6451.                          'Mail server is blank
  6452.                     Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  6453.                 End If
  6454.             End If
  6455.         Else
  6456.             If Helpdb.open("", "help4.nsf") Then 
  6457.                 Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  6458.             Elseif Helpdb.open("", "helplt4.nsf") Then
  6459.                 Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  6460.             Else
  6461.                     'Location document is not found
  6462.                 Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  6463.             End If
  6464.         End If
  6465.     Else
  6466.         If Helpdb.open("", "help4.nsf") Then 
  6467.             Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
  6468.         Elseif Helpdb.open("", "helplt4.nsf") Then
  6469.             Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
  6470.         Else
  6471.                'Location string in notes.ini is blank
  6472.             Msgbox "Unable to locate the Notes Help Database", 16, "Error" 
  6473.         End If
  6474.     End If
  6475.     Exit Sub
  6476. ErrorRoutine:
  6477.     Messagebox Error & " (WebNavHelp)"
  6478.     Exit Sub
  6479. End Sub
  6480. '++LotusScript Development Environment:2:2:IENextdoc:1:8
  6481. Sub IENextdoc(browserobject As Variant)    
  6482.     On Error Goto ErrorRoutine
  6483.     browserobject.GoForward
  6484.     Exit Sub
  6485. ErrorRoutine:
  6486.     Messagebox "No next entry in history list.", 16, "Internet Explorer"
  6487.     Exit Sub
  6488. End Sub
  6489. '++LotusScript Development Environment:2:2:IEPreviousDoc:1:8
  6490. Sub IEPreviousDoc(browserobject As Variant)     
  6491.     On Error Goto ErrorRoutine
  6492.     browserobject.GoBack     
  6493.     Exit Sub
  6494. ErrorRoutine:
  6495.     Messagebox "No previous entry in history list.", 16, "Internet Explorer"
  6496.     Exit Sub
  6497. End Sub
  6498. '++LotusScript Development Environment:2:2:IEStop:1:8
  6499. Sub IEStop(browserobject As Variant)  
  6500.     On Error Goto ErrorRoutine
  6501.     browserobject.Stop    
  6502.     Exit Sub
  6503. ErrorRoutine:
  6504.     Messagebox Error & " (IEStop)"
  6505.     Exit Sub
  6506. End Sub
  6507. '++LotusScript Development Environment:2:1:GetCurrentLocation:1:8
  6508. Function GetCurrentLocation As String
  6509.     On Error Goto ErrorRoutine
  6510.     Dim PrivateAddressBook As notesdatabase
  6511.     Dim CurrentLocation As notesdocument
  6512.     Dim LocationString As String     
  6513.     Dim result As Variant
  6514.     Set privateaddressbook = GetLocalNAB 
  6515.     If  privateaddressbook.isopen Then
  6516.         LocationString = Session.GetEnvironmentString ( "Location", True)
  6517.         If LocationString <> "" Then
  6518.             Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  6519.             LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  6520.             Set CurrentLocation = privateaddressbook.getdocumentbyid(LocationID$)
  6521.             GetCurrentLocation = CurrentLocation.WebRetriever(0)
  6522.         Else
  6523.             Print "Couldn't find Current Location document."
  6524.             Exit Function
  6525.         End If
  6526.     End If
  6527.     Exit Function
  6528. ErrorRoutine:
  6529.     Messagebox Error & " (GetCurrentLocation)"
  6530.     Exit Function
  6531. End Function
  6532. '++LotusScript Development Environment:2:2:IEForwardNote:1:8
  6533. Sub IEForwardNote (doc As notesdocument, browserobject As Variant)
  6534.     On Error Goto ErrorRoutine
  6535.     On Error 4412 Goto nomailfile
  6536.     If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options")) Then   
  6537.         Select Case doc.ForwardOptions(0)
  6538.         Case "1" : 'user wants to forward the URL only
  6539.             Call CreateIELink(browserobject.locationurl, browserobject.locationname)
  6540.         Case "2" : 'user wants to send entire page
  6541.             Dim url As Variant
  6542.             Dim webdoc As notesdocument
  6543.             Dim uid As notesuidocument
  6544.             Dim uid2 As notesuidocument
  6545.             Dim uid3 As notesuidocument
  6546.             Print "Creating mail memo..."
  6547.             url = browserobject.locationurl               
  6548.             Set webdoc = db.getdocumentbyurl(url)
  6549.             webdoc.forward="1"
  6550.             webdoc.save True, False
  6551.             w.viewrefresh
  6552.             w.viewrefresh
  6553.             Set uid = w.editdocument(False, webdoc)   
  6554.             Set uid2=w.currentdocument
  6555.             uid2.forward
  6556.             Set uid3 = w.currentdocument
  6557.             uid.close     
  6558.             webdoc.removeitem "Forward"
  6559.             webdoc.save True, False
  6560.         End Select
  6561.           'remove any remaining fields that don't need to be carried around
  6562.         doc.RemoveItem "ForwardOptions" 
  6563.         doc.save True, False
  6564.     End If
  6565.     Exit Sub
  6566. ErrorRoutine:
  6567.     Messagebox  Err & Error & " (IEForwardNote)"
  6568.     Exit Sub
  6569. NoMailFile:
  6570.     uid.close
  6571.     Exit Sub
  6572. End Sub
  6573. '++LotusScript Development Environment:2:2:IERefreshPage:1:8
  6574. Sub IERefreshPage(browserobject As Variant)     
  6575.     On Error Goto ErrorRoutine
  6576.     browserobject.Refresh
  6577.     Exit Sub
  6578. ErrorRoutine:
  6579.     Messagebox Error & " (IERefreshPage)"
  6580.     Exit Sub
  6581. End Sub
  6582. '++LotusScript Development Environment:2:2:IEOpenHome:1:8
  6583. Sub IEOpenHome(browserobject As Variant)
  6584.     On Error Goto ErrorRoutine
  6585.     browserobject.GoHome
  6586.     Exit Sub
  6587. ErrorRoutine:
  6588.     Messagebox Error & " (IEOpenHome)"
  6589.     Exit Sub
  6590. End Sub
  6591. '++LotusScript Development Environment:2:2:IESearch:1:8
  6592. Sub IESearch(browserobject As Variant)
  6593.     On Error Goto ErrorRoutine   
  6594.     browserobject.GoSearch
  6595.     Exit Sub
  6596. ErrorRoutine:
  6597.     Messagebox Error & " (IESearch)"
  6598.     Exit Sub
  6599. End Sub
  6600. '++LotusScript Development Environment:2:2:CreateIELink:1:8
  6601. Sub CreateIELink(url As String, title As String)
  6602.     On Error Goto ErrorRoutine
  6603.     Dim uimaildoc As notesuidocument
  6604.     Dim docMail As NotesDocument
  6605.     Dim maildb As New notesdatabase("", "")
  6606.     Call maildb.openmail
  6607.     If maildb.isopen Then
  6608.         Call w.composedocument(maildb.server, maildb.filepath, "memo")
  6609.         Set uimaildoc = w.currentdocument
  6610.         Set docmail = uimaildoc.document
  6611.         Call uimaildoc.fieldsettext("Body", URL)
  6612.         Call uimaildoc.fieldsettext("Subject",   Title)
  6613.         Exit Sub
  6614.     Else
  6615.         Messagebox "Unable to open the mail file that is specified in your current location."
  6616.         Exit Sub
  6617.     End If
  6618. ErrorRoutine:
  6619.     Messagebox Err & Error & " (CreateIELink)"
  6620.     Exit Sub
  6621. End Sub
  6622. '++LotusScript Development Environment:2:2:MoveToFolder:1:8
  6623. Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
  6624.     Dim note As notesdocument
  6625.     Dim doc As notesdocument
  6626.     Dim db As notesdatabase
  6627.     Dim s As New notessession
  6628.     On Error Goto ErrorRoutine
  6629.     If target = "Web Bots\Page Minder" Or Target = "Web Bots\Web Ahead" Or (Instr(1, target, "Favorites") =1) Then
  6630.         Set db = s.currentdatabase
  6631.         For j = 1 To Source.Documents.Count  
  6632.             Set doc = source.documents.getnthdocument(j)
  6633.             If doc.form(0) = "WebBrowserForm" Or doc.form(0) = "WebBrowser4Form" Then
  6634.                 Set note = db.getdocumentbyurl(doc.url(0))
  6635.                 Call note.putinfolder(target)
  6636.                 Continue = False
  6637.                 Print "Moved to " + Cstr(target)
  6638.             End If
  6639.         Next
  6640.     End If
  6641.     Exit Sub
  6642. ErrorRoutine:
  6643.     Messagebox Error & " (MoveToFolder)"
  6644.     Exit Sub
  6645. End Sub
  6646. '++LotusScript Development Environment:2:1:GetLocalNAB:1:8
  6647. Function GetLocalNAB() As NotesDatabase
  6648.     Dim sAddressBook As String
  6649.     Dim nCommaLocation As Integer
  6650.     On Error Resume Next
  6651.     sAddressBook = session.GetEnvironmentString("NAMES", True)
  6652.     If sAddressBook = "" Then 
  6653.         sAddressBook = "names.nsf"
  6654.     Else
  6655.         nCommaLocation = Instr(sAddressBook, ",")
  6656.         If nCommaLocation > 0 Then sAddressBook = Left(sAddressBook, nCommaLocation-1)
  6657.     End If
  6658.     Set GetLocalNAB = New NotesDatabase("",sAddressBook)
  6659. End Function
  6660. '++LotusScript Development Environment:2:1:GetRegValue:1:8
  6661. Function GetRegValue (szKey$, szValueName$) As String
  6662.     Dim szValue As String*200
  6663.     hKey = 0
  6664.     RetCode = RegOpenKeyEx (HKEY_CURRENT_USER, szKey, 0, KEY_READ, hKey)
  6665.     If RetCode <> 0 Then
  6666. '          Print "RegOpenKeyEx: " & RetCode
  6667.         Exit Function
  6668.     End If
  6669.     dwType = 0
  6670.     dwSize = 200
  6671.     RetCode = RegQueryValueEx (hKey, szValueName, 0, dwType, szValue, dwSize) 
  6672.     If RetCode <> 0 Then
  6673. '          Print "RegQueryValueEx: " & RetCode
  6674.         Exit Function
  6675.     End If
  6676.     Call RegCloseKey (hKey)
  6677.     GetRegValue = szValue
  6678. Done:
  6679. End Function
  6680. '++LotusScript Development Environment:2:2:SetRegValue:1:8
  6681. Sub SetRegValue(szKey$, szValueName$, szKeyValue)
  6682.     hKey = 0
  6683.     Dim szValue As String*200
  6684.     hKey = 0
  6685.     RetCode = RegOpenKeyEx (HKEY_CURRENT_USER, szKey, 0, KEY_SET_VALUE, hKey)
  6686.     If RetCode <> 0 Then
  6687.         Print "RegOpenKeyEx: " & RetCode
  6688.         Exit Sub
  6689.     End If
  6690.     dwSize = 200
  6691.     lpData = szKeyValue
  6692.     cbData = Len(szKeyValue)
  6693.     RetCode = RegSetValueEx (hKey, szValueName, 0, 1, lpData$, cbData) 
  6694.     If RetCode <> 0 Then
  6695.         Print "RegLSetValueEx: " & RetCode
  6696.         Exit Sub
  6697.     End If
  6698.     Call RegCloseKey (hKey)
  6699. End Sub
  6700. '++LotusScript Development Environment:2:1:GetLocationItem:1:8
  6701. Function GetLocationItem (itemname As String) As Variant
  6702.      '*
  6703.      '*  This function returns a data item from the current location note
  6704.      '*
  6705.     InstantiateObjects
  6706.     GetLocationItem = ""
  6707.     Dim PrivateAddressBook As notesdatabase
  6708.     Dim CurrentLocation As notesdocument
  6709.     Dim LocationString As String     
  6710.     Set PrivateAddressBook = GetLocalNAB
  6711.     If (PrivateAddressBook Is Nothing) Then
  6712.         Print "Warning:  Cannot open private address book."
  6713.         Exit Function
  6714.     End If
  6715.     LocationString = Session.GetEnvironmentString ( "Location", True)
  6716.     If LocationString <> "" Then
  6717.         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  6718.         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  6719.         Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
  6720.         If Not (CurrentLocation Is Nothing) Then
  6721.             GetLocationItem = CurrentLocation.getitemvalue(itemname)
  6722.         Else
  6723.             Print  "Warning:  Unable to verify current location settings.  Can't find location document."
  6724.             Exit Function
  6725.         End If
  6726.     Else
  6727.         Print "Warning:  Unable to verify current location settings.  Location string is empty." 
  6728.         Exit Function
  6729.     End If     
  6730. End Function
  6731. '++LotusScript Development Environment:2:2:SetLocationItem:1:8
  6732. Sub SetLocationItem(itemname As String, itemvalue As String)
  6733.      '*
  6734.      '*  This routine sets a data item in the current location note
  6735.      '*
  6736.     InstantiateObjects
  6737.     Dim PrivateAddressBook As notesdatabase
  6738.     Dim CurrentLocation As notesdocument
  6739.     Dim LocationString As String     
  6740.     Set PrivateAddressBook = New Notesdatabase("", "names.nsf")
  6741.     If (PrivateAddressBook Is Nothing) Then
  6742.         Print "Warning:  Cannot open private address book."
  6743.         Exit Sub
  6744.     End If
  6745.     LocationString = Session.GetEnvironmentString ( "Location", True)
  6746.     If LocationString <> "" Then
  6747.         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  6748.         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  6749.         Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
  6750.         If Not (CurrentLocation Is Nothing) Then
  6751.             Call CurrentLocation.Replaceitemvalue(itemname, itemvalue)
  6752.             Call CurrentLocation.Save(True, False)
  6753.         Else
  6754.             Print  "Warning:  Unable to verify current location settings.  Can't find location document."
  6755.             Exit Sub
  6756.         End If
  6757.     Else
  6758.         Print "Warning:  Unable to verify current location settings.  Location string is empty." 
  6759.         Exit Sub
  6760.     End If     
  6761. End Sub
  6762. '++LotusScript Development Environment:2:2:CreateIEBookmark:1:8
  6763. Sub CreateIEBookmark(browserobject As Variant, folder As String)
  6764.     Set bookmark = New NotesDocument(db)
  6765.     bookmark.URL =  browserobject.LocationURL
  6766.     bookmark.Form = "bookmark"
  6767.     bookmark.Title = browserobject.Locationname
  6768.     bookmark.Subject = browserobject.Locationname
  6769.     bookmark.Imported = True     
  6770.     bookmark.bookmark = "1"
  6771.     Call bookmark.Save(True,False)
  6772.     Call bookmark.PutInFolder(folder)
  6773. End Sub
  6774. '++LotusScript Development Environment:2:2:RemoveObjects:1:8
  6775. Sub RemoveObjects(doc As notesdocument)
  6776.     Dim imagepage As notesdocument
  6777.     Dim imageview As notesview
  6778.     Set imageview = db.getview("(Images)")
  6779.     If Not (imageview Is Nothing) Then
  6780.         If doc.hasitem("$ImageList") Then
  6781.             Dim images As Variant
  6782.             images  = doc.getitemvalue("$ImageList")
  6783.             Forall j In images
  6784.                 If j <> "" Then
  6785.                     Set imagepage = imageview.getdocumentbykey(j)
  6786.                     If Not(imagepage Is Nothing) Then
  6787.                         imagepage.remove True
  6788.                     End If
  6789.                 End If
  6790.             End Forall
  6791.         End If
  6792.     End If
  6793. End Sub
  6794. '++LotusScript Development Environment:2:2:GetCurrentFolders:1:8
  6795. Sub GetCurrentFolders
  6796.     Dim allviews As Variant
  6797.     Dim allfolders() As String
  6798.     Dim x As Integer
  6799.     allviews=db.views
  6800.     Forall j In allviews
  6801.         If j.isfolder Then
  6802.             If Not (Instr(1,j.name, "Web Bots") = 1)  Then
  6803.                 Redim Preserve allfolders(x)
  6804.                 If (Instr(1, j.name, "\") <>0) Then
  6805.                     allfolders(x) = "   " & Right(j.name, Len(j.name)-(Instr(1,j.name, "\")+1)) 
  6806.                     x = x+1
  6807.                 Else
  6808.                     allfolders(x) = j.name
  6809.                     x = x+1
  6810.                 End If
  6811.             End If
  6812.         End If
  6813.     End Forall
  6814.     docprofile.folders = allfolders
  6815.     docprofile.save True, False
  6816. End Sub
  6817. '++LotusScript Development Environment:2:2:ViewDelete:1:8
  6818. Sub ViewDelete
  6819.     On Error Resume Next
  6820.     Dim doc As notesdocument
  6821.     Dim noteid As String
  6822.     noteid = ""
  6823.     Dim docCollection As NotesDocumentCollection     
  6824.     Set docCollection = db.UnprocessedDocuments
  6825.     If (docCollection.Count = 0) Then
  6826.         Msgbox "You must select a document.",16,"Error"
  6827.         Exit Sub
  6828.     End If
  6829.     Response = Msgbox ("This will permanently delete the selected page(s) from the database.  Do you want to continue?", 20, "Delete Document")
  6830.     If Response = 6 Then
  6831.         For j = 1 To docCollection.count 
  6832.             Set doc = docCollection.getnthdocument(j)
  6833.             If Instr(doc.HTTPContent_Type(0), "image") = 0 Then
  6834.                 Call RemoveObjects(doc)
  6835.             End If
  6836.             If doc.isuidocopen Then
  6837.                 noteid = doc.noteid
  6838.                 Delete doc
  6839.                 Set doc = db.getdocumentbyid (noteid)      
  6840.                 doc.remove True
  6841.                 w.viewrefresh 
  6842.                 w.viewrefresh
  6843.             Else
  6844.                 doc.Remove True
  6845.                 w.viewrefresh
  6846.             End If
  6847.         Next
  6848.     End If
  6849. End Sub
  6850. '++LotusScript Development Environment:2:2:Browse:1:8
  6851. Sub Browse
  6852.     Dim currbrowser As String
  6853.     Dim browserobjectcollection As notesdocumentcollection
  6854.     Dim browserdoc As notesdocument
  6855.     Dim iedoc As New notesdocument(db)
  6856.     Dim dt As New notesdatetime ("1/1/90")
  6857.     InstantiateObjects
  6858.     currbrowser = GetCurrentLocation
  6859.     If currbrowser = "0" Then
  6860.         OpenHomeURL
  6861.     Elseif currbrowser = "3" Then
  6862.         If docprofile.openurl(0) = "" Then
  6863.             Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
  6864.             Exit Sub 
  6865.         End If
  6866.         Set BrowserObjectCollection = db.search(("(Form = ""WebBrowserForm""|Form=""WebBrowser4Form"")& home = ""1"""), dt, 0)
  6867.         If BrowserObjectCollection.count <> 0 Then
  6868.             Set BrowserDoc = BrowserObjectCollection.getfirstdocument
  6869.             Call BrowserDoc.replaceitemvalue("url", docprofile.openurl(0))
  6870.             Call BrowserDoc.save(True, False)
  6871.             Call w.editdocument(False, browserdoc)                         
  6872.         Else
  6873.             If session.GetEnvironmentString("IEVersionMinor", False)="70" Then
  6874.                 Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
  6875.             End If
  6876.             If Cint(session.GetEnvironmentString("IEVersionMinor", False))>70 Then
  6877.                 Call iedoc.replaceitemvalue("Form", "WebBrowser4Form")
  6878.             End If
  6879.             Call iedoc.replaceitemvalue("home", "1")
  6880.             Call iedoc.replaceitemvalue("SaveOptions", "1")
  6881.             Call ieDoc.replaceitemvalue("url", docprofile.openurl(0))
  6882.             Call ieDoc.save(True,False)
  6883.             Call w.viewrefresh
  6884.             Call w.editdocument(False, iedoc)
  6885.         End If
  6886.     End If
  6887. End Sub
  6888. '++LotusScript Development Environment:2:2:ViewForward:1:8
  6889. Sub ViewForward(docLocal As notesdocument)
  6890.     On Error Goto ErrorRoutine
  6891.     Dim url As Variant
  6892.     Dim webdoc As notesdocument
  6893.     Dim uid As notesuidocument
  6894.     Dim uid2 As notesuidocument
  6895.     Dim uid3 As notesuidocument
  6896.     url = docLocal.url
  6897.     Set webdoc = db.getdocumentbyurl(url(0))
  6898.     webdoc.forward="1"
  6899.     webdoc.save True, False
  6900.     Print "Webdoc is saved"
  6901.     w.viewrefresh
  6902.     w.viewrefresh
  6903.     Set uid = w.editdocument(False, webdoc)   
  6904.     Set uid2=w.currentdocument
  6905.     uid2.forward
  6906.     Set uid3 = w.currentdocument
  6907.     uid.close     
  6908.     webdoc.removeitem "Forward"
  6909.     webdoc.save True, False
  6910.     Exit Sub
  6911. ErrorRoutine:
  6912.     Messagebox Error & " (ViewForward)"
  6913.     Exit Sub
  6914. End Sub
  6915. '++LotusScript Development Environment:2:1:DuplicateBookmark:1:8
  6916. Function DuplicateBookmark(szURL) As Integer
  6917.     Dim bookmarkcollection As notesdocumentcollection
  6918.     Dim currentbookmark As notesdocument
  6919.     Dim dt As New NotesDateTime("1/1/90")
  6920.     DuplicateBookmark = False
  6921.     Set bookmarkcollection = db.search("bookmark=""1""",dt, 0)
  6922.     If bookmarkcollection.count <>0 Then
  6923.         For j = 1 To bookmarkcollection.count 
  6924.             Set currentbookmark = bookmarkcollection.getnthdocument(j)
  6925.             If currentbookmark.url(0) = szURL Then 
  6926.                 DuplicateBookmark = True
  6927.                 Exit For
  6928.             End If
  6929.         Next
  6930.     End If
  6931. End Function
  6932. '++LotusScript Development Environment:2:2:CheckRegistrySettings:1:8
  6933. Sub CheckRegistrySettings
  6934.      'sync Internet Options form
  6935.     Dim lpSubKey1 As String
  6936.     Dim IESearchURL As String
  6937.     Dim IEHomePageURL As String
  6938.     Dim NotesSearchURL As Variant
  6939.     Dim NotesHomePage As Variant
  6940.     Dim CompareResult As String
  6941.     If docProfile Is Nothing Then GetProfiledocument
  6942.      'Obtain values from the registry
  6943.     lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
  6944.     IESearchURL =  GetRegValue(lpsubkey1, "Search Page" )
  6945.     IEHomePageURL = GetRegValue(lpsubkey1, "Start Page")
  6946.      'Obtain Notes values
  6947.     NotesSearchURL = docprofile.SearchURL
  6948.     NotesHomePage = docprofile.OpenURL
  6949.      'Compare Search URL values 
  6950.     CompareResult = CompareValues(IESearchURL, NotesSearchURL(0))
  6951.     Select Case CompareResult
  6952.     Case "SetRegistry"
  6953.           'Put the Notes Value in the W32 Registry
  6954.         Call SetRegValue(lpSubKey1, "Search Page", NotesSearchURL(0))
  6955.     Case "SetNotes"
  6956.           'Put the W32 Registry value in Notes
  6957.         docprofile.SearchURL = IESearchURL
  6958.         Call docprofile.save(True, False)
  6959.     End Select
  6960.      'Compare Home Page Values only if load home page on open is selected.
  6961.     CompareResult = CompareValues(IEHomePageURL, NotesHomePage(0))
  6962.     Select Case CompareResult
  6963.     Case "SetRegistry"
  6964.           'Put the Notes Value in the W32 Registry
  6965.         Call SetRegValue(lpSubKey1, "Start Page", NotesHomePage(0))
  6966.     Case "SetNotes"
  6967.         docprofile.OpenUrl = IEHomePageURL
  6968.         Call docprofile.save(True, False)
  6969.     End Select
  6970. End Sub
  6971. '++LotusScript Development Environment:2:1:CompareValues:1:8
  6972. Function CompareValues(IEValue As String, NotesValue As Variant) As String
  6973.     If IEValue = NotesValue Then
  6974.           'The values are the same, don't do anything
  6975.         ComapreValues = "0"
  6976.         Exit Function
  6977.     Elseif IEValue ="" And NotesValue <> "" Then
  6978.         CompareValues = "SetRegistry"
  6979.         Exit Function
  6980.     Elseif IEValue <>"" And NotesValue = "" Then
  6981.         CompareValues = "SetNotes"
  6982.         Exit Function
  6983.     Elseif IEValue <> "" And NotesValue <> "" Then
  6984.         CompareValues = "DoNothing"
  6985.         Exit Function
  6986.     End If
  6987. End Function
  6988. '++LotusScript Development Environment:2:1:ParseFilename:1:8
  6989. Function ParseFilename(szPath As String) As String
  6990.      'This routine pulls the filename out of a path filename combination string.
  6991.      'This is a W32 and OS2 only function
  6992.     Dim strlength As Integer
  6993.     Dim currpos As Integer
  6994.     strlength = Len(szPath)
  6995.      'Extract to first \
  6996.     currpos = Instr(1, szPath, "\")
  6997.     While currpos <> 0  
  6998.           'keep extracting \ until we can't find anymore
  6999.         oldpos = currpos
  7000.         currpos = Instr(currpos+1, szPath, "\")
  7001.     Wend
  7002.     parsefilename = Right$(szPath, (strlength - oldpos))
  7003. End Function
  7004. '++LotusScript Development Environment:2:2:NotesForwardNote:1:8
  7005. Sub NotesForwardNote(doc As notesdocument)
  7006.     On Error Goto ErrorRoutine
  7007.     On Error 4412 Goto nomailfile
  7008.     If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options")) Then   
  7009.         Select Case doc.ForwardOptions(0)
  7010.         Case "1" : 'user wants to forward the URL only
  7011.             Call CreateIELink(doc.url(0), doc.title(0))
  7012.         Case "2" : 'user wants to send entire page
  7013.             Dim uid As notesuidocument
  7014.             Dim uid2 As notesuidocument
  7015.             Dim uid3 As notesuidocument
  7016.             Print "Creating mail memo..."
  7017.             w.viewrefresh
  7018.             w.viewrefresh
  7019.             Set uid = w.editdocument(False, doc)   
  7020.             Set uid2=w.currentdocument
  7021.             uid2.forward
  7022.             Set uid3 = w.currentdocument
  7023.             uid.close     
  7024.         End Select
  7025.           'remove any remaining fields that don't need to be carried around
  7026.         doc.RemoveItem "ForwardOptions" 
  7027.         doc.save True, False
  7028.     End If
  7029.     Exit Sub
  7030. ErrorRoutine:
  7031.     Messagebox Error & " (NotesForwardNote)"
  7032.     Exit Sub
  7033. NoMailFile:
  7034.     uid.close
  7035.     Exit Sub
  7036. End Sub
  7037. '++LotusScript Development Environment:2:1:ParseURL:1:8
  7038. Function ParseURL(url As String) As String
  7039.      'This routine returns the type of URL that is being evaluated
  7040.      'first pull out the protocol
  7041.     ParseURL = Left$(url, Len(url) - Instr(url, "://"))
  7042. End Function
  7043. Lotus Product
  7044. D,E,E
  7045. E4>@@
  7046. >`H`H`H
  7047. @(F(F
  7048. H    H    H
  7049. BtETDTD
  7050. ?\?\?
  7051. d"d'L&
  7052. d'D)h+
  7053. '$'$'
  7054. '4'h+
  7055. (d2l,
  7056. (L(L(\(\(,(,(
  7057. l(l(|(|(
  7058. +|+|+
  7059. \+\+l+l+
  7060. 1x6\4
  7061. 1|1|1
  7062. 3,3 5    
  7063. 5h6h6
  7064.  7 7P7P7`7`70707
  7065. h8h8l#
  7066. 8H8H8
  7067. 9P9P9P9 909
  7068. 0909,;
  7069. (:(:@<
  7070. l=d@\
  7071. TDPEH
  7072. $GH.*
  7073. ,l=Id
  7074. ,l=Id
  7075. Ql?I,
  7076. /}x #
  7077. )(:[t
  7078. #,@BJ0B
  7079. #K$$,
  7080. $,@C}
  7081. }$)#8
  7082. $,@C}
  7083. $,@C}
  7084. }$)#8
  7085. $,@C}
  7086. $,@CK
  7087. }$)#8(
  7088. $,@CK
  7089. $,@C}
  7090. }$)#8
  7091. $,@C}
  7092. $,@C}
  7093. }$)#8
  7094. $,@C}
  7095. $,@C}
  7096. }$)#8
  7097. $,@C}
  7098. ')T-#
  7099. '-@@#8
  7100. ^4'Kp
  7101. 'K$'S
  7102. K,(QHD}
  7103. KL(,TD#
  7104. +-@@#8f
  7105. +-,E#}
  7106. ^|+Kl+-PE#
  7107. Kl+,tE}
  7108. Kl+,tE}
  7109. /I\+#
  7110. ^$-K4--
  7111. E#,@BJ
  7112. -K$-,l=K
  7113. 0)T-#
  7114. 0,,?I
  7115. 1K|1,
  7116. 1,(FI\1]l1#1
  7117. Ql?ND2P0D
  7118. ?ND2P<D
  7119. ?ND2P<D
  7120. ,4>}P5#
  7121. >}h5#8e
  7122. 2,,?}h5#
  7123. J,350GI
  7124. 3,@GZ0G
  7125. 4,@BJ H
  7126. 4-<H#8L
  7127. 4-`H#
  7128. ^h5)l&#
  7129. Jh5}d
  7130. 5Kx5,
  7131. 5,(F}("Kd
  7132. 5,(F}
  7133. 5,(F}
  7134. 5,(F}
  7135. 5,(F}
  7136. 5,(F}("Kd
  7137. K07QHD}
  7138. KP7,TD#
  7139. ^H8K88,@BJ
  7140. KH8Sl?
  7141. 9}$<#
  7142. ^09Kd
  7143. ^@9Kd
  7144. ^P9)`9^
  7145. ^P9)`9^ 9
  7146. ;,TD#
  7147. O=Lotus Notes
  7148. O=Lotus Notes
  7149. PURSAFO
  7150. |.:#U
  7151. O=Lotus Notes
  7152. CN=Lotus Notes Template Development/O=Lotus Notes
  7153. PURSAFO
  7154. $TITLE
  7155. $Flags
  7156. $PublicAccess
  7157. $ScriptLib
  7158. $ScriptLib_O
  7159. Internet Options
  7160.     0S0E
  7161. O=Lotus Notes
  7162. O=Lotus Notes
  7163. PURSAFO
  7164. |.:#U
  7165. O=Lotus Notes
  7166. CN=Lotus Notes Template Development/O=Lotus Notes
  7167. PURSAFO
  7168. $TITLE
  7169. $Formula
  7170. '++LotusScript Development Environment:2:5:(Options):0:74
  7171. Use "AgentFunctions"
  7172. '++LotusScript Development Environment:2:5:(Forward):0:1
  7173. Declare Sub Initialize
  7174. Declare Function NeedToRun(Frequency As Variant) As Integer
  7175. Declare Sub MindURLs(Options As Variant)
  7176. Declare Function DocumentHasBeenRefreshed(CurrentUrl As Variant) As Integer
  7177. Declare Function AppendTitle(Title As String) As String
  7178. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7179. Dim PageMinderFolder As notesview
  7180. Dim EmailAddress As Variant
  7181. Dim CurrentWebDocument As notesdocument
  7182. Dim PreviousWebdocument As notesdocument
  7183. Dim Memo As NotesDocument
  7184. Dim AgentDoc As notesdocument
  7185. Dim Frequency As Variant
  7186. Dim ResultOptions As Variant
  7187. Dim LastRun As Variant
  7188. Dim PageMinderAgent As NotesAgent
  7189. Dim NewWebDocument As notesdocument
  7190. Dim LoadURLLinks As Integer
  7191. '++LotusScript Development Environment:2:2:Initialize:1:10
  7192. Sub Initialize
  7193.      
  7194.      '*
  7195.      '*  The purpose of this agent is to monitor specific pages within the page minder folder and e-mail
  7196.      '*  either changed pages or a newsletter summary to the current user or whoever is listed
  7197.      '*  in the Internet Profile as the email address.
  7198.      '*  This agent makes extensive use of Agent Logging functions.  Please check your local copy of agentlog.nsf 
  7199.      '*  for status and error messages.
  7200.      '*
  7201.      
  7202.      '*
  7203.      '*  Initialize Variables
  7204.      '*
  7205.      On Error Goto ProcessError
  7206.      
  7207.      InstantiateAgentObjects
  7208.      Set dataDoc = Session.SavedData
  7209.      Set WebDatabase = Session.CurrentDatabase
  7210.      Set PageMinderAgent = Session.CurrentAgent
  7211.      Set dt = New NotesDateTime ("1/1/90")
  7212.      
  7213.      LoadURLLinks = False
  7214.      
  7215.      '*
  7216.      '*  Open/Create the Agent Error Log on the client.
  7217.      '*
  7218.      
  7219.      Set AgentLog = OpenLog(PageMinderAgent.name)
  7220.      
  7221.      If LogLocation = "Agent Log" Then
  7222.           agentLog.LogErrors = True     
  7223.      End If
  7224.      
  7225.      Call logaction( "Starting Page Minder agent.....")
  7226.      
  7227.      If (datadoc Is Nothing) Then
  7228.           Set datadoc = New Notesdocument (WebDatabase) 
  7229.      End If
  7230.      '*
  7231.      '*  Make sure that the location settings are correct for local retrievals
  7232.      '*
  7233.      
  7234.      If WebLocationOK Then
  7235.           
  7236.      '*
  7237.      '*  Make sure that the database variable was initialized.
  7238.      '*
  7239.           
  7240.           If  (WebDatabase Is Nothing) Then
  7241.                
  7242.                Call logerror( 1, "Web Database could not be initialized. Exiting Program without checking URL's.")
  7243.                Goto Cleanup
  7244.           End If
  7245.           
  7246.      '*
  7247.      '*  Verify that the Page Minder Folder exists in the database.
  7248.      '*  If not, exit the program.
  7249.      '*
  7250.           
  7251.           Set PageMinderFolder = WebDatabase.getview("Web Bots\Page Minder")
  7252.           
  7253.           If (PageMinderFolder Is Nothing) Then
  7254.                Call logerror(2, "Could not find Page Minder Folder.  Please recheck database design and rerun.")
  7255.                Goto Cleanup
  7256.           End If
  7257.           
  7258.      '*
  7259.      '*  Now that the Page Minder Folder exists, check to see if there are any documents
  7260.      '*  in it.  If not, exit the program.
  7261.      '*
  7262.           Set CurrentWebDocument = PageMinderFolder.GetFirstDocument
  7263.           
  7264.           If (CurrentWebDocument Is Nothing) Then
  7265.                Call logaction( "No documents were found to mind in the Page Minder Folder." )
  7266.                Goto Cleanup
  7267.           End If
  7268.           
  7269.      '*
  7270.      '*  Now that we have verified that there are documents to be checked,
  7271.      '*  we need to retrieve the pertinent fields from the Internet Profile.
  7272.      '*
  7273.           
  7274.           
  7275.           If  ( View Is Nothing ) Then
  7276.                Call logerror(3, "Could not find Internet Profile view.  Recheck database design and rerun agent.")
  7277.                Goto Cleanup
  7278.           End If
  7279.           
  7280.      '*
  7281.      '*  Make sure that an Internet profile document exists in the database.
  7282.      '*  If not, exit the program.
  7283.      '*
  7284.           
  7285.           If (docProfile Is Nothing) Then
  7286.                Call logerror(4, "Internet Options document not found.  Select Actions - Internet Options and Save the document.")
  7287.                Goto Cleanup
  7288.           End If
  7289.           
  7290.      '*
  7291.      '*  Retrieve the frequency with which we should run the agent.
  7292.      '*  If this is blank, assume daily.
  7293.      '*
  7294.           
  7295.           Frequency = docProfile.SearchFrequency
  7296.           If Frequency(0) = "" Then
  7297.                Call logaction( "No frequency specified, assuming daily.")
  7298.                Call docProfile.Replaceitemvalue("SearchFrequency", "2")
  7299.                Call docProfile.Save(True,False)
  7300.                Frequency = docProfile.SearchFrequency
  7301.           End If
  7302.           
  7303.      '*
  7304.      '*  Retrieve the SendMailTo field to determine where we send
  7305.      '*  results to.  If this is blank, sub in the current username.
  7306.      '*
  7307.           EmailAddress = docProfile.SendMailto
  7308.           If EmailAddress(0) = "" Then
  7309.                Call logaction( "No address specified to send results to.  Assuming " + session.username)
  7310.                Call docProfile.Replaceitemvalue("SendMailto", Session.Username)
  7311.                Call docProfile.Save(True,False)
  7312.                EmailAddress = docProfile.SendMailto
  7313.           End If
  7314.           
  7315.      '*
  7316.      '*  Retrieve the value of the UpdatesFoundOptions field
  7317.      '*  to determine what it is that we should do with the results 
  7318.      '*  of the Pages that have changed.  If it's blank, assume 
  7319.      '*  newsletter summary.
  7320.      '*
  7321.           ResultOptions = docProfile.UpdatesFoundOptions
  7322.           If ResultOptions(0) = "" Then
  7323.                Call logaction( "No format for results specified. Assuming newsletter summary." )
  7324.                Call docProfile.Replaceitemvalue("UpdatesFoundOptions", "1")
  7325.                Call docProfile.Save(True,False)
  7326.                ResultOptions = docProfile.UpdatesFoundOptions
  7327.           End If
  7328.           
  7329.      '*
  7330.      '*  Now determine if we have to check the pages based on the last time this
  7331.      '*  agent is run.  
  7332.      '*
  7333.           
  7334.           If PageMinderAgent.LastRun <> "" Then
  7335.                If (NeedToRun (Frequency)) Then
  7336.                     Call logaction( "Frequency indicates that we need to check the urls.")
  7337.                     MindURLs(ResultOptions(0))
  7338.                End If
  7339.           Else
  7340.                'This must be the first time we've run this so we don't need to check when it was last run.
  7341.                MindURLs(ResultOptions(0))
  7342.           End If
  7343.           
  7344.      End If
  7345.      Goto cleanup  
  7346. ProcessError:
  7347.      Call logerror(Err, Error$)
  7348.      Call logaction("The preceeding error occurred in the Initialize routine of the Purge Agent.")
  7349.      Resume Next     
  7350. Cleanup:  'Cleanup all the old memo forms created by the agent
  7351.      Set documents = db.search("form = ""Memo""", dt, 0)
  7352.      If documents.count<>0 Then
  7353.           For j = 1 To documents.count
  7354.                Set memo = documents.getnthdocument(j)
  7355.                memo.remove True
  7356.           Next
  7357.      End If
  7358.      Call logaction("Page Minder Agent finished."     )
  7359.      If LogLocation = "Agent Log" Then
  7360.           Call agentlog.close
  7361.      End If
  7362. End Sub
  7363. '++LotusScript Development Environment:2:1:NeedToRun:1:8
  7364. Function NeedToRun(Frequency As Variant) As Integer
  7365.      
  7366.      '*
  7367.      '*  This function determines if we need to run the agent
  7368.      '*  based on the frequency selection in the Internet Profile
  7369.      '*  The function returns a value of true or false depending on when the agent
  7370.      '*  was last run.
  7371.      '*
  7372.      
  7373.      On Error Goto ProcessError     
  7374.      Dim CurrentTime As New  NotesDatetime ("Now")
  7375.      Dim LastRunDate As New NotesDateTime(datadoc.LastRunTime(0))
  7376.      Dim Starttime As New NotesDateTime("1/1/70")
  7377.      NeedToRun = False
  7378.      Call CurrentTime.Setnow
  7379.      If LastRunDate.lslocaltime < Starttime.lslocaltime Then
  7380.           NeedToRun = True
  7381.           Exit Function
  7382.      End If
  7383.      
  7384.      Select Case Frequency(0) 
  7385.           
  7386.      Case  "0"
  7387.           
  7388.           If CurrentTime.timedifference(LastRunDate) > 3600  Or  Isempty(LastRunDate.LocalTime) Then
  7389.                Call logaction( "It's been more than an hour, time to mind the URL's")
  7390.                NeedToRun = True
  7391.           End If
  7392.      Case "1"
  7393.           If CurrentTime.timedifference(LastRunDate) >14400 Or  Isempty(LastRunDate.LocalTime)  Then
  7394.                Call logaction( "It's been more than 4 hours, time to mind the URL's")
  7395.                NeedToRun = True
  7396.           End If
  7397.      Case "2"
  7398.           If CurrentTime.timedifference(LastRunDate) >86400 Or  Isempty(LastRunDate.LocalTime)   Then
  7399.                Call logaction( "It's been more than a day, time to mind the URL's")
  7400.                NeedToRun = True
  7401.           End If
  7402.      Case  "3"
  7403.           If CurrentTime.timedifference(LastRunDate) > 604800 Or  Isempty(LastRunDate.LocalTime)  Then
  7404.                Call logaction( "It's been more than a week, time to mind the URL's")
  7405.                NeedToRun = True
  7406.           End If
  7407.      End Select
  7408.      Exit Function
  7409.      
  7410. ProcessError:
  7411.      Call logerror(Err, Error$)
  7412.      Call logaction("The preceeding error occurred in the NeedToRun routine of the Page Minder Agent.")
  7413.      Resume Next 
  7414.      
  7415. End Function
  7416. '++LotusScript Development Environment:2:2:MindURLs:1:8
  7417. Sub MindURLs(Options As Variant)
  7418.      
  7419.      '*
  7420.      '*  This subroutine performs the test on each document in the page minder
  7421.      '*  folder to see if the document has changed.  If it has, it sends the requested form
  7422.      '*  of e-mail to the user specified in the Internet options.
  7423.      '*
  7424.      On Error Goto ProcessError
  7425.      
  7426.      Dim url As Variant
  7427.      Dim Memo As NotesDocument
  7428.      Dim Memo1 As NotesDocument
  7429.      Dim Body As NotesrichTextItem
  7430.      Dim Body1 As NotesrichTextItem
  7431.      Dim Body2 As NotesrichTextItem
  7432.      Dim background As notesitem
  7433.      Dim papercolor As notesitem
  7434.      Dim SendMail As Integer
  7435.      Dim FirstTime As Integer
  7436.      Dim Successful As Integer
  7437.      
  7438.      If Options = "1" Then
  7439.           Set Memo = New NotesDocument(WebDatabase)
  7440.           Set Body = New NotesRichTextItem(Memo, "Body")
  7441.           Set Body1 = New NotesRichTextItem(Memo, "Body1")
  7442.           Set Body2 = New NotesRichTextItem(Memo, "Body2")
  7443.           Call Memo.ReplaceItemValue( "Subject", "Results of Page Minder Agent for "+ WebDatabase.Filename )
  7444.           Call Memo.ReplaceItemValue( "Form", "Memo" )
  7445.           Call Memo.Save(True,False)
  7446.           SendMail = False
  7447.           FirstTime = True
  7448.           Successful = True
  7449.      Elseif Options = "0" Then
  7450.           Sendmail = False
  7451.           FirstTime = True
  7452.      End If
  7453.      
  7454.      While Not (CurrentWebDocument Is Nothing) 
  7455.           If CurrentWebdocument.form(0) = "HelpForm"  Then Goto nextdocument
  7456.           If CurrentWebDocument.hasitem("url") Then
  7457.                url = CurrentWebDocument.url(0)
  7458.                
  7459.                If url = "" Then
  7460.                     Call logerror(7,  "URL field is empty.  Remove the page from the Page Minder Folder.")
  7461.                     Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "2")
  7462.                     Call CurrentWebDocument.Save(True, False)
  7463.                     Goto NextDocument
  7464.                End If
  7465.                
  7466.                If (CurrentWebDocument.HTTPStatus(0) <> "200") Or (CurrentWebDocument.HTTPStatus(0) <> "304") Then
  7467.                     Goto Continue  
  7468.                End If
  7469.                
  7470.                If CurrentWebDocument.HTTPLast_Modified(0) = "" Then
  7471. NoLastModified:
  7472.                     If Options = "1"  And FirstTime Then
  7473.                          Call Body1.AddNewLine(1)
  7474.                          Call Body1.AppendText("The following pages are on HTTP servers which do not support the Last-Modified command:")
  7475.                          Call Body1.AddNewLine(2)
  7476.                          Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
  7477.                          Call Body1.AddTab(2)
  7478.                          Call Body1.AppendText(CurrentWebdocument.url(0))
  7479.                          Call Body1.AddNewLine(1)
  7480.                          Call Memo.Save(True, False)
  7481.                          FirstTime = False
  7482.                          SendMail = True
  7483.                     Elseif Options = "1" Then
  7484.                          Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
  7485.                          Call Body1.AddTab(2)
  7486.                          Call Body1.AppendText(CurrentWebdocument.url(0))
  7487.                          Call Body1.AddNewLine(1)
  7488.                          Call Memo.Save(True, False)
  7489.                          SendMail = True
  7490.                     Elseif Options = "0" And FirstTime Then
  7491.                          Set Memo1 = New NotesDocument(WebDatabase)
  7492.                          Set Body1 = New NotesRichTextItem(Memo1, "Body")  
  7493.                          Call Memo1.ReplaceItemValue( "Subject", "Results of Page Minder Agent for "+WebDatabase.Filename  )
  7494.                          Call Memo1.ReplaceItemValue( "Form", "Memo" )
  7495.                          Call Body1.AppendText("The following pages are on HTTP servers which do not support the Last-Modified command:")
  7496.                          Call Body1.AddNewLine(2)
  7497.                          Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
  7498.                          Call Body1.AddTab(2)
  7499.                          Call Body1.AppendText(CurrentWebdocument.url(0))
  7500.                          Call Body1.AddNewLine(1)
  7501.                          Call Memo1.Save(True, False)
  7502.                          FirstTime = False
  7503.                          SendMail = True
  7504.                     Elseif Options = "0" Then
  7505.                          Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
  7506.                          Call Body1.AddTab(2)
  7507.                          Call Body1.AppendText(CurrentWebdocument.url(0))
  7508.                          Call Body1.AddNewLine(1)
  7509.                          Call Memo1.Save(True, False)
  7510.                          SendMail = True
  7511.                     End If
  7512.                     Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "1")
  7513.                     Call CurrentWebDocument.Save(True, False)
  7514.                     Goto NextDocument
  7515.                End If
  7516.                
  7517. Continue:
  7518.                Set NewWebDocument = RetrieveOverInternet(url,CurrentWebDocument,LoadURLLinks) 
  7519.                If NewWebDocument.HTTPStatus(0) = "401" Then Goto AuthenticationFailed
  7520.                If NewWebDocument.HTTPLast_Modified(0) = "" Then  Goto NoLastModified    
  7521.                If  DocumentHasBeenRefreshed(url) Then
  7522.                     If (NewWebDocument.HTTPStatus(0) = "200") Or (NewWebdocument.HTTPStatus(0) = "304")  Then
  7523.                          Call agentlog.logaction( "Successfully retrieved " +NewWebDocument.URL(0)+" page")
  7524.                          Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "0")
  7525.                          Call NewWebdocument.Save(True,False)
  7526.                          Call NewWebdocument.PutInFolder("Web Bots\Page Minder")
  7527.                          
  7528.                          If Options = "0" Then
  7529.                               Set Memo = New NotesDocument(WebDatabase)
  7530.                               Call Memo.ReplaceItemValue( "Subject", "Results of Page Minder Agent for " + NewWebDocument.url(0)+ " in the file "+WebDatabase.Filename)
  7531.                               Call Memo.Replaceitemvalue("Form", "Memo")
  7532.                               If NewWebdocument.hasitem("$Background") Then
  7533.                                    Set background = NewWebdocument.getfirstitem("$Background")
  7534.                                    Call memo.copyitem(background, "$Background")
  7535.                               End If
  7536.                               If NewWebdocument.hasitem("$PaperColor") Then
  7537.                                    Set papercolor = NewWebdocument.getfirstitem("$PaperColor")
  7538.                                    Call memo.copyitem(papercolor, "$PaperColor")
  7539.                               End If
  7540.                               Set Body = New NotesRichTextItem(Memo, "Body")  
  7541.                               Call NewWebDocument.Rendertortitem(Body)
  7542.                               Call Memo.save(True,False)
  7543.                               Call Memo.send(False, EMailAddress)
  7544.                          Elseif Options ="1" And Successful Then
  7545.                               Call Body2.AddNewLine(1)
  7546.                               Call Body2.AppendText("The following pages have changed as of "+Cstr(Today)+":")   
  7547.                               Call Body2.AddNewLine(2)
  7548.                               Call Body2.AppendText(AppendTitle(NewWebDocument.Title(0)))
  7549.                               Call Body2.AddTab(2)
  7550.                               Call Body2.AppendText(NewWebDocument.url(0))
  7551.                               Call Body2.AddNewLine(1)
  7552.                               Call Memo.Save(True, False)
  7553.                               Successful = False
  7554.                               SendMail = True
  7555.                          Elseif Options = "1" Then
  7556.                               Call Body2.AppendText(AppendTitle(NewWebDocument.Title(0)))
  7557.                               Call Body2.AddTab(2)
  7558.                               Call Body2.AppendText(NewWebDocument.url(0))
  7559.                               Call Body2.AddNewLine(1)
  7560.                               Call Memo.Save (True, False)
  7561.                               SendMail = True
  7562.                          End If
  7563.                     Elseif NewWebDocument.HTTPStatus(0) = "401" Then
  7564. AuthenticationFailed:
  7565.                          Call logerror(8,"Page Minder does not have required authentication information for "+NewWebDocument.url(0)+".  Page was not retrieved correctly.")
  7566.                          Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "2")
  7567.                          Call NewWebDocument.Save(True, False)
  7568.                          Call NewWebdocument.removefromfolder("Web Bots\Page Minder")
  7569.                          If GetLocationItem("WebRetriever")(0) <> "3" Then
  7570.                               Dim AuthenticationMemo As New Notesdocument(WebDatabase)
  7571.                               Set Body = New NotesRichTextItem(AuthenticationMemo, "Body")
  7572.                               Call AuthenticationMemo.ReplaceItemValue( "Subject", "Page Minder Requires Authentication Information ")
  7573.                               Call AuthenticationMemo.ReplaceItemValue( "Form", "Memo" )
  7574.                               Call Body.AddNewLine(1)
  7575.                               Call Body.Appendtext("The following page requires authentication information.  Please retreive the page manually and move it to the Page Minder folder again.")
  7576.                               Call Body.AddNewLine(2)
  7577.                               Call Body.AppendDocLink(NewWebDocument, NewWebDocument.url(0))
  7578.                               Call Body.AddTab(2)
  7579.                               Call Body.AppendText(NewWebDocument.Title(0))
  7580.                               Call Body.AddNewLine(1)
  7581.                               Call AuthenticationMemo.Save (True, False)
  7582.                               Call AuthenticationMemo.send(False, EMailAddress)
  7583.                          Else
  7584.                               Call agentlog.Logaction("Page Minder does not support authenticated pages when using the Notes with Internet Explorer setting.")
  7585.                          End If
  7586.                     Else
  7587.                          Call logerror(9, "Page Minder received a bad status code of " + Cstr(NewWebDocument.HttpStatus(0)) +".  Page " + Cstr(NewWebDocument.url(0))+" was not retrieved correctly.")
  7588.                          Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "2")
  7589.                          Call NewWebDocument.Save(True, False)
  7590.                     End If
  7591.                Else
  7592.                     Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "3")
  7593.                     Call CurrentWebDocument.Save(True, False)
  7594.                End If
  7595.           Else
  7596.                Call logerror(7, "URL field is not present on the note.  Remove from Page Minder Folder.")
  7597.                Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "2")
  7598.                Call CurrentWebDocument.Save(True, False)
  7599.           End If      
  7600. NextDocument:
  7601.           
  7602.           Set CurrentWebDocument=PageMinderFolder.GetNextDocument(CurrentWebDocument)
  7603.           
  7604.      Wend
  7605.      
  7606.      If SendMail Then
  7607.      '*
  7608.      '* Now that we're done checking the pages, if the user
  7609.      '* requested a newsletter summary of the results, let's mail it.
  7610.      '*
  7611.           If Options = "1" Then
  7612.                Set Body = New NotesRichTextItem(Memo, "Body")  
  7613.                If Body2.Type = RICHTEXT Then
  7614.                     Call Body.Appendrtitem(Body2)
  7615.                End If
  7616.                If Not (Body1 Is Nothing) Then
  7617.                     If Body1.Type = RICHTEXT Then
  7618.                          Call Body.Appendrtitem( Body1)
  7619.                     End If
  7620.                End If
  7621.                Call Memo.Save(True, False)
  7622.                Call Memo.Send(False, EMailAddress)
  7623.           Elseif Options = "0" And Not (Memo1 Is Nothing) Then
  7624.                If Body1.Type  =  RICHTEXT Then
  7625.                     Call Memo1.send(False,EMailAddress)
  7626.                End If
  7627.           End If
  7628.      End If
  7629.      Goto EndSub
  7630.      
  7631. ProcessError:
  7632.      Call logerror(Err, Error$)
  7633.      Call logaction("The preceeding error occurred in the MindURLs routine of the Page Minder agent.")
  7634.      Resume Next     
  7635. EndSub:
  7636.      Call datadoc.Replaceitemvalue("LastRunTime", Now)
  7637.      Call datadoc.Save(True,False)
  7638. End Sub
  7639. '++LotusScript Development Environment:2:1:DocumentHasBeenRefreshed:1:8
  7640. Function DocumentHasBeenRefreshed(CurrentUrl As Variant) As Integer
  7641.      
  7642.      '*
  7643.      '*  The purpose of this function is to determine if the web page
  7644.      '*  that we are monitoring has changed.  If it has, the function
  7645.      '*  returns true.
  7646.      '*
  7647.      Dim LastRunDate As New NotesDateTime(datadoc.LastRunTime(0))
  7648.      DocumentHasBeenRefreshed = False     
  7649.      
  7650.      '*
  7651.      '*  Get the date that the document was last refreshed and
  7652.      '*  save it for future comparisons.
  7653.      '*
  7654.      
  7655.      
  7656.      Dim DateLastModified As New NotesDateTime(NewWebDocument.HTTPLast_modified(0))
  7657.      If (DebugFlag = "1") Then
  7658.           Call logaction( "Date Last Modified (GMT): " + Cdat(DateLastModified.LSGMTTime))
  7659.      End If
  7660.      
  7661.      
  7662.      
  7663.      If Cdat(DateLastModified.LSGMTTime) > Cdat(LastRunDate.LSGMTTime) Or Isempty(LastRunDate.LocalTime) Then
  7664.           DocumentHasBeenRefreshed = True
  7665.      End If
  7666.      
  7667.      
  7668. End Function
  7669. '++LotusScript Development Environment:2:1:AppendTitle:1:8
  7670. Function AppendTitle(Title As String) As String
  7671.      Dim titlelength As Integer
  7672.      titlelength = Len(title)
  7673.      If titlelength<40 Then
  7674.           NewTitle = "                                        "
  7675.           Lset NewTitle = title
  7676.           AppendTitle = NewTitle
  7677.      Elseif titlelength >40 Then
  7678.           AppendTitle = Left$(title, 40)
  7679.      End If
  7680. End Function
  7681. Lotus Product)\    V0.0
  7682. O=Lotus Notes
  7683. O=Lotus Notes
  7684. PURSAFO
  7685. |.:#U
  7686. O=Lotus Notes
  7687. CN=Lotus Notes Template Development/O=Lotus Notes
  7688. PURSAFO
  7689. $TITLE
  7690. $AssistType
  7691. $AssistLastRun
  7692. $AssistDocCount
  7693. $AssistFlags
  7694. $AssistTrigger
  7695. $AssistInfo
  7696. $AssistQuery
  7697. $AssistAction
  7698. $AssistAction_Ex
  7699. '++LotusScript Development Environment:2:5:(Options):0:74
  7700. Option Public
  7701. '++LotusScript Development Environment:2:5:(Forward):0:1
  7702. Declare Sub InstantiateAgentObjects
  7703. Declare Function OpenLog(AgentName As String) As NotesLog
  7704. Declare Function RetrieveOverInternet (CurrentURL As Variant, Doc As Notesdocument,  LoadURLLinks) As Notesdocument
  7705. Declare Function WebLocationOK As Integer
  7706. Declare Function GetLocalNAB() As NotesDatabase
  7707. Declare Sub Terminate
  7708. Declare Sub RemoveObjects(doc As notesdocument)
  7709. Declare Sub LogAction (Action As String)
  7710. Declare Sub LogError (ErrorCode As Long, ErrorText As String)
  7711. Declare Function GetLocationItem (itemname As String) As Variant
  7712. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7713. Dim Session As notessession
  7714. Dim  DebugFlag As String
  7715. Dim agentlog As noteslog
  7716. Dim CurrentAgent As NotesAgent
  7717. Dim WebDatabase As NotesDatabase
  7718. Dim datadoc As notesdocument
  7719. Dim db As notesdatabase
  7720. Dim view As notesview
  7721. Dim docprofile As notesdocument
  7722. Dim loglocation As String
  7723. Dim dt As notesdatetime
  7724. '++LotusScript Development Environment:2:2:InstantiateAgentObjects:1:8
  7725. Sub InstantiateAgentObjects
  7726.     Set session = New NotesSession
  7727.     Set db = session.CurrentDatabase
  7728.     Set view = db.GetView("(Internet Profile)")
  7729.     Set docProfile = view.GetFirstDocument
  7730. End Sub
  7731. '++LotusScript Development Environment:2:1:OpenLog:1:8
  7732. Function OpenLog(AgentName As String) As NotesLog
  7733.      '*
  7734.      '*  The purpose of this subroutine is to find and/or create the Notes Agent Log
  7735.      '*  for the local client using the StdR4AgentLog template.
  7736.      '*
  7737.     Dim directory As notesdbdirectory
  7738.     Dim db As notesdatabase
  7739.     Dim done As Variant
  7740.     On Error Goto errorroutine
  7741.     Set directory = New notesdbdirectory("")
  7742.     Set db = directory.getfirstdatabase(DATABASE)
  7743.     done = False
  7744.     While Not (db Is Nothing) And Not done
  7745.         Call db.open("", "")
  7746.         If (db.designtemplatename = "StdR4AgentLog") Then
  7747.             done = True
  7748.         Elseif db.filename = "agentlog.nsf" Then
  7749.             done = True
  7750.         Else
  7751.             Set db = directory.getnextdatabase
  7752.         End If
  7753.     Wend
  7754.     If done Then
  7755.         Set AgentLog = New noteslog ("Log for " & AgentName)
  7756.         Call AgentLog.opennoteslog (db.server, db.filepath)
  7757.         LogLocation = "Agent Log"
  7758.     Else     
  7759.         Dim alogdb As New notesdatabase("", "ALOG4.NTF")      
  7760.         Dim logdb As notesdatabase
  7761.         If alogdb.isopen Then               
  7762.             Set logdb = alogdb.createfromtemplate("", "agentlog", True)
  7763.             Set agentlog = New noteslog ("Log for " & AgentName)
  7764.             Call agentlog.opennoteslog ("", "agentlog.nsf")
  7765.             LogLocation = "Agent Log"
  7766.         Else
  7767.               'Agent log template not found, using print statements to log to the Notes log
  7768.             loglocation = "Notes Log"
  7769.             Exit Function               
  7770.         End If
  7771.     End If
  7772.     Set  OpenLog = Agentlog    
  7773.     Exit Function
  7774. ErrorRoutine:
  7775.     Messagebox Error & " (OpenLog)"
  7776.     Exit Function
  7777. End Function
  7778. '++LotusScript Development Environment:2:1:RetrieveOverInternet:1:8
  7779. Function RetrieveOverInternet (CurrentURL As Variant, Doc As Notesdocument,  LoadURLLinks) As Notesdocument
  7780.      '*
  7781.      '*  The purpose of this subroutine is to retrieve a web page over the net.
  7782.      '*  Various checks in here are present to determine if the user 
  7783.      '*  is trying to access an authenticated page or access via a proxy.  
  7784.      '*
  7785.     Dim authinfo As Variant
  7786.     Dim username As String
  7787.     Dim password As String
  7788.     Dim proxyinfo As Variant
  7789.     Dim proxyusername As String
  7790.     Dim proxypassword As String
  7791.     Dim Currentdomain As String
  7792.     If Doc Is Nothing Then
  7793.          '*
  7794.          '*  If no document was passed in then we are just dealing with a url.
  7795.           '*  Just in case the url may be from an authenticated site, we need
  7796.           '* to check the data note for the authentication information
  7797.           '*
  7798.         CurrentDomain = (Left(Currenturl, (Instr(8, Currenturl, "/", 1))))
  7799.         If datadoc.hasitem(currentdomain+"auth") And datadoc.hasitem(currentdomain+"proxy") Then
  7800.             authinfo =datadoc.getitemvalue(currentdomain+"auth")
  7801.             username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
  7802.             password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
  7803.             proxyinfo = datadoc.getitemvalue(currentdomain+"proxy")
  7804.             proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
  7805.             proxypassword = Right(proxyinfo(0), Len(proxyinfo(0))-(Instr(proxyinfo(0), ":"))) 
  7806.             If LoadURLLinks Then
  7807.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)  
  7808.             Else
  7809.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password,proxyusername,proxypassword)  
  7810.             End If
  7811.             Exit Function
  7812.         Elseif datadoc.hasitem(currentdomain+"auth") And Not datadoc.hasitem(currentdomain+"proxy") Then
  7813.             authinfo = datadoc.getitemvalue(currentdomain+"auth")
  7814.             username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
  7815.             password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
  7816.             If LoadURLLinks Then
  7817.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
  7818.             Else
  7819.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password)
  7820.             End If
  7821.             Exit Function
  7822.         Elseif datadoc.hasitem(currentdomain+"proxy") And Not datadoc.hasitem(currentdomain+"auth") Then
  7823.             proxyinfo = datadoc.getitemvalue(currentdomain+"proxy")
  7824.             proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
  7825.             proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0))-Instr(proxyinfo(0), ":")))
  7826.             If LoadURLLinks Then
  7827.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
  7828.             Else
  7829.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"", "", "", proxyusername, proxypassword)
  7830.             End If
  7831.             Exit Function
  7832.         Else
  7833.             If LoadURLLinks Then
  7834.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1)  
  7835.             Else
  7836.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0)
  7837.             End If
  7838.             Exit Function
  7839.         End If
  7840.           '*
  7841.           '*  If a document did get passed in as an argument, check to see if authentication information exists on it
  7842.           '*  If the information does exist, store it on the data note for the agent.
  7843.           '*
  7844.     Else 
  7845.         If Doc.hasitem("$User_Authentication") And Doc.hasitem("$Proxy_Authentication") Then
  7846.             authinfo = Doc.getitemvalue("$User_Authentication")
  7847.             username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
  7848.             password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
  7849.             proxyinfo = Doc.getitemvalue("$Proxy_Authentication")
  7850.             proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
  7851.             proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0)) -Instr(proxyinfo(0), ":"))) 
  7852.             CurrentDomain = (Left(Currenturl, (Instr(8, currenturl, "/", 1))))
  7853.             If datadoc.hasitem(currentdomain+"auth") And datadoc.hasitem(currentdomain+"proxy") Then
  7854.                 If LoadURLLinks Then
  7855.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)  
  7856.                 Else
  7857.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password,proxyusername,proxypassword)  
  7858.                 End If
  7859.                 Exit Function
  7860.             Else
  7861.                 Call datadoc.replaceitemvalue(currentdomain+"auth", authinfo)
  7862.                 Call datadoc.replaceitemvalue(currentdomain+"proxy",proxyinfo)
  7863.                 Call datadoc.save(True, False)
  7864.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)  
  7865.             End If
  7866.         Elseif Doc.hasitem("$User_Authentication") And Not Doc.hasitem("$Proxy_Authentication") Then
  7867.             authinfo = Doc.getitemvalue("$User_Authentication")
  7868.             username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
  7869.             password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
  7870.             CurrentDomain = (Left(currenturl, (Instr(8, currenturl, "/", 1))))
  7871.             If datadoc.hasitem(currentdomain+"auth") Then
  7872.                 If LoadURLLinks Then
  7873.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
  7874.                 Else
  7875.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password)
  7876.                 End If
  7877.                 Exit Function
  7878.             Else
  7879.                 Call datadoc.replaceitemvalue(currentdomain+"auth", authinfo)
  7880.                 Call datadoc.save(True,False)
  7881.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
  7882.             End If
  7883.         Elseif Doc.hasitem("$Proxy_Authentication") And Not Doc.hasitem("$User_Authentication") Then
  7884.             proxyinfo = Doc.getitemvalue("$Proxy_Authentication")
  7885.             proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
  7886.             proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0)) - Instr(proxyinfo(0), ":")))
  7887.             CurrentDomain = (Left(Currenturl, (Instr(8, currenturl, "/", 1))))
  7888.             If datadoc.hasitem(currentdomain+"proxy") Then
  7889.                 If LoadURLLinks Then
  7890.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
  7891.                 Else
  7892.                     Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"", "", "", proxyusername, proxypassword)
  7893.                 End If
  7894.                 Exit Function
  7895.             Else
  7896.                 Call datadoc.replaceitemvalue(currentdomain+"proxy", proxyinfo)
  7897.                 Call datadoc.save(True,False)
  7898.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
  7899.             End If
  7900.             Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
  7901.         Else
  7902.             If LoadURLLinks Then
  7903.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1)  
  7904.             Else
  7905.                 Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0)
  7906.             End If
  7907.         End If
  7908.     End If
  7909. End Function
  7910. '++LotusScript Development Environment:2:1:WebLocationOK:1:8
  7911. Function WebLocationOK As Integer
  7912.      '*
  7913.      '*  This function verifies that the current location settings are correct for local web retrievals.
  7914.      '*
  7915.     WebLocationOK = True
  7916.     Dim PrivateAddressBook As notesdatabase
  7917.     Dim CurrentLocation As notesdocument
  7918.     Dim LocationString As String     
  7919.     Set PrivateAddressBook = GetLocalNAB
  7920.     If (PrivateAddressBook Is Nothing) Then
  7921.         Call agentlog.logaction( "Cannot verify current location settings.  Unable to open private address book.  Proceeding with  agent") 
  7922.         Exit Function
  7923.     End If
  7924.     LocationString = Session.GetEnvironmentString ( "Location", True)
  7925.     If LocationString <> "" Then
  7926.         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  7927.         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  7928.         Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
  7929.         If Not (CurrentLocation Is Nothing) Then
  7930.             If CurrentLocation.WebLogLevel(0) <> "0" Then
  7931.                 DebugFlag = "1"
  7932.             End If
  7933.             If CurrentLocation.WebRetriever(0) = "0" Or CurrentLocation.WebRetriever(0) = "3" Then
  7934.                 Goto CheckLocation
  7935.             Else
  7936.                 Call agentlog.logerror(5, "Your current location indicates that Notes is not specified as your Web Retriever.")
  7937.                 WebLocationOK = False
  7938.                 Exit Function
  7939.             End If
  7940. CheckLocation:
  7941.             If CurrentLocation.WebLocation(0) <> "1" Then
  7942.                 Call agentlog.logerror(6, "Your current location indicates that you are not setup for Local Web retrievals.")
  7943.                 WebLocationOK = False
  7944.                 Exit Function
  7945.             End If
  7946.         Else
  7947.             Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Can't find location document.")
  7948.             Exit Function
  7949.         End If
  7950.     Else
  7951.         Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Location string is empty." )
  7952.         Exit Function
  7953.     End If     
  7954. End Function
  7955. '++LotusScript Development Environment:2:1:GetLocalNAB:1:8
  7956. Function GetLocalNAB() As NotesDatabase
  7957.     Dim sAddressBook As String
  7958.     Dim nCommaLocation As Integer
  7959.     On Error Resume Next
  7960.     sAddressBook = session.GetEnvironmentString("NAMES", True)
  7961.     nCommaLocation = Instr(sAddressBook, ",")
  7962.     If nCommaLocation > 0 Then sAddressBook = Left(sAddressBook, nCommaLocation-1)
  7963.     Set GetLocalNAB = New NotesDatabase("",sAddressBook)
  7964. End Function
  7965. '++LotusScript Development Environment:2:2:Terminate:1:10
  7966. Sub Terminate
  7967. End Sub
  7968. '++LotusScript Development Environment:2:2:RemoveObjects:1:8
  7969. Sub RemoveObjects(doc As notesdocument)
  7970.     Dim imagepage As notesdocument
  7971.     If doc.hasitem("$ImageList") Then
  7972.         Dim images As Variant
  7973.         images  = doc.getitemvalue("$ImageList")
  7974.         Forall j In images
  7975.             If j <> "" Then
  7976.                 Set imagepage = db.getdocumentbyurl(j)
  7977.                 If Not(imagepage Is Nothing) Then
  7978.                     imagepage.remove True
  7979.                 End If
  7980.             End If
  7981.         End Forall
  7982.     End If
  7983. End Sub
  7984. '++LotusScript Development Environment:2:2:LogAction:1:8
  7985. Sub LogAction (Action As String)
  7986.     If LogLocation = "Agent Log" Then
  7987.         Call agentlog.logaction(Action)
  7988.     Elseif LogLocation = "Notes Log" Then
  7989.         Print Action
  7990.     End If
  7991. End Sub
  7992. '++LotusScript Development Environment:2:2:LogError:1:8
  7993. Sub LogError (ErrorCode As Long, ErrorText As String)
  7994.     If LogLocation = "Agent Log" Then
  7995.         Call agentlog.logerror(ErrorCode, ErrorText)
  7996.     Else
  7997.         Print Error & ErrorText
  7998.     End If
  7999. End Sub
  8000. '++LotusScript Development Environment:2:1:GetLocationItem:1:8
  8001. Function GetLocationItem (itemname As String) As Variant
  8002.      '*
  8003.      '*  This function returns a data item from the current location note
  8004.      '*
  8005.     InstantiateAgentObjects
  8006.     GetLocationItem = ""
  8007.     Dim PrivateAddressBook As notesdatabase
  8008.     Dim CurrentLocation As notesdocument
  8009.     Dim LocationString As String     
  8010.     Set PrivateAddressBook = GetLocalNAB
  8011.     If (PrivateAddressBook Is Nothing) Then
  8012.         Print "Warning:  Cannot open private address book."
  8013.         Exit Function
  8014.     End If
  8015.     LocationString = Session.GetEnvironmentString ( "Location", True)
  8016.     If LocationString <> "" Then
  8017.         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
  8018.         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
  8019.         Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
  8020.         If Not (CurrentLocation Is Nothing) Then
  8021.             GetLocationItem = CurrentLocation.getitemvalue(itemname)
  8022.         Else
  8023.             Call agentlog.logaction("Warning:  Unable to verify current location settings.  Can't find location document.") 
  8024.             Exit Function
  8025.         End If
  8026.     Else
  8027.         Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Location string is empty." )
  8028.         Exit Function
  8029.     End If     
  8030. End Function
  8031. Lotus Product
  8032.     J0    J@    
  8033.     J0    J@    
  8034. P    @    @    
  8035.     J0    J@    
  8036.     J0    J@    
  8037. J0    J@    
  8038. J0    J@    
  8039.     J0    J@    
  8040.     J0    J@    
  8041. ^     #1
  8042.     J0    J@    
  8043. J0    J@    
  8044. J0    J@    
  8045. ^     #1
  8046. J0    J@    
  8047. J0    J@    
  8048. O=Lotus Notes
  8049. O=Lotus Notes
  8050. PURSAFO
  8051. |.:#U
  8052. O=Lotus Notes
  8053. CN=Lotus Notes Template Development/O=Lotus Notes
  8054. PURSAFO
  8055. }twQ?
  8056. $TITLE
  8057. $Flags
  8058. $PublicAccess
  8059. $ScriptLib
  8060. $ScriptLib_O
  8061. Browse'++LotusScript Development Environment:2:5:(Options):0:66
  8062. '++LotusScript Development Environment:2:5:(Forward):0:1
  8063. Declare Sub Click(Source As Button)
  8064. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8065. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8066. Private Sub BindEvents(Byval Objectname_ As String)
  8067.      Static Source As BUTTON
  8068.      Set Source = Bind(Objectname_)
  8069.      On Event Click From Source Call Click
  8070. End Sub
  8071. '++LotusScript Development Environment:2:2:Click:1:12
  8072. Sub Click(Source As Button)
  8073.      Browse
  8074.      
  8075. End Sub
  8076. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  8077. '++LotusScript Development Environment:2:5:(Forward):0:1
  8078. Declare Sub Click(Source As Button)
  8079. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8080. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8081. Private Sub BindEvents(Byval Objectname_ As String)
  8082.      Static Source As BUTTON
  8083.      Set Source = Bind(Objectname_)
  8084.      On Event Click From Source Call Click
  8085. End Sub
  8086. '++LotusScript Development Environment:2:2:Click:1:12
  8087. Sub Click(Source As Button)
  8088.      ViewDelete     
  8089.      
  8090. End Sub
  8091. Print...'++LotusScript Development Environment:2:5:(Options):0:66
  8092. '++LotusScript Development Environment:2:5:(Forward):0:1
  8093. Declare Sub Click(Source As Button)
  8094. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8095. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8096. Private Sub BindEvents(Byval Objectname_ As String)
  8097.      Static Source As BUTTON
  8098.      Set Source = Bind(Objectname_)
  8099.      On Event Click From Source Call Click
  8100. End Sub
  8101. '++LotusScript Development Environment:2:2:Click:1:12
  8102. Sub Click(Source As Button)
  8103.      PrintWebDocument
  8104.      
  8105. End Sub
  8106. _Search
  8107. '++LotusScript Development Environment:2:5:(Options):0:66
  8108. '++LotusScript Development Environment:2:5:(Forward):0:1
  8109. Declare Sub Click(Source As Button)
  8110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8112. Private Sub BindEvents(Byval Objectname_ As String)
  8113.      Static Source As BUTTON
  8114.      Set Source = Bind(Objectname_)
  8115.      On Event Click From Source Call Click
  8116. End Sub
  8117. '++LotusScript Development Environment:2:2:Click:1:12
  8118. Sub Click(Source As Button)
  8119.      
  8120.      Dim docLocal As NotesDocument
  8121.      Dim docCollection As NotesDocumentCollection     
  8122.      Set docCollection = db.UnprocessedDocuments
  8123.      If (docCollection.Count = 0) Then
  8124.           Msgbox "You must select a document.",16,"Error"
  8125.           Exit Sub
  8126.      End If
  8127.      Set docLocal = docCollection.GetFirstDocument
  8128.      OpenSearchSite docLocal
  8129. End Sub
  8130. $IndexY
  8131.     0S0E
  8132. _Forward
  8133. Sh_are... '++LotusScript Development Environment:2:5:(Options):0:66
  8134. '++LotusScript Development Environment:2:5:(Forward):0:1
  8135. Declare Sub Click(Source As Button)
  8136. Declare Function GetInternetProfile
  8137. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8138. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8139. Private Sub BindEvents(Byval Objectname_ As String)
  8140.      Static Source As BUTTON
  8141.      Set Source = Bind(Objectname_)
  8142.      On Event Click From Source Call Click
  8143. End Sub
  8144. '++LotusScript Development Environment:2:2:Click:1:12
  8145. Sub Click(Source As Button)
  8146.      
  8147.      Dim docLocal As NotesDocument
  8148.      Dim webdoc As notesdocument
  8149.      Dim docCollection As NotesDocumentCollection     
  8150.      Set docCollection = db.UnprocessedDocuments
  8151.      If (docCollection.Count = 0) Then
  8152.           Msgbox "You must select a document.",16,"Error"
  8153.           Exit Sub
  8154.      End If
  8155.      Set docLocal = docCollection.GetFirstDocument
  8156.      If docLocal.hasitem("URL") Then
  8157.           docLocal.tmpWebServer  = docProfile.WebServer
  8158.           docLocal.tmpWebDb = docProfile.WebDatabase
  8159.           docLocal.Save True, True
  8160.           If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
  8161.                docLocal.Save True, True
  8162.                Select Case docLocal.SharedOptions(0)
  8163.                'case 1 was previously forward bookmark.  That's now done off of the forward option
  8164.                Case "2" : 'user wants to copy this to the shared web database
  8165.                     If docLocal.Form(0) = "WebBrowserForm" Then
  8166.                          CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
  8167.                     Else
  8168.                          CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
  8169.                     End If
  8170.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  8171.                     If docLocal.Form(0) = "WebBrowserForm" Then
  8172.                          CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
  8173.                     Else
  8174.                          CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
  8175.                     End If
  8176.                End Select
  8177.           'remove any remaining fields that don't need to be carried around
  8178.                docLocal.removeItem "ForwardTo"
  8179.                docLocal.RemoveItem "SharedOptions" 
  8180.                docLocal.RemoveItem "Rating"
  8181.                docLocal.removeItem "Content"
  8182.                docLocal.removeItem "Comments"
  8183.           End If     
  8184.           docLocal.RemoveItem "tmpWebServer"
  8185.           docLocal.RemoveItem "tmpWebDb"
  8186.           docLocal.Save True, True
  8187.      Else
  8188.           Msgbox "This document does not contain a URL."
  8189.      End If
  8190. End Sub
  8191. '++LotusScript Development Environment:2:1:GetInternetProfile:1:8
  8192. Function GetInternetProfile
  8193.          'we need to get the profile document to make sure this is feasible and to get the location of the shared db
  8194.      Set view = db.getView("(Internet Profile)")
  8195.      Set GetInternetProfile = view.GetFirstDocument
  8196. End Function
  8197. Internet Profiles
  8198. Internet Options
  8199. WebServer
  8200.     0S0E
  8201. Categori_zes
  8202. _Edit Document
  8203. Send Docu_ment    
  8204. _Move to Folder...
  8205. Move Page to Folder... 
  8206.     0S0E
  8207. _Remove from Folder...
  8208. _Reduce to Bookmarku'++LotusScript Development Environment:2:5:(Options):0:66
  8209. '++LotusScript Development Environment:2:5:(Forward):0:1
  8210. Declare Sub Click(Source As Button)
  8211. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8212. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8213. Private Sub BindEvents(Byval Objectname_ As String)
  8214.      Static Source As BUTTON
  8215.      Set Source = Bind(Objectname_)
  8216.      On Event Click From Source Call Click
  8217. End Sub
  8218. '++LotusScript Development Environment:2:2:Click:1:12
  8219. Sub Click(Source As Button)
  8220.      
  8221.      Dim docCollection As NotesDocumentCollection
  8222.      Dim docLocal As NotesDocument
  8223.      
  8224.      Set docCollection = db.UnprocessedDocuments
  8225.      If (docCollection.Count = 0) Then
  8226.           Msgbox "You must select a document.",16,"Error"
  8227.           Exit Sub
  8228.      End If
  8229.      Set docLocal = docCollection.GetFirstDocument
  8230.      While Not (docLocal Is Nothing)
  8231.           RemoveObjects docLocal
  8232.           ReduceToLink docLocal
  8233.           Set docLocal = docCollection.GetNextDocument(docLocal)
  8234.      Wend
  8235. End Sub
  8236. Import Microsoft Favorites...s'++LotusScript Development Environment:2:5:(Options):0:66
  8237. '++LotusScript Development Environment:2:5:(Forward):0:1
  8238. Declare Sub Click(Source As Button)
  8239. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8240. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8241. Private Sub BindEvents(Byval Objectname_ As String)
  8242.      Static Source As BUTTON
  8243.      Set Source = Bind(Objectname_)
  8244.      On Event Click From Source Call Click
  8245. End Sub
  8246. '++LotusScript Development Environment:2:2:Click:1:12
  8247. Sub Click(Source As Button)
  8248.      
  8249.      ImportFavorites
  8250. End Sub
  8251. Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
  8252. '++LotusScript Development Environment:2:5:(Forward):0:1
  8253. Declare Sub Click(Source As Button)
  8254. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8255. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8256. Private Sub BindEvents(Byval Objectname_ As String)
  8257.      Static Source As BUTTON
  8258.      Set Source = Bind(Objectname_)
  8259.      On Event Click From Source Call Click
  8260. End Sub
  8261. '++LotusScript Development Environment:2:2:Click:1:12
  8262. Sub Click(Source As Button)
  8263.      
  8264.      ImportBookmarks
  8265. End Sub
  8266. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  8267. '++LotusScript Development Environment:2:5:(Forward):0:1
  8268. Declare Sub Click(Source As Button)
  8269. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8270. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8271. Private Sub BindEvents(Byval Objectname_ As String)
  8272.      Static Source As BUTTON
  8273.      Set Source = Bind(Objectname_)
  8274.      On Event Click From Source Call Click
  8275. End Sub
  8276. '++LotusScript Development Environment:2:2:Click:1:12
  8277. Sub Click(Source As Button)
  8278.      
  8279.      Dim docLocal As NotesDocument
  8280.      Dim docCollection As NotesDocumentCollection     
  8281.      Set docCollection = db.UnprocessedDocuments
  8282.      If (docCollection.Count = 0) Then
  8283.           Msgbox "You must select a document.",16,"Error"
  8284.           Exit Sub
  8285.      Else
  8286.           For j = 1 To docCollection.Count
  8287.                Set docLocal = docCollection.getnthdocument(j)               
  8288.                If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then   
  8289.                     Select Case docLocal.ForwardOptions(0)
  8290.                     Case "1" : 'user wants to forward the URL only
  8291.                          Call CreateIELink(doclocal.url(0), doclocal.title(0))
  8292.                     Case "2" : 'user wants to send entire page
  8293.                          Call  ViewForward(docLocal)
  8294.                     End Select
  8295.           'remove any remaining fields that don't need to be carried around
  8296.                     docLocal.RemoveItem "ForwardOptions" 
  8297.                     docLocal.save True, False
  8298.                     
  8299.                End If
  8300.                Exit Sub
  8301.           Next
  8302.      End If
  8303.      Exit Sub
  8304. End Sub
  8305. '++LotusScript Development Environment:2:5:(Options):0:74
  8306. Option Public
  8307. Use "InternetFunctions"
  8308. '++LotusScript Development Environment:2:5:(Forward):0:1
  8309. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8310. '++LotusScript Development Environment:2:5:(Options):0:66
  8311. '++LotusScript Development Environment:2:5:(Forward):0:1
  8312. Declare Sub Postopen(Source As Notesuiview)
  8313. Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  8314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8316. Private Sub BindEvents(Byval Objectname_ As String)
  8317.      Static Source As NOTESUIVIEW
  8318.      Set Source = Bind(Objectname_)
  8319.      On Event Postopen From Source Call Postopen
  8320.      On Event Queryaddtofolder From Source Call Queryaddtofolder
  8321. End Sub
  8322. '++LotusScript Development Environment:2:2:Postopen:1:12
  8323. Sub Postopen(Source As Notesuiview)
  8324.      InstantiateObjects
  8325. End Sub
  8326. '++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
  8327. Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
  8328.      Call MoveToFolder(source,target,continue)
  8329. End Sub
  8330. O=Lotus Notes
  8331. O=Lotus Notes
  8332. PURSAFO
  8333. |.:#U
  8334. O=Lotus Notes
  8335. CN=Lotus Notes Template Development/O=Lotus Notes
  8336. PURSAFO
  8337. "n.8%'D^
  8338. #B]9t
  8339. $TITLE
  8340. $Index
  8341. $Formula
  8342. $FormulaClass
  8343. $VIEWFORMAT
  8344. $FormFormula
  8345. $Comment
  8346. $ACTIONS
  8347. $ViewGlobalScript
  8348. $ViewScript
  8349. Using Page Minder: Keeping track of changes to Web pages (Personal Web Navigator)
  8350.     You can run a background agent called Page Minder that closely watches a particular Web page and notifies you when the contents of that page change.
  8351.     Note
  8352.       Page Minder only runs while your Notes workstation is running.
  8353.     Enabling the Page Minder agent
  8354.     To enable the Page Minder agent (you only need to do this once):
  8355.       1.    Choose File - Tools - User Preferences and select "Enable scheduled local agents."
  8356.       2.    Open the Personal Web Navigator database and choose Actions - Internet Options.
  8357.       3.    Click the Enable Page Minder button next to the agent. 
  8358.       4.    In the "Choose Server To Run On" dialog box, choose Local and click OK. (This dialog box only appears if you have not yet enabled the agent in this database.)
  8359.     Running the Page Minder agent
  8360.     To run Page Minder on a Web page:
  8361.       1.    Choose Actions - Internet Options.
  8362.       2.    In the Page Minder agent preferences section, fill out these fields:
  8363.     Search for updates every -- Choose how often you want the agent to check to see if the page contents have changed.  You can choose Hour, 4 Hours, Day, or Week.
  8364.     When updates are found -- Specify how you want to be alerted that the page changed.  Choose "Send me a summary" to send a message notifying you that the page has changed.  Choose "Send me the actual page" to send the newly updated Web page.
  8365.     Send to -- Specify the name of the person to alert when the page content changes.
  8366.       3.    Exit and save your changes.
  8367.       4.    Select any Web page and drag it into the Page Minder folder.
  8368.     The Page Minder agent runs based on the times you selected in the Internet Options document.
  8369.     Note
  8370.       You can run the Page Minder agent on pages from authenticated servers where you are required to supply a username and password before you can gain access to the page. Similarly, you can run the agent through an authenticated proxy server where you have to supply a username and password to gain access to the Internet. As long as you have successfully retrieved the page during your current Notes session, Notes stores your username and password in a field on the Web page and pulls it from there when it runs the agent.  For security purposes, if you run this agent on authenticated servers or through authenticated proxy servers, you should encrypt your database so that the field is not visible to others.
  8371. Using Web Ahead: Automatically following links on Web pages (Personal Web Navigator)
  8372.     Web pages usually contain URLs that point to other Web pages. You can run a background agent called Web Ahead that retrieves all the Web pages specified by the URLs on a particular Web page and saves all the resulting Web pages in your database for you to read later. You can set the agent to retrieve the URLs several levels down from the page you specify. 
  8373.     Note
  8374.       Web Ahead only runs while your Notes workstation is running.
  8375.     Enabling the Web Ahead agent
  8376.     To enable the Web Ahead agent (you only need to do this once):
  8377.       1.    Choose File - Tools - User Preferences and select "Enable scheduled local agents."
  8378.       2.    Open the Personal Web Navigator database and choose Actions - Internet Options.
  8379.       3.    Click the Enable Web Ahead button next to the agent. 
  8380.       4.    In the "Choose Server To Run On" dialog box, choose Local and click OK. (This dialog box only appears if you have not yet enabled the agent in this database.)
  8381.     Running the Web Ahead agent
  8382.     To run Web Ahead on a Web page:
  8383.       1.    Choose Actions - Internet Options.
  8384.       2.    In the Web Ahead agent preferences section, enter the number of levels of pages you want the agent to retrieve.
  8385.       3.    Exit and save your changes.
  8386.       4.    Select any Web page and drag it into the Web Ahead folder.
  8387.     The Web Ahead agent runs every half hour.
  8388.     Note
  8389.       You can run the Web Ahead agent on pages from authenticated servers where you are required to supply a username and password before you can gain access to the page. Similarly, you can run the agent through an authenticated proxy server where you have to supply a username and password to gain access to the Internet. As long as you have successfully retrieved the page during your current Notes session, Notes stores your username and password in a field on the Web page and pulls it from there when it runs the agent.  For security purposes, if you run this agent on authenticated servers or through authenticated proxy servers, you should encrypt your database so that the field is not visible to others.
  8390. '++LotusScript Development Environment:2:5:(Options):0:66
  8391. '++LotusScript Development Environment:2:5:(Forward):0:1
  8392. Declare Sub Initialize
  8393. Declare Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
  8394. Declare Sub Statustextchange(Source As Webbrowser, Text As String)
  8395. Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
  8396. Declare Sub Downloadbegin(Source As Webbrowser)
  8397. Declare Sub Downloadcomplete(Source As Webbrowser)
  8398. Declare Sub Titlechange(Source As Webbrowser, Text As String)
  8399. Declare Sub Navigatecomplete2(Source As Webbrowser, Pdisp As Variant, Url As Variant)
  8400. Declare Sub Newwindow2(Source As Webbrowser, Ppdisp As Variant, Cancel As Integer)
  8401. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8402. Dim WebDatabase As notesdatabase
  8403. Dim datadoc As notesdocument
  8404. Dim Session As notessession
  8405. Dim DocNoteID As notesdocument
  8406. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8407. Private Sub BindEvents(Byval Objectname_ As String)
  8408.      Static Source As WEBBROWSER
  8409.      Set Source = Bind(Objectname_)
  8410.      On Event Beforenavigate2 From Source Call Beforenavigate2
  8411.      On Event Statustextchange From Source Call Statustextchange
  8412.      On Event Progresschange From Source Call Progresschange
  8413.      On Event Downloadbegin From Source Call Downloadbegin
  8414.      On Event Downloadcomplete From Source Call Downloadcomplete
  8415.      On Event Titlechange From Source Call Titlechange
  8416.      On Event Navigatecomplete2 From Source Call Navigatecomplete2
  8417.      On Event Newwindow2 From Source Call Newwindow2
  8418. End Sub
  8419. '++LotusScript Development Environment:2:2:Initialize:1:10
  8420. Sub Initialize
  8421.      '*
  8422.      '*  Initialize  Variables and declare local variables
  8423.      '*
  8424.      Dim InterNetProfile As Notesdocument
  8425.      Dim ProfileView As notesview
  8426.      Dim URL As Variant
  8427.      
  8428.      Set Session = New NotesSession
  8429.      Set WebDatabase = Session.CurrentDatabase
  8430. End Sub
  8431. '++LotusScript Development Environment:2:2:Beforenavigate2:1:12
  8432. Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
  8433.         '    A navigation has requested a new window be opened
  8434.      ' we'll take care of everything and tell the caller we opened a new window
  8435.      ' otherwise the IE application starts up in a new window
  8436.      
  8437.      On Error 213 Resume Next
  8438.      
  8439.      If uidoc.inpreviewpane And firstnavigatedone Then
  8440.           If Instr(parseURL(url(0)), "mailto") =0 Then
  8441.                Dim iedoc As New notesdocument(db)
  8442.                Dim newuidoc As NotesUIDocument
  8443.                Call iedoc.replaceitemvalue("Form", "WebBrowser4Form")
  8444.                Call iedoc.replaceitemvalue("SaveOptions", "1")
  8445.                Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
  8446.                Call iedoc.replaceitemvalue("$NavigateToURL", Url)
  8447.                Call ieDoc.save(True,False)
  8448.                Call w.viewrefresh
  8449.                Call w.editdocument(False, iedoc) 
  8450.                Set newuidoc = w.currentdocument        
  8451.                Set browserobject=newuidoc.GetObject("Browser")
  8452.                browserobject.Navigate2 (Url), (Flags), (Targetframename), (Postdata), (Headers) 
  8453.                Cancel = True
  8454.           Else
  8455.                browserobject.Navigate2 (Url), (Flags), (Targetframename), (Postdata), (Headers)
  8456.           End If
  8457.      End If       
  8458. End Sub
  8459. '++LotusScript Development Environment:2:2:Statustextchange:1:12
  8460. Sub Statustextchange(Source As Webbrowser, Text As String)
  8461.      Print "   " & Text 
  8462. End Sub
  8463. '++LotusScript Development Environment:2:2:Progresschange:1:12
  8464. Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
  8465.      Dim percent As Long
  8466.      If progress = -1 Then
  8467.           Print "   Done"
  8468.      Else  
  8469.           If ProgressMax > 0 Then
  8470.                percent = (Progress * 100) / Progressmax
  8471.                If percent > 0 Then
  8472.                     Print "   " & percent & " %  complete"
  8473.                End If
  8474.           Else
  8475.                If progress >0 Then 
  8476.                     Print "   " & progress & " bytes read"
  8477.                End If 
  8478.           End If
  8479.      End If
  8480. End Sub
  8481. '++LotusScript Development Environment:2:2:Downloadbegin:1:12
  8482. Sub Downloadbegin(Source As Webbrowser)
  8483.       '   Start Animation...
  8484.      uidoc.Navbarspinnerstart
  8485. End Sub
  8486. '++LotusScript Development Environment:2:2:Downloadcomplete:1:12
  8487. Sub Downloadcomplete(Source As Webbrowser)
  8488.        '   Stop Animation...
  8489.      uidoc.Navbarspinnerstop
  8490.      
  8491. End Sub
  8492. '++LotusScript Development Environment:2:2:Titlechange:1:12
  8493. Sub Titlechange(Source As Webbrowser, Text As String)
  8494.      Dim NavBarURL As String
  8495. '    Ask the browser object for the current URL     
  8496.      NavBarURL = browserobject.LocationURL     
  8497. '    Set the Text in the Nav bar and the window title
  8498.      uidoc.NavBarSetText NavBarURL, Text
  8499. End Sub
  8500. '++LotusScript Development Environment:2:2:Navigatecomplete2:1:12
  8501. Sub Navigatecomplete2(Source As Webbrowser, Pdisp As Variant, Url As Variant)
  8502.      Dim nulldoc As notesdocument
  8503.      'Error 213 is OLEException Error in lserr.lss
  8504.      On Error 213 Goto ErrorRoutine
  8505.      
  8506.      If url <>"" Then
  8507.      ' Set the URL in the Navigation Bar URL field
  8508.           uidoc.NavBarSetText Url
  8509.           If docprofile Is Nothing Then 
  8510.                'This will happen if the user is opening the database for the first time therefore the dbopen script has not been
  8511.                'executed.  Go ahead and retrieve the document because keeppage is on automatically.
  8512.                Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  8513.                Exit Sub
  8514.           End If
  8515.           If docprofile.keeppage(0) = "0" Then
  8516.                 ' Request the URL to be retrieved but don't wait for it to come in
  8517.               ' Print "(DEBUG) - Queue request for: " + url
  8518.                Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  8519.           End If
  8520.           
  8521.      End If
  8522.      
  8523.      Exit Sub
  8524. ErrorRoutine:
  8525.      Print "Error:  Accessing web browser control ErrOLEException("& Err & ")"
  8526.      Resume Next
  8527. End Sub
  8528. '++LotusScript Development Environment:2:2:Newwindow2:1:12
  8529. Sub Newwindow2(Source As Webbrowser, Ppdisp As Variant, Cancel As Integer)
  8530.      
  8531. End Sub
  8532. Lotus Product
  8533. Notes Web Browsing with IE 4
  8534.     0S0E
  8535. '++LotusScript Development Environment:2:5:(Options):0:74
  8536. Option Public
  8537. Use "InternetFunctions"
  8538. '++LotusScript Development Environment:2:5:(Forward):0:1
  8539. Declare Sub InstantiateWebBrowserFormObjects
  8540. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8541. 'Global Form Variables
  8542. Dim uidoc As notesuidocument
  8543. Dim doc As notesdocument
  8544. Dim browserobject As Variant
  8545. '++LotusScript Development Environment:2:2:InstantiateWebBrowserFormObjects:1:8
  8546. Sub InstantiateWebBrowserFormObjects
  8547.     InstantiateObjects
  8548. End Sub
  8549. Lotus Product
  8550. WebBrowser4Form'++LotusScript Development Environment:2:5:(Options):0:66
  8551. '++LotusScript Development Environment:2:5:(Forward):0:1
  8552. Declare Sub Postopen(Source As Notesuidocument)
  8553. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8554. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8555. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8556. Private Sub BindEvents(Byval Objectname_ As String)
  8557.     Static Source As NOTESUIDOCUMENT
  8558.     Set Source = Bind(Objectname_)
  8559.     On Event Postopen From Source Call Postopen
  8560.     On Event Queryclose From Source Call Queryclose
  8561. End Sub
  8562. '++LotusScript Development Environment:2:2:Postopen:1:12
  8563. Sub Postopen(Source As Notesuidocument)
  8564.     InstantiateWebBrowserFormObjects
  8565.     Set uidoc = source 
  8566.     Set doc = uidoc.Document     
  8567.     Set browserobject=uidoc.GetObject("Browser")
  8568.     If docprofile Is Nothing Then
  8569.         Set docprofile = New NotesDocument(db)
  8570.         docprofile.Form = "Admin"
  8571.         docprofile.StartUpOptions = "1"
  8572.         docprofile.OpenURL = "http://notes.net/welcome.nsf"
  8573.         docprofile.PreferredSearchEngine = "4"
  8574.         docprofile.SearchURL="http://www.search.com/"
  8575.         docprofile.ScanAhead = "1"
  8576.         docprofile.SearchFrequency = "2"
  8577.         docprofile.UpdatesFoundOptions = "1"
  8578.         docprofile.SendMailTo = session.UserName
  8579.         docprofile.ReduceDays = "2"
  8580.         docprofile.KeepPage = "0"
  8581.         docprofile.Save True, True
  8582.     End If
  8583.     uidoc.refreshhideformulas
  8584.            ' Make sure there is a URL field and it's not empty before we try to
  8585.           ' navigate there
  8586.     If doc.hasitem("URL")   And doc.URL(0) <> "" Then
  8587.               ' Print "Postopen Navigating to " + doc.URL(0)
  8588.         browserobject.navigate2 (doc.url(0))
  8589.         If source.inpreviewpane Then
  8590.             firstnavigatedone = True
  8591.         End If
  8592.     End If    
  8593. End Sub
  8594. '++LotusScript Development Environment:2:2:Queryclose:1:12
  8595. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8596.     FirstNavigateDone = False
  8597. End Sub
  8598. Lotus Product
  8599. OBJECT
  8600. EXT11761Shell.Explorer.2
  8601. $OLEPreviewActivate
  8602. SaveOptions
  8603. '++LotusScript Development Environment:2:5:(Options):0:66
  8604. '++LotusScript Development Environment:2:5:(Forward):0:1
  8605. Declare Sub Click(Source As Button)
  8606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8607. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8608. Private Sub BindEvents(Byval Objectname_ As String)
  8609.      Static Source As BUTTON
  8610.      Set Source = Bind(Objectname_)
  8611.      On Event Click From Source Call Click
  8612. End Sub
  8613. '++LotusScript Development Environment:2:2:Click:1:12
  8614. Sub Click(Source As Button)
  8615.      
  8616.      InstantiateWebBrowserFormObjects
  8617.      If docprofile.OpenURL(0) <> "" Then
  8618.           browserobject.GoHome
  8619.      Else
  8620.           Msgbox "Home page is not specified in your Internet Options.  "  _
  8621.           + "Please select Actions - Internet Options to specify a home page. " , 16,"Open Home Page"    
  8622.      End If
  8623. End Sub
  8624. _Reload
  8625. '++LotusScript Development Environment:2:5:(Options):0:66
  8626. '++LotusScript Development Environment:2:5:(Forward):0:1
  8627. Declare Sub Click(Source As Button)
  8628. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8629. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8630. Private Sub BindEvents(Byval Objectname_ As String)
  8631.      Static Source As BUTTON
  8632.      Set Source = Bind(Objectname_)
  8633.      On Event Click From Source Call Click
  8634. End Sub
  8635. '++LotusScript Development Environment:2:2:Click:1:12
  8636. Sub Click(Source As Button)
  8637.      
  8638.      InstantiateWebBrowserFormObjects
  8639.      browserobject.Refresh2
  8640. End Sub
  8641. Bookmark...
  8642. '++LotusScript Development Environment:2:5:(Options):0:66
  8643. '++LotusScript Development Environment:2:5:(Forward):0:1
  8644. Declare Sub Click(Source As Button)
  8645. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8646. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8647. Private Sub BindEvents(Byval Objectname_ As String)
  8648.      Static Source As BUTTON
  8649.      Set Source = Bind(Objectname_)
  8650.      On Event Click From Source Call Click
  8651. End Sub
  8652. '++LotusScript Development Environment:2:2:Click:1:12
  8653. Sub Click(Source As Button)
  8654.      
  8655.      If w.dialogbox("BookmarkSelect", True, True, False, False, False, False, "Select a Folder") Then
  8656.           InstantiateWebBrowserFormObjects
  8657.           Dim bookmark As New notesdocument(db)
  8658.           Dim folder As String
  8659.           Dim webdoc As notesdocument
  8660.           Set webdoc = db.getdocumentbyurl(browserobject.locationurl)
  8661.           If doc.hasitem("Folders") And doc.hasitem("NewFolderName") Then
  8662.                If doc.newfoldername(0) <>"" Then
  8663.                     bookmark.bookmark = "1"
  8664.                     bookmark.title = webdoc.title(0)
  8665.                     bookmark.url = webdoc.url(0)
  8666.                     bookmark.save True, False
  8667.                     bookmark.putinfolder(doc.folders(0)&"\"&doc.newfoldername(0))
  8668.                Else
  8669.                     bookmark.bookmark = "1"
  8670.                     bookmark.title = webdoc.title(0)
  8671.                     bookmark.url = webdoc.url(0)
  8672.                     bookmark.save True, False
  8673.                     bookmark.putinfolder(doc.folders(0))
  8674.                End If
  8675.           End If          
  8676.           'Cleanup the fields put on by dialogbox
  8677.           doc.removeitem("folders")
  8678.           doc.removeitem("newfoldername")
  8679.           doc.save True, False
  8680.      End If
  8681. End Sub
  8682. Keep Page
  8683. '++LotusScript Development Environment:2:5:(Options):0:66
  8684. '++LotusScript Development Environment:2:5:(Forward):0:1
  8685. Declare Sub Click(Source As Button)
  8686. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8687. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8688. Private Sub BindEvents(Byval Objectname_ As String)
  8689.      Static Source As BUTTON
  8690.      Set Source = Bind(Objectname_)
  8691.      On Event Click From Source Call Click
  8692. End Sub
  8693. '++LotusScript Development Environment:2:2:Click:1:12
  8694. Sub Click(Source As Button)
  8695.      
  8696.      On Error Resume Next
  8697.      InstantiateWebBrowserFormObjects
  8698.      Dim nulldoc As notesdocument
  8699.      Dim url As String
  8700.      url = browserobject.locationURL
  8701.      If  url <>"" Then
  8702.           ' Request the URL to be retrieved but don't wait for it to come in
  8703.           Print "(DEBUG) - Queue request for: " + url
  8704.           Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  8705.      End If
  8706.      uidoc.refreshhideformulas
  8707. End Sub
  8708. (Internet Profile)
  8709. Internet Options
  8710. keeppage
  8711.     0S0E
  8712. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  8713. '++LotusScript Development Environment:2:5:(Forward):0:1
  8714. Declare Sub Click(Source As Button)
  8715. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8716. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8717. Private Sub BindEvents(Byval Objectname_ As String)
  8718.      Static Source As BUTTON
  8719.      Set Source = Bind(Objectname_)
  8720.      On Event Click From Source Call Click
  8721. End Sub
  8722. '++LotusScript Development Environment:2:2:Click:1:12
  8723. Sub Click(Source As Button)
  8724.      
  8725.      InstantiateWebBrowserFormObjects
  8726.      Call IEForwardNote(doc,Browserobject)
  8727. End Sub
  8728. Print... 
  8729.     0S0E
  8730. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  8731. '++LotusScript Development Environment:2:5:(Forward):0:1
  8732. Declare Sub Click(Source As Button)
  8733. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8734. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8735. Private Sub BindEvents(Byval Objectname_ As String)
  8736.      Static Source As BUTTON
  8737.      Set Source = Bind(Objectname_)
  8738.      On Event Click From Source Call Click
  8739. End Sub
  8740. '++LotusScript Development Environment:2:2:Click:1:12
  8741. Sub Click(Source As Button)
  8742.      
  8743.      InstantiateWebBrowserFormObjects
  8744.      If doc.form(0) <> "HelpForm" Then
  8745.           
  8746.           doc.url=browserobject.locationurl
  8747.           doc.title=browserobject.locationname
  8748.           
  8749.           If (docProfile Is Nothing) Then
  8750.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  8751.                Exit Sub 
  8752.           End If
  8753.           doc.tmpWebServer  = docProfile.WebServer
  8754.           doc.tmpWebDb = docProfile.WebDatabase
  8755.       'first, display a prompt to get user input
  8756.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  8757.               'determine which action we need to take
  8758.                Select Case doc.SharedOptions(0)
  8759.                     
  8760.                Case "2" : 'user wants to copy this to the shared web database
  8761.                     If getcurrentlocation="3" Then
  8762.                          CopyDocumentToSharedDatabase doc, browserobject.locationurl
  8763.                     Else
  8764.                          CopyDocumentToSharedDatabase doc, doc.url(0)
  8765.                     End If
  8766.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  8767.                     If getcurrentlocation="3" Then
  8768.                          CreateRatingDocument doc, browserobject.locationurl, browserobject.Locationname
  8769.                     Else
  8770.                          CreateRatingDocument doc,doc.url(0), doc.title(0)
  8771.                     End If
  8772.                End Select
  8773.           'remove any remaining fields that don't need to be carried around
  8774.                doc.removeItem "ForwardTo"
  8775.                doc.RemoveItem "SharedOptions" 
  8776.                doc.removeItem "ForwardTo"
  8777.                doc.RemoveItem "SharedOptions" 
  8778.                doc.RemoveItem "Rating"
  8779.                doc.removeItem "Content"
  8780.                doc.removeItem "Comments"
  8781.                doc.RemoveItem "tmpWebServer"
  8782.                doc.RemoveItem "tmpWebDb"
  8783.                doc.Save True,True          
  8784.           End If
  8785.      Else
  8786.           Msgbox "This document is a help document."
  8787.      End If
  8788. End Sub
  8789. Internet Profiles
  8790. Internet Options
  8791. webserver
  8792.     12S13S
  8793. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  8794. '++LotusScript Development Environment:2:5:(Forward):0:1
  8795. Declare Sub Click(Source As Button)
  8796. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8797. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8798. Private Sub BindEvents(Byval Objectname_ As String)
  8799.      Static Source As BUTTON
  8800.      Set Source = Bind(Objectname_)
  8801.      On Event Click From Source Call Click
  8802. End Sub
  8803. '++LotusScript Development Environment:2:2:Click:1:12
  8804. Sub Click(Source As Button)
  8805.      
  8806.      InstantiateWebBrowserFormObjects
  8807.      Dim webdoc As notesdocument
  8808.      Dim noteid As String
  8809.      noteid = ""
  8810.      
  8811.      Response = Msgbox ("This will permanently delete the selected page from the database.  Do you want to continue?", 20, "Delete Document")
  8812.      If Response = 6 Then    
  8813.           uidoc.close
  8814.           Set webdoc=db.getdocumentbyurl(doc.url(0))
  8815.           Call RemoveObjects(webdoc)
  8816.          ' webdoc.Remove True
  8817.           
  8818.           If doc.isuidocopen Then
  8819.                noteid = doc.noteid             
  8820.                Delete doc
  8821.                Set doc = db.getdocumentbyid (noteid) 
  8822.                doc.remove True
  8823.                w.viewrefresh  
  8824.                w.viewrefresh
  8825.           Else
  8826.                doc.Remove True 
  8827.           End If
  8828.           
  8829.           w.viewrefresh
  8830.           
  8831.           
  8832.           
  8833.      End If
  8834.      
  8835. End Sub
  8836. $ControlURLNavigateE'++LotusScript Development Environment:2:5:(Options):0:66
  8837. '++LotusScript Development Environment:2:5:(Forward):0:1
  8838. Declare Sub Click(Source As Button)
  8839. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8840. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8841. Private Sub BindEvents(Byval Objectname_ As String)
  8842.      Static Source As BUTTON
  8843.      Set Source = Bind(Objectname_)
  8844.      On Event Click From Source Call Click
  8845. End Sub
  8846. '++LotusScript Development Environment:2:2:Click:1:12
  8847. Sub Click(Source As Button)
  8848.      
  8849.      InstantiateWebBrowserFormObjects
  8850.      Dim URL As Variant
  8851.      Dim Reload As Variant
  8852.      Dim Flags As Integer
  8853.      Dim TmpUrl As String
  8854.      
  8855.      URL = doc.GetitemValue("$NavigateToURL")
  8856.      Reload = doc.GetItemValue("$ReloadRefresh")
  8857.      Flags =Val (Reload(0))
  8858.      On Error 213  Resume Next
  8859.      
  8860.      TmpUrl=browserobject.LocationURL
  8861.      
  8862.      If Flags = 1 Then
  8863.           Flags = 4
  8864.      End If
  8865.      
  8866.      
  8867.      If URL(0) <> "" Then
  8868.           If URL(0) = TmpUrl Then
  8869.               ' Print "Refreshing " + Url(0)
  8870.                browserobject.Refresh     
  8871.           Else
  8872.              '  Print "Attempting " + URL(0) + " Flags = "+ Str(Flags)
  8873.                browserobject.Navigate2 (URL(0)), (Flags)
  8874.                
  8875.           ' Once navigation is done delete the item form the form
  8876.                doc.REMOVEITEM("$NavigateToURL")
  8877.                doc.RemoveItem("$ReloadRefresh")
  8878.                Call doc.Save( True, False )
  8879.           End If
  8880.      Else
  8881.           Messagebox "No URL specified.", 0, "ErrorNavigating"
  8882.      End If     
  8883. End Sub
  8884. Open History Folder
  8885. Add Bookmark...
  8886. title
  8887.     0S0E
  8888. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  8889. '++LotusScript Development Environment:2:5:(Forward):0:1
  8890. Declare Sub Click(Source As Button)
  8891. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8892. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8893. Private Sub BindEvents(Byval Objectname_ As String)
  8894.      Static Source As BUTTON
  8895.      Set Source = Bind(Objectname_)
  8896.      On Event Click From Source Call Click
  8897. End Sub
  8898. '++LotusScript Development Environment:2:2:Click:1:12
  8899. Sub Click(Source As Button)
  8900.      
  8901.      Dim iret As Integer
  8902.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  8903. End Sub
  8904.     0S0E
  8905. Go to Bookmarkst'++LotusScript Development Environment:2:5:(Options):0:66
  8906. '++LotusScript Development Environment:2:5:(Forward):0:1
  8907. Declare Sub Click(Source As Button)
  8908. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8909. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8910. Private Sub BindEvents(Byval Objectname_ As String)
  8911.     Static Source As BUTTON
  8912.     Set Source = Bind(Objectname_)
  8913.     On Event Click From Source Call Click
  8914. End Sub
  8915. '++LotusScript Development Environment:2:2:Click:1:12
  8916. Sub Click(Source As Button)
  8917.     InstantiateWebBrowserFormObjects
  8918.     Call w.opendatabase("", "bookmark.nsf")
  8919. End Sub
  8920. Send Docu_ment
  8921. Categori_zes
  8922. _Forward
  8923. _Move To Folder...
  8924. _Remove From Folder
  8925. _Edit Document
  8926. '++LotusScript Development Environment:2:5:(Options):0:66
  8927. '++LotusScript Development Environment:2:5:(Forward):0:1
  8928. Declare Sub Click(Source As Button)
  8929. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8930. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8931. Private Sub BindEvents(Byval Objectname_ As String)
  8932.      Static Source As BUTTON
  8933.      Set Source = Bind(Objectname_)
  8934.      On Event Click From Source Call Click
  8935. End Sub
  8936. '++LotusScript Development Environment:2:2:Click:1:12
  8937. Sub Click(Source As Button)
  8938.      
  8939.      InstantiateWebBrowserFormObjects
  8940.      If docprofile.OpenURL(0) <> "" Then
  8941.           browserobject.GoHome
  8942.      Else
  8943.           Msgbox "Home page is not specified in your Internet Options.  "  _
  8944.           + "Please select Actions - Internet Options to specify a home page. " , 16,"Open Home Page"    
  8945.      End If
  8946. End Sub
  8947. _Reloadp'++LotusScript Development Environment:2:5:(Options):0:66
  8948. '++LotusScript Development Environment:2:5:(Forward):0:1
  8949. Declare Sub Click(Source As Button)
  8950. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8951. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8952. Private Sub BindEvents(Byval Objectname_ As String)
  8953.      Static Source As BUTTON
  8954.      Set Source = Bind(Objectname_)
  8955.      On Event Click From Source Call Click
  8956. End Sub
  8957. '++LotusScript Development Environment:2:2:Click:1:12
  8958. Sub Click(Source As Button)
  8959.      
  8960.      InstantiateWebBrowserFormObjects
  8961.      browserobject.Refresh2
  8962. End Sub
  8963. Bookmark... '++LotusScript Development Environment:2:5:(Options):0:66
  8964. '++LotusScript Development Environment:2:5:(Forward):0:1
  8965. Declare Sub Click(Source As Button)
  8966. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8967. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8968. Private Sub BindEvents(Byval Objectname_ As String)
  8969.      Static Source As BUTTON
  8970.      Set Source = Bind(Objectname_)
  8971.      On Event Click From Source Call Click
  8972. End Sub
  8973. '++LotusScript Development Environment:2:2:Click:1:12
  8974. Sub Click(Source As Button)
  8975.      
  8976.      If w.dialogbox("BookmarkSelect", True, True, False, False, False, False, "Select a Folder") Then
  8977.           InstantiateWebBrowserFormObjects
  8978.           Dim bookmark As New notesdocument(db)
  8979.           Dim folder As String
  8980.           Dim webdoc As notesdocument
  8981.           Set webdoc = db.getdocumentbyurl(browserobject.locationurl)
  8982.           If doc.hasitem("Folders") And doc.hasitem("NewFolderName") Then
  8983.                If doc.newfoldername(0) <>"" Then
  8984.                     bookmark.bookmark = "1"
  8985.                     bookmark.title = webdoc.title(0)
  8986.                     bookmark.url = webdoc.url(0)
  8987.                     bookmark.save True, False
  8988.                     bookmark.putinfolder(doc.folders(0)&"\"&doc.newfoldername(0))
  8989.                Else
  8990.                     bookmark.bookmark = "1"
  8991.                     bookmark.title = webdoc.title(0)
  8992.                     bookmark.url = webdoc.url(0)
  8993.                     bookmark.save True, False
  8994.                     bookmark.putinfolder(doc.folders(0))
  8995.                End If
  8996.           End If          
  8997.           'Cleanup the fields put on by dialogbox
  8998.           doc.removeitem("folders")
  8999.           doc.removeitem("newfoldername")
  9000.           doc.save True, False
  9001.      End If
  9002. End Sub
  9003. Keep Pagei'++LotusScript Development Environment:2:5:(Options):0:66
  9004. '++LotusScript Development Environment:2:5:(Forward):0:1
  9005. Declare Sub Click(Source As Button)
  9006. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9007. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9008. Private Sub BindEvents(Byval Objectname_ As String)
  9009.      Static Source As BUTTON
  9010.      Set Source = Bind(Objectname_)
  9011.      On Event Click From Source Call Click
  9012. End Sub
  9013. '++LotusScript Development Environment:2:2:Click:1:12
  9014. Sub Click(Source As Button)
  9015.      
  9016.      On Error Resume Next
  9017.      InstantiateWebBrowserFormObjects
  9018.      Dim nulldoc As notesdocument
  9019.      Dim url As String
  9020.      url = browserobject.locationURL
  9021.      If  url <>"" Then
  9022.           ' Request the URL to be retrieved but don't wait for it to come in
  9023.           Print "(DEBUG) - Queue request for: " + url
  9024.           Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
  9025.      End If
  9026.      uidoc.refreshhideformulas
  9027. End Sub
  9028. (Internet Profile)
  9029. Internet Options
  9030. keeppage
  9031.     0S0E
  9032. Forward...'++LotusScript Development Environment:2:5:(Options):0:66
  9033. '++LotusScript Development Environment:2:5:(Forward):0:1
  9034. Declare Sub Click(Source As Button)
  9035. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9036. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9037. Private Sub BindEvents(Byval Objectname_ As String)
  9038.      Static Source As BUTTON
  9039.      Set Source = Bind(Objectname_)
  9040.      On Event Click From Source Call Click
  9041. End Sub
  9042. '++LotusScript Development Environment:2:2:Click:1:12
  9043. Sub Click(Source As Button)
  9044.      
  9045.      InstantiateWebBrowserFormObjects
  9046.      Call IEForwardNote(doc,Browserobject)
  9047. End Sub
  9048. Print... 
  9049.     0S0E
  9050. Share...'++LotusScript Development Environment:2:5:(Options):0:66
  9051. '++LotusScript Development Environment:2:5:(Forward):0:1
  9052. Declare Sub Click(Source As Button)
  9053. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9054. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9055. Private Sub BindEvents(Byval Objectname_ As String)
  9056.      Static Source As BUTTON
  9057.      Set Source = Bind(Objectname_)
  9058.      On Event Click From Source Call Click
  9059. End Sub
  9060. '++LotusScript Development Environment:2:2:Click:1:12
  9061. Sub Click(Source As Button)
  9062.      
  9063.      InstantiateWebBrowserFormObjects
  9064.      If doc.form(0) <> "HelpForm" Then
  9065.           
  9066.           doc.url=browserobject.locationurl
  9067.           doc.title=browserobject.locationname
  9068.           
  9069.           If (docProfile Is Nothing) Then
  9070.                Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
  9071.                Exit Sub 
  9072.           End If
  9073.           doc.tmpWebServer  = docProfile.WebServer
  9074.           doc.tmpWebDb = docProfile.WebDatabase
  9075.       'first, display a prompt to get user input
  9076.           If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
  9077.               'determine which action we need to take
  9078.                Select Case doc.SharedOptions(0)
  9079.                     
  9080.                Case "2" : 'user wants to copy this to the shared web database
  9081.                     If getcurrentlocation="3" Then
  9082.                          CopyDocumentToSharedDatabase doc, browserobject.locationurl
  9083.                     Else
  9084.                          CopyDocumentToSharedDatabase doc, doc.url(0)
  9085.                     End If
  9086.                Case "3" : 'user wants to rate this and copy the rating to the shared database
  9087.                     If getcurrentlocation="3" Then
  9088.                          CreateRatingDocument doc, browserobject.locationurl, browserobject.Locationname
  9089.                     Else
  9090.                          CreateRatingDocument doc,doc.url(0), doc.title(0)
  9091.                     End If
  9092.                End Select
  9093.           'remove any remaining fields that don't need to be carried around
  9094.                doc.removeItem "ForwardTo"
  9095.                doc.RemoveItem "SharedOptions" 
  9096.                doc.removeItem "ForwardTo"
  9097.                doc.RemoveItem "SharedOptions" 
  9098.                doc.RemoveItem "Rating"
  9099.                doc.removeItem "Content"
  9100.                doc.removeItem "Comments"
  9101.                doc.RemoveItem "tmpWebServer"
  9102.                doc.RemoveItem "tmpWebDb"
  9103.                doc.Save True,True          
  9104.           End If
  9105.      Else
  9106.           Msgbox "This document is a help document."
  9107.      End If
  9108. End Sub
  9109. Internet Profiles
  9110. Internet Options
  9111. webserver
  9112.     12S13S
  9113. Delete'++LotusScript Development Environment:2:5:(Options):0:66
  9114. '++LotusScript Development Environment:2:5:(Forward):0:1
  9115. Declare Sub Click(Source As Button)
  9116. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9117. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9118. Private Sub BindEvents(Byval Objectname_ As String)
  9119.      Static Source As BUTTON
  9120.      Set Source = Bind(Objectname_)
  9121.      On Event Click From Source Call Click
  9122. End Sub
  9123. '++LotusScript Development Environment:2:2:Click:1:12
  9124. Sub Click(Source As Button)
  9125.      
  9126.      InstantiateWebBrowserFormObjects
  9127.      Dim webdoc As notesdocument
  9128.      Dim noteid As String
  9129.      noteid = ""
  9130.      
  9131.      Response = Msgbox ("This will permanently delete the selected page from the database.  Do you want to continue?", 20, "Delete Document")
  9132.      If Response = 6 Then    
  9133.           uidoc.close
  9134.           Set webdoc=db.getdocumentbyurl(doc.url(0))
  9135.           Call RemoveObjects(webdoc)
  9136.          ' webdoc.Remove True
  9137.           
  9138.           If doc.isuidocopen Then
  9139.                noteid = doc.noteid             
  9140.                Delete doc
  9141.                Set doc = db.getdocumentbyid (noteid) 
  9142.                doc.remove True
  9143.                w.viewrefresh  
  9144.                w.viewrefresh
  9145.           Else
  9146.                doc.Remove True 
  9147.           End If
  9148.           
  9149.           w.viewrefresh
  9150.           
  9151.           
  9152.           
  9153.      End If
  9154.      
  9155. End Sub
  9156. $ControlURLNavigaten'++LotusScript Development Environment:2:5:(Options):0:66
  9157. '++LotusScript Development Environment:2:5:(Forward):0:1
  9158. Declare Sub Click(Source As Button)
  9159. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9160. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9161. Private Sub BindEvents(Byval Objectname_ As String)
  9162.      Static Source As BUTTON
  9163.      Set Source = Bind(Objectname_)
  9164.      On Event Click From Source Call Click
  9165. End Sub
  9166. '++LotusScript Development Environment:2:2:Click:1:12
  9167. Sub Click(Source As Button)
  9168.      
  9169.      InstantiateWebBrowserFormObjects
  9170.      Dim URL As Variant
  9171.      Dim Reload As Variant
  9172.      Dim Flags As Integer
  9173.      Dim TmpUrl As String
  9174.      
  9175.      URL = doc.GetitemValue("$NavigateToURL")
  9176.      Reload = doc.GetItemValue("$ReloadRefresh")
  9177.      Flags =Val (Reload(0))
  9178.      On Error 213  Resume Next
  9179.      
  9180.      TmpUrl=browserobject.LocationURL
  9181.      
  9182.      If Flags = 1 Then
  9183.           Flags = 4
  9184.      End If
  9185.      
  9186.      
  9187.      If URL(0) <> "" Then
  9188.           If URL(0) = TmpUrl Then
  9189.               ' Print "Refreshing " + Url(0)
  9190.                browserobject.Refresh     
  9191.           Else
  9192.              '  Print "Attempting " + URL(0) + " Flags = "+ Str(Flags)
  9193.                browserobject.Navigate2 (URL(0)), (Flags)
  9194.                
  9195.           ' Once navigation is done delete the item form the form
  9196.                doc.REMOVEITEM("$NavigateToURL")
  9197.                doc.RemoveItem("$ReloadRefresh")
  9198.                Call doc.Save( True, False )
  9199.           End If
  9200.      Else
  9201.           Messagebox "No URL specified.", 0, "ErrorNavigating"
  9202.      End If     
  9203. End Sub
  9204. Open History Folder"
  9205. Add Bookmark...
  9206. title
  9207.     0S0E
  9208. Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
  9209. '++LotusScript Development Environment:2:5:(Forward):0:1
  9210. Declare Sub Click(Source As Button)
  9211. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9212. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9213. Private Sub BindEvents(Byval Objectname_ As String)
  9214.      Static Source As BUTTON
  9215.      Set Source = Bind(Objectname_)
  9216.      On Event Click From Source Call Click
  9217. End Sub
  9218. '++LotusScript Development Environment:2:2:Click:1:12
  9219. Sub Click(Source As Button)
  9220.      
  9221.      Dim iret As Integer
  9222.      iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
  9223. End Sub
  9224.     0S0E
  9225. Go to Bookmarks '++LotusScript Development Environment:2:5:(Options):0:66
  9226. '++LotusScript Development Environment:2:5:(Forward):0:1
  9227. Declare Sub Click(Source As Button)
  9228. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9229. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9230. Private Sub BindEvents(Byval Objectname_ As String)
  9231.     Static Source As BUTTON
  9232.     Set Source = Bind(Objectname_)
  9233.     On Event Click From Source Call Click
  9234. End Sub
  9235. '++LotusScript Development Environment:2:2:Click:1:12
  9236. Sub Click(Source As Button)
  9237.     InstantiateWebBrowserFormObjects
  9238.     Call w.opendatabase("", "bookmark.nsf")
  9239. End Sub
  9240. Send Docu_ment
  9241. Categori_zet
  9242. _Forward
  9243. _Move To Folder...
  9244. _Remove From Folder
  9245. _Edit Document
  9246. Lotus Product
  9247. OBJECT
  9248. Lotus Product
  9249. OBJECT
  9250. Lotus Product
  9251. OBJECT
  9252. Lotus Product
  9253. OBJECT
  9254. Lotus Product
  9255. OBJECT
  9256. Lotus Product
  9257. OBJECT
  9258. Lotus Product
  9259. OBJECT
  9260. Lotus Product
  9261. OBJECT
  9262. Lotus Product
  9263. OBJECT
  9264. Lotus Product
  9265. OBJECT
  9266. O=Lotus Notes
  9267. O=Lotus Notes
  9268. PURSAFO
  9269. |.:#U
  9270. O=Lotus Notes
  9271. CN=Lotus Notes Template Development/O=Lotus Notes
  9272. PURSAFO
  9273. $FILE
  9274. EXT11761.lss
  9275. $FILE
  9276. EXT11761.lso
  9277. $FILE
  9278. STG13885
  9279. $FILE
  9280. EXT11761
  9281. $OLEOBJINFO
  9282. $INFO
  9283. $WINDOWTITLE
  9284. $Script
  9285. $$Script_O
  9286. $$ScriptName
  9287. $$FormScript
  9288. $$$FormScript_O
  9289. $BODY
  9290. $V5ACTIONS
  9291. $ACTIONS
  9292. $SCRIPTOBJ_0
  9293. $SCRIPTOBJ_1
  9294. $SCRIPTOBJ_2
  9295. $SCRIPTOBJ_3
  9296. $SCRIPTOBJ_4
  9297. $SCRIPTOBJ_6
  9298. $SCRIPTOBJ_7
  9299. $SCRIPTOBJ_8
  9300. $SCRIPTOBJ_11
  9301. $SCRIPTOBJ_12
  9302. $UpdatedBy$ACLDigest$Signature$Name$DesignVersion$Version$Formula$FormulaClass$Collation$TITLE$INFO$FlagsURLDoclink$FIELDS$BODY$Fonts$TemplateModTime$TemplateServerName$TemplateFileName$DefaultNavigator$FlagsNoRefreshIconBitmap$SCRIPTOBJ_12$SCRIPTOBJ_11$Index$Collation1$Collation2$Collation3$VIEWFORMAT$FormFormula$Comment$V5ACTIONS$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_9$SCRIPTOBJ_10$ViewGlobalScript$ViewGlobalScript_O$ViewScript$ViewScript_O$WINDOWTITLE$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_O$$StartUpOptions$StartUpOptions_O$$OpenURL$OpenURL_O$$ScanAhead$ScanAhead_O$$PreferredSearchEngine$PreferredSearchEngine_O$$$Script1$$Script1_OStartUpOptionsOpenURLReduceNumDaysReduceNumMBWebDatabaseAnchor_styleBodyFixedPlainAddressListingSearchFrequencyUpdatesFoundOptionsSendMailToScanAheadPreferredSearchEngineSearchURLReduceDaysReduceSizeWebServerKeepPageSaveHTML$Script1$Collation4$Totals$SCRIPTOBJ_8$DBScript$DBScript_O$PublicAccessTitleURLContentCommentsSharedOptionstmpWebServertmpWebDbRatingbookmarkfileCounter$Hotspot0_OCreatedExpirationPrivacy_flagsOriginal_DateLast_Modified$$XMB_2$$XMB_3$SCRIPTOBJ_21$SCRIPTOBJ_20$SCRIPTOBJ_16$SCRIPTOBJ_17HTTPStatusTypeHostFileNameSaveOptionsSubject$SCRIPTOBJ_0$SCRIPTOBJ_2$SCRIPTOBJ_4$SCRIPTOBJ_19$SCRIPTOBJ_18$SCRIPTOBJ_14$SCRIPTOBJ_15$SCRIPTOBJ_1$SCRIPTOBJ_3$SCRIPTOBJ_5$SCRIPTOBJ_13$FolderObject$FolderIDTableForwardOptions$FILE$SCRIPTOBJ_26$SCRIPTOBJ_22$SCRIPTOBJ_23$SCRIPTOBJ_24$SCRIPTOBJ_25$OLEOBJINFO$OLEPreviewActivate$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$ScriptLib$ScriptLib_O$Type$Operation$Scan$LeftToDoFORMbookmark$Revisionshome$HTMLDocumentStylesUsernameDomainPathCookieNameExpirationDateCookieValueCookieSecure
  9303. Lotus Product
  9304. OBJECT
  9305.  Cookie
  9306.     Name:  
  9307. Username
  9308.     Domain:  
  9309. Domain
  9310.     Host:  
  9311.     Path:  
  9312.     Cookie Name:  
  9313. CookieName
  9314.     Expiration Date:  
  9315. ExpirationDate
  9316.     Value:  
  9317. CookieValue
  9318.     Cookie:  
  9319. .,$///:
  9320. Cookie
  9321.     Secure:  
  9322. Secure
  9323. Categori_ze
  9324. _Edit Document
  9325. Send Docu_ment
  9326. _Forward
  9327. _Move To Folder...
  9328. _Remove From Folder
  9329. Delete 
  9330.     0S0E
  9331. Categori_ze
  9332. _Edit Document
  9333. Send Docu_ment
  9334. _Forward
  9335. _Move To Folder...
  9336. _Remove From Folder
  9337. Delete 
  9338.     0S0E
  9339. O=Lotus Notes
  9340. O=Lotus Notes
  9341. PURSAFO
  9342. |.:#U
  9343. O=Lotus Notes
  9344. CN=Lotus Notes Template Development/O=Lotus Notes
  9345. PURSAFO
  9346. $HTMLDocumentStyles
  9347. $INFO
  9348. $$Script_O
  9349. $$ScriptName
  9350. ExpirationDate
  9351. $BODY
  9352. $V5ACTIONS
  9353. $ACTIONS
  9354. Lotus Product
  9355. OBJECT
  9356. Lotus Product
  9357. OBJECT
  9358. Lotus Product
  9359. OBJECT
  9360. Lotus Product
  9361. V0.0S
  9362. _Forward
  9363. Categori_ze
  9364. _Edit Document
  9365. Send Docu_ment
  9366. _Move to Folder...
  9367. _Remove from Folder...
  9368. Delete 
  9369.     0S0E
  9370. _Forward
  9371. Categori_ze
  9372. _Edit Document
  9373. Send Docu_ment
  9374. _Move to Folder...
  9375. _Remove from Folder...
  9376. Delete 
  9377.     0S0E
  9378. '++LotusScript Development Environment:2:5:(Options):0:74
  9379. Option Public
  9380. '++LotusScript Development Environment:2:5:(Forward):0:1
  9381. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9382. Lotus Product
  9383. '++LotusScript Development Environment:2:5:(Options):0:66
  9384. '++LotusScript Development Environment:2:5:(Forward):0:1
  9385. Declare Sub Postopen(Source As Notesuiview)
  9386. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9387. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9388. Private Sub BindEvents(Byval Objectname_ As String)
  9389.     Static Source As NOTESUIVIEW
  9390.     Set Source = Bind(Objectname_)
  9391.     On Event Postopen From Source Call Postopen
  9392. End Sub
  9393. '++LotusScript Development Environment:2:2:Postopen:1:12
  9394. Sub Postopen(Source As Notesuiview)
  9395. End Sub
  9396. Lotus Product
  9397. O=Lotus Notes
  9398. O=Lotus Notes
  9399. PURSAFO
  9400. |.:#U
  9401. O=Lotus Notes
  9402. CN=Lotus Notes Template Development/O=Lotus Notes
  9403. PURSAFO
  9404. $HTMLDocumentStyles
  9405. $SCRIPTOBJ_12
  9406. $SCRIPTOBJ_13
  9407. $SCRIPTOBJ_14
  9408. $SCRIPTOBJ_15
  9409. $TITLE
  9410. $Index
  9411. $Formula
  9412. $FormulaClass
  9413. $VIEWFORMAT
  9414. $Comment
  9415. $V5ACTIONS
  9416. $ACTIONS
  9417. $ViewGlobalScript
  9418. $ViewGlobalScript_O
  9419. $ViewScript
  9420. $ViewScript_O
  9421. '++LotusScript Development Environment:2:5:(Options):0:74
  9422. Option Public
  9423. Use "InternetFunctions"
  9424. '++LotusScript Development Environment:2:5:(Forward):0:1
  9425. Declare Sub Initialize
  9426. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9427. '++LotusScript Development Environment:2:2:Initialize:1:10
  9428. Sub Initialize
  9429.     InstantiateObjects
  9430.     Dim docCollection As NotesDocumentCollection
  9431.     Dim docLocal As NotesDocument
  9432.     Set docCollection = db.UnprocessedDocuments
  9433.     If (docCollection.Count = 0) Then
  9434.         Msgbox "You must select a document.",16,"Error"
  9435.         Exit Sub
  9436.     End If
  9437.     Set docLocal = docCollection.GetFirstDocument
  9438.     While Not (docLocal Is Nothing)
  9439.         RemoveObjects docLocal
  9440.         ReduceToLink docLocal
  9441.         Set docLocal = docCollection.GetNextDocument(docLocal)
  9442.     Wend
  9443. End Sub
  9444. Lotus Product
  9445. OBJECT
  9446. O=Lotus Notes
  9447. O=Lotus Notes
  9448. PURSAFO
  9449. |.:#U
  9450. O=Lotus Notes
  9451. CN=Lotus Notes Template Development/O=Lotus Notes
  9452. PURSAFO
  9453. $TITLE
  9454. $AssistType
  9455. $AssistLastRun
  9456. $AssistDocCount
  9457. $AssistFlags
  9458. $AssistTrigger
  9459. $AssistInfo
  9460. $AssistQuery
  9461. $AssistAction
  9462. $AssistAction_Ex
  9463. (Untitled)
  9464. Reduce to Bookmarkp
  9465. title
  9466. Favorites
  9467.     0S0E
  9468. (RemoveObjects)
  9469. (Untitled)
  9470. Reduce to Bookmarkp
  9471. title
  9472. Favorites
  9473.     0S0E
  9474. (RemoveObjects)
  9475. O=Lotus Notes
  9476. O=Lotus Notes
  9477. PURSAFO
  9478. |.:#U
  9479. O=Lotus Notes
  9480. CN=Lotus Notes Template Development/O=Lotus Notes
  9481. PURSAFO
  9482. $INFO
  9483. $BODY
  9484. $V5ACTIONS
  9485. $ACTIONS
  9486. 11/03/97 11:35:36 AM Teresa Deane/Iris updated [-Default-]
  9487. 11/03/97 11:35:16 AM Teresa Deane/Iris added [-Default-]
  9488. 11/03/97 11:34:30 AM Teresa Deane/Iris updated OtherDomainServers
  9489. 11/03/97 11:34:16 AM Teresa Deane/Iris updated LocalDomainServers
  9490. 05/21/97 12:51:15 PM Teresa Deane/Iris updated [OtherDomainServers]
  9491. 05/21/97 12:51:07 PM Teresa Deane/Iris added [OtherDomainServers]
  9492. 05/21/97 12:50:59 PM Teresa Deane/Iris updated OtherDomainServers
  9493. 05/21/97 12:50:56 PM Teresa Deane/Iris updated LocalDomainServers
  9494. 05/21/97 12:50:52 PM Teresa Deane/Iris updated [LocalDomainServers]
  9495. 05/21/97 12:50:45 PM Teresa Deane/Iris added [LocalDomainServers]
  9496. 05/21/97 12:50:36 PM Teresa Deane/Iris deleted Teresa Deane/Iris
  9497. 05/21/97 12:50:33 PM Teresa Deane/Iris deleted Teresa Deane/Deane
  9498. 05/20/97 02:17:48 PM Teresa Deane/Iris added Teresa Deane/Deane
  9499. 05/20/97 02:17:46 PM Teresa Deane/Iris updated Teresa Deane/Iris
  9500. 05/20/97 02:17:46 PM Teresa Deane/Iris added Teresa Deane/Iris
  9501. 05/20/97 02:17:46 PM Teresa Deane/Iris added LocalDomainServers
  9502. 05/20/97 02:17:46 PM Teresa Deane/Iris added OtherDomainServers
  9503. -Default-
  9504. OtherDomainServers
  9505. LocalDomainServers
  9506. [LocalDomainServers]
  9507. [OtherDomainServers]
  9508. [-Default-]
  9509.