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
Enter HTML tags and content for your Web page below
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Full URL:
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
HomePageCheck
Make this page the home page | Home Page
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
The database is meant to be used as a guideline or starting point. It shows various Web page layouts that can be easily created by a Web designer using Notes and Domino.
Who will use this database?
Webmasters and page designers for corporate Intranets and World Wide Web sites on the Internet.
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". The creator of a database based on this template should give Editor permission to all users who need to create or modify web page content.
Note: This database template 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.
The database is meant to be used as a guideline or starting point. It shows various Web page layouts that can be easily created by a Web designer using Notes and Domino.
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
PageTitle
Times New Roman
Page
Insures that the back-end knows about the form before doc is saved.
FromAuthor of this document
page creator
tmpDbName
store server and database name
tmpDbName
0S0E
tmpDB
just the database
tmpDbName
0S0E
tmpSrv
just the server
HomePage
boolean indicator of whether this is the home page for this database
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
Enter a page title for the browser
PageTitleEnter the page name for display in the browser's title bar
This will be displayed by the browser in its window title bar.
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Enter content for your Web page below
Full URL:
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
HomePageCheck
Make this page the home page | Home Page
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
BodyEnter text and graphics for you web page here
_Edit Document
Categori_ze
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
$SubForms
$WindowTitle
$$Script_O
$$ScriptName
HomePage
$Body
$ACTIONS
FromAuthor of this document
page creator
tmpDbName
store server and database name
tmpDbName
0S0E
tmpDB
just the database
tmpDbName
0S0E
tmpSrv
just the server
HomePage
boolean indicator of whether this is the home page for this database
Save Page
0S0E
New Page(
0S0E
New Page Using HTML
0S0E
Edit Page
0S0E
Save and Close<
0S0E
Close Page
0S0E
DocInfoOnly
Document Information
2S3S4S6S7S8S9S10S11S12S13S
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
HomePage
$Body
$ACTIONS
PageTitle
Times New Roman
HTML
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.
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:
SELECT Form = "HTML";
FIELD YourNewFieldNameGoesHere := HTML;
FIELD HTML := @Unavailable;
_Edit Document
Categori_zee
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
PageTitle
Times New Roman
Page
PageTitle
_Edit Document
Categori_ze
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
DocInfoOnly
Doc Info Display
Page name for the URL
PageName
tmpPageName
1S2S
Page title for the browser
PageTitle
tmpPageTitle
This will be displayed by the browser in its window title bar
'++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"
Doc Info 1'++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)
' Make this the home page if the user said so. Make sure that only one doc in the database is
' marked as the home page.
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 the "HomePageCheck" control is checked, and this doc isn't already the home page then
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
' see if something else is marked as the home page
If note Is Nothing Then
' there wasn't a home page yet, so we're OK
Else
' there was a home page, so see if we really want to change it
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
' yes, user told us to change it
note.HomePageCheck = ""
note.HomePage = 0
Call note.save(False,False,False)
Else
' no user wants to keep the old home page
Call source.FieldSetText("HomePage","0")
Call source.FieldSetText("HomePageCheck", "")
End If
End If
Else
' if HomePageCheck control wasn't checked
If check1 <> "Home Page" Then
' Undo any previous setting
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)
'++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)
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
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
Enter HTML tags and content for your Web page below
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Full URL:
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
HomePageCheck
Make this page the home page | Home Page
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$PageName_1
$PageName_1_O
$TITLE
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$PageName
$PageName_O
$$HomePageCheck
$HomePageCheck_O
$Body
'++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
Doc Info Display'++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
Page name for the URL
PageName
tmpPageName
1S2S
Page title for the browser
PageTitle
tmpPageTitle
This will be displayed by the browser in its window title bar
PageName
Not Available
tmpDB
/pages/
PageName"
3S4S6S9S10S11S12S13S14StmpURL
Full URL:
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
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
.T"{z'~D
$$PageName
$PageName_O
$TITLE
$Info
$$Script_O
$$ScriptName
$$tmpPageName
$tmpPageName_O
$Body
'++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"
Doc Info 2'++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)
' Make this the home page if the user said so. Make sure that only one doc in the database is
' marked as the home page.
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 the "HomePageCheck" control is checked, and this doc isn't already the home page then
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
' see if something else is marked as the home page
If note Is Nothing Then
' there wasn't a home page yet, so we're OK
Else
' there was a home page, so see if we really want to change it
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
' yes, user told us to change it
note.HomePageCheck = ""
note.HomePage = 0
Call note.save(False,False,False)
Else
' no user wants to keep the old home page
Call source.FieldSetText("HomePage","0")
Call source.FieldSetText("HomePageCheck", "")
End If
End If
Else
' if HomePageCheck control wasn't checked
If check1 <> "Home Page" Then
' Undo any previous setting
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)
'++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)
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
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
Enter a page title for the browser
PageTitleEnter the page name for display in the browser's title bar
This will be displayed by the browser in its window title bar.
PageName
Not Available
tmpDB
/pages/
PageName
3S4S6S9S10S11S12S13S14StmpURL
Enter content for your Web page below
Full URL:
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
HomePageCheck
Make this page the home page | Home Page
PageName
tmpOldPageName
0S0E
tmpOldPageName
remember page name for validation against duplicates
PageID
unique page id used in validation formula for PageName field
(.txt)