Site 1: Centered Layout With Text LinksPageDesign2
CatalogMy Company's Products
YesProducts & ServicesHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinksSiteMap/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
YesText02:32:54 PMDESCRIPTIONMy Company's Home PageABSTRACTMy Company's Site on the World Wide Web, Powered by Lotus Notes and DominoLANGUAGEen-usCCintALIAShttp://www.my-domino.comKEYWORDSDomino SampleOWNERwebmaster@my-domino.comIrisRichard Schwartz/Iris
Site 1: Centered Layout With Text LinksPageDesign2
?HomeHome Page for My Company
Home PageYesGeneral InformationHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinks/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
HomeInfoContactCatalogSpecialsAboutLinks/Site+Map<META NAME="DESCRIPTION" CONTENT="My Company's Home Page">
<META NAME="ABSTRACT" CONTENT="My Company's Site on the World Wide Web, Powered by Lotus Notes and Domino">
Site 1: Centered Layout With Text LinksPageDesign2
AboutMy Company's Web Site
YesGeneral InformationHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinks/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
Site 1: Centered Layout With Text LinksPageDesign2
LinksPoints of Interest
YesPoints of InterestHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinks/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
Site 1: Centered Layout With Text LinksPageDesign2
ContactContact Information
YesGeneral InformationHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinks/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
Site 1: Centered Layout With Text LinksPageDesign2
InfoCompany Information
YesGeneral InformationHomeHomeCompany InfoInfoContacting UsContactProduct CatalogCatalogToday's SpecialsSpecialsAbout This SiteAboutPoints of InterestLinks/Site+MapHome;Company Info;Contacting Us;Product Catalog;Today's Specials;About This Site;Points of Interest;Site Map;;Home;Info;Contact;Catalog;Specials;About;Links;/Site+Map;;
HomeCompany InfoContacting UsProduct CatalogToday's SpecialsAbout This SitePoints of InterestSite Map
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub ValidateOuterFrameDimensions
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:ValidateOuterFrameDimensions:1:8
Sub ValidateOuterFrameDimensions
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = ws.currentdocument
Dim rval As String, cval As String
rval = uidoc.fieldGetText("fNRows1")
cval = uidoc.fieldGetText("fNCols1")
r = Val(rval)
c = Val(cval)
If r * c > 4 Or r * c < 2 Then
Messagebox "The Outer Frame Set must have two, three, or four frames. Allowable dimensions are 1x2, 2x1,1x3, 3x1,1x4, 4x1 and 2x2", mb_ok + mb_iconstop, "Frame Dimensions Error"
End If
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
Categori_zeu
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folderv
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ACTIONS
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$$ViewTemplate for Site Map
Comment
Site Map
Domino
ViewPreviousPage
*.GIF
JPEG I
Previous
Domino
ViewNextPage
0S0E
Expand
0S0E
Collapse
!!!)))111999BBBJJJRRRZZZccckkksss
ssc11
B9{1)
cR1skZ
{sc11)
{sBsk9cZ!
11)ccR
kskZcZ
!1k)B
99RZZ
91kB1
RJsB9k
$$ViewBody
!!!)))111999BBBJJJRRRZZZccckkksss
ssc11
B9{1)
cR1skZ
{sc11)
{sBsk9cZ!
11)ccR
kskZcZ
!1k)B
99RZZ
91kB1
RJsB9k
Domino
ViewPreviousPage
*.GIF
JPEG I
Previous
Domino
ViewNextPage
0S0E
Expand
0S0E
Collapse
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WINDOWTITLE
$$ScriptName
$Body
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
"Helvetica
Title
PageDesign2'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
If uidoc.EditMode Then
Call uidoc.Refresh
End If
End Sub
PageDesign1
Sample Site 1: Table Layout With Text Links
PageDesign2
Sample Site 2: Centered Layout With Text Links
PageDesign3
Sample Site 3: Centered Layout With Graphic Links
Custom Site Design
3S4S9S10S14S15S16S
Site 1: Centered Layout with Text Links
provides the category for the All Pages view
forces back-end to know our form even if doc is new
0S0E
tmpDB
stores the database pathname
HomePage
used as boolean indicator of whether this page is the home page
The new Page's name is a duplicate. Enter a unique page name.
lkupIsMe
notStillTheSame
lkupOK
The new Page's name is a duplicate. Enter a unique page name.
unSafe
The page name contains a character that is unsafe for URLs{
nonPrintable
The page name contains a non-printable character that is not allowed for URLs
fallBack
The page name contains a non-ASCII character that is not allowed for URLs
0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Enter content for your Web page below
Enter a page title for the browser
Title
Full URL:
This will be displayed by the browser in its window title bar.
T[\[\
uT[\v
T[T[u
[T[T[
\T\[u
[\[\[\
?8;8;NI
GVn{s
[T[Tv
uvuvuv
[u u
.,#'.
111RRRccckkksss{{{
Bkk9kk1cc
RRscc
11ccc
11k11
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
Hotspot Data entries specify what the user will see and click on in a browser in order to activate the link.
Hotspots can either be plain text, or a graphic stored in a GIF or JPEG file in the [Images] view.
For syntax help for Hotspot Data fields, click here:
Include this page in the site map?
Specify an area in the site map
The site map provides an alternate way for site visitors to navigate through the pages on your site.
You can define "areas" in which a page or set of pages may be grouped to further assist navigation.
Link Builder
Hotspot Data
Link Data
Information for META Tags
0S0E
Specify META tags
META tags may help search engines index your site. These tags will be placed in the HTML header.
Site Map
Advanced HTML Features
0S0E
HTML Dialog
Preview HTML Header
Web Page Management
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
Site Home Page
HomePageCheck
Make this page the home page | Home Page
SiteMap
Yes |YesNo |No
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_1
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_1
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_2
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_2
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_3
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_3
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_4
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_4
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_5
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_5
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_6
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_6
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_7
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_7
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_8
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_8
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_9
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_9
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_10
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_10
Link Data entries specify what page the user will go to after activating the link.
The Link Builder allows you to specify any web page as the destination for your link. Shorthand notations are supported for links to pages on the same server.
For syntax help for Link Data fields, click here:
About the Link Data Fields
Using the Link Builder, you can create up to ten links from this page to other pages. Each link must have Hotspot Data and Link Data.
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.Refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Bookkeeping'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim beDoc As NotesDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim note As NotesDocument
Set beDoc = source.document
values = beDoc.GetItemValue("HomePageCheck")
check1 = values(0)
check2 = source.FieldGetText("HomePage")
If check1 = "Home Page" And check2 <> "1" Then
Call source.FieldSetText("HomePage","1")
Set db = s.CurrentDatabase
Set v = db.GetView("Home")
Set note = v.GetFirstDocument
If note Is Nothing Then
' there wasn't a home page yet
Else
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
note.HomePageCheck = ""
note.HomePage = 0
Call note.save(False,False,False)
Else
Call source.FieldSetText("HomePage","0")
Call source.FieldSetText("HomePageCheck", "")
End If
End If
Else
If check1 <> "Home Page" Then
Call source.FieldSetText("HomePage","0")
End If
End If
continue = True
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.refresh
End Sub
SiteMap
1S2S
NoCache
Defaults
Link Defaults
1S2S
listZ
lkuptxtstr
text list returned by looking up defaults for ltxt_x fields from Table of Links doc
NoCache
Defaults
Link Defaults
1S2S
listZ
lkupnamestr
text list returned by looking up defaults for lname_x fields from Table of Links doc
Hotspot Data entries specify what the user will see and click on in a browser in order to activate the link.
Hotspots can either be plain text, or a graphic stored in a GIF or JPEG file in the [Images] view.
For syntax help for Hotspot Data fields, click here:
Include this page in the site map?
Specify an area in the site map
The site map provides an alternate way for site visitors to navigate through the pages on your site.
You can define "areas" in which a page or set of pages may be grouped to further assist navigation.
Link Builder
Hotspot Data
Link Data
Information for META Tags
0S0E
Specify META tags
META tags may help search engines index your site. These tags will be placed in the HTML header.
Site Map
Advanced HTML Features
0S0E
HTML Dialog
Preview HTML Header
Web Page Management
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
Site Home Page
HomePageCheck
Make this page the home page | Home Page
SiteMap
Yes |YesNo |No
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_1
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_1
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_2
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_2
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_3
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_3
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_4
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_4
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_5
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_5
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_6
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_6
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_7
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_7
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_8
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_8
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_9
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_9
lkuptxt
lkuptxt
6S7S9RS5E22RS5E23R
ltxt_10
lkupnamej
lkupname
6S7S9RS5E22RS5E23R
lname_10
Link Data entries specify what page the user will go to after activating the link.
The Link Builder allows you to specify any web page as the destination for your link. Shorthand notations are supported for links to pages on the same server.
For syntax help for Link Data fields, click here:
About the Link Data Fields
Using the Link Builder, you can create up to ten links from this page to other pages. Each link must have Hotspot Data and Link Data.
About the Hotspot Data Fields
LinkSyntaxHelp Dialog
Syntax Help
0S0E
HotspotSyntaxHelp Dialog
Syntax Help
0S0E
MetaData
compute and store the Meta tags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$PageName
$PageName_O
$TITLE
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$HomePageCheck
$HomePageCheck_O
$$ltxt_1
$ltxt_1_O
$$lname_1
$lname_1_O
$$ltxt_2
$ltxt_2_O
$$lname_2
$lname_2_O
$$ltxt_3
$ltxt_3_O
$$lname_3
$lname_3_O
$$ltxt_4
$ltxt_4_O
$$lname_4
$lname_4_O
$$ltxt_5
$ltxt_5_O
$$lname_5
$lname_5_O
$$ltxt_6
$ltxt_6_O
$$lname_6
$lname_6_O
$$ltxt_7
$ltxt_7_O
$$lname_7
$lname_7_O
$$ltxt_8
$ltxt_8_O
$$lname_8
$lname_8_O
$$ltxt_9
$ltxt_9_O
$$lname_9
$lname_9_O
$$ltxt_10
$ltxt_10_O
$$lname_10
$lname_10_O
$Body
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
Top'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
' refresh the doc, but avoid obnoxious
' error messages on validation errors
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim note As NotesDocument
Set note = uidoc.document
'If note.ComputeWithForm(True,False) = False Then
'Messagebox("Error in page name. Press OK, then F9 for details.")
'Else
Call uidoc.refresh
'End If
End Sub
0S0E
tmpDB
stores the database pathname
HomePage
used as boolean indicator of whether this page is the home page
The new Page's name is a duplicate. Enter a unique page name.
lkupIsMe
notStillTheSame
lkupOK
The new Page's name is a duplicate. Enter a unique page name.
unSafe
The page name contains a character that is unsafe for URLs{
nonPrintable
The page name contains a non-printable character that is not allowed for URLs
fallBack
The page name contains a non-ASCII character that is not allowed for URLs
0RR5RS12E7RS8E9RS12E14RS8E16RS13E21RS8E23RS13E25RS8E26S27S29RS12E34RS8E36RS12E41RS8E43RS12E48RS8E50RS12E55RS9E56RPageNameRequired: Enter the unique name used in this page's URL
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Enter content for your Web page below
Enter a page title for the browser
Title
Full URL:
This will be displayed by the browser in its window title bar.
T[\[\
uT[\v
T[T[u
[T[T[
\T\[u
[\[\[\
?8;8;NI
GVn{s
[T[Tv
uvuvuv
[u u
.,#'.
111RRRccckkksss{{{
Bkk9kk1cc
RRscc
11ccc
11k11
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
This is a sample database; it contains a series of Web pages with the same look. In this database, the text is centered, and
there are text links at the bottom of the page.
The database is meant to be used as a guideline or starting point. It shows various pages that can be easily created by a Web designer using Notes and Domino.
Who will use this database?
Webmasters and Web designers creating corporate Intranet and Internet sites. You can copy this database and add new content to it, or customize the database design and use it.
Where can I find additional information?
Refer to the following documentation database on
http://www.notes.net
Best Practices: Templates and Sample Databases (BPTEMP.NSF)
Access Control:
The default access of a database created with this template is "Reader". Give Web page designers who want to use this database as a reference "Designer" access.
Note: This database is designed for Domino 4.
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.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
qJtQ+
$Info
$Body
HTML Dialog
<Title>
Title
</Title>"
MetaData"
FrameCode
</head>
FrameCode
1S2S3S4S5S6S7S8S9S10S17S2E18S19S20SHTML
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
OpgI[*a
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
RGz/zn'
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
wf+^u
$TITLE
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
6m77
4 +Q.
."7p*V
$TITLE
$Info
$Body
META Tag Information
Content
DESCRIPTION
mName_1
mContent_1
KEYWORDS
mName_2
mContent_2
ABSTRACT
mName_3
mContent_3
AUTHOR
mName_4
mContent_4
From the IBM Home Page - Apparently for a Country Code
mName_5
mContent_5
LANGUAGE
mName_6
mContent_6
GENERATOR
mName_7
Lotus Domino 4.6
mContent_7
META tags provide information about a page to software. The most common use of Meta tags is to provide hints to search engines. META tags supported by this template consist of a Name that identifies the information being provided, and a Content field that provides the actual information.
Names are not defined by any standard, and search engines may use them any way they wish.. Some commonly used names are listed as defaults. Some search engines provide information on what Meta tag names they recognize on their "Add URL" or "Help" pages.
You may fill in the Content for any Name listed. If the Name you wish to provide is not listed, you may replace one of the defaults.
For example, "Description" is a name used by several popular search engines. To provide this, type a sentence or two that describes your site in the Content field next to the Name "Description".
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
snnnV
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
Default'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim note As NotesDocument
If source.Isnewdoc Then
Set db = s.CurrentDatabase
Set v = db.GetView("Defaults")
Set note = v.GetFirstDocument
If note Is Nothing Then
' wasn't found -- this is good
Else
Messagebox "A table of links already exists in the Defaults view."
source.close
End If
End If
End Sub
Don't show in views
SiteMap
Don't show in SiteMap view
Link Defaults
DefaultName
Key for "Defaults" View
Link Builder Defaults
Hotspot Data
Link Data
Note: If you re-define Link Builder defaults, the new values will apply only to new pages. Links on existing pages are not affected (although an Agent could be created to accomplish this).
ltxt_1
lname_1
ltxt_2
lname_2
ltxt_3
lname_3
ltxt_4
lname_4
ltxt_5
lname_5
ltxt_6
lname_6
ltxt_7
lname_7
ltxt_8
lname_8
ltxt_9
lname_9
ltxt_10
lname_10
Link Data entries specify what page the user will go to after activating the link.
The Link Builder allows you to specify any web page as the destination for your link. Shorthand notations are supported for links to pages on the same server.
For syntax help for Link Data fields, click here:
About the Hotspot Data Fields
Hotspot Data entries specify what the user will see and click on in a browser in order to activate the link.
Hotspots can either be plain text, or a graphic stored in a GIF or JPEG file in the [Images] view, or stored in a navigator.
For syntax help for Hotspot Data fields, click here:
About the Link Data Fields
LinkSyntaxHelp Dialog
Syntax Help
0S0E
HotspotSyntaxHelp Dialog
Syntax Help
0S0E
Using the Link Builder, you can create up to ten links from each page to other pages. To make this easier, you can define defaults that the Link Builder can use when you create new pages. Defaults can be over-ridden for any page at any time simply by editing the current values in the Link Builder.
The database is meant to be used as a guideline or starting point. It shows various pages that can be easily created by a Web designer using Notes and Domino.
You can copy this database and add new content to it, or customize the database design and use it.
Access Control:
The default access for this database is "Reader". Give Web page designers who want to use this database as a reference "Designer" access.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
Categori_zeF
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder$
Create Image File Document(
0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
,bJOg
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ACTIONS
FileInfo
0S0E
compute the database name
store the attachment name
One and only one file must be attached to this document.{
ValidateOnSave
validation formula enforces restriction of one attachment per document
Not Available
/files/
/$FILE/
3S4S9S10S11S12S13S14S15S16S17S18StmpURL
Click here to attach an image file
Full URL:
Error
Only one file attachment is allowed per document.
3S4S6RS3E8RS8E15RS8E20RS8E24RS4E26RS3E34R
T[\[\
uT[\v
T[T[u
[T[T[
\T\[u
[\[\[\
?8;8;NI
GVn{s
[T[Tv
uvuvuv
[u u
.,#'.
111RRRccckkksss{{{
Bkk9kk1cc
RRscc
11ccc
11k11
Image files can be stored in the same database as your web pages. You can easily reference these images from other pages using embedded HTML in the format <img src=/database.nsf/files/filename.gif/$FILE/filename.gif>.
The Link Builder on various forms in this database can automatically create graphic hotspots on your pages using these image files. To use the Link Builder to reference an image file for a graphic hotspot, use the format: (filename.gif)Alternate Text.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$NoBackgroundOverride
$Info
$SubForms
$$Script_O
$$ScriptName
$Body
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
' refresh the doc, but avoid obnoxious
' error messages on validation errors
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim note As NotesDocument
Set note = uidoc.document
If note.ComputeWithForm(True,False) = False Then
' do nothing
Else
Call uidoc.refresh
End If
End Sub
FileInfo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
0S0E
compute the database name
store the attachment name
One and only one file must be attached to this document.{
ValidateOnSave
validation formula enforces restriction of one attachment per document
Not Available
/files/
/$FILE/
3S4S9S10S11S12S13S14S15S16S17S18StmpURL
Click here to attach an image file
Full URL:
Error
Only one file attachment is allowed per document.
3S4S6RS3E8RS8E15RS8E20RS8E24RS4E26RS3E34R
T[\[\
uT[\v
T[T[u
[T[T[
\T\[u
[\[\[\
?8;8;NI
GVn{s
[T[Tv
uvuvuv
[u u
.,#'.
111RRRccckkksss{{{
Bkk9kk1cc
RRscc
11ccc
11k11
Image files can be stored in the same database as your web pages. You can easily reference these images from other pages using embedded HTML in the format <img src=/database.nsf/files/filename.gif/$FILE/filename.gif>.
The Link Builder on various forms in this database can automatically create graphic hotspots on your pages using these image files. To use the Link Builder to reference an image file for a graphic hotspot, use the format: (filename.gif)Alternate Text.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$HomePageCheck
$HomePageCheck_O
$$PageName
$PageName_O
LastDateTime
HomePage
$TITLE
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
HotspotSyntaxHelp Dialog
A hotspot can consist of either text or a graphic. If you want the user to click on text in order to activate a link, simply enter the text into a field in the Hotspot Data column. In Example 1, the user will be able to click on the text "Home".
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
rkspace
Dim
Set uidoc =
ll uidoc.refresh
Example 1
The Link Builder provides two ways for you to specify graphics that users can click on to activate links. The syntax depends on whether you store the actual graphic in the [Images] view or in a Navigator.
To use a GIF or JPEG file for your hotspot, you must first go to the [Images] view, click the Create Image File Attachment button, and attach the file. To use this file in a link, fill in a field in the Hotspot Data column with the filename enclosed in parentheses, followed by text that can be displayed to users whose browsers do not display graphics. In Example 2, users will be able to click on the graphic stored in the file home.gif.
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
FormPrivs$FormUs
$TITLE
S45S46S47S49RS11
Example 2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
LinkSyntaxHelp Dialog
The Link Builder interprets several shorthand notations to make it easier to enter URLs. If you want the user to go to another page in this database, simply enter the page's name into the Link Data field. (The name of each page appears in the field labeled "page name for the URL"). In Example 2, the user will go to the page named "HomePage".
Link Data identifies the URL that the user should go to when a hotspot is activated. If the first two characters that you fill into the Link Data field are slashes, the Link Builder assumes you have entered the full URL of a web page. It can be any page that is accessible to the user. In Example 1, the user will go to Lotus' home page when the link is activated.
Example 1
If you want the user to go to a view in this database, enter the view name preceded by a single slash. In Example 3, the user will go to this database's Site Map view when the link is activated. (Note that spaces are not valid in URLs but they are in view names, so the Domino server converts "+" characters to spaces when interpreting a URL.)
Example 2
You can use the same syntax if you want the user to go to a navigator in this database.
If you want the user to go to a page in another database on the same server, you can drop the host name from that page's URL and precede it with a tilde followed by a slash. In Example 4, the user will go a discussion database in a directory called "public" on this server.
Example 3
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
Example 4
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
rkspace
ll uidoc
ll uidoc
rkspace
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
LogoNav
This site runs on a Lotus Domino Web Server, Powered by Notes.
[<img src="/
tmpDB
Notes Product Development
)I^-.
PURSAF
_0zEM,9j
S_)tW'
aY*]c
PURSAF
Internotes
PURSAF
O=Iris
O=Iris
x>_/^
PURSAFO
.? Kz"
O=Iris
CN=Richard Schwartz/O=Iris
PURSAFO
database pathname computed here
/Files/powered.gif/$FILE/powered.gif">]
GIF89aF
!!!111999BBBJJJZZZkkk{{{
cBB{RR
JJR!!
cscR{R
s1{k!kZ!JB
RB1cZ
!!1cks
ss{ss
k)!{)!
9)cR9
J9s9!s1
eDN@A8
D1Fd`
M*dNP}_
P/dsD
# OHmbd
powered.gif
powered.gif
Notes Product Development
)I^-.
PURSAF
_0zEM,9j
S_)tW'
aY*]c
PURSAF
Internotes
PURSAF
O=Iris
O=Iris
x>_/^
PURSAFO
.? Kz"
O=Iris
CN=Richard Schwartz/O=Iris
PURSAFO
h; nd
powered.gif
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
$ACTIONS
ls (Specials)
07/07/97 02:33:55 PM Richard Schwartz/Iris updated LocalDomainServers
07/07/97 02:32:39 PM Richard Schwartz/Iris added Anonymous
07/07/97 02:32:02 PM Richard Schwartz/Iris updated OtherDomainServers
07/07/97 02:31:52 PM Richard Schwartz/Iris added OtherDomainServers
07/07/97 02:31:45 PM Richard Schwartz/Iris updated LocalDomainServers
07/07/97 02:31:37 PM Richard Schwartz/Iris added LocalDomainServers
07/07/97 02:31:32 PM Richard Schwartz/Iris updated -Default-
07/07/97 02:31:21 PM Richard Schwartz/Iris deleted Richard Schwartz/Iris
06/02/97 11:11:14 AM Richard Schwartz/Iris updated Richard Schwartz/Iris
06/02/97 11:11:14 AM Richard Schwartz/Iris added Richard Schwartz/Iris
(.txt)