home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / Lotus / Domino46 / LOTUS027.DSK / PAGESW46.NTF (.txt) < prev    next >
Lotus Notes Database  |  1997-08-08  |  206KB  |  1,703 lines

  1. Web Pages (R4.6)
  2. #1StdR46WebPages
  3. ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$TITLE$Index$Collation1$Collation2$Collation3$Collation4$ViewFormat$Comment$Flags$ACTIONS$DefaultNavigator$LaunchWebViewName$FlagsNoRefreshIconBitmap$Info$SubForms$WindowTitle$Fonts$$Script_O$$ScriptName$$FormScript$$$FormScript_OPageTitleFormFromHomePageHTMLPageNameHomePageCheckPageID$BodyBody$$PageName_1$PageName_1_O$Script$$PageName$PageName_O$$HomePageCheck$HomePageCheck_O$$tmpPageName$tmpPageName_O$DBAction1$PublicAccess
  4. CN=Lotus Notes Template Development/O=Lotus Notes
  5. CN=Richard Schwartz/O=IrisCN=ITEAM2/O=domino/C=USCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  6. Mg>we
  7. ##########
  8. $Modified
  9.     1S2S3S
  10. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  11. $Flags
  12.     0SL1S4S5S3724
  13. $TITLE
  14. CN=server/O=RHSTEST/C=US###################################
  15. All Pages2
  16. HomePage+
  17.     3S4S
  18. PageTitle
  19. PageTitle
  20. PageTitle
  21. PageName
  22.     6S7S8S9S
  23. /pages/
  24. PageName"
  25.     1S2S9S11S12S
  26. $5$3$1$Conflict$REF
  27. HomePage+
  28.     3S4S
  29. $3Page Title/Namel
  30. PageTitle
  31. PageTitle
  32. PageTitle
  33. PageName
  34.     6S7S8S9S
  35. $1Relative URLT
  36. /pages/
  37. PageName"
  38.     1S2S9S11S12S
  39. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
  40. Main NavWeb Pages (R4.6)
  41. #1StdR46WebPagesHome PagexV
  42. CN=Richard Schwartz/O=Iris
  43. qSYw{Y
  44. ##########################################
  45. Web Page Using HTMLHTML
  46. TopDoc Info 1w
  47. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
  48. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  49. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  50. TopCUA3
  51. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
  52. O=Lotus Notes
  53. O=Lotus Notes
  54. PURSAFO
  55. |.:#U
  56. O=Lotus Notes
  57. CN=Lotus Notes Template Development/O=Lotus Notes
  58. PURSAFO
  59. Fde!f^^
  60. $ACLDigest
  61. Categori_ze
  62. _Edit Document
  63. Send Docu_ment
  64. _Forward
  65. _Move To Folder...
  66. _Remove From Folder
  67. O=Lotus Notes
  68. O=Lotus Notes
  69. PURSAFO
  70. |.:#U
  71. O=Lotus Notes
  72. CN=Lotus Notes Template Development/O=Lotus Notes
  73. PURSAFO
  74. Fde!f^^
  75. Ag|_Q:E
  76. $TITLE
  77. $Index
  78. $Formula
  79. $FormulaClass
  80. $ViewFormat
  81. $Comment
  82. $ACTIONS
  83. PageTitle
  84. Times New Roman
  85.  HTML'++LotusScript Development Environment:2:5:(Options):0:66
  86. '++LotusScript Development Environment:2:5:(Forward):0:1
  87. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  88. '++LotusScript Development Environment:2:5:(Declarations):0:2
  89. '++LotusScript Development Environment:2:2:BindEvents:1:129
  90. Private Sub BindEvents(Byval Objectname_ As String)
  91.      Static Source As NOTESUIDOCUMENT
  92.      Set Source = Bind(Objectname_)
  93.      On Event Querysave From Source Call Querysave
  94. End Sub
  95. '++LotusScript Development Environment:2:2:Querysave:1:12
  96. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  97.      
  98.      Dim rtext As String
  99.      Dim utext As String     
  100.      
  101.      rtext =source.FieldGetText("HTML")
  102.      utext = Ucase(rtext)
  103.      start = Instr(utext,"<TITLE>")
  104.      finish = Instr(utext,"</TITLE>")
  105.      
  106.      If start <> 0 And finish <> 0 Then          
  107.           title = Mid(rtext,start+7,(finish - start - 7))
  108.           Call source.FieldSetText("PageTitle",title)  
  109.      End If
  110.      
  111. End Sub
  112. PageTitle
  113. QuerySave method computes this by extracting <Title>...</Title> info from HTML
  114. Insures that the back-end knows about the form before doc is saved.
  115. FromAuthor of this document
  116.     page creator
  117. tmpDbName
  118.     store server and database name
  119. tmpDbName
  120.     0S0E
  121. tmpDB
  122.     just the database
  123. tmpDbName
  124.     0S0E
  125. tmpSrv
  126.     just the server
  127. HomePage
  128.     boolean indicator of whether this is the home page for this database
  129. Doc Info 1
  130. Enter a page name for the URL
  131. isNew
  132.     1S2S
  133. isBlank
  134. PageName
  135.     0R1S2S3S4S
  136. notStillTheSame
  137. PageName
  138. tmpOldPageName
  139.     0R1S2S5S6S
  140. unSafeChars
  141.     0R1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S
  142. asciiRendered
  143. PageName
  144.     0R1S2S
  145. nonPrintable
  146. isBlank
  147. asciiRendered
  148.     0R1S2S4S6S7S9S10S
  149. fallBack
  150. asciiRendered
  151. PageName
  152.     0R1S2S3S4S
  153. unSafe
  154. PageName
  155. unSafeChars
  156.     0R1S2S
  157. NoCache
  158. pages
  159. PageName
  160.     0RR1S2S
  161. lkupOK
  162. lkupZ
  163.     0R1S
  164. lkupIsDup
  165. lkupOK
  166. lkupj
  167.     0R1S2S6RS37E10S11S13RS37E14RS33E
  168. lkupIsMe
  169. lkupOK
  170. PageIDV
  171.     0R1S2S6RS37E7S8S13RS37E14RS31E
  172. isBlank
  173. You must enter a page name{
  174. lkupIsDup
  175. The new Page's name is a duplicate. Enter a unique page name.
  176. lkupIsMe
  177. notStillTheSame
  178. lkupOK
  179. The new Page's name is a duplicate. Enter a unique page name.
  180. unSafe
  181. The page name contains a character that is unsafe for URLs{
  182. nonPrintable
  183. The page name contains a non-printable character that is not allowed for URLs
  184. fallBack
  185. The page name contains a non-ASCII character that is not allowed for URLs
  186.     0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
  187. Enter HTML tags and content for your Web page below
  188. PageName
  189. Not Available
  190. tmpDB
  191. /pages/
  192. PageName
  193.     3S4S6S9S10S11S12S13S14StmpURL
  194. Full URL:
  195. T[\[\
  196. uT[\v
  197. T[T[u
  198. [T[T[
  199. \T\[u
  200. [\[\[\
  201. ?8;8;NI
  202. GVn{s    
  203. [T[Tv
  204. uvuvuv
  205. [u    u    
  206. .,#'. 
  207. 111RRRccckkksss{{{
  208. Bkk9kk1cc
  209. RRscc
  210. 11ccc
  211. 11k11
  212. HomePageCheck
  213. Make this page the home page | Home Page
  214. PageName
  215. tmpOldPageName
  216.     0S0E
  217. tmpOldPageName
  218.  remember page name for validation against duplicates
  219. PageID
  220.  unique page id used in validation formula for PageName field
  221. HTMLEnter HTML tags and content here
  222. _Edit Document
  223. Categori_ze
  224. Send Docu_ment
  225. _Forward
  226. _Move To Folder...
  227. _Remove From Folder
  228. O=Lotus Notes
  229. O=Lotus Notes
  230. PURSAFO
  231. |.:#U
  232. O=Lotus Notes
  233. CN=Lotus Notes Template Development/O=Lotus Notes
  234. PURSAFO
  235. Fde!f^^
  236. d^QM1
  237. $TITLE
  238. $Info
  239. $SubForms
  240. $WindowTitle
  241. $$Script_O
  242. $$ScriptName
  243. $$FormScript
  244. $$$FormScript_O
  245. HomePage
  246. $Body
  247. $ACTIONS
  248. Times New Roman
  249.  ( (0
  250. ( (0(
  251.  0( 0( 
  252. ( ( (
  253. ( ( (0 
  254.  ( (0(
  255. (0(8@
  256. 0 0( 
  257. (0(0 
  258. 080@8
  259. 8    0@0(080@
  260. h`HXH8
  261. @8@H0808@8
  262. 0 0(0(
  263. 8080(
  264.  ( ( (
  265. 8(0( (080(8(
  266. 0( (0
  267. xpXPXH@H8
  268. @    8(08080(0
  269. 8@808
  270. (0@8(0( 
  271. 08@8@
  272.  0(8@0
  273. PHPX@HP`XP@H@
  274. XP@80@H@
  275. `PH8HX
  276. H@80@
  277. 8@H`h
  278. H@8@80(0(08@HPH8@HPH@H80(
  279. 0 ( ( 
  280. 8( ( 0(80 0(
  281. 8(0(0(@
  282. 0(0(0(8
  283. 0(0(0@8
  284.  8(808@8
  285. 8phX@P@
  286. H@H80
  287. 8H08(
  288. HXPHP@
  289. (XP`H
  290. PXHP@8(0( (80
  291. @(08@H@0
  292. 8@(8H(80H8P@08(
  293. XPXPH@
  294. PhPH@
  295. XhXHPH@8@H@
  296. p`H8@8
  297. 08(8@8(0(0@0(
  298. 8(8@H@
  299. 80H8@
  300. 0@08H
  301. H@08H
  302. 0H( 8
  303. XhPXH@
  304. H8@8H@
  305. H@0@HP8
  306. @h`h@808P8
  307.  pXH@
  308.  ( ( ( 08 
  309. @08(08(
  310. H0@H8
  311. (    @8@8 0(80
  312. @0( (
  313. P@0@H
  314. 0p`PH
  315. xh`P@8@8@PHXh
  316. X`8HP
  317. 8@(0@(0
  318. 0H80PH80@80@(0@
  319. @PH808@08H8@HX
  320. @H08(H8H
  321. P@H@P
  322. hphpH
  323. xhXH@
  324. 8H808
  325. @H@H8H8
  326. 80@0@8
  327. 0 (0(8
  328. @8@08
  329. 0808H@P
  330. XP@P0P08
  331.  hxp`H@8
  332. @(0(0
  333. (0808
  334. (0@H80@0
  335. H080(8HP
  336. 8@8@(H
  337. 0H@H@H
  338. H    @H@H8@80(
  339. @8@8H
  340. p`XP@H`
  341. xpXPH@
  342. 0(8080
  343. 0(0@8H@
  344. 0    8@8H80@08
  345. 8@0@80
  346. @8@8H
  347. (08@08@8@8@
  348. H08@H
  349. H8@0808@
  350. @80(@
  351. 0    8(808(80(
  352. @    8080(@8@0
  353. @80H8(0
  354. HP@HP
  355. 8(@H8@H(0(
  356. PX8@HP
  357. hp`XPXP(
  358. xh`PH@8
  359.     x`PH@H8@0
  360. 8(80(8
  361. 0H808
  362. 8H0P8
  363. PH@8@0@H
  364. @8080
  365. @P0H080
  366. @ 8@(0P@
  367. H@HPHPH
  368.     pH(p`hPH@
  369. x`X@H@HP
  370. xX8Hx
  371. @    8H8
  372. 0P`P 
  373. XP@0(
  374. 8(080
  375. @H8H0
  376. (0@H@H@
  377. H    8@0808(@0
  378. 0H@8@H@
  379. x`PH@H@8@H@
  380. XxphXH@0@80(
  381. @8@0P@HP@(
  382. @xp`H
  383. 8P8HX 
  384. XhXPH
  385. (0 (0(8
  386. 0 0 8 0
  387. 8    (80( 0(@8
  388. 8@8H@8@0
  389. @0@(0(
  390. @08H@80@
  391. 0@H@8@8@H0(H
  392. @0@H@0P
  393. Pxp`0
  394. 8xhXP
  395. 8H08@8H
  396. xh`@8
  397. xX`XH8@HP` 
  398.  ( (8@08
  399. 8@0@8
  400. (0808(H(@0H0(
  401. 0H808@0H@H8H@H8@
  402. P@8@H
  403. @    80@HP@H@H
  404. 8@HXhH(
  405. P8@`px
  406. XPXH0@H
  407. @0@8X
  408. `XH@8
  409. @    HhH8@`phX
  410. ph`H@
  411. `x`Xx
  412. pxp`P@08H@HPXP8
  413. 8@`p`XP@
  414. H`ph`X
  415. 0@8@0@0 80
  416.  8H@8
  417. 8@808@H
  418. @08@80
  419. h`XPH
  420. 80H8@`X
  421. 808@HPXh`phphX
  422. H8(0( (
  423. (0 (8(8(
  424. 0(0@808@
  425.  @0(8
  426. 0    (8(0(0H@8
  427. 8@8@0@808H(
  428. H80808@H
  429. H@HXPH
  430. XP@8H
  431. P    H@0@8(0@P
  432. (HPX0
  433. @xh`H
  434. H@H8(0(
  435. 8080(0
  436.  (@8@8@8
  437. @0(0@
  438. 08@808@(@08@0808
  439. H0808
  440. @    8@H@(8@H8
  441. (0@8@080@80(@H 
  442. 8@H@8
  443. 808(08
  444. 0ph`H
  445.  (0 8
  446. @80(@0
  447. 08(@08(0
  448. @8@8@0
  449. P@H@P
  450. 08@(0
  451. 08(0 ( (
  452. @080@08@
  453. @phXH
  454. 8(@80
  455.  (80(
  456. 0 0 (
  457. 8(8080
  458.  0@8@8@
  459. 808(8
  460. 08080@
  461. 0@(8@8
  462. 0(080
  463. HX`P@H
  464. 0(@80(
  465. XH80( ( ( 0
  466. (0 ( (
  467.  ( 0( ( 
  468. (0(0( (0
  469.      (0808(8@(
  470. (08@8
  471. @(@0@
  472. (0( ( 
  473.  (0 (0
  474.  ( ( ( 808
  475. ( ( ( 
  476. ~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiifffdddbbb```
  477.     What does this database do?
  478.     The Web Pages database lets you easily create and store Web pages.  You can enter data in Notes' rich text format using the "Web Page" form.  You can add Notes doclinks to pages you create with this form to link your web pages together.  The Domino server automatically translates rich text and doclinks into HTML for the browser.  
  479.     If you want to create pages using HTML, use the "Web Page Using HTML" form.  The Domino server will not translate pages you create with this form.  This is useful if you have existing HTML pages.
  480.     Who will use this database?
  481.     Webmasters and page designers for corporate Intranets and World Wide Web sites on the Internet.
  482.     Where can I find additional information?
  483.     Refer to the following documentation database on 
  484.     http://www.notes.net
  485.       Best Practices: Templates and Sample Databases (BPTEMP.NSF)
  486.     Access Control:
  487.     The default access of a database created with this template is "Reader".  
  488.     Anonymous access has also been set to "Reader".  This means that the content of this database is available to anyone who can access your Domino web server with a Notes client.  If you plan to enter confidential information in this database, change the Default setting in the Access Control List to "No Access" and grant "Reader" access to specific individuals or groups.  You should also change the Anonymous setting in the Access Control List to "No Access" if you enter information in this database that should not be available to all browser users.  Give Editor permission to all users who need to create or modify Web page content.
  489. Note:  This database template is designed for Domino 4
  490. .6.  This application is designed for a screen display of 800x600 in the Notes client.  Pages created with this application can be viewed on any browser at any resolution.
  491. O=Lotus Notes
  492. O=Lotus Notes
  493. PURSAFO
  494. |.:#U
  495. O=Lotus Notes
  496. CN=Lotus Notes Template Development/O=Lotus Notes
  497. PURSAFO
  498. Fde!f^^
  499. $Info
  500. $Body
  501. Times New Roman
  502.  ( (0
  503. ( (0(
  504.  0( 0( 
  505. ( ( (
  506. ( ( (0 
  507.  ( (0(
  508. (0(8@
  509. 0 0( 
  510. (0(0 
  511. 080@8
  512. 8    0@0(080@
  513. h`HXH8
  514. @8@H0808@8
  515. 0 0(0(
  516. 8080(
  517.  ( ( (
  518. 8(0( (080(8(
  519. 0( (0
  520. xpXPXH@H8
  521. @    8(08080(0
  522. 8@808
  523. (0@8(0( 
  524. 08@8@
  525.  0(8@0
  526. PHPX@HP`XP@H@
  527. XP@80@H@
  528. `PH8HX
  529. H@80@
  530. 8@H`h
  531. H@8@80(0(08@HPH8@HPH@H80(
  532. 0 ( ( 
  533. 8( ( 0(80 0(
  534. 8(0(0(@
  535. 0(0(0(8
  536. 0(0(0@8
  537.  8(808@8
  538. 8phX@P@
  539. H@H80
  540. 8H08(
  541. HXPHP@
  542. (XP`H
  543. PXHP@8(0( (80
  544. @(08@H@0
  545. 8@(8H(80H8P@08(
  546. XPXPH@
  547. PhPH@
  548. XhXHPH@8@H@
  549. p`H8@8
  550. 08(8@8(0(0@0(
  551. 8(8@H@
  552. 80H8@
  553. 0@08H
  554. H@08H
  555. 0H( 8
  556. XhPXH@
  557. H8@8H@
  558. H@0@HP8
  559. @h`h@808P8
  560.  pXH@
  561.  ( ( ( 08 
  562. @08(08(
  563. H0@H8
  564. (    @8@8 0(80
  565. @0( (
  566. P@0@H
  567. 0p`PH
  568. xh`P@8@8@PHXh
  569. X`8HP
  570. 8@(0@(0
  571. 0H80PH80@80@(0@
  572. @PH808@08H8@HX
  573. @H08(H8H
  574. P@H@P
  575. hphpH
  576. xhXH@
  577. 8H808
  578. @H@H8H8
  579. 80@0@8
  580. 0 (0(8
  581. @8@08
  582. 0808H@P
  583. XP@P0P08
  584.  hxp`H@8
  585. @(0(0
  586. (0808
  587. (0@H80@0
  588. H080(8HP
  589. 8@8@(H
  590. 0H@H@H
  591. H    @H@H8@80(
  592. @8@8H
  593. p`XP@H`
  594. xpXPH@
  595. 0(8080
  596. 0(0@8H@
  597. 0    8@8H80@08
  598. 8@0@80
  599. @8@8H
  600. (08@08@8@8@
  601. H08@H
  602. H8@0808@
  603. @80(@
  604. 0    8(808(80(
  605. @    8080(@8@0
  606. @80H8(0
  607. HP@HP
  608. 8(@H8@H(0(
  609. PX8@HP
  610. hp`XPXP(
  611. xh`PH@8
  612.     x`PH@H8@0
  613. 8(80(8
  614. 0H808
  615. 8H0P8
  616. PH@8@0@H
  617. @8080
  618. @P0H080
  619. @ 8@(0P@
  620. H@HPHPH
  621.     pH(p`hPH@
  622. x`X@H@HP
  623. xX8Hx
  624. @    8H8
  625. 0P`P 
  626. XP@0(
  627. 8(080
  628. @H8H0
  629. (0@H@H@
  630. H    8@0808(@0
  631. 0H@8@H@
  632. x`PH@H@8@H@
  633. XxphXH@0@80(
  634. @8@0P@HP@(
  635. @xp`H
  636. 8P8HX 
  637. XhXPH
  638. (0 (0(8
  639. 0 0 8 0
  640. 8    (80( 0(@8
  641. 8@8H@8@0
  642. @0@(0(
  643. @08H@80@
  644. 0@H@8@8@H0(H
  645. @0@H@0P
  646. Pxp`0
  647. 8xhXP
  648. 8H08@8H
  649. xh`@8
  650. xX`XH8@HP` 
  651.  ( (8@08
  652. 8@0@8
  653. (0808(H(@0H0(
  654. 0H808@0H@H8H@H8@
  655. P@8@H
  656. @    80@HP@H@H
  657. 8@HXhH(
  658. P8@`px
  659. XPXH0@H
  660. @0@8X
  661. `XH@8
  662. @    HhH8@`phX
  663. ph`H@
  664. `x`Xx
  665. pxp`P@08H@HPXP8
  666. 8@`p`XP@
  667. H`ph`X
  668. 0@8@0@0 80
  669.  8H@8
  670. 8@808@H
  671. @08@80
  672. h`XPH
  673. 80H8@`X
  674. 808@HPXh`phphX
  675. H8(0( (
  676. (0 (8(8(
  677. 0(0@808@
  678.  @0(8
  679. 0    (8(0(0H@8
  680. 8@8@0@808H(
  681. H80808@H
  682. H@HXPH
  683. XP@8H
  684. P    H@0@8(0@P
  685. (HPX0
  686. @xh`H
  687. H@H8(0(
  688. 8080(0
  689.  (@8@8@8
  690. @0(0@
  691. 08@808@(@08@0808
  692. H0808
  693. @    8@H@(8@H8
  694. (0@8@080@80(@H 
  695. 8@H@8
  696. 808(08
  697. 0ph`H
  698.  (0 8
  699. @80(@0
  700. 08(@08(0
  701. @8@8@0
  702. P@H@P
  703. 08@(0
  704. 08(0 ( (
  705. @080@08@
  706. @phXH
  707. 8(@80
  708.  (80(
  709. 0 0 (
  710. 8(8080
  711.  0@8@8@
  712. 808(8
  713. 08080@
  714. 0@(8@8
  715. 0(080
  716. HX`P@H
  717. 0(@80(
  718. XH80( ( ( 0
  719. (0 ( (
  720.  ( 0( ( 
  721. (0(0( (0
  722.      (0808(8@(
  723. (08@8
  724. @(@0@
  725. (0( ( 
  726.  (0 (0
  727.  ( ( ( 808
  728. ( ( ( 
  729. ~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiifffdddbbb```
  730. $TITLE
  731. (Lookup)
  732. e$AssistFlags$Up   
  733. Schwartz
  734.     Using Web Pages 
  735.     The Web Pages database lets you easily create and store Web pages.  You can enter data in Notes' rich text format using the "Web Page" form.  You can add Notes doclinks to pages you create with this form to link your web pages together.  The Domino server automatically translates rich text and doclinks into HTML for the browser.  
  736.     If you want to create pages using HTML, use the "Web Page Using HTML" form.  The Domino server will not translate pages you create with this form.  This is useful if you have existing HTML pages.
  737.     Who will use this database?
  738.     Webmasters and page designers for corporate Intranets and World Wide Web sites on the Internet.
  739.     Where can I find additional information?
  740.     Refer to the following documentation database on 
  741.     http://www.notes.net 
  742.      Best Practices: Templates and Sample Databases (BPTEMP.NSF)
  743.     Access Control:
  744.     The default access of a database created with this template is "Reader".  Anonymous access has also been set to "Reader".  This means that the content of this database is available to anyone who can access your Domino web server with a Notes client.  If you plan to enter confidential information in this database, change the Default setting in the Access Control List to "No Access" and grant "Reader" access to specific individuals or groups.  You should also change the Anonymous setting in the Access Control List to "No Access" if you enter information in this database that should not be available to all browser users.  Give Editor permission to all users who need to create or modify Web page content.
  745. Note:  This database template is designed for Domino 4.6
  746. O=Lotus Notes
  747. O=Lotus Notes
  748. PURSAFO
  749. |.:#U
  750. O=Lotus Notes
  751. CN=Lotus Notes Template Development/O=Lotus Notes
  752. PURSAFO
  753. Fde!f^^
  754. /=Q:D
  755. $Info
  756. $Body
  757. Web PagePage
  758. TopDoc Info 2w
  759. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
  760. Web Page Using HTML - webHTMLn
  761. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  762. Web Page - webPagen
  763. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  764. DocInfoOnly
  765. Doc Info DisplayCDw
  766. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  767. Doc Info 1CUA3
  768. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  769. Doc Info DisplayCUA3
  770. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  771. Doc Info 2CUA3
  772. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  773. (Pages)|pagesX
  774. PageIDV
  775.     0S0E
  776. PageName$5$Conflict$REF
  777. PageName
  778. PageNameName$5ID$
  779. PageIDV
  780.     0S0E
  781. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  782. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1###################################
  783. Home Page|Home
  784. Title
  785. PageName"
  786.     0S1S2S2E3S4S5S6S
  787. $24$Conflict
  788. HomePage+
  789.     L1S2S3S1
  790. Title
  791. PageName"
  792.     0S1S2S2E3S4S5S6S
  793. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
  794. ##########################################################
  795. ##########################################################
  796. ##########################################################
  797. PageTitle
  798. Times New Roman
  799.  Page
  800. Insures that the back-end knows about the form before doc is saved.
  801. FromAuthor of this document
  802.     page creator
  803. tmpDbName
  804.     store server and database name
  805. tmpDbName
  806.     0S0E
  807. tmpDB
  808.     just the database
  809. tmpDbName
  810.     0S0E
  811. tmpSrv
  812.     just the server
  813. HomePage
  814.     boolean indicator of whether this is the home page for this database
  815. Doc Info 2
  816. Enter a page name for the URL
  817. isNew
  818.     1S2S
  819. isBlank
  820. PageName
  821.     0R1S2S3S4S
  822. notStillTheSame
  823. PageName
  824. tmpOldPageName
  825.     0R1S2S5S6S
  826. unSafeChars
  827.     0R1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S
  828. asciiRendered
  829. PageName
  830.     0R1S2S
  831. nonPrintable
  832. isBlank
  833. asciiRendered
  834.     0R1S2S4S6S7S9S10S
  835. fallBack
  836. asciiRendered
  837. PageName
  838.     0R1S2S3S4S
  839. unSafe
  840. PageName
  841. unSafeChars
  842.     0R1S2S
  843. NoCache
  844. pages
  845. PageName
  846.     0RR1S2S
  847. lkupOK
  848. lkupZ
  849.     0R1S
  850. lkupIsDup
  851. lkupOK
  852. lkupj
  853.     0R1S2S6RS37E10S11S13RS37E14RS33E
  854. lkupIsMe
  855. lkupOK
  856. PageIDV
  857.     0R1S2S6RS37E7S8S13RS37E14RS31E
  858. isBlank
  859. You must enter a page name{
  860. lkupIsDup
  861. The new Page's name is a duplicate. Enter a unique page name.
  862. lkupIsMe
  863. notStillTheSame
  864. lkupOK
  865. The new Page's name is a duplicate. Enter a unique page name.
  866. unSafe
  867. The page name contains a character that is unsafe for URLs{
  868. nonPrintable
  869. The page name contains a non-printable character that is not allowed for URLs
  870. fallBack
  871. The page name contains a non-ASCII character that is not allowed for URLs
  872.     0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
  873. Enter a page title for the browser
  874. PageTitleEnter the page name for display in the browser's title bar
  875. This will be displayed by the browser in its window title bar.
  876. PageName
  877. Not Available
  878. tmpDB
  879. /pages/
  880. PageName
  881.     3S4S6S9S10S11S12S13S14StmpURL
  882. Enter content for your Web page below
  883. Full URL:
  884. T[\[\
  885. uT[\v
  886. T[T[u
  887. [T[T[
  888. \T\[u
  889. [\[\[\
  890. ?8;8;NI
  891. GVn{s    
  892. [T[Tv
  893. uvuvuv
  894. [u    u    
  895. .,#'. 
  896. 111RRRccckkksss{{{
  897. Bkk9kk1cc
  898. RRscc
  899. 11ccc
  900. 11k11
  901. HomePageCheck
  902. Make this page the home page | Home Page
  903. PageName
  904. tmpOldPageName
  905.     0S0E
  906. tmpOldPageName
  907.  remember page name for validation against duplicates
  908. PageID
  909.  unique page id used in validation formula for PageName field
  910. BodyEnter text and graphics for you web page here
  911. _Edit Document
  912. Categori_ze
  913. Send Docu_ment
  914. _Forward
  915. _Move To Folder...
  916. _Remove From Folder
  917. O=Lotus Notes
  918. O=Lotus Notes
  919. PURSAFO
  920. |.:#U
  921. O=Lotus Notes
  922. CN=Lotus Notes Template Development/O=Lotus Notes
  923. PURSAFO
  924. Fde!f^^
  925. $TITLE
  926. $Info
  927. $SubForms
  928. $WindowTitle
  929. $$Script_O
  930. $$ScriptName
  931. HomePage
  932. $Body
  933. $ACTIONS
  934. FromAuthor of this document
  935.     page creator
  936. tmpDbName
  937.     store server and database name
  938. tmpDbName
  939.     0S0E
  940. tmpDB
  941.     just the database
  942. tmpDbName
  943.     0S0E
  944. tmpSrv
  945.     just the server
  946. HomePage
  947.     boolean indicator of whether this is the home page for this database
  948. Save Page
  949.     0S0E
  950. New Page(
  951.     0S0E
  952. New Page Using HTML
  953.     0S0E
  954. Edit Page
  955.     0S0E
  956. Save and Close<
  957.     0S0E
  958. Close Page 
  959.     0S0E
  960. DocInfoOnly
  961. Document Information
  962.     2S3S4S6S7S8S9S10S11S12S13S
  963. O=Lotus Notes
  964. O=Lotus Notes
  965. PURSAFO
  966. |.:#U
  967. O=Lotus Notes
  968. CN=Lotus Notes Template Development/O=Lotus Notes
  969. PURSAFO
  970. Fde!f^^
  971. )=='4
  972. $TITLE
  973. $Info
  974. $$Script_O
  975. $$ScriptName
  976. HomePage
  977. $Body
  978. $ACTIONS
  979. PageTitle
  980. Times New Roman
  981.  HTML
  982. This form is not actually used by the Domino server.  The field called HTML that is contained in documents created with the "Web Pages Using HTML" form is treated as a special case by the Domino server.  If a document contains a field called HTML, the server sends the contents of that field (and nothing else) to the browser without any translation -- without even looking at the Form field.
  983. If you want to add additional features that are visisble on the web through this form, you will have to rename the HTML field here, and also in the "Web Pages Using HTML" form.  If you have existing documents created with this form, you will need to run an agent that renames the field:
  984.       SELECT Form = "HTML";
  985.       FIELD YourNewFieldNameGoesHere := HTML;
  986.       FIELD HTML := @Unavailable;
  987. _Edit Document
  988. Categori_zee
  989. Send Docu_ment
  990. _Forward
  991. _Move To Folder...
  992. _Remove From Folder
  993. O=Lotus Notes
  994. O=Lotus Notes
  995. PURSAFO
  996. |.:#U
  997. O=Lotus Notes
  998. CN=Lotus Notes Template Development/O=Lotus Notes
  999. PURSAFO
  1000. Fde!f^^
  1001. $TITLE
  1002. $Info
  1003. $WindowTitle
  1004. $$ScriptName
  1005. $Body
  1006. $ACTIONS
  1007. PageTitle
  1008. Times New Roman
  1009.  Page
  1010. PageTitle
  1011. _Edit Document
  1012. Categori_ze
  1013. Send Docu_ment
  1014. _Forward
  1015. _Move To Folder...
  1016. _Remove From Folder
  1017. O=Lotus Notes
  1018. O=Lotus Notes
  1019. PURSAFO
  1020. |.:#U
  1021. O=Lotus Notes
  1022. CN=Lotus Notes Template Development/O=Lotus Notes
  1023. PURSAFO
  1024. Fde!f^^
  1025. $TITLE
  1026. $Info
  1027. $WindowTitle
  1028. $$ScriptName
  1029. $Body
  1030. $ACTIONS
  1031. DocInfoOnly
  1032. Doc Info Display
  1033. Page name for the URL
  1034. PageName
  1035. tmpPageName
  1036.     1S2S
  1037. Page title for the browser
  1038. PageTitle
  1039. tmpPageTitle
  1040. This will be displayed by the browser in its window title bar
  1041. PageName
  1042. Not Available
  1043. tmpDB
  1044. /pages/
  1045. PageName"
  1046.     3S4S6S9S10S11S12S13S14StmpURL
  1047. Full URL:
  1048. T[\[\
  1049. uT[\v
  1050. T[T[u
  1051. [T[T[
  1052. \T\[u
  1053. [\[\[\
  1054. ?8;8;NI
  1055. GVn{s    
  1056. [T[Tv
  1057. uvuvuv
  1058. [u    u    
  1059. .,#'. 
  1060. 111RRRccckkksss{{{
  1061. Bkk9kk1cc
  1062. RRscc
  1063. 11ccc
  1064. 11k11
  1065. O=Lotus Notes
  1066. O=Lotus Notes
  1067. PURSAFO
  1068. |.:#U
  1069. O=Lotus Notes
  1070. CN=Lotus Notes Template Development/O=Lotus Notes
  1071. PURSAFO
  1072. Fde!f^^
  1073. $TITLE
  1074. $Info
  1075. $SubForms
  1076. $$ScriptName
  1077. $Body
  1078. '++LotusScript Development Environment:2:5:(Options):0:66
  1079. '++LotusScript Development Environment:2:5:(Forward):0:1
  1080. Declare Sub Exiting(Source As Field)
  1081. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1082. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1083. Private Sub BindEvents(Byval Objectname_ As String)
  1084.      Static Source As FIELD
  1085.      Set Source = Bind(Objectname_)
  1086.      On Event Exiting From Source Call Exiting
  1087. End Sub
  1088. '++LotusScript Development Environment:2:2:Exiting:1:12
  1089. Sub Exiting(Source As Field)
  1090.      
  1091.      Dim ws As New NotesUIWorkspace
  1092.      Dim uidoc As NotesUIDocument     
  1093.      Set uidoc = ws.CurrentDocument
  1094.      
  1095.      Call uidoc.Refresh
  1096.      
  1097. End Sub
  1098. '++LotusScript Development Environment:2:5:(Options):0:66
  1099. Option Public
  1100. '++LotusScript Development Environment:2:5:(Forward):0:1
  1101. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1102. %INCLUDE "lsconst.lss"
  1103. Doc Info 1'++LotusScript Development Environment:2:5:(Options):0:66
  1104. '++LotusScript Development Environment:2:5:(Forward):0:1
  1105. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1106. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1107. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1108. Private Sub BindEvents(Byval Objectname_ As String)
  1109.      Static Source As NOTESUIDOCUMENT
  1110.      Set Source = Bind(Objectname_)
  1111.      On Event Querysave From Source Call Querysave
  1112. End Sub
  1113. '++LotusScript Development Environment:2:2:Querysave:1:12
  1114. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1115.      
  1116.      '  Make this the home page if the user said so.  Make sure that only one doc in the database is
  1117.      '  marked as the home page.
  1118.      
  1119.      Dim beDoc As NotesDocument  
  1120.      Dim s As New NotesSession
  1121.      Dim db As NotesDatabase
  1122.      Dim v As NotesView
  1123.      Dim note As NotesDocument
  1124.      
  1125.      Set beDoc = source.document
  1126.      values = beDoc.GetItemValue("HomePageCheck")
  1127.      check1 = values(0)
  1128.      check2 = source.FieldGetText("HomePage")
  1129.      
  1130.      '  if the "HomePageCheck" control is checked, and this doc isn't already the home page then
  1131.      If check1 = "Home Page" And check2 <> "1" Then
  1132.           Call source.FieldSetText("HomePage","1")
  1133.           Set db = s.CurrentDatabase
  1134.           Set v = db.GetView("Home")
  1135.           Set note = v.GetFirstDocument
  1136.           ' see if something else is marked as the home page 
  1137.           If note Is Nothing Then
  1138.                ' there wasn't a home page yet, so we're OK
  1139.           Else
  1140.                ' there was a home page, so see if we really want to change it
  1141.                If IDOK = Messagebox ("Another page is already designated as the Home Page.  Select OK to make this page the Home Page, over-riding the previous choice.  Select Cancel to keep the old Home Page", MB_OKCANCEL) Then                    
  1142.                     ' yes, user told us to change it
  1143.                     note.HomePageCheck = ""
  1144.                     note.HomePage = 0
  1145.                     Call note.save(False,False,False)
  1146.                Else
  1147.                     ' no user wants to keep the old home page
  1148.                     Call source.FieldSetText("HomePage","0")
  1149.                     Call source.FieldSetText("HomePageCheck", "")                    
  1150.                End If
  1151.           End If
  1152.      Else 
  1153.           ' if HomePageCheck control wasn't checked
  1154.           If check1 <> "Home Page" Then
  1155.                ' Undo any previous setting
  1156.                Call source.FieldSetText("HomePage","0")
  1157.           End If
  1158.      End If
  1159.      
  1160.      continue = True
  1161.      
  1162. End Sub
  1163. '++LotusScript Development Environment:2:5:(Options):0:66
  1164. '++LotusScript Development Environment:2:5:(Forward):0:1
  1165. Declare Sub Exiting(Source As Field)
  1166. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1167. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1168. Private Sub BindEvents(Byval Objectname_ As String)
  1169.      Static Source As FIELD
  1170.      Set Source = Bind(Objectname_)
  1171.      On Event Exiting From Source Call Exiting
  1172. End Sub
  1173. '++LotusScript Development Environment:2:2:Exiting:1:12
  1174. Sub Exiting(Source As Field)
  1175.      
  1176.      Dim ws As New NotesUIWorkspace
  1177.      Dim uidoc As NotesUIDocument     
  1178.      Set uidoc = ws.CurrentDocument
  1179.      
  1180.      Call uidoc.refresh          
  1181.      
  1182. End Sub
  1183. '++LotusScript Development Environment:2:5:(Options):0:66
  1184. '++LotusScript Development Environment:2:5:(Forward):0:1
  1185. Declare Sub Exiting(Source As Field)
  1186. Declare Sub Entering(Source As Field)
  1187. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1188. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1189. Private Sub BindEvents(Byval Objectname_ As String)
  1190.      Static Source As FIELD
  1191.      Set Source = Bind(Objectname_)
  1192.      On Event Exiting From Source Call Exiting
  1193.      On Event Entering From Source Call Entering
  1194. End Sub
  1195. '++LotusScript Development Environment:2:2:Exiting:1:12
  1196. Sub Exiting(Source As Field)
  1197.      
  1198. End Sub
  1199. '++LotusScript Development Environment:2:2:Entering:1:12
  1200. Sub Entering(Source As Field)
  1201.      
  1202. End Sub
  1203. Enter a page name for the URL
  1204. isNew
  1205.     1S2S
  1206. isBlank
  1207. PageName
  1208.     0R1S2S3S4S
  1209. notStillTheSame
  1210. PageName
  1211. tmpOldPageName
  1212.     0R1S2S5S6S
  1213. unSafeChars
  1214.     0R1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S
  1215. asciiRendered
  1216. PageName
  1217.     0R1S2S
  1218. nonPrintable
  1219. isBlank
  1220. asciiRendered
  1221.     0R1S2S4S6S7S9S10S
  1222. fallBack
  1223. asciiRendered
  1224. PageName
  1225.     0R1S2S3S4S
  1226. unSafe
  1227. PageName
  1228. unSafeChars
  1229.     0R1S2S
  1230. NoCache
  1231. pages
  1232. PageName
  1233.     0RR1S2S
  1234. lkupOK
  1235. lkupZ
  1236.     0R1S
  1237. lkupIsDup
  1238. lkupOK
  1239. lkupj
  1240.     0R1S2S6RS37E10S11S13RS37E14RS33E
  1241. lkupIsMe
  1242. lkupOK
  1243. PageIDV
  1244.     0R1S2S6RS37E7S8S13RS37E14RS31E
  1245. isBlank
  1246. You must enter a page name{
  1247. lkupIsDup
  1248. The new Page's name is a duplicate. Enter a unique page name.
  1249. lkupIsMe
  1250. notStillTheSame
  1251. lkupOK
  1252. The new Page's name is a duplicate. Enter a unique page name.
  1253. unSafe
  1254. The page name contains a character that is unsafe for URLs{
  1255. nonPrintable
  1256. The page name contains a non-printable character that is not allowed for URLs
  1257. fallBack
  1258. The page name contains a non-ASCII character that is not allowed for URLs
  1259.     0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
  1260. Enter HTML tags and content for your Web page below
  1261. PageName
  1262. Not Available
  1263. tmpDB
  1264. /pages/
  1265. PageName
  1266.     3S4S6S9S10S11S12S13S14StmpURL
  1267. Full URL:
  1268. T[\[\
  1269. uT[\v
  1270. T[T[u
  1271. [T[T[
  1272. \T\[u
  1273. [\[\[\
  1274. ?8;8;NI
  1275. GVn{s    
  1276. [T[Tv
  1277. uvuvuv
  1278. [u    u    
  1279. .,#'. 
  1280. 111RRRccckkksss{{{
  1281. Bkk9kk1cc
  1282. RRscc
  1283. 11ccc
  1284. 11k11
  1285. HomePageCheck
  1286. Make this page the home page | Home Page
  1287. PageName
  1288. tmpOldPageName
  1289.     0S0E
  1290. tmpOldPageName
  1291.  remember page name for validation against duplicates
  1292. PageID
  1293.  unique page id used in validation formula for PageName field
  1294. O=Lotus Notes
  1295. O=Lotus Notes
  1296. PURSAFO
  1297. |.:#U
  1298. O=Lotus Notes
  1299. CN=Lotus Notes Template Development/O=Lotus Notes
  1300. PURSAFO
  1301. Fde!f^^
  1302. $$PageName_1
  1303. $PageName_1_O
  1304. $TITLE
  1305. $Info
  1306. $Script
  1307. $$Script_O
  1308. $$ScriptName
  1309. $$FormScript
  1310. $$$FormScript_O
  1311. $$PageName
  1312. $PageName_O
  1313. $$HomePageCheck
  1314. $HomePageCheck_O
  1315. $Body
  1316. '++LotusScript Development Environment:2:5:(Options):0:66
  1317. '++LotusScript Development Environment:2:5:(Forward):0:1
  1318. Declare Sub Exiting(Source As Field)
  1319. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1320. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1321. Private Sub BindEvents(Byval Objectname_ As String)
  1322.      Static Source As FIELD
  1323.      Set Source = Bind(Objectname_)
  1324.      On Event Exiting From Source Call Exiting
  1325. End Sub
  1326. '++LotusScript Development Environment:2:2:Exiting:1:12
  1327. Sub Exiting(Source As Field)
  1328.      
  1329.      Dim ws As New NotesUIWorkspace
  1330.      Dim uidoc As NotesUIDocument     
  1331.      Set uidoc = ws.CurrentDocument
  1332.      
  1333.      Call uidoc.Refresh
  1334.      
  1335. End Sub
  1336. Doc Info Display'++LotusScript Development Environment:2:5:(Options):0:66
  1337. '++LotusScript Development Environment:2:5:(Forward):0:1
  1338. Declare Sub Exiting(Source As Field)
  1339. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1340. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1341. Private Sub BindEvents(Byval Objectname_ As String)
  1342.      Static Source As FIELD
  1343.      Set Source = Bind(Objectname_)
  1344.      On Event Exiting From Source Call Exiting
  1345. End Sub
  1346. '++LotusScript Development Environment:2:2:Exiting:1:12
  1347. Sub Exiting(Source As Field)
  1348.      
  1349.      Dim ws As New NotesUIWorkspace
  1350.      Dim uidoc As NotesUIDocument     
  1351.      Set uidoc = ws.CurrentDocument
  1352.      
  1353.      Call uidoc.Refresh
  1354.      
  1355. End Sub
  1356. Page name for the URL
  1357. PageName
  1358. tmpPageName
  1359.     1S2S
  1360. Page title for the browser
  1361. PageTitle
  1362. tmpPageTitle
  1363. This will be displayed by the browser in its window title bar
  1364. PageName
  1365. Not Available
  1366. tmpDB
  1367. /pages/
  1368. PageName"
  1369.     3S4S6S9S10S11S12S13S14StmpURL
  1370. Full URL:
  1371. T[\[\
  1372. uT[\v
  1373. T[T[u
  1374. [T[T[
  1375. \T\[u
  1376. [\[\[\
  1377. ?8;8;NI
  1378. GVn{s    
  1379. [T[Tv
  1380. uvuvuv
  1381. [u    u    
  1382. .,#'. 
  1383. 111RRRccckkksss{{{
  1384. Bkk9kk1cc
  1385. RRscc
  1386. 11ccc
  1387. 11k11
  1388. O=Lotus Notes
  1389. O=Lotus Notes
  1390. PURSAFO
  1391. |.:#U
  1392. O=Lotus Notes
  1393. CN=Lotus Notes Template Development/O=Lotus Notes
  1394. PURSAFO
  1395. Fde!f^^
  1396. $$PageName
  1397. $PageName_O
  1398. $TITLE
  1399. $Info
  1400. $$Script_O
  1401. $$ScriptName
  1402. $$tmpPageName
  1403. $tmpPageName_O
  1404. $Body
  1405. '++LotusScript Development Environment:2:5:(Options):0:66
  1406. Option Public
  1407. '++LotusScript Development Environment:2:5:(Forward):0:1
  1408. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1409. %INCLUDE "lsconst.lss"
  1410. Doc Info 2'++LotusScript Development Environment:2:5:(Options):0:66
  1411. '++LotusScript Development Environment:2:5:(Forward):0:1
  1412. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1413. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1414. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1415. Private Sub BindEvents(Byval Objectname_ As String)
  1416.      Static Source As NOTESUIDOCUMENT
  1417.      Set Source = Bind(Objectname_)
  1418.      On Event Querysave From Source Call Querysave
  1419. End Sub
  1420. '++LotusScript Development Environment:2:2:Querysave:1:12
  1421. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1422.      
  1423.      
  1424.      '  Make this the home page if the user said so.  Make sure that only one doc in the database is
  1425.      '  marked as the home page.
  1426.      
  1427.      Dim beDoc As NotesDocument  
  1428.      Dim s As New NotesSession
  1429.      Dim db As NotesDatabase
  1430.      Dim v As NotesView
  1431.      Dim note As NotesDocument
  1432.      
  1433.      Set beDoc = source.document
  1434.      values = beDoc.GetItemValue("HomePageCheck")
  1435.      check1 = values(0)
  1436.      check2 = source.FieldGetText("HomePage")
  1437.      
  1438.      '  if the "HomePageCheck" control is checked, and this doc isn't already the home page then
  1439.      If check1 = "Home Page" And check2 <> "1" Then
  1440.           Call source.FieldSetText("HomePage","1")
  1441.           Set db = s.CurrentDatabase
  1442.           Set v = db.GetView("Home")
  1443.           Set note = v.GetFirstDocument
  1444.           ' see if something else is marked as the home page 
  1445.           If note Is Nothing Then
  1446.                ' there wasn't a home page yet, so we're OK
  1447.           Else
  1448.                ' there was a home page, so see if we really want to change it
  1449.                If IDOK = Messagebox ("Another page is already designated as the Home Page.  Select OK to make this page the Home Page, over-riding the previous choice.  Select Cancel to keep the old Home Page", MB_OKCANCEL) Then                    
  1450.                     ' yes, user told us to change it
  1451.                     note.HomePageCheck = ""
  1452.                     note.HomePage = 0
  1453.                     Call note.save(False,False,False)
  1454.                Else
  1455.                     ' no user wants to keep the old home page
  1456.                     Call source.FieldSetText("HomePage","0")
  1457.                     Call source.FieldSetText("HomePageCheck", "")                    
  1458.                End If
  1459.           End If
  1460.      Else 
  1461.           ' if HomePageCheck control wasn't checked
  1462.           If check1 <> "Home Page" Then
  1463.                ' Undo any previous setting
  1464.                Call source.FieldSetText("HomePage","0")
  1465.           End If
  1466.      End If
  1467.      
  1468.      continue = True
  1469.      
  1470. End Sub
  1471. '++LotusScript Development Environment:2:5:(Options):0:66
  1472. '++LotusScript Development Environment:2:5:(Forward):0:1
  1473. Declare Sub Exiting(Source As Field)
  1474. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1475. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1476. Private Sub BindEvents(Byval Objectname_ As String)
  1477.      Static Source As FIELD
  1478.      Set Source = Bind(Objectname_)
  1479.      On Event Exiting From Source Call Exiting
  1480. End Sub
  1481. '++LotusScript Development Environment:2:2:Exiting:1:12
  1482. Sub Exiting(Source As Field)
  1483.      
  1484.      Dim ws As New NotesUIWorkspace
  1485.      Dim uidoc As NotesUIDocument     
  1486.      Set uidoc = ws.CurrentDocument
  1487.      
  1488.      Call uidoc.refresh          
  1489.      
  1490. End Sub
  1491. '++LotusScript Development Environment:2:5:(Options):0:66
  1492. '++LotusScript Development Environment:2:5:(Forward):0:1
  1493. Declare Sub Exiting(Source As Field)
  1494. Declare Sub Entering(Source As Field)
  1495. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1496. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1497. Private Sub BindEvents(Byval Objectname_ As String)
  1498.      Static Source As FIELD
  1499.      Set Source = Bind(Objectname_)
  1500.      On Event Exiting From Source Call Exiting
  1501.      On Event Entering From Source Call Entering
  1502. End Sub
  1503. '++LotusScript Development Environment:2:2:Exiting:1:12
  1504. Sub Exiting(Source As Field)
  1505.      
  1506. End Sub
  1507. '++LotusScript Development Environment:2:2:Entering:1:12
  1508. Sub Entering(Source As Field)
  1509.      
  1510. End Sub
  1511. Enter a page name for the URL
  1512. isNew
  1513.     1S2S
  1514. isBlank
  1515. PageName
  1516.     0R1S2S3S4S
  1517. notStillTheSame
  1518. PageName
  1519. tmpOldPageName
  1520.     0R1S2S5S6S
  1521. unSafeChars
  1522.     0R1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S
  1523. asciiRendered
  1524. PageName
  1525.     0R1S2S
  1526. nonPrintable
  1527. isBlank
  1528. asciiRendered
  1529.     0R1S2S4S6S7S9S10S
  1530. fallBack
  1531. asciiRendered
  1532. PageName
  1533.     0R1S2S3S4S
  1534. unSafe
  1535. PageName
  1536. unSafeChars
  1537.     0R1S2S
  1538. NoCache
  1539. pages
  1540. PageName
  1541.     0RR1S2S
  1542. lkupOK
  1543. lkupZ
  1544.     0R1S
  1545. lkupIsDup
  1546. lkupOK
  1547. lkupj
  1548.     0R1S2S6RS37E10S11S13RS37E14RS33E
  1549. lkupIsMe
  1550. lkupOK
  1551. PageIDV
  1552.     0R1S2S6RS37E7S8S13RS37E14RS31E
  1553. isBlank
  1554. You must enter a page name{
  1555. lkupIsDup
  1556. The new Page's name is a duplicate. Enter a unique page name.
  1557. lkupIsMe
  1558. notStillTheSame
  1559. lkupOK
  1560. The new Page's name is a duplicate. Enter a unique page name.
  1561. unSafe
  1562. The page name contains a character that is unsafe for URLs{
  1563. nonPrintable
  1564. The page name contains a non-printable character that is not allowed for URLs
  1565. fallBack
  1566. The page name contains a non-ASCII character that is not allowed for URLs
  1567.     0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
  1568. Enter a page title for the browser
  1569. PageTitleEnter the page name for display in the browser's title bar
  1570. This will be displayed by the browser in its window title bar.
  1571. PageName
  1572. Not Available
  1573. tmpDB
  1574. /pages/
  1575. PageName
  1576.     3S4S6S9S10S11S12S13S14StmpURL
  1577. Enter content for your Web page below
  1578. Full URL:
  1579. T[\[\
  1580. uT[\v
  1581. T[T[u
  1582. [T[T[
  1583. \T\[u
  1584. [\[\[\
  1585. ?8;8;NI
  1586. GVn{s    
  1587. [T[Tv
  1588. uvuvuv
  1589. [u    u    
  1590. .,#'. 
  1591. 111RRRccckkksss{{{
  1592. Bkk9kk1cc
  1593. RRscc
  1594. 11ccc
  1595. 11k11
  1596. HomePageCheck
  1597. Make this page the home page | Home Page
  1598. PageName
  1599. tmpOldPageName
  1600.     0S0E
  1601. tmpOldPageName
  1602.  remember page name for validation against duplicates
  1603. PageID
  1604.  unique page id used in validation formula for PageName field
  1605. O=Lotus Notes
  1606. O=Lotus Notes
  1607. PURSAFO
  1608. |.:#U
  1609. O=Lotus Notes
  1610. CN=Lotus Notes Template Development/O=Lotus Notes
  1611. PURSAFO
  1612. Fde!f^^
  1613. $TITLE
  1614. $Info
  1615. $Script
  1616. $$Script_O
  1617. $$ScriptName
  1618. $$FormScript
  1619. $$$FormScript_O
  1620. $$PageName
  1621. $PageName_O
  1622. $$HomePageCheck
  1623. $HomePageCheck_O
  1624. $Body
  1625. Categori_zeF
  1626. _Edit Document
  1627. Send Docu_ment
  1628. _Forward
  1629. _Move To Folder...
  1630. _Remove From Folder
  1631. O=Lotus Notes
  1632. O=Lotus Notes
  1633. PURSAFO
  1634. |.:#U
  1635. O=Lotus Notes
  1636. CN=Lotus Notes Template Development/O=Lotus Notes
  1637. PURSAFO
  1638. Fde!f^^
  1639. +uFKo
  1640. $TITLE
  1641. $Index
  1642. $Formula
  1643. $FormulaClass
  1644. $ViewFormat
  1645. $Comment
  1646. $ACTIONS
  1647.     0S0E
  1648. O=Lotus Notes
  1649. O=Lotus Notes
  1650. PURSAFO
  1651. |.:#U
  1652. O=Lotus Notes
  1653. CN=Lotus Notes Template Development/O=Lotus Notes
  1654. PURSAFO
  1655. Fde!f^^
  1656. $DBAction1
  1657. $TITLE
  1658. $Flags
  1659. $PublicAccess
  1660. O=Lotus Notes
  1661. O=Lotus Notes
  1662. PURSAFO
  1663. |.:#U
  1664. O=Lotus Notes
  1665. CN=Lotus Notes Template Development/O=Lotus Notes
  1666. PURSAFO
  1667. Fde!f^^
  1668. 99W2>2
  1669. $TITLE
  1670. $Index
  1671. $Formula
  1672. $FormulaClass
  1673. $ViewFormat
  1674. $Comment
  1675. 07/09/97 11:02:18 AM Richard Schwartz/Iris updated [Anonymous]
  1676. 07/07/97 02:07:46 PM Richard Schwartz/Iris updated Anonymous
  1677. 07/07/97 02:07:27 PM Richard Schwartz/Iris added Anonymous
  1678. 07/07/97 02:07:15 PM Richard Schwartz/Iris updated [Anonymous]
  1679. 07/07/97 02:07:12 PM Richard Schwartz/Iris updated -Default-
  1680. 07/07/97 02:04:51 PM Richard Schwartz/Iris updated OtherDomainServers
  1681. 07/07/97 02:04:42 PM Richard Schwartz/Iris added OtherDomainServers
  1682. 07/07/97 02:04:34 PM Richard Schwartz/Iris updated [OtherDomainServers]
  1683. 07/07/97 02:02:31 PM Richard Schwartz/Iris updated [OtherDomainServers]
  1684. 07/07/97 02:01:46 PM Richard Schwartz/Iris deleted Richard Schwartz/Iris
  1685. 06/11/97 06:48:06 PM Richard Schwartz/Iris updated [Anonymous]
  1686. 06/11/97 06:48:00 PM Richard Schwartz/Iris added [Anonymous]
  1687. 06/11/97 06:46:04 PM Richard Schwartz/Iris deleted [Anonymous]
  1688. 06/02/97 04:20:08 PM ITEAM2/domino/US updated Richard Schwartz/Iris
  1689. 06/02/97 04:20:03 PM ITEAM2/domino/US added Richard Schwartz/Iris
  1690. 05/23/97 01:23:53 PM Richard Schwartz/Iris updated [LocalDomainServers]
  1691. 05/23/97 01:23:44 PM Richard Schwartz/Iris added [OtherDomainServers]
  1692. 05/23/97 01:23:44 PM Richard Schwartz/Iris deleted OtherDomainServers
  1693. 05/23/97 01:23:36 PM Richard Schwartz/Iris updated [LocalDomainServers]
  1694. 05/23/97 01:23:31 PM Richard Schwartz/Iris added [LocalDomainServers]
  1695. -Default-
  1696. LocalDomainServers
  1697. [-Default-]
  1698. [LocalDomainServers]
  1699. [OtherDomainServers]
  1700. [Anonymous]
  1701. OtherDomainServers
  1702. Anonymous
  1703.