rustdb-axum-example 0.1.1

GE�
�
@�




�

�
�F

�@
sys
date

htm
webbrowse
handlerdboft
8dX


Schema	

Table


ColumnI

Index	

IndexColumn


Functionab p
`

Name�
RootC

SchemaC
Name�
IsView
Def�
IdGenC
TableC
	Name`
@
BySchemaName
ByTable

ByTable
	ByIndexBySchemaName

ByRefersTo

ByLastNameByCust

P













		



�
X

Schema

Table

Column
Index


IndexColumn

Function
File
	Column
	Table
Cust
Order
�cp
`









		











!
 �@







�P










		


&TUVWX@P�

TypeName�( t int

	TableName�( table


SingleQuote�( s str


ScriptTable�( t int

�ScriptS�( s int

ScriptSchema�( s int

ScriptBrowse�( t int,�YZ[\+P�

TypeName
!
	TableName
SingleQuote

ScriptTable

�ScriptS

ScriptSchema

ScriptBrowse


SchemaName	
�RecreatM


	QuoteName
	H LMNOPQRS@
�OLETE FROM sys.Schema WHERE Id = sid
END,name) )
  DE
hEXECUTE( 'DROP TABLE ' | sys.Dot(schema,name) )
  DE

~hme FROM sys.Table WHERE Schema = sid AND IsView = 0 
}hDROP VIEW ' | sys.Dot(schema,name) )
  FOR name = Na
|hs.Table WHERE Schema = sid AND IsView = 1 EXECUTE( '
{�*frstuqpovCw@PT
�h
  SET i = i + 1
END

DECLARE n int, a int, tota
���%ringToYearMonthDay
��%arMonthDayToString
�#InputYearMonthDay
�=ysToYearMonthDay(date.Today())G
/favicon.icoimage/x-icon>�

b

]@

�@





,

.
�
 
sys.IndexName
sys.SchemaName�browse.�

sys.TableName�browse.�

dbo.CustNamedbo.CustSelectCustomer
H DEFGHIJK@


hhDayToDays( date.YearMonthDay( year, month, day ) )


hRING( s, ssix + 1, LEN(s) ) )
  RETURN date.YearMont

�hte ' | htm.Attr(''|day)
  SET year = PARSEINT( SUBST
�h < 1 OR day > 31 THROW 'Day must be 1..31 parsing da
�hINT( SUBSTRING( s, six+1, ssix - six - 1) )
  IF day
��<=>?@AB@p��
hFROM browse.Table WHERE Id = table
  IF result = '' 
�
h int ) RETURNS string AS
BEGIN
  SET result = Title 

�

 k
ENDe( table ) | ' SET ' | alist | ' WHERE Id =' |

hbleName( table ) | ' SET ' | alist | ' WHERE Id =' |
~
h( colId, type, f )
  END
  RETURN 'UPDATE ' | sys.Ta
}
h     H 456789:;@
hIN
    DECLARE ref int, inf string
    SET ref = 0, 
hTable = table
  ORDER BY browse.ColPos(Id), Id
  BEG


hName, colId = Id, type = Type FROM sys.Column WHERE 
hstring, col string, colId int, type int
  FOR col = 
�
h int, k int ) RETURNS string AS
BEGIN
  DECLARE sql 
�
H ,-./0123@
�hLARE sid int SET sid = Id FROM sys.Schema WHERE Name
�hEGIN
  DECLARE s string SET s = web.Query('s')
  DEC

�% web.Trailer()
ENDERE Id = t
  EXECUTE( sql )
  EXEC
�h FROM sys.Table WHERE Id = t
  EXECUTE( sql )
  EXEC
�herBy != '' THEN ' ORDER BY ' | orderBy ELSE '' END
 
H $%&'()*+@
hatement is repeatedly executed as long as bool-exp e
hted.
<h3>WHILE</h3><p>WHILE bool-exp Statement
<p>St

huted, otherwise Statement2 ( if specified ) is execu
h
<p>If bool-exp evaluates to true Statement1 is exec

h>
<p>IF bool-exp THEN Statement1 [ ELSE Statement2 ]
H  !"#@
�h MSSQL ), no fixed length strings.
<p>Similarly ther
�hfor unicode strings ( equivalent to nvarchar(max) in

�hs a single variable length string datatype "string" 
�harison with other SQL implementations</h2><p>There i
�h they are simply to help document the code.
<h2>Comp
�?eH
MaryPoppinsAEC4 2NX
ClareSmithGL3

RonJones-
PeterPerfect$George
WashingtonWC1
RonWilliams1�
H
PoppinsSmith
JonesPerfect

Washington
Williams
Baker
BarwoodYY
		
Flintstone
R^_ 0�3
K��
4
!�

5!�
6!�
7
(!�
8
2��
9
<b�
:
#!�
;-!�
<7!�
	=A!�
>
��

?
r�
@(�

A
!�
B!�
C"`0�3
+4
5&6
7
28

9

:

;
<
=
>

?

@
A


B
	C

D
FG
"FH

I
J
K
L:(M����������������`�
�%Hello�%
�%Hello�%

�%Hello�%
�%Hello�%
�%Hello�%
�%Hello�%
�%Hello�%
�%Hello�%
�%Hello�%
�%He��������`�
�$Hello�$
�$Hello�$

�$Hello�$
�$Hello�$
�$Hello�$
�$Hello�$
�$Hello�$
�$Hello�$
�$Hello�$
�$He��������`�
�#Hello�#
�#Hello�#

�#Hello�#
�#Hello�#
�#Hello�#
�#Hello�#
�#Hello�#
�#Hello�#
�#Hello�#
�#He��������`�
#Hello#
#Hello#

#Hello#
#Hello#
#Hello#
#Hello#
#Hello
#

#Hello#
#Hello�"
�"He��������`�
"Hello"
"Hello"

"Hello"
"Hello"
"Hello"
"Hello"
"Hello"
"Hello"
"Hello"
"He ��������`�
0!Hello/!
/!Hello.!

.!Hello-!
-!Hello,!
,!Hello+!
+!Hello*!
*!Hello)!
)!Hello(!
(!Hello'!
'!He!��������`�
D HelloC 
C HelloB 

B HelloA 
A Hello@ 
@ Hello? 
? Hello> 
> Hello= 
= Hello< 
< Hello; 
; He"��������`�
XHelloW
WHelloV

VHelloU
UHelloT
THelloS
SHelloR
RHelloQ
QHelloP
PHelloO
OHe#��������`�
lHellok
kHelloj

jHelloi
iHelloh
hHellog
gHellof
fHelloe
eHellod
dHelloc
cHe$��������`�
�Hello
Hello~

~Hello}
}Hello|
|Hello{
{Helloz
zHelloy
yHellox
xHellow
wHe%��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He&��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He'��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He(��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He)��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He*������
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He+






�`�
Hello
Hello



Hello	
	Hello
Hello
Hello
Hello
Hello
Hello
He,








�`�
 Hello
Hello

Hello
Hello
Hello
Hello
Hello
Hello
Hello
He-






�`�
4Hello3
3Hello2

2Hello1
1Hello0
0Hello/
/Hello.
.Hello-
-Hello,
,Hello+
+He.





 
�`�
HHelloG
GHelloF

FHelloE
EHelloD
DHelloC
CHelloB
BHelloA
AHello@
@Hello?
?He/"
#
$
%
&
'
(
�`�
\Hello[
[HelloZ

ZHelloY
YHelloX
XHelloW
WHelloV
VHelloU
UHelloT
THelloS
SHe0*
+
,
-
.
/
0
�`�
pHelloo
oHellon

nHellom
mHellol
lHellok
kHelloj
jHelloi
iHelloh
hHellog
gHe12
3
4
5
6
7
8
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello
Hello~
~Hello}
}Hello|
|Hello{
{He2:
;
<
=
>
?
@
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He3B
C
D
E
F
G
H
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He4J
K
L
M
N
O
P
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He5R
S
T
U
V
W
X
�`�
�
Hello�

�
Hello�


�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
He6Z
[
\
]
^
_
`
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He7b
c
d
e
f
g
h
�`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He8j
k
l
m
n
o
p
�`�
Hello
Hello

Hello


Hello
Hello
Hello


Hello	
	Hello
Hello
He9r
s
t
u
v
w
x
�`�
$
Hello#

#
Hello"


"
Hello!

!
Hello 

 
Hello


Hello


Hello


Hello


Hello


He:z
{
|
}
~

�
�`�
8	Hello7	
7	Hello6	

6	Hello5	
5	Hello4	
4	Hello3	
3	Hello2	
2	Hello1	
1	Hello0	
0	Hello/	
/	He;�
�
�
�
�
�
�
�`�
LHelloK
KHelloJ

JHelloI
IHelloH
HHelloG
GHelloF
FHelloE
EHelloD
DHelloC
CHe<��������`�
tHellos
sHellor

rHelloq
qHellop
pHelloo
oHellon
nHellom
mHellol
lHellok
kHe=��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello
He>��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He?��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�He@��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�HeA��������`�
�
Hello�

�
Hello�


�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
Hello�

�
HeByz{|}~������
�_Hello^
^Hello]

]Hello\
\Hello[
[HelloZ
ZHelloY
YHelloX
XHelloW
WHelloC��������`�
�Hello�
�Hello�

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�HeD�D
�
B

�A
�@
�?
�>
t=
C

�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�Hello�
�HeH ghijklmn@
hema
    EXEC sys.ScriptSchema(s)
  FOR s = Id FROM s
ht=utf-8' )
  DECLARE s int
  FOR s = Id FROM sys.Sch

hBEGIN 
  EXEC web.SetContentType( 'text/plain;charse
D FROM web.File WHERE Id = k
  EXEC web.Trailer()
EN
h  FROM web.File WHERE Id = k
  EXEC web.Trailer()
EN
h* and are terminated by */. Comments have no effect,
�hthe end of the line. Delimited comments start with /
hs. Single line comments start with -- and extend to 
~h
<h2>Comments</h2>
<p>There are two kinds of comment
}h<p>The specified index is removed from the database.
	|hNDEX</h3><p>DROP INDEX indexname ON schema.tablename
{hl the rows in the table are also removed.
<h3>DROP I

zhhe SCHEMA are also removed. In the case of TABLE, al
yh database. In the case of a SCHEMA, all objects in t

xhUNCTION.
<p>The specified object is removed from the
whe can be any one of SCHEMA,TABLE,VIEW,PROCEDURE or F
vh.
<h3>DROP object-type object-name</h3><p>object-typ
uhUNCTION. The name of the specified object is changed
the can be any one of SCHEMA,TABLE,VIEW,PROCEDURE or F
shobject-type object-name TO object-name
<p>object-typ
rh.
<h2>Rename and Drop</h2>
<h3>RENAME</h3><p>RENAME 
qhly retrieved without scanning the entire order table
phssociated with a particular customer to be efficient
oher(Cust) 
<br>creates an index allowing the orders a
nh 
<p>For example, <br>CREATE INDEX ByCust ON dbo.Ord
mhow efficient access to rows other than by Id values.
lh1, Colname2 ... )<p>Creates a new index. Indexes all
kh>CREATE INDEX indexname ON schema.tablename( Colname
jhe a unique name.
<h2>Indexes
<h3>CREATE INDEX</h3><p
ihons]<p>Creates a new view. Every expression must hav
hhions FROM table [WHERE bool-exp ] [GROUP BY expressi
ghh3>
<p>CREATE VIEW schema.viewname AS SELECT express
0fhring concatenation.
<h2>Views</h2>
<h3>CREATE VIEW</
eh implicit conversion is to string for operands of st
!#dhonversions</h3>
<p>To be decided. Currently the only
chan be used to access http requests.</li>
</ul>
<h3>C
"&bhnt.</li>
<li>See the web schema for functions that c
ahth any error that occurred during an EXECUTE stateme
%'`hber from s.</li>
<li>EXCEPTION() returns a string wi
_hPARSEFLOAT( s string ) : parses a floating point num
$,^hNT( s string ) : parses an integer from s.</li>
<li>
]hue allocated by an INSERT statement.</li>
<li>PARSEI
)+\hith sub.</li>
<li>LASTID() : returns the last Id val
[hopy of s where every occurrence of pat is replaced w
*.ZhCE( s string, pat string, sub string ) : returns a c
Yhof s from start (1-based) length len.</li>
<li>REPLA
-/Xhtring, start int, len int ) : returns the substring 
Whmust be a string expression.</li>
<li>SUBSTRING( s s
(8Vhli>LEN( s string ) : returns the length of s, which 
Uh is probably not useful, but is not an error.</li>
<
13Thd from the first input row, prior to grouping - this
Shte function is specified, the result will be compute
26RhSELECT list varies over the grouping, but no aggrega
Qhgregate value. If the value of an expression in the 
57Phused in conjunction with GROUP BY to calculate an ag
Ohnctions</h3>
<ul>
<li>MIN,MAX,SUM,COUNT : these are 
4<Nhssary, for example ( a + b ) * c.
<h3>Pre-defined fu
Mhtrue )</li>
</ul>
<p>Brackets can be used where nece
9;Lhboolean operator  ( result is true if either arg is 
Khesult is true if both args are true )</li>
<li>OR : 
:>Jhf arg is true ).</li>
<li>AND : boolean operator ( r
Ihn negation ( result is true if arg is false, false i
=?Hhpression enclosed in brackets.</li>
<li>NOT : boolea
Gh The set may be a list of expressions or a select ex `Fh<li>IN : tests whether an expression in is in a set.
Eh>= != > < >= <= : comparison of any data type.</li>

ACDhmatically converted to string if necessary.</li>
<li
Chcatenation of strings. The second expression is auto
BFBh: addition, subtraction of numbers.</li>
<li>| : con
Ahs. Remainder only applies to integers.</li>
<li>+ - 
EG@hn, division and remainder (after division) of number
?hlow, are as follows:
<ul>
<li>*  / % : multiplicatio
DL>hich is only unary ) in order of precedence, high to 
=h binary, except for - which can be unary, and NOT wh
IK<h(A-Z,a-z).
<h3>Operators</h3>
<p>The operators ( all
;hcan be omitted if the name consists of only letters 
JN:hpper case only by convention ). The square brackets 
9h are written without the square brackets, often in u
MO8hords such as CREATE SELECT are case insensitive, and
7hkets and are case sensitive ( although language keyw
HX6h.
<h3>Names</h3><p>Names are enclosed in square brac
5hf digits (0-9). The bool literals are true and false
QS4hin hexadecimal preceded by 0x. Integers are a list o
3hn as two single quotes. Binary literals are written 
RV2hle quote is needed in a string literal, it is writte
1hals are written enclosed in single quotes. If a sing
UW0hevaluates to true.
<h3>Literals</h3>
<p>String liter
/hion associated with the first bool expression which 
T\.hN exp2 .... ELSE exp END - the result is the express
-h has syntax CASE WHEN bool1 THEN exp1 WHEN bool2 THE
Y[,h functions. There is also the CASE expression, which
+hbined using operators, stored functions, pre-defined
Z^*hnamed columns from tables or views. These may be com
)hterals, named local variables, local parameters and 
]_(hExpressions</h2>
<p>Expressions are composed from li
'han be assigned instead to set the return value.
<h2>Pp&hrn value.
<p>The pre-defined local variable result c
%hpression returns from a stored function with no retu
ac$hns a value from a stored function. RETURN with no ex
#hsions.
<h3>RETURN</h3>
<p>RETURN expression
<p>Retur
bf"hunction is created which can later be used in expres
!h) RETURNS type AS BEGIN statements END
<p>A stored f
eg hEATE FN schema.name ( param1 type1, param2 type2... 
hage being set to the string.
<h3>CREATE FN</h3><p>CR
dlhsion 
<p>An exception is raised, with the error mess
heft unchanged.
<h3>THROW</h3>
<p>THROW string-expres
ikh string). If any exception occurs, the database is l
h the most recent exception (and clears the exception
jnhXCEPTION() can be used to obtain a string describing
hate the execution of a procedure or EXECUTE batch. E
mohters.
<h3>Exceptions</h3><p>An exception will termin
he stored function is called with the supplied paramehxhEXEC</h3><p>EXEC schema.name( exp1, exp2 ... )
<p>Th
hwhich can later be called by an EXEC statement.
<h3>
qshp>A stored function ( no return value ) is created, 
h1 type1, param2 type2... ) AS BEGIN statements END
<
rvh>
<h3>CREATE FN</h3><p>CREATE FN schema.name ( param
hy the start of a new batch.
<h2>Stored Functions</h2
uwhore being used. A GO statement may be used to signif
hored routines ) must be created in a prior batch beft|h).
<p>Note that database objects ( tables, views, st

he result ( which should be a list of SQL statements 
y{hvaluates the string expression, and then executes th
h execution</h2><p>EXECUTE ( string-expression )
<p>Ez~
henclosing FOR or WHILE loop is terminated.
<h2>Batch
	holon (:)
<h3>BREAK</h3><p>BREAK
<p>Execution of the }�htatement. A label consists of a name followed by a c
hTO label
<p>Control is transferred to the labelled s
�hvaluates to true. See also BREAK.
<h3>GOTO</h3><p>GO
htatement is allowed.
<h3>IF .. THEN ... ELSE ...</h3
�hD compound statement can be used whenever a single s
�h<p>The statements are executed in order. A BEGIN..EN
�hN .. END</h3><p>BEGIN Statement1 Statement2 ... END

�h the rows.
<h2>Control flow statements</h2>
<h3>BEGI
	�hvariables being assigned expressions which depend on
�hsatisfies the WHERE condition, with the named local 

�hpeatedly executed for each row from the table which 
�h [ORDER BY expressions] Statement
<p>Statement is re

�hOM table [ WHERE bool-exp ] [ GROUP BY expressions ]
�hh3>FOR</h3><p>FOR name1 = exp1, name2 = exp2 .... FR
�hhe values of the local variables remain unchanged.
<
�hfies the WHERE condition. If there is no such row, t
�hd, the values are taken from a table row which satis
�hriables are assigned. If the FROM clause is specifie
�hHERE bool-exp ] [ GROUP BY expressions ]
<p>Local va
�hT name1 = exp1, name2 = exp2 .... [ FROM table ] [ W
�hencountered if there is a loop ).
<h3>SET</h3>
<p>SE
�halues ( but only once, not each time the DECLARE is 
�h context. The variables are initialised to default v
�h smallint, int and bigint are all equivalent in this
�hote that the precision makes no difference, tinyint,
�hl variables are declared with the specified types. N
�h/h3><p>DECLARE name1 type1, name2 type2 ....
<p>Loca
�hlaration and assignment statements</h2>
<h3>DECLARE<
�h WHERE condition are removed.
<h2>Local variable dec
�hHERE bool-exp
<p>Rows in the table which satisfy the
0�hed.
<h3>DELETE</h3><p>DELETE FROM schema.tablename W
�hhe table which satisfy the WHERE condition are updat
!#�hp1, Colname2 = Exp2 .... WHERE bool-exp
<p>Rows in t
�hATE</h3><p>UPDATE schema.tablename SET Colname1 = Ex
"&�hthat can be used to generate http responses.
<h3>UPD
�hsplay. 
<p>See the web schema for stored procedures 
%'�ht to a client for further processing and eventual di
�hked the batch, and may be displayed to a user or sen
$,�htement, the results are passed to the code that invo
�hlosed in brackets.
<p>When used as a stand-alone sta
)+�h be a named base table, a view or another SELECT enc
�hons can be given names using AS.
<p>source-table can
*.�heversed ( descending order ).
<p>The SELECT expressi
�h placed after an ORDER BY expression, the order is r
-/�hP BY and ORDER BY clauses.
<p>If the keyword DESC is
�hbased on the list of expressions and the WHERE, GROU
(8�h [ORDER BY expressions]
<p>A new table is computed, 
�hource-table [WHERE bool-exp ] [GROUP BY expressions]
13�he table.
<h3>SELECT</h3><p>SELECT expressions FROM s
�hcified by the select-expression are inserted into th
26�h, Colname2 ... ) select-expression
<p>The values spe
�h calls ).
<p>INSERT INTO schema.tablename ( Colname1
57�hons ( possibly involving local variables or function
�herted into the table. The values may be any expressi
4<�h Val3, Val4 ...) ...
<p>The specified values are ins
�hname1, Colname2 ... ) VALUES ( Val1, Val2... ) [,] (
9;�hh3>INSERT</h3>
<p>INSERT INTO schema.tablename ( Col
�h.</li>
</ul>
<h2>Data manipulation statements</h2>
<
:>�h>DROP Colname : the column is removed from the table
�h of integers, and between float and double.</li>
<li
=?�honly changes allowed are between the different sizes
�h the datatype of an existing column is changed. The  `�hcolumn is renamed.</li>
<li>MODIFY Colname Coltype :
�h table.</li>
<li>RENAME Colname TO NewColname : the 
AC�hi>ADD Colname Coltype : a new column is added to the
�h action2 .... <p>The actions are as follows:
<ul>
<l
BF�h TABLE</h3>
<p>ALTER TABLE schema.tablename action1,
�hpes are stored in a special system tables.
<h3>ALTER
EG�hse for the boolean type. The variable length data ty
�h a zero length string for string and binary, and fal
DL�hch data type has a default value : zero for numbers,
�hi>bool : boolean ( true or false ).</li>
</ul>
<p>Ea
IK�hacters.</li>
<li>binary : a string of bytes.</li>
<l
�hectively.</li>
<li>string : a string of unicode char
JN�h : floating point numbers of size 4 and 8 bytes resp
�h, 4 and 8 bytes respectively.</li>
<li>float, double
MO�hsmallint, int, bigint : signed integers of size 1, 2
�h<p>The data types are as follows:
<ul>
<li>tinyint, 
HX�hments on INSERT ( if no explicit value is supplied).
�hs automatically given an Id column, which auto-incre
QS�h.. )
<p>Creates a new base table. Every base table i
�h.tablename ( Colname1 Coltype1, Colname2 Coltype2, .
RV�hion</h2>
<h3>CREATE TABLE</h3><p>CREATE TABLE schema
�he objects into logical categories.
<h2>Table definit
UW�hociated schema. Schemas are used to organise databas
�hse object (Table,View,Procedure,Function) has an ass
T\�hTE SCHEMA name
<p>Creates a new schema. Every databa
�hchema definition</h2>
<h3>CREATE SCHEMA</h3>
<p>CREA
Y[�honal elements are enclosed in square brackets.
<h2>S
�h that are available. Where syntax is described, opti
Z^�h
<p>This manual describes the various SQL statements
�hEGIN
EXEC web.Head('Manual')
SELECT '<h1>Manual</h1>
]_�#web.Trailer()
ENDM sys.Schema ORDER BY Name
   EXEC 
�hName | '</a>' FROM sys.Schema ORDER BY Name
   EXEC Pp�h   SELECT '<p><a href=ShowSchema?s=' | Name | '>' | 
�hheck all functions compile ok</a>
<h1>Schemas</h1>'

ac�het=_blank href=/Dump>Dump</a>
<p><a href=/CheckAll>C
�ha>
<p><a href=/FileUpload>File Upload</a>
<p><a targ
bf�hExecute>Execute SQL</a>
<p><a href=/ListFile>Files</
�hmmary>Order Summary</a>
<h1>System</h1>
<p><a href=/
eg�h="/ShowTable?k=10">Customers</a>
<p><a href=/OrderSu
�hEGIN
   EXEC web.Head('Menu')
   SELECT '
<p><a href
dl�)
ENDnt DESC
  SELECT '</table>'
  EXEC web.Trailer(
�h/ Count DESC
  SELECT '</table>'
  EXEC web.Trailer(
ik�h | '</tr>'
  FROM dbo.OrderSummary
  ORDER BY Total 
�halign=right>' | Min
   | '<td align=right>' | Max
  
jn�ht
   | '<td align=right>' | Total / Count
   | '<td 
�halign=right>' | Total
   | '<td align=right>' | Coun
mo�hCust | '>' | dbo.CustName(Cust) | '</a>' 
   | '<td 
�h</tr>'
  SELECT '<tr><td><a href=ShowRow?t=11&k=' | hx�hable><tr><th>Cust<th>Total<th>#<th>Avg<th>Min<th>Max
�hEGIN
  EXEC web.Head( 'Order Summary' )
  SELECT '<t
qs�W) )
  EXECUTE( browse.ShowSql( t, k ) )
ENDQuery('k'
�h') )
  DECLARE k int SET k = PARSEINT( web.Query('k'
rv�hBEGIN
  DECLARE t int SET t = PARSEINT( web.Query('t
�% web.Trailer()
END Schema = sid ORDER BY Name
  EXEC
uw�hsys.Function WHERE Schema = sid ORDER BY Name
  EXEC
�h=' | s | '&n=' | Name | '">' | Name | '</a>'
  FROM t|�hh2>Functions</h2>' 
  SELECT '<p><a href="EditFunc?s
�hma = sid AND IsView = 1 ORDER BY Name
*/
  SELECT '<
y{�he | '">' | Name | '</a>'
  FROM sys.Table WHERE Sche
�h  SELECT '<p><a href="EditView?s=' | s | '&n=' | Namz~�hView = 0 ORDER BY Name
/*
  SELECT '<h2>Views</h2>'

�h | '</a>'
  FROM sys.Table WHERE Schema = sid AND Is}��hSELECT '<p><a href="ShowTable?k=' | Id | '">' | Name
�hSchema ' | s | '</h1>'
  SELECT '<h2>Tables</h2>'
  
��h = s
  EXEC web.Head( 'Schema ' | s )
  SELECT '<h1>
h FROM ' 
    | sys.TableName(Id)
    | CASE WHEN ord
~h/a> ''| ''''|' 
    | browse.ColValues(Id)  
    | '
}h<br><a href="ShowRow?t=' | t | '&k=''| Id |''">Show<
|hHERE Id = t
  DECLARE sql string SET sql ='SELECT ''
{htring SET orderBy = DefaultOrder FROM browse.Table W
	zh"AddRow?t=' | t | '">Add</a>'
  
  DECLARE orderBy s
yhWHERE Table = t
*/
  SELECT '<p><b>Rows</b> <a href=

xhme(Name) | ' ' | sys.IndexCols(Id)
  FROM sys.Index 
whCT '<p><b>Indexes</b>'
  SELECT '<br>' | sys.QuoteNa

vhp><b>Columns:</b> ' | browse.ColNames( t )
/*
  SELE
uhef=/BrowseInfo?k=' | t | '>Settings</a>'   
    | '<
thb.Head( title )
  SELECT '<b>' | title | '</b> <a hr
sheTitle( t )
  SET title = title | ' Table'
  EXEC we
rhk') )
  DECLARE title string SET title = browse.Tabl
qhBEGIN 
  DECLARE t int SET t = PARSEINT( web.Query('
p5ys.Column WHERE Id = k
ENDQuoteName( Name )
  FROM s
ohName( Table ) | '.' | sys.QuoteName( Name )
  FROM s
nh ) RETURNS string AS 
BEGIN
  SET result = sys.Table
molumnName
l-LECT ''</TABLE>'''
ENDY ' | ob ELSE '' END
   | ' SE
khb != '' THEN ' ORDER BY ' | ob ELSE '' END
   | ' SE
jhtable ) | ' WHERE ' | kcol | ' = ' | k | CASE WHEN o
ihw</a> '''
     | result | ' FROM ' | sys.TableName( 
hh><a href="ShowRow?t=' | table | '&k=''| Id | ''">Sho
ghE><TR><TH>' | th | ''' '
   | 'SELECT ' | '''<TR><TD
fhColumn WHERE Id = colId
  RETURN 
   'SELECT ''<TABL
ehkcol string SET kcol = sys.QuoteName(Name) FROM sys.
0dhl != '' THEN label ELSE colName END
  END
  DECLARE 
ch      END,
        th = th | '<TH>' | CASE WHEN labe
!#bh| '(' | col | ')' | '|''</a>''' 
        ELSE col
  
ahhowRow?t=' | ref | '&k=''|' | col | '|''">''|' | nf 
"&`h'
        WHEN nf != '' 
        THEN '''<a href="/S
_hCASE 
        WHEN df != '' THEN df | '(' | col | ')
%'^h30 THEN ' align=right' ELSE '' END | '>''|'
      | 
]href
    SET result |= '|''<TD' | CASE WHEN type != 1
$,\h SET ob = DefaultOrder FROM browse.Table WHERE Id = 
[h = NameFunction FROM browse.Table WHERE Id = ref
   
)+Zhbrowse.Column WHERE Id = colid
    IF ref > 0 SET nf
Yh RefersTo, label = Label, df = DisplayFunction FROM 
*.Xhring
    SET ref = 0, nf = '', df = ''
    SET ref =
Wh
    DECLARE ref int, nf string, label string, df st
-/VhId != colId
  ORDER BY browse.ColPos(Id), Id
  BEGIN
Uhme = Name
  FROM sys.Column WHERE Table = table AND 
(8ThTHEN 'htm.Encode(' | Name | ')' ELSE Name END, colNa
Shd = Id, type = Type,
    col = CASE WHEN Type = 130 
13RhtOrder FROM browse.Table WHERE Id = table
  FOR coli
QhROM sys.Column WHERE Id = colId
  
  SET ob = Defaul
26Phg, ob string
  DECLARE table int SET table = Table F
Ohtring, colid int, colName string, type int, th strin
57Nh a column refers to another table */
  DECLARE col s
Mh SQL to display a child table, with hyperlinks where
4<Lh int, k int ) RETURNS string AS 
BEGIN 
  /* Returns
KC '' ELSE ', ' END | col
  END
ENDEN result = '' THEN
9;Jh  BEGIN
    SET result |= CASE WHEN result = '' THEN
IhHERE Table = table
  ORDER BY browse.ColPos(Id), Id

:>Hh| ' pos=' | browse.ColPos(Id) */
  FROM sys.Column W
Gh | Name | '</a>' 
    | ' ' | sys.TypeName(Type) /* 
=?Fh  FOR col = '<a href="/BrowseColInfo?k=' | Id | '">'
Eh int ) RETURNS string AS
BEGIN
  DECLARE col string
 `Dg 'browse.ParseBool(' | f | ')'
    ELSE f
  END
ENDN
ChN 'PARSEFLOAT(' | f | ')'
    WHEN type % 8 = 5 THEN
ACBh THEN 'PARSEINT(' | f |')'
    WHEN type % 8 = 4 THE
Ah != '' THEN pf | '(' | f | ')'
    WHEN type % 8 = 3
BF@he.Column WHERE Id = colId
  RETURN CASE 
    WHEN pf
?hECLARE pf string
  SET pf = ParseFunction FROM brows
EG>hcified parser could be fetched from Parse.Column
  D
=h -- ColId not currently used, but in future user-spe
DL<h int, type int, f string ) RETURNS string AS
BEGIN
 
;pos
ENDion FROM browse.Column WHERE Id = c
  RETURN 
IK:h= Position FROM browse.Column WHERE Id = c
  RETURN 
9h ) RETURNS int AS
BEGIN
  DECLARE pos int
  SET pos 
JN8D
END)' | '|''</a>''' 
      ELSE col
      END
  EN
7hl | ')' | '|''</a>''' 
      ELSE col
      END
  EN
MO6h | ref | '&k=''|' | col | '|''">''|' | nf | '(' | co
5h  WHEN nf != '' 
      THEN '''<a href="/ShowRow?t='
HX4h 
      WHEN df != '' THEN df | '(' | col | ')'
    
3hesult = '' THEN '' ELSE '|'', ''|' END | 
      CASE
QS2he.Table WHERE Id = ref
    SET result |= CASE WHEN r
1holid
    IF ref > 0 SET nf = NameFunction FROM brows
RV0hdf = DisplayFunction FROM browse.Column WHERE Id = c
/hT ref = 0, nf = '', df = ''
    SET ref = RefersTo, 
UW.hGIN
    DECLARE ref int, nf string, df string
    SE
-hTable = table 
  ORDER BY browse.ColPos(Id), Id
  BE
T\,h | '))'
    ELSE Name
  END
  FROM sys.Column WHERE 
+hpe % 8 = 2 THEN 'htm.Encode(sys.SingleQuote(' | Name
Y[*h colid int
  FOR colid = Id, col = CASE 
    WHEN Ty
)h int ) RETURNS string AS
BEGIN
  DECLARE col string,
Z^(-  ELSE '0'
    END
ENDN type % 8 = 5 THEN 'false'
  
'h = 1 THEN '0x'
    WHEN type % 8 = 5 THEN 'false'
  
]_&h
    WHEN type % 8 = 2 THEN ''''''
    WHEN type % 8
%hint, ref int ) RETURNS string AS
BEGIN
  RETURN CASEPp$Dwse.InputBool'
  ELSE 'browse.InputString'
  END
EN
#howse.InputBool'
  ELSE 'browse.InputString'
  END
EN
ac"hEN 'browse.InputDouble'
  WHEN type % 8 = 5 THEN 'br
!h= 1 THEN 'browse.InputBinary'
  WHEN type % 8 = 4 TH
bf htype % 8 = 3 THEN 'browse.InputInt'
  WHEN type % 8 
hint ) RETURNS string AS
BEGIN
  RETURN CASE 
  WHEN 
eg
ql
END' | default | ')'
  END
  RETURN 'SELECT ' | s
hd | ',' | default | ')'
  END
  RETURN 'SELECT ' | s
dlh | col | '</label>: '' | ' 
      | inf | '(' | colI
hE ' | ' END
      | '''<p><label for="' | col | '">'
ikhef )
 
    SET sql |= CASE WHEN sql = '' THEN '' ELS
hlt = '' SET default = browse.DefaultDefault( type, r
jnh' SET inf = browse.DefaultInput( type )
    IF defau
htion FROM browse.Table WHERE Id = ref
    IF inf = '
mohlId
    IF ref > 0 AND inf = '' SET inf = SelectFunc
h, default = Default FROM browse.Column WHERE Id = cohxhlt = ''
    SET ref = RefersTo,  inf = InputFunction
hing, default string
    SET ref = 0, inf = '', defau
qsh.ColPos(Id), Id
  BEGIN
    DECLARE ref int, inf str
hWHERE Table = table AND Id != pc
    ORDER BY browse
rvh Name, type = Type, colId = Id FROM sys.Column 
    
h string, col string, type int, colId int
  FOR col =
uwh int, pc int ) RETURNS string AS
BEGIN
  DECLARE sql

UTableName( table ) | ' WHERE Id =' | k
ENDM ' | sys.t|h')'
  END
  RETURN 'SELECT ' | sql | ' FROM ' | sys.
h   | inf | '(' | colId | ',' | sys.QuoteName(col) | 
y{
hl for="' | col | '">' | col | '</label>: '' | ' 
   
	h sql = '' THEN '' ELSE ' | ' END
      | '''<p><labez~hDefaultInput( type )
    SET sql |= 
      CASE WHEN
hble WHERE Id = ref
    IF inf = '' SET inf = browse.}�hAND inf = '' SET inf = SelectFunction FROM browse.Ta
h FROM browse.Column WHERE Id = colId
    IF ref > 0 
�hinf = ''
    SET ref = RefersTo, inf = InputFunction
NDn | '" size=' | size | ' value="' | value | '">'
E
�
h cn | '" size=' | size | ' value="' | value | '">'
E
�
hsize = 50
  RETURN '<input id="' | cn | '" name="' |
�
hOM browse.Column WHERE Id = colId
  IF size = 0 SET 
�
hd = colId
  DECLARE size int SET size = InputCols FR
	�
hLARE cn string SET cn = Name FROM sys.Column WHERE I
�
h int, value binary ) RETURNS string AS 
BEGIN 
  DEC

�
5ked' ELSE '' END | '>'
ENDASE WHEN value THEN ' chec
�
h '" name="' | cn | '"' | CASE WHEN value THEN ' chec

�
h = colId
  RETURN '<input type=checkbox id="' | cn |
�
h cn string 
  SET cn = Name FROM sys.Column WHERE Id
�
h int, value bool ) RETURNS string AS
BEGIN
  DECLARE
�
e | '">'
ENDsize="' | size | '"' | ' value="' | valu
�
h' | cn | '" size="' | size | '"' | ' value="' | valu
�
hET size = 15
  RETURN '<input id="' | cn | '" name="
�
h FROM browse.Column WHERE Id = colId
  IF size = 0 S
�
hd = colId
  DECLARE size int 
  SET size = InputCols
�
hLARE cn string SET cn = Name FROM sys.Column WHERE I
�
h int, value double ) RETURNS string AS 
BEGIN 
  DEC
�
lue | '>'
END cn | '" size=' | size | ' value=' | va
�
h '" name="' | cn | '" size=' | size | ' value=' | va
�
h size = 10
  RETURN '<input type=number id="' | cn |
�
hROM browse.Column WHERE Id = colId
  IF size = 0 SET
�
h = colId
  DECLARE size int
  SET size = InputCols F
�
h cn string 
  SET cn = Name FROM sys.Column WHERE Id
�
h int, value int) RETURNS string AS 
BEGIN 
  DECLARE
�
Y '"' | ' value=' | htm.Attr(value) | '>'
END| cols |
0�
ht id="' | cn | '" name="' | cn | '" size="' | cols |
�
hcode(value) | '</textarea>'
  ELSE
    RETURN '<inpu
!#�
h.Attr(description) ELSE '' END
      | '">' | htm.En
�
h    | CASE WHEN value = '' THEN 'placeholder=' | htm
"&�
h '" cols="' | cols | '"' | '" rows="' | rows |'"'
  
�
h    RETURN '<textarea id="' | cn | '" name="' | cn |
%'�
hd = colId
  IF cols = 0 SET cols = 50
  IF rows > 0

�
hscription = Description
  FROM browse.Column WHERE I
$,�
h string
  SET cols = InputCols, rows = InputRows, de
�
hd = colId 
  DECLARE cols int, rows int, description
)+�
hLARE cn string SET cn = Name FROM sys.Column WHERE I
�
h int, value string ) RETURNS string AS 
BEGIN 
  DEC
*.�
MYearMonthDayToString(value)) | '>'
ENDhtm.Attr(date.
�
h| cn | '" size=' | size | ' value=' | htm.Attr(date.
-/�
h size = 10
  RETURN '<input id="' | cn | '" name="' 
�
hROM browse.Column WHERE Id = colId
  IF size = 0 SET
(8�
h = colId
  DECLARE size int
  SET size = InputCols F
�
h cn string 
  SET cn = Name FROM sys.Column WHERE Id
13�
h int, value int) RETURNS string AS 
BEGIN 
  DECLARE
�
arMonthDay
26�
 | ')'
END| sys.QuoteName(col)
  RETURN '(' | result
�
hE ',' END | sys.QuoteName(col)
  RETURN '(' | result
57�
h
    SET result |= CASE WHEN result = '' THEN '' ELS
�
h  FOR col = Name FROM sys.Column WHERE Table = table
4<�
h int ) RETURNS string AS
BEGIN
  DECLARE col string

�
list | ')'
ENDInsertNames( table ) | ' VALUES (' | v
9;�
hle ) | browse.InsertNames( table ) | ' VALUES (' | v
�
h    END
  RETURN 'INSERT INTO ' | sys.TableName( tab
:>�
h '' | p
    ELSE browse.ColParser( colId, type, f )

�
hELSE ' , ' END | 
    CASE 
    WHEN colId = pc THEN
=?�
h table 
  SET vlist |= CASE WHEN vlist = '' THEN '' 
�
he = Type, colId = Id
  FROM sys.Column WHERE Table = `�
hR f = 'web.Form(' | sys.SingleQuote(Name) | ')', typ
�
hARE vlist string, f string, type int, colId int
  FO
AC�
h int, pc int, p int ) RETURNS string AS
BEGIN
  DECL
�
cing ) RETURNS bool AS
BEGIN
  RETURN s = 'on'
END
BF�
7on>'
     | '</select>'
END'' END | ' value=0></opti
�
h = 0 THEN ' selected' ELSE '' END | ' value=0></opti
EG�
h | '">' | options | 
     '<option ' | CASE WHEN sel
�
hopt
  RETURN '<select id="' | col | '" name="' | col
DL�
h
  FROM sys.Schema
  ORDER BY Name
  SET options |= 
�
halue=' | Id | '>' | htm.Encode( Name ) | '</option>'
IK�
h WHEN Id = sel THEN ' selected' ELSE '' END 
  | ' v
�
hsel = PARSEINT( sels )
  FOR opt = '<option ' | CASE
JN�
hng
  SET sels = web.Form( col )
  IF sels != '' SET 
�
holId
  DECLARE opt string, options string, sels stri
MO�
hl string SET col = Name FROM sys.Column WHERE Id = c
�
h int, sel int ) RETURNS string AS
BEGIN
  DECLARE co
HX�
()
'
ENDTitle(t) | '' Table</a>''
  EXEC web.Trailer
�
hse.TableTitle(t) | '' Table</a>''
  EXEC web.Trailer
QS�
hCT ''<p><a href="/ShowTable?k='' | t | ''">'' | brow
�
h   EXECUTE( browse.ChildSql( col, k ) )
  END
  SELE
RV�
h| ''">Add</a>''
    FROM sys.Column WHERE Id = col
 
�
h    | '' <a href="AddChild?c='' | col | ''&p='' | k 
UW�
h''<p><b>'' | browse.TableTitle( Table ) | ''</b>''
 
�
hbrowse.Column WHERE RefersTo = t
  BEGIN
    SELECT 
T\�
h</a>'''
  | '
  DECLARE col int
  FOR col = Id FROM 
�
h><a href="/EditRow?t='' | t | ''&k='' | k | ''">Edit
Y[�
hTableName(table) | ' WHERE Id = k'
  | ' SELECT ''<p
�
hb><br>''
  '
  | ' SELECT ' | cols | ' FROM ' | sys.
Z^�
h web.Head( title )
    SELECT ''<b>'' | title | ''</
�
hSE ' | '' '' | ' | namefunc | '(k)' END | '
    EXEC
]_�
hle( t )' 
      | CASE WHEN namefunc = '' THEN '' EL
�
h    DECLARE title string SET title = browse.TableTitPp�
ht SET t = '|table|'
    DECLARE k int SET k = '|k|'

�
hTable WHERE Id = table
  RETURN '  
    DECLARE t in
ac�
hfunc string SET namefunc = NameFunction FROM browse.
�
h' 
        ELSE col
        END
  END
  DECLARE name
bf�
hcol | '|''">''|' | nf | '(' | col | ')' | '|''</a>''
�
h'' THEN '''<a href="/ShowRow?t=' | ref | '&k=''|' | 
eg�
h != '' THEN df | '(' | col | ')'
        WHEN nf != 
�
h | colname | ': '' | '
      | CASE 
        WHEN df
dl�
hHEN cols = '' THEN '' ELSE ' | ' END
      | '''<p>'
�
h= ref ELSE SET nf = ''
    SET cols |= 
      CASE W
ik�
h 0 SET nf = NameFunction FROM browse.Table WHERE Id 
�
hion FROM browse.Column WHERE Id = colid
    IF ref >
jn�
h', df = ''
    SET ref = RefersTo, df = DisplayFunct
�
hef int, nf string, df string
    SET ref = 0, nf = '
mo�
hORDER BY browse.ColPos(Id), Id
  BEGIN
    DECLARE r
�
hme
    END
  FROM sys.Column WHERE Table = table 
  hx�
hpe = 130 THEN 'htm.Encode(' | Name | ')'
    ELSE Na
�
h colid = Id, colname = Name, col = CASE 
    WHEN Ty
qs�
h string, col string, colname string, colid int
  FOR
�
h int, k int ) RETURNS string AS
BEGIN
  DECLARE cols
rv�
'  | '</select>'
END'' END | ' value=0></option>'
   
�
hN ' selected' ELSE '' END | ' value=0></option>'
   
uw�
h| options | 
     '<option ' | CASE WHEN sel = 0 THE
�
hTURN '<select id="' | col | '" name="' | col | '">' t|�
hORDER BY sys.TableName(Id)
  SET options |= opt
  RE
�
hys.TableName(Id) ) | '</option>'
  FROM sys.Table
  
y{�
hLSE '' END 
  | ' value=' | Id | '>' | htm.Encode( s
�
h= '<option ' | CASE WHEN Id = sel THEN ' selected' Ez~�
holId
  DECLARE opt string, options string
  FOR opt 
�
hl string SET col = Name FROM sys.Column WHERE Id = c}��
h int, sel int ) RETURNS string AS
BEGIN
  DECLARE co
�
DET result = Name FROM sys.Table WHERE Id = table
EN
��
hSET result = Name FROM sys.Table WHERE Id = table
EN
| sys.QuoteName(col) | ' = ' | browse.ColParser
|
hist |= CASE WHEN alist = '' THEN '' ELSE ' , ' END
 
{
h 'web.Form(' | sys.SingleQuote(col) | ')'
    SET al
z
hE Table = table
  BEGIN
    DECLARE f string SET f =
y
hd = Id, col = Name, type = Type FROM sys.Column WHER
	x
ht string, col string, type int, colId int
  FOR colI
w
h int, k int ) RETURNS string AS
BEGIN
  DECLARE alis

v
O��������������������������
u
h������������������������

t
h����������������������
s
h������������������������
r
h����������������������
q
h������������������
p
h����������������
o
h����������������
n
h��������������������
m
h����������������
l
h����������
k
h��������
j
h��������������
i
h������������
h
h����������
g
h��
f
h������
e
h������
d
h����
c
h��
0b
h
 (( 
 
a
me )
END RETURNS string AS
BEGIN
  RETURN ARG( 3, na
!#`
hstring ) RETURNS string AS
BEGIN
  RETURN ARG( 3, na
_
me )
END RETURNS string AS
BEGIN
  RETURN ARG( 2, na
"&^
hstring ) RETURNS string AS
BEGIN
  RETURN ARG( 2, na
]
	
END '">Code</a> ' | date.NowString() | ' UTC</div>'
%'\
h() | '">Code</a> ' | date.NowString() | ' UTC</div>'
[
harget=_blank href="EditFunc?s=handler&n=' | web.Path
$,Z
hnu>New Window</a>
| <a href=Manual>Manual</a>
| <a t
Y
h
<a href=/Menu>Menu</a> 
| <a target=_blank href=/Me
)+X
hyle="color:white;background:lightblue;padding:4px;">
W
hy{ max-width:60em; }
</style>
</head>
<body>
<div st
*.V
htle>
<style>
   body{font-family:sans-serif;}
   bod
U
hce-width, initial-scale=1">
<title>' | title | '</ti
-/T
het=UTF-8">
<meta name="viewport" content="width=devi
S
ha http-equiv="Content-type" content="text/html;chars
(8R
ht/html;charset=utf-8' )
  SELECT '<html>
<head>
<met
Q
h string ) AS 
BEGIN 
  EXEC web.SetContentType( 'tex
13P
1iler()
    END
  END
END=' | path
      EXEC web.Tra
O
hELECT 'Unknown page Path=' | path
      EXEC web.Tra
26N
h  BEGIN
      EXEC web.Head( 'Unknown page')
      S
M
heb.SendBinary( ct, content )
    END    
    ELSE
  
57L
h Path = path
    IF ok = path
    BEGIN
      EXEC w
K
h= ContentType, content = Content FROM web.File WHERE
4<J
hARE ct string, content binary
    SET ok = Path, ct 
I
h web.Trailer()
    END
  END
  ELSE
  BEGIN
    DECL
9;H
hCT htm.Encode( ex )
      SELECT '</pre>'
      EXEC
G
hror' )
      SELECT '<h1>Error</h1><pre>'
      SELE
:>F
h)
    IF ex != ''
    BEGIN
      EXEC web.Head( 'Er
E
h'()' )
    DECLARE ex string
    SET ex = EXCEPTION(
=?D
hIN
    EXECUTE( 'EXEC ' | sys.Dot('handler',path) | 
C
hHERE Name = path AND Schema = 6
  IF ok = path
  BEG
 mB
h DECLARE ok string SET ok = Name FROM sys.Function W
A
hBEGIN 
  DECLARE path string SET path = web.Path()
 
AC@
URNS string AS
BEGIN
  RETURN ARG(0,'')
END
?
me )
END RETURNS string AS
BEGIN
  RETURN ARG( 1, na
BF>
hstring ) RETURNS string AS
BEGIN
  RETURN ARG( 1, na
=
03 )
ENDlocation', url )
  SET dummy = STATUSCODE( 3
EG<
hEADER( 'location', url )
  SET dummy = STATUSCODE( 3
;
htring ) AS
BEGIN
  DECLARE dummy int
  SET dummy = H
DL:
eSetContentType( contenttype )
  SELECT content
ENDb.
9
hnttype string, content binary ) AS
BEGIN
  EXEC web.
IK8
+ontenttype', ct )
ENDLARE x int
  SET x = HEADER( 'c
7
hring ) AS
BEGIN
  DECLARE x int
  SET x = HEADER( 'c
JN6
G */
  THROW 'SetCookie is ToDo'
END e.g. 01 Jan 2050
5
h SELECT 16, name, value, expires /* e.g. 01 Jan 2050
MO4
hstring, value string, expires string ) AS
BEGIN
  --
3
EEGIN
  SELECT '</body></html>'
END
HT2
7
  RETURN '"' | s | '"'
ENDPLACE( s, '"', '&quot;' )
1
h'&', '&amp;' )
  SET s = REPLACE( s, '"', '&quot;' )
QS0
hing ) RETURNS string AS
BEGIN
  SET s = REPLACE( s, 
/
RETURN s
END)
  SET s = REPLACE( s, '<', '&lt;' )
  RX.
h&', '&amp;' )
  SET s = REPLACE( s, '<', '&lt;' )
  
-
hing ) RETURNS string AS
BEGIN
  SET s = REPLACE( s,'
UW,
ayToString( date.DaysToYearMonthDay( date ) )
ENDthDa
+
hoString( 1 + (date+5) % 7 ) | ' ' | date.YearMonthDaVY*
hint ) RETURNS string AS
BEGIN
  RETURN date.WeekDayT

ENDyToDays( date.YearMonthDay( year, month, day ) )


hint, hour int
  SET sec = date.Ticks() / 1000000
  S

hRNS string AS
BEGIN
  DECLARE day int, sec int, min 
[Z
hseconds in a day.
  SET sec = sec % 86400
  SET min 

hET day = sec / 86400 + 366 -- 86400 = 24 * 60 * 60, ]\
h0
  SET min = min % 60
  RETURN date.DaysToString(  


h ) RETURNS string AS
BEGIN
  RETURN CASE
    WHEN m 
	
]day ) | ' ' | hour | ':' | min | ':' | sec
ENDing(  
`_
h= sec / 60
  SET sec = sec % 60
  SET hour = min / 6a^
h= 3 THEN 'Mar'
    WHEN m = 4 THEN 'Apr'
    WHEN m 

h= 7 THEN 'Jul'
    WHEN m = 8 THEN 'Aug'
    WHEN m 


h= 5 THEN 'May'
    WHEN m = 6 THEN 'Jun'
    WHEN m 
dc
h = 11 THEN 'Nov'
    WHEN m = 12 THEN 'Dec'
    ELSE

h ) RETURNS bool AS
BEGIN
  RETURN y % 4 = 0 AND ( y 

! '???'
  END
END
    WHEN m = 12 THEN 'Dec'
    ELSE
gf
h= 9 THEN 'Sep'
    WHEN m = 10 THEN 'Oct'
    WHEN m
he
earMonthDay

?% 100 != 0 OR y % 400 = 0 )
ENDRN y % 4 = 0 AND ( y ni
h= 1 THEN 'Jan'
    WHEN m = 2 THEN 'Feb'
    WHEN m 
kb
YarMonthDay( date.DaysToYearDay( days ) )
ENDrDayToYe
Pl
hint ) RETURNS int AS
BEGIN
  RETURN date.YearDayToYejyToYe
mo
earMonthDay

?% 100 != 0 OR y % 400 = 0 )
ENDRN y % 4 = 0 AND ( y hx
h ) RETURNS bool AS
BEGIN
  RETURN y % 4 = 0 AND ( y 

! '???'
  END
END
    WHEN m = 12 THEN 'Dec'
    ELSE
qs
h = 11 THEN 'Nov'
    WHEN m = 12 THEN 'Dec'
    ELSE

h= 9 THEN 'Sep'
    WHEN m = 10 THEN 'Oct'
    WHEN m
rv
h= 7 T
mber of the days in a 4
3h00 year cycle ( 400 * 365 + 97 leap years )
  SET c
��4hycle = days / 146097
  SET days = days - 146097 * c
5hycle -- Same as days % 146097
  SET year = days / 3
��6h65
  SET day = days - year * 365 -- Same as days % 
7h365

  -- Need to adjust day to allow for leap yea
��8hrs.
  -- Leap years are 0, 4, 8, 12 ... 96, not 100
9h, 104 ... not 200... not 300, 400, 404 ... not 500.

��:h
  -- Adjustment as function of y is 0 => 0, 1 => 1,
;h 2 =>1, 3 => 1, 4 => 1, 5 => 2 ..
  SET day = day -
��<h ( year + 3 ) / 4 + ( year + 99 ) / 100 - ( year + 3
=h99 ) / 400
  
  IF day < 0
  BEGIN
    SET year 
��>h= year - 1
    SET day = day + CASE WHEN date.IsLea
?hpYear( year ) THEN 366 ELSE 365 END
  END
  RETURN
��@Y 512 * ( cycle * 400 + year ) + day + 1
END  RETURN
-hint ) RETURNS int AS
BEGIN
  -- Given a date repre
��MhBEGIN

  DECLARE dah END
 
  DECLARE day int, year int
  SET day = PARSE
�h( s, ssix, 1 ) = ' ' BREAK
    SET ssix = ssix + 1
 
�h
  BEGIN
    IF ssix > LEN(s) BREAK
    IF SUBSTRING
�hD
  DECLARE ssix int
  SET ssix = six+1
  WHILE true
�h( s, six, 1 ) = ' ' BREAK
    SET six = six + 1
  EN
	�he
  BEGIN
    IF six > LEN(s) BREAK
    IF SUBSTRING
�hnt -- Index of first space
  SET six = 4
  WHILE tru

�h month parsing date ' | htm.Attr(ms)
  DECLARE six i
�h 12
    ELSE 0
  END  
  IF month = 0 THROW 'Unknown

�h    WHEN ms = 'Nov' THEN 11
    WHEN ms = 'Dec' THEN
�h WHEN ms = 'Sep' THEN 9
    WHEN ms = 'Oct' THEN 10

�hHEN ms = 'Jul' THEN 7
    WHEN ms = 'Aug' THEN 8
   
�hN ms = 'May' THEN 5
    WHEN ms = 'Jun' THEN 6
    W
�hms = 'Mar' THEN 3
    WHEN ms = 'Apr' THEN 4
    WHE
�h = 'Jan' THEN 1
    WHEN ms = 'Feb' THEN 2
    WHEN 
�hSUBSTRING( s, 1, 3 )
  SET month = CASE 
    WHEN ms
�hb 2 2020'
  DECLARE ms string, month int
  SET ms = 
�hing ) RETURNS int AS
BEGIN
  -- Typical input is 'Fe
�KonthDay( date.StringToDays( s ) )
ENDate.DaysToYearM
�hing ) RETURNS int AS
BEGIN
  RETURN date.DaysToYearM
�oYearMonthDay
� + 1
  END
ENDDaysToString( days + i )
    SET i = i
�h'<br>' | date.DaysToString( days + i )
    SET i = i
�h i int
  SET i = 0
  WHILE i < n
  BEGIN
    SELECT 
�h SET days = date.YearMonthDayToDays( ymd )
  DECLARE
�h days int
  SET ymd = date.YearMonthDay( y, m, d )
 
�h, m int, d int, n int ) AS 
BEGIN
  DECLARE ymd int,
0�34 * 3600 * 1000000 */
END5596800000000 /* 719162 * 2
�h  RETURN GLOBAL(0) + 62135596800000000 /* 719162 * 2
!#�hRNS int AS
BEGIN
  -- Microseconds since 1 Jan 0000

�+ 366
  RETURN day
END00000
  SET day = sec / 86400 +
"&�hc = date.Ticks() / 1000000
  SET day = sec / 86400 +
�hRNS int AS
BEGIN
  DECLARE sec int, day int
  SET se
%'�ENDN wd = 7 THEN 'Sun'
    ELSE '?weekday?'
    END

�hWHEN wd = 7 THEN 'Sun'
    ELSE '?weekday?'
    END

$,�hEN wd = 5 THEN 'Fri'
    WHEN wd = 6 THEN 'Sat'
    
�h wd = 3 THEN 'Wed'
    WHEN wd = 4 THEN 'Thu'
    WH
)+�hd = 1 THEN 'Mon'
    WHEN wd = 2 THEN 'Tue'
    WHEN
�ht ) RETURNS string AS
BEGIN
  RETURN CASE
    WHEN w
*.�512 + day
END) RETURNS int AS
BEGIN
  RETURN year * 
�hint, day int ) RETURNS int AS
BEGIN
  RETURN year * 
-/�S9 ) / 100 + ( y + 399 ) / 400
    + d
END4 - ( y + 9
�h146097 
    + y * 365 
    + ( y + 3 ) / 4 - ( y + 9
(8�hcle ( 400 * 365 + 97 leap years ).
  RETURN cycle * 
�h-- 146097 is the number of the days in a 400 year cy
13�hat least 365 days, from leap years and finally d.
  
�h -- Result days come from cycles, from years having 
26�h The Gregorian calendar repeats every 400 years.
 
 
�h= yd % 512 - 1
  SET cycle = y / 400, y = y % 400 --
57�h  -- Extract y and d from yd.
  SET y = yd / 512, d 
�hdivisible by 400.
  DECLARE y int, d int, cycle int

4<�he leap years, except if divisible by 100, except if 
�h the Gregorian calendar where days divisible by 4 ar
9;�hber of days since "day zero" (1 Jan 0000)
  -- using
�h <= 366 ( so d is day in year )
  -- returns the num
:>�hay representation stored as y * 512 + d where 1 <= d
�ht ) RETURNS int AS
BEGIN
  -- Given a date in Year/D
=?�DayToString( date.YearDayToYearMonthDay( yd ) )  
EN
�hDayToString( date.YearDayToYearMonthDay( yd ) )  
EN `�ht ) RETURNS string AS
BEGIN
   RETURN date.YearMonth
�, dim+1 )
END/ 31
  RETURN date.YearMonthDay( y, m+1
AC�h- dim + 28 ) / 31
  RETURN date.YearMonthDay( y, m+1
�h35 -- Dec
    END
  SET dim = d - fdm
  SET m = ( d 
BF�h4 -- Oct
    WHEN d < 335 THEN 305 -- Nov
    ELSE 3
�hHEN d < 274 THEN 244 -- Sep
    WHEN d < 305 THEN 27
EG�hEN 182 -- Jul
    WHEN d < 244 THEN 213 -- Aug
    W
�h    WHEN d < 182 THEN 152 -- Jun
    WHEN d < 213 TH
DL�h121 THEN 91 -- Apr
    WHEN d < 152 THEN 121 -- May

�h -- Feb
    WHEN d < 91 THEN 60 -- Mar
    WHEN d < 
IK�h   WHEN d < 31 THEN 0 -- Jan
    WHEN d < 60 THEN 31
�hT leap AND d >= 59 SET d = d + 1
  SET fdm = CASE 
 
JN�hy )
  -- Jan = 0..30, Feb = 0..27 or 0..28  
  IF NO
�h SET d = yd % 512 - 1
  SET leap = date.IsLeapYear( 
MO�hp bool, fdm int, m int, dim int
  SET y = yd / 512
 
�ht ) RETURNS int AS
BEGIN
  DECLARE y int, d int, lea
HX�ToYearMonthDay
�KURN year * 512 + month * 32 + day
END AS
BEGIN
  RET
QS�hint, month int, day int ) RETURNS int AS
BEGIN
  RET
�Us( date.YearMonthDayToYearDay( ymd ) )
ENDarDayToDay
RV�hnt ) RETURNS int AS
BEGIN
  RETURN date.YearDayToDay
�thDayToDays
UW�=ng(m) | ' ' | d | ' ' |  y
ENDETURN date.MonthToStri
�h = m / 16
  SET m = m % 16
  RETURN date.MonthToStri
T\�h d int
  SET d = ymd % 32
  SET m = ymd / 32
  SET y
�hnt ) RETURNS string AS
BEGIN
  DECLARE y int, m int,
Y[�thDayToString
�, d )
END y ) SET d = d - 1
  RETURN date.YearDay( y
Z^�hLeapYear( y ) SET d = d - 1
  RETURN date.YearDay( y
�hdays in a non-leap-year.
  IF m >= 3 AND NOT date.Is
]_�h335 -- Dec
    END
  -- Allow for Feb being only 28 
�h274 -- Oct
    WHEN m = 11 THEN 305 -- Nov
    ELSE Pp�h    WHEN m = 9 THEN 244 -- Sep
    WHEN m = 10 THEN 
�h = 7 THEN 182 -- Jul
    WHEN m = 8 THEN 213 -- Aug

ac�h121 -- May
    WHEN m = 6 THEN 152 -- Jun
    WHEN m
�hr
    WHEN m = 4 THEN 91 -- Apr
    WHEN m = 5 THEN 
bf�hEN m = 2 THEN 31 -- Feb
    WHEN m = 3 THEN 60 -- Ma
�hSET d = d + CASE
    WHEN m = 1 THEN 0 -- Jan
    WH
eg�hncorporate m into d ( assuming Feb has 29 days ).
  
�h, m = ymd / 32  
  SET y = m / 16, m = m % 16
  -- I
dl�hint
  -- Extract y, m, d from ymd
  SET d = ymd % 32
�hnt ) RETURNS int AS
BEGIN
  DECLARE y int, m int, d 
ik�thDayToYearDay
�d?'  
END    SET i = i + 1
  END
  RETURN '?bad colI
jn�hN result
    SET i = i + 1
  END
  RETURN '?bad colI
�hn WHERE Table = table
  BEGIN
    IF i = colId RETUR
mo�hi int
  SET i = 0
  FOR result = Name FROM sys.Colum
�h int, colId int ) RETURNS string AS
BEGIN
  DECLARE hx�MoteName(col)
  RETURN result | ')'
END= ',' | sys.Qu
�hn WHERE Table = table
    SET result |= ',' | sys.Qu
qs�h  SET result = '(Id'
  FOR col = Name FROM sys.Colum
�h int ) RETURNS string AS
BEGIN
  DECLARE col string

rv�e SET result |= '|'',''|' | col
  RETURN result
END  
�hName
  END
  FROM sys.Column WHERE Table = table
   
uw�h= 130 THEN 'sys.SingleQuote(' | Name | ')'
    ELSE 
�h  SET result = 'Id'
  FOR col = CASE 
    WHEN Type t|�h int ) RETURNS string AS
BEGIN
  DECLARE col string

�aELSE ',' | col END
  RETURN '(' | list | ')'
ENDcol 
y{�htable
    SET list |= CASE WHEN  list = '' THEN col 
�h sys.TypeName(Type)
  FROM sys.Column WHERE Table = z~�h list string
  FOR col = sys.QuoteName(Name) | ' ' |
�h int ) RETURNS string AS
BEGIN
  DECLARE col string,}��name )
ENDuoteName( schema ) | '.' | sys.QuoteName( 
�hTURN sys.QuoteName( schema ) | '.' | sys.QuoteName( 
��ha string, name string ) RETURNS string AS
BEGIN
  RE
h sys.Dot(schema,name) )
  -- FOR name = Name FROM sy
zhys.Function WHERE Schema = sid EXECUTE( 'DROP FN ' |
yhM sys.Schema WHERE Id = sid
  FOR name = Name FROM s
xhE schema string, name string
  SET schema = Name FRO
wh instead use DROP SCHEMA statement */
BEGIN
  DECLAR
	vhnt ) AS
/* Note: this should not be called directly,
uiE Table = t
  DELETE FROM sys.Table WHERE Id = t
END

thwse.Table WHERE Id = t
  DELETE FROM sys.Column WHER
shid
  END
  /* Delete other data */
  DELETE FROM bro

rh t
  BEGIN
    DELETE FROM browse.Column WHERE Id = 
qh data */
  FOR id = Id FROM sys.Column WHERE Table =
phOM sys.Index WHERE Table = t
   /* Delete the column
ohM sys.IndexColumn WHERE Index = id
  END
  DELETE FR
nhROM sys.Index WHERE Table = t
  BEGIN
    DELETE FRO
mhid int
  /* Delete the Index data */
  FOR id = Id F
lhinstead use DROP TABLE statement */
BEGIN
  DECLARE 
kh ) AS 
/* Note: this should not be called directly, 
jO WHERE Table = t AND ColId >= colId
ENDd = ColId - 1
ih  END
  UPDATE sys.IndexColumn SET ColId = ColId - 1
hh sys.IndexName(index) | ' ON ' | sys.TableName(t) )

gh    IF index = 0 BREAK 
    EXECUTE( 'DROP INDEX ' |
fhM sys.IndexColumn WHERE Table = t AND ColId = colId

eh
  BEGIN
    SET index = 0
    SET index = Index FRO
dhng ALTER TABLE */
  DECLARE index int
  WHILE 1 = 1 
ch, colId int ) AS 
BEGIN 
  /* Called internally duri
b
)'
ENDcol ELSE ',' | col END
  RETURN '(' | list | '
ah THEN col ELSE ',' | col END
  RETURN '(' | list | '
0`hE Index = index
    SET list |= CASE WHEN  list = ''
_hs.ColName( table, ColId )) FROM sys.IndexColumn WHER
!#^h.Index WHERE Id = index
  FOR col = sys.QuoteName(sy
]hlist string, col string
  SET table = Table FROM sys
"&\h int ) RETURNS string AS
BEGIN
  DECLARE table int, 
[coteName(Name) FROM sys.Index WHERE Id = index
END.Qu
%'Zh int ) RETURNS string AS
BEGIN
  SET result = sys.Qu
YWumn WHERE Table = t AND ColId = colId )
END.IndexCol
$,Xhied = 1 WHERE Id IN ( SELECT Index FROM sys.IndexCol
Wh, colId int ) AS 
BEGIN
  UPDATE sys.Index SET Modif
)+V5( s, ']', ']]' ) | ']'
ENDGIN
  RETURN '[' | REPLACE
Uhing ) RETURNS string AS
BEGIN
  RETURN '[' | REPLACE
*.TEND| ' ON ' | sys.TableName( table ) | cols )
  END

Shme | ' ON ' | sys.TableName( table ) | cols )
  END

-/RhbleName( table ) )
    EXECUTE( 'CREATE INDEX ' | na
Qh
    EXECUTE( 'DROP INDEX ' | name | ' ON ' | sys.Ta
(8Phls( Id )
  FROM sys.Index WHERE Modified = 1
  BEGIN
Oh  FOR table = Table, name = Name, cols = sys.IndexCo
13NhBEGIN
  DECLARE table int, name string, cols string

M!eModifiedIndexes
26LM FROM sys.Schema WHERE Id = schema
END result = Name
Kha int) RETURNS string AS 
BEGIN 
  SET result = Name
57J? = cid
  END
  SELECT '
GO'
ENDrowse.Column WHERE Id
Ihe(ParseFunction)|')'
    FROM browse.Column WHERE Id
4<Hh|sys.SingleQuote(DisplayFunction)|','|sys.SingleQuot
Ghte(InputFunction)
      |','|InputRows|','|Style|','
9;FhSingleQuote(Default)|','|InputCols|','|sys.SingleQuo
EhingleQuote(Description)
      |','|RefersTo|','|sys.
:>DhPosition|','|sys.SingleQuote(Label)
      |','|sys.S
ChayFunction],[ParseFunction]) 
VALUES (cid, '
      |
=?BhnputCols],[InputFunction],[InputRows],[Style],[Displ
Ahition],[Label],[Description],[RefersTo],[Default],[I `@hleQuote(cname) | '
INSERT INTO browse.Column(Id,[Pos
?hsys.Column WHERE Table = tid AND Name = ' | sys.Sing
AC>hHERE Table = t
  BEGIN
    SELECT '
SET cid=Id FROM 
=hme string
  FOR cid=Id, cname=Name FROM sys.Column W
BF<hOM browse.Table WHERE Id = t

  DECLARE cid int, cna
;hsys.SingleQuote(Description) | ',' | Role | ')'
  FR
EG:htOrder) | ',' | sys.SingleQuote(Title) | ',' 
    | 
9h(SelectFunction) 
    | ',' | sys.SingleQuote(Defaul
DL8h| sys.SingleQuote(NameFunction) |','|sys.SingleQuote
7hOrder, Title, Description, Role) 
VALUES (tid,'
    
IK6hrowse.Table(Id,NameFunction, SelectFunction, Default
5h= ' | sys.SingleQuote(tname) 
SELECT '
INSERT INTO b
JN4htid = Id FROM sys.Table WHERE Schema = sid AND Name 
3hema WHERE Name = ' | sys.SingleQuote(sname) | '
SET 
MO2h tid int, sid int, cid int
SET sid = Id FROM sys.Sch
1he FROM sys.Schema WHERE Id = sid

  SELECT '
DECLARE
HX0h= Name FROM sys.Table WHERE Id = t
  SET sname = Nam
/hname string, sname string
  SET sid = Schema, tname 
QS.hd) by name in case they change.
  DECLARE sid int, t
-h t.
  -- Looks up Table and Column Id values (tid,ci
RV,h ) AS
BEGIN
  -- Script browse information for Table
+ END
END EXECUTE( val )
      SELECT 'GO
'
    END
 
UW*hns
      EXECUTE( val )
      SELECT 'GO
'
    END
 
)hRE Schema = s ORDER BY Name
    BEGIN
      SELECT i
T\(h ' FROM ' | sys.TableName(Id)
    FROM sys.Table WHE
'h = 'SELECT ''(''|' | sys.ColValues(Id) | '|'')
''' |
Y[&hme(Id) | sys.ColNames(Id) | ' VALUES 
',
        val
%hl string
    FOR ins = '
INSERT INTO ' | sys.TableNa
Z^$hsname != 'browse'
  BEGIN
    DECLARE ins string, va
#h***** Script Data *******/

  IF sname != 'sys' AND 
]_"h'
GO' 
  FROM sys.Function  WHERE Schema = s 

  /**
!hSELECT '
CREATE FN ' | sys.Dot( sname,Name) | Def | Pp h END
  END

  /******* Script functions *******/

  
h BY Name
    BEGIN
      EXEC sys.ScriptTable(t)
   
ach    FOR t = Id FROM sys.Table WHERE Schema = s ORDER
hCHEMA ' | sys.QuoteName( sname )

    DECLARE t int

bfh###########################################
CREATE S
hs */
  
  IF sname != 'sys'
  BEGIN
    SELECT '
--#
eghchemaName(s)

  /* Create the schema, tables, indexe
h ) AS
BEGIN
  DECLARE sname string SET sname = sys.S
dl;sys.ScriptBrowse(t)
  END
END Name
  BEGIN
    EXEC 
hble WHERE Schema = s ORDER BY Name
  BEGIN
    EXEC 
ikh ) AS
BEGIN
  DECLARE t int
  FOR t = Id FROM sys.Ta
chemaBrowse
jn?IndexCols(ix) | '
GO'
  END
ENDs.TableName(t) | sys.
hs.QuoteName(name) | ' ON ' | sys.TableName(t) | sys.
mohE Table = t
  BEGIN
    SELECT '
CREATE INDEX ' | sy
htring
  FOR ix = Id, name = Name FROM sys.Index WHERhxhe(t) | sys.Cols(t) | ' 
GO'
  DECLARE ix int, name s
h ) AS
BEGIN
  SELECT '
CREATE TABLE ' | sys.TableNam
qs?E( s, '''', '''''' ) | ''''
END RETURN '''' | REPLAC

hing ) RETURNS string AS
BEGIN
  RETURN '''' | REPLAC
rv/a WHERE Id = schema
END( Name, name ) FROM sys.Schem
h
  SET result = sys.Dot( Name, name ) FROM sys.Schem
uw
h sys.Table WHERE Id = table
  IF name = '' RETURN ''
	h name string
  SET schema = Schema, name = Name FROMt|h int ) RETURNS string AS
BEGIN
  DECLARE schema int,

ND
END t = 130 THEN 'string'
    ELSE '??type??'
  E
y{h  WHEN t = 130 THEN 'string'
    ELSE '??type??'
  E
h= 68 THEN 'double'
    WHEN t = 129 THEN 'binary'
  z~hN 'float' 
    WHEN t = 67 THEN 'bigint'
    WHEN t 
hlint'
    WHEN t = 35 THEN 'int'
    WHEN t = 36 THE}�h  WHEN t = 13 THEN 'bool'
    WHEN t = 19 THEN 'smal

h t = 0 THEN 'none'
    WHEN t = 11 THEN 'tinyint'
  
�h ) RETURNS string AS 
BEGIN 
  RETURN CASE 
    WHEN




SchemaName�( schemK
	
�RecreatM�() AS 
N


	QuoteName�( s strU
	
ModifiedColumn�( t intW

	IndexName�( indexZ



	IndexCols�( index\


DroppedColumn�( t intc


	DropTable�( t intk


DropSchema�( sid iv

Dot�( schem�

Cols�( table�

	ColValues�( table�

ColNames�( table�

ColName�( table�
�YearMon��( ymd i�
�YearMon��( ymd i�
�YearMon��( ymd i�
YearMonthDay�( year �
�YearDay��( yd in�
YearDayToString�( yd in
�

YearDayToDays�( yd in�
YearDay�( year �
WeekDayToString�( wd in�
Today�() RETU�
 Ticks�() RETU�
0!Test�( y int�
"�StringT��( s str�
#!#StringToDays�( s str�
$	NowString�() RETU

&"%
MonthToString�( m int


&
IsLeapYear�( y int

'%'�DaysToY
�( days 

(
DaysToYearDay�( days -
,$)DaysToString�( date *

*Encode�( s str-

+)+Attr�( s str0

,Trailer�() AS
B3

.*-	SetCookie�( name 4

.SetContentType�( ct st7

/-/
SendBinary�( c
onte9

0Redirect�( url s;

8(1Query�( name >

2Path�() RETU@

313Main�() AS 
A

4Head�( titleQ

625Form�( name ^

6Cookie�( name `

757	UpdateSql�( tablew

8
TableTitle�( table�

<49TableSelect�( colId�

:ShowSql�( table�

;9;SchemaSelect�( colId�

<	ParseBool�( s str�

>:=	InsertSql�( table�

>InsertNames�( table�

?=?�InputYe�
�( colId�

@InputString�( colId�

P AInputInt�( colId�

BInputDouble�( colId�

CAC	InputBool
�( colId�

DInputBinary�( colId�

FBE
FormUpdateSql�( table�

F
FormInsertSql�( table
GEGDefaultInput�( type 
HDefaultDefault�( type %
LDI	ColValues�( table)
JColPos�( c int9
KIK	ColParser�( colId<
LColNames�( tableE
NJMChildSql�( colIdL
N�BrowseCm�( k intn
OMO
/ShowTable�() AS 
q
P/ShowSchema�() AS
B�`HQ/ShowRow�() AS 
�
R
/OrderSummary�() AS
B�
SQS/Menu�() AS
B�
T/Manual�() AS B�
VRU	/ListFile�() AS
B�
V/FileUpload�() AS
B�
WUW/Execute
�() AS 
�
X	/EditView�() AS
B�
\TY/EditRow�() AS 
�
Z	/EditFunc�() AS
B�
[Y[	/EditFile�() AS
B�
\/Dump�() AS 

^Z]	/CheckAll�() AS 
	
^/BrowseInfo�() AS 

_]_/BrowseColInfo�() AS 

`/AddRow�() AS 
-
dXa	/AddChild�() AS
B:
b
MakeOrders�() AS
BI
cac
CustSelect�( colIdN
dCustName�( cust Yhbe
PersonName�( id in]
fMotherSelect�( colIdb
gegFatherSelect�( colIdr
hTesting�() AS
�
ifj/Slow�() AS
�jk
TestRoundTrip�() AS
M

ModifiedColumn

	IndexName



	IndexCols


DroppedColumn


	DropTable


DropSchema

Dot

Cols
	ColValues

ColNames

ColName
�YearMon�
�YearMon�
�YearMon�
YearMonthDay
�YearDay�
YearDayToString

YearDayToDays
YearDay
WeekDayToString
Today  Ticksj!Test
%"�StringT�
#StringToDays
$"$	NowString
%
MonthToString'#&
IsLeapYear
'�DaysToY
(&(
DaysToYearDay))DaysToString
*Encode6+Attr
D,Trailer
-	SetCookie
1H.SetContentType
/
SendBinary
0.0Redirect
1Query5/2Path
3Main
424Head
5Form
*36Cookie
7	UpdateSqla8
TableTitle<T9TableSelect
:ShowSql
;9;SchemaSelect
<	ParseBool@:=	InsertSql
>InsertNames
?=?�InputYe�

@InputString
B>AInputInt
BInputDouble
CAC	InputBool
DInputBinary-8E
FormUpdateSql
F
FormInsertSql
GEGDefaultInput
HDefaultDefaultLFI	ColValues
JColPos
KIK	ColParser
LColNames
NJMChildSql
N�BrowseCm
,MO
/ShowTable
P/ShowSchema
RiQ/ShowRow
R
/OrderSummary
SQS/Menu
T/Manual
\cU	/ListFile
V/FileUpload
WUW/Execute
X	/EditView
ZVY/EditRow
Z	/EditFunc
[Y[	/EditFile
\/Dump
`X]	/CheckAll
^/BrowseInfo
_]_/BrowseColInfo
`/AddRow
7^a	/AddChild
b
MakeOrders
c
CustSelect
PfdCustName
e
PersonName
fMotherSelecthegFatherSelect
hTesting
bgj/Slow
Odk
TestRoundTrip




,

.�date.Da��browse.��date.Ye��date.St�
#!�
D-!�
FA!�
GKA�
H
2!�
I!�
J!�
K!�
L#!�
M
-!�
N7!�
O
!�
P(!�
Q2!�
R
<��
SF!�0T!�
U#!�
#!V

!�
W!�
&"X!�
Y(!�
'%Z
2!�
[���
,$\
F��
]
7-�
+)^7!�
_
!�
.*`!�
a!�
/-b(!�
c2!�8(d
!�
e
c!�
31fc!�
go!�
62h
2!�
i
c!�
75j
!�
k
8!�@4lc!�
mC"�
;9n!�
o
c!�
>:p!�
q{!�
?=r
8!�
s
M!�
C<t
c��
u
c��Av�j�
EBx!�B
ycj�
FDzxv�


'N
O

P$Q
%R

#S
T
U
0V

W
 X,Y4Z

*[
/!\

]

1)^
_
`
a
b
c
d

e

8f
9.g=-h

i

75j

k
?6l
m
C3n
o

p>q
r
A<s

t

B@u

v
E;x
y
z
D�

TypeC
	RootC
TableC


Name�
IndexC

ColIdC
SchemaC
Name�
Def�
Path�
ContentType�

ContentLength#
Content�
Position#
Label�
Description�
RefersTo#
Default�
	InputCols#

InputFunction�
	InputRows#
Style#
 DisplayFunction�(!
ParseFunction�
"	NameFunction�
#!#	SelectFunction�
$	DefaultOrder�
&"%	Title�
&	Description�
'%'	Role#
(
	FirstName�
,$)
LastName�
*
Age#
+)+
Postcode�
,Cust#
.*-Total#
.Date#-G
x�H
yC
/


%





"
 !
"	
)#	$$	
%	
&#&	''	
(
.)
*-*
++

,
-(,.
G
H/l
File
Column/
	Table

Cust

	Order{
ETest�
AdamBaker
GeorgeBarwoodYY@GL2 4LZ
		Fred
FlintstoneXXYZ


�TableSelect
�SchemaSelect
�ct>'
END '' END | ' value=0></option>'
    | '</sele
�hed' ELSE '' END | ' value=0></option>'
    | '</sele
h 
    | '<option ' | CASE WHEN sel = 0 THEN ' select
	~hid="' | col | '" name="' | col | '">' 
    | options
}hth, BirthDay
  SET options |= opt
  RETURN '<select 

|h
  ORDER BY Surname, Firstname, BirthYear,  BirthMon
{hle AND Id != k AND ( BirthYear < by - 10 OR by = 0 )

zhName(Id) ) | '</option>'
  FROM ft.Person
  WHERE Ma
yh 
    | ' value=' | Id | '>' | htm.Encode( ft.Person
xh ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END
whon WHERE Id = PARSEINT(ks)  
  
  FOR opt = '<option
vh IF ks != '' SET k = Id, by = BirthYear FROM ft.Pers
uhby int, k int, ks string SET ks = web.Query( 'k' )
 
tholId
  DECLARE opt string, opFh>'
    | '<p><input type=submit value=Save></form>'


h>Path: <input name=path size=50 value="' | Path | '"
h<h1>Edit File Path</h1>'
  SELECT '<form method=post
�hERE Id = k
  EXEC web.Head( 'Edit File' )
  SELECT '
�h)
  IF path != '' UPDATE web.File SET Path = path WH
	�h) )
  DECLARE path string SET path = web.Form('path'
�hEGIN
  DECLARE k int SET k = PARSEINT( web.Query('k'

�5 
  EXEC web.Trailer()
ENDxtarea>' 
     | '</form>'
�h | htm.Encode(def) | '</textarea>' 
     | '</form>'

�hND
     | '<br><textarea name=def rows=40 cols=150>'
�h'handler' THEN ' <a href=' | n | '>Go</a>' ELSE '' E
�h| s | '>' | s | '</a> . ' | n 
     | CASE WHEN s = 
�ht type=submit value="ALTER"> <a href=ShowSchema?s=' 
�h  SELECT 
     '<p><form method=post>'
     | '<inpu
�h IF ex != '' SELECT '<p>Error: ' | htm.Encode( ex )

�h= sid AND Name = n 
  EXEC web.Head( 'Edit ' | n )
 
F�h  ELSE SET def = Def FROM sys.Function WHERE Schema 
�hsys.Dot(s,n) | def )
    SET ex = EXCEPTION()
  END

�h
  IF def != '' 
  BEGIN
    EXECUTE( 'ALTER FN ' | 
�hLARE def string, ex string SET def = web.Form('def')
�hnt SET sid = Id FROM sys.Schema WHERE Name = s
  DEC
�hLARE n string SET n = web.Query('n')
  DECLARE sid i
�hEGIN
  DECLARE s string SET s = web.Query('s')
  DEC
�]t value=Save></form>'
  EXEC web.Trailer()
END=submi
�h k ) )
  SELECT '<p><input name="$submit" type=submi
�hethod=post>' 
  
  EXECUTE( browse.FormUpdateSql( t,
�hLECT '<p>Error: ' | htm.Encode(ex)
  SELECT '<form m
0�h 'Edit ' | browse.TableTitle( t ) )
  IF ex != '' SE
�h | k )
      RETURN
    END
  END
 
  EXEC web.Head(
!#�hIN
      EXEC web.Redirect( 'ShowRow?t=' | t | '&k='
�h ) 
    SET ex = EXCEPTION()
    IF ex = '' 
    BEG
"&�h!= '' 
  BEGIN
    EXECUTE( browse.UpdateSql(F t, k )
�h') )
  DECLARE ex string
  IF web.Form( '$submit' ) 
%'�ht') )
  DECLARE k int SET k = PARSEINT( web.Query('k
�hBEGIN 
  DECLARE t int SET t = PARSEINT( web.Query('
$,�C</form>'
  EXEC web.Trailer()
ENDtextarea>'
     | '
�hols=100>' | htm.Encode(def) | '</textarea>'
     | '
)+�h n | ' AS '
     | '<br><textarea name=def rows=20 c
�h"> <a href=ShowSchema?s=' | s | '>' | s | '</a> .' |
*.�h=post>'
     | '<input type=submit value="ALTER VIEW
�hr :' | htm.Encode( ex )
  SELECT 
     '<form method
-/�heb.Head( 'Edit ' | n )
  IF ex != '' SELECT '<p>Erro
�hRE Schema = sid AND Name = n AND IsView = 1
  EXEC w
(8�hTION()
  END
  ELSE SET def = Def FROM sys.Table WHE
�h' | sys.Dot(s,n) | ' AS ' | def )
    SET ex = EXCEP
13�h')
  IF def != '' 
  BEGIN
    EXECUTE( 'ALTER VIEW 
�hLARE def string, ex string
  SET def = web.Form('def
26�hnt SET sid = Id FROM sys.Schema WHEREF Name = s
  DEC
�hLARE n string SET n = web.Query('n')
  DECLARE sid i
57�hEGIN
  DECLARE s string SET s = web.Query('s')
  DEC
�Ye]() AS BEGIN END'
   EXEC web.Trailer()
END.[/MyPag
4<�hGROUP BY Cust'
     | '<br>CREATE FN handler.[/MyPag
�hUM(Total) as Total, COUNT() as Count FROM dbo.Order 
9;�h '<br>CREATE VIEW dbo.OrderSummary AS SELECT Cust, S
�hREATE INDEX ByLastName on dbo.Cust(LastName)'
     |
:>�h dbo.Cust( LastName string, Age int )'
     | '<br>C
�hate.Test( 2020, 1, 1, 60 )'
     | '<br>CREATE TABLE
=?�hELECT Cust, Total FROM dbo.Order'
     | '<br>EXEC d
�hstName(Id) AS Name, Age FROM dbo.Cust'
     | '<br>S `�h  SELECT '<p>Example SQL:'
     | '<br>SELECT dbo.Cu
�hx != '' SELECT '<p>Error : ' | htm.Encode(ex)
  END

AC�h
    DECLARE ex string SET ex = EXCEPTION()
    IF e
�h tables
    EXECUTE( sql ) 
    -- EXEC SETMODE( 0 )
BF�h 1 ) -- Causes result tables Fto be displayed as HTML
�hform>' 
  IF sql != '' 
  BEGIN
    -- EXEC SETMODE(
EG�h | '>' | htm.Encode(sql) | '</textarea>' 
     | '</
�hnter SQL here. See Manual for details."' ELSE '' END
DL�h0 cols=100' | CASE WHEN sql='' THEN ' placeholder="E
�halue=Execute>'
     | '<br><textarea name=sql rows=2
IK�hrm method=post>'
     | 'SQL to <input type=submit v
�h
  EXEC web.Head( 'Execute' )
  SELECT 
     '<p><fo
JN�hBEGIN
  DECLARE sql string SET sql = web.Form('sql')
�+XEC web.Trailer()
ENDubmit value=Upload></form>'
  E
MO�hut name=submit type=submit value=Upload></form>'
  E
�hart/form-data"><p><Input name=file type=file><p><inp
HX�h )
  END
  SELECT '<form method=post enctype="multip
�hLEATTR(0,2), FILEATTR(0,1), BINLEN(content), content
QS�hntentLength, Content )
    VALUES ( '/Uploads/' | FI
�h    
    INSERT INTO web.File( Path, ContentType, Co
RV�hECLARE content binaryF SET content =  FILECONTENT(0)

�hILEATTR(0,2) | ' ContentType=' | FILEATTR(0,1)
    D
UW�h0,0) = 'file' 
  BEGIN
    SELECT '<p>Filename=' | F
�hEGIN
  EXEC web.Head( 'File upload' )
  IF FILEATTR(
T\�Aeb.File
  EXEC web.Trailer()
ENDt Path</a>'
  FROM w
�href="/EditFile?k=' | Id | '">Edit Path</a>'
  FROM w
Y[�h | ' Length=' | ContentLength | ' id=' | Id | ' <a h
�hPath | '">' | Path | '</a> Type= ' | ContentType 
  
Z^�h/h1>' 
  SELECT '<p>Path=<a target=_blank href="' | 
�hEGIN
  EXEC web.Head( 'Files' )
  SELECT '<h1>Files<
]_�Qay and string.
' 
EXEC web.Trailer()
ENDYear-Month-D
�hbetween Days ( from year 0 ), Year-Day, Year-Month-DPp�h>Has functions for manipulating dates - conversions 
�hng arbitrary tables in the database.
<h3>date</h3><p
ac�hh3><p>Has tables and functions for displaying, editi
�hHas functions related to encoding html.
<h3>browse</
bf�h procedures, Fone for each web page.
<h3>htm</h3>
<p>
�hndling web requests.
<h3>handler</h3>
<p>Has handler
eg�huests ( web.main ) and other functions related to ha
�h3>web</h3>
<p>Has the procedure that handles web req
dl�hables for language objects and related functions.
<h
�hfined schemas</h2>
<h3>sys</h3>
<p>Has core system t
ik�h joins. No outer references.
<h2>Guide to the pre-de
�h added to a table by ALTER TABLE.
<p>No triggers. No
jn�h if not specified by INSERT, or when new columns are
�hNo nulls. Columns are initialised to default a value
mo�hns, views etc. must always be stated explicitly.
<p>
�hdefault schemas. Schema of tables, routines, functiohx�hes cannot be assigned in a DECLARE statement.
<p>No 
�h
<p>No cursors ( use FOR instead ).
<p>Local variabl
qs�htring SET s = Name FROM sys.Schema WHERE Id = schema
�hOR is used, can be FROM a table, e.g.
<p>DECLARE s s
rv�hles cFannot be assigned with SELECT, instead SET or F
�hy must be enclosed by BEGIN ... END.
<p>Local variab
uw�hCEDURE parameters are in brackets, the procedure bod
�h DELETE all rows. This is a "safety" feature.
<p>PROt|�hERE true can be used if you really want to UPDATE or
�his not optional in UPDATE and DELETE statements - WH
y{�he Id will raise an exception ). 
<p>WHERE condition 
�he unique ( an attempt to insert or assign a duplicatz~�ht specified in an INSERT statement. Id values must b
�h specified ), which is automatically filled in if no}��hly gets an integer Id field ( it does not have to be
�h varbinary(max) in MSSQL.
<p>Every table automatical
��he is a single binary datatype "binary" equivalent to
d ) V
��hALUES ( k )
  IF web.Form( '$submit' ) != '' 
  BEGI
hN
    EXECUTE( browse.UpdateSql( tid, k ) ) 
    EXE
��hC web.Redirect( 'ShowTable?k=' | k )
  END
  ELSE
  

 WHERE 
rvh'k' ) )
  DECLARE tid int SET tid = 9
  DECLARE ok i
hBEGIN 
  DECLARE k int SET k = PARSEINT( web.Query( 
uw1  EXEC web.Trailer()
ENDtm.Encode(ex)
    END
  END

hELECT '<br>Error : ' | htm.Encode(ex)
    END
  END
t|hE ex string SET ex = EXCEPTION()
      IF ex != '' S
hECUTE( 'CHECK ' | sname | '.' | fname )
      DECLAR
y{hELECT '<br>Checking ' | sname | '.' | fname
      EX

hsys.Function WHERE Schema = sid
    BEGIN
      -- Sz~hma
  BEGIN
    FOR fname = sys.QuoteName(Name) FROM 
h sid = Id, sname = sys.QuoteName(Name) FROM sys.Sche}�
h
  DECLARE sid int, sname string, fname string
  FOR
	hBEGIN
  EXEC web.Head('Check All Functions compile')
�ays.Schema
    EXEC sys.ScriptSchemaBrowse(s)
ENDOM s
�hl int
SET n = 0
WHILE n < 10000 -- Intended to tak
�he a long time
BEGIN
  SET n = n + 1
  FOR a = y F
�
�hROM dbo.Test  
  BEGIN
    SET tota
bf$hF ok != c INSERT INTO browse.Column( Id ) VALUES ( c
#h 0
  SET ok = Id FROM browse.Column WHERE Id = c
  I
eg"hOM sys.Column WHERE Id = c
  DECLARE ok int SET ok =
!ht, colName string
  SET t = Table, colName = Name FR
dl h SET c = PARSEINT( web.Query( 'k' ) )
  DECLARE t in
hBEGIN 
  DECLARE tid int SET tid = 8
  DECLARE c int
ikKrm>'
    EXEC web.Trailer()
  END
ENDvalue=Save></fo
h<p><input name="$submit" type=submit value=Save></fo
jnhECUTE( browse.FormUpdateSql( tid, k ) )
    SELECT '
hbleName(k) )
    SELECT '<form method=post>' 
    EX
mohBEGIN
    EXEC web.Head( 'Browse Info for ' | sys.Ta
hC web.Redirect( 'ShowTable?k=' | k )
  END
  ELSE
  hxhN
    EXECUTE( browse.UpdateSql( tid, k ) ) 
    EXE
hALUES ( k )
  IF web.Form( '$submit' ) != '' 
  BEGI
qshId = k
  IF ok != k INSERT INTO browse.Table( Id ) V
hnt SET ok = 0
  SET ok = Id FROM browse.Table
hweb.Head( 'Add ' | browse.TableTitle( t ) )
  IF ex 
3h' | LASTID() )
      RETURN
    END
  END
  
  EXEC 
UW2hGIN
      EXEC web.Redirect( 'ShowRow?t=' | t | '&k=
1h) ) 
    SET ex = EXCEPTION()
    IF ex = '' 
    BE
T\0hd = LASTID()
    EXECUTE( browse.InsertSql( t, 0, 0 
/h != '' 
  BEGIN
    DECLARE lastid int
    SET lasti
Y[.ht') )
  DECLARE ex string
  IF web.Form( '$submit' )
-hBEGIN 
  DECLARE t int SET t = PARSEINT( web.Query('
Z^,S</form>'
    EXEC web.Trailer()
  END
ENDvalue=Save>
+hCT '<p><input name="$submit" type=submit value=Save>
]_*h  EXECUTE( browse.FormUpdateSql( tid, c ) )
    SELE
)h1>Column ' | colName | '</h1><form method=post>' 
  Pp(h EXEC web.Head( 'Column ' | colName )
    SELECT '<h
'hirect( 'ShowTable?k=' | t )
  END
  ELSE
  BEGIN
   
ac&hCUTE( browse.UpdateSql( tid, c ) ) 
    EXEC web.Red
%h )
  IF web.Form( '$submit' ) != '' 
  BEGIN
    EXE

tions string
  DECLARE 
shl string SET col = Name FROM sys.Column WHERE Id = c
rh int, sel int ) RETURNS string AS
BEGIN
  DECLARE co
q! '</select>'
END '' END | ' value=0></option>'
    |
ph' selected' ELSE '' END | ' value=0></option>'
    |
oh options 
    | '<option ' | CASE WHEN sel = 0 THEN 
nh<select id="' | col | '" name="' | col | '">' 
    |
mhBirthMonth, BirthDay
  SET options |= opt
  RETURN '
lhby = 0 )
  ORDER BY Surname, Firstname, BirthYear,  
khNOT Male ) AND Id != k AND ( BirthYear < by - 10 OR 
jhName(Id) ) | '</option>'
  FROM ft.Person
  WHERE ( 
ih 
    | ' value=' | Id | '>' | htm.Encode( ft.Person
0hh ' | CASE WHEN Id = sel THEN ' selected' ELSE '' END
ghon WHERE Id = PARSEINT(ks)  
  
  FOR opt = '<option
!#fh IF ks != '' SET k = Id, by = BirthYear FROM ft.Pers
ehby int, k int, ks string SET ks = web.Query( 'k' )
 
"&dholId
  DECLARE opt st
ring, options string
  DECLARE 
chl string SET col = Name FROM sys.Column WHERE Id = c
%'bh int, sel int ) RETURNS string AS
BEGIN
  DECLARE co
aG
  FROM ft.Person WHERE Id = id
ENDhYear ELSE '' END
$,`hE WHEN DeathYear > 0 THEN '' | DeathYear ELSE '' END
_h THEN '' | BirthYear ELSE '' END 
   | '-' 
   | CAS
)+^h | ' ' | Surname | ' ' 
   | CASE WHEN BirthYear > 0
]ht ) RETURNS string AS
BEGIN
  SET result = Firstname
*.\-st WHERE Id = cust
ENDe | ' ' | LastName FROM dbo.Cu
[h SET result = FirstName | ' ' | LastName FROM dbo.Cu
-/Zh | cust -- default in case Cust row does not exist
 
Yhint ) RETURNS string AS
BEGIN
  SET result = 'Cust '
(8X#| '</select>'
END '' END | ' value=0></option>'
    
Wh ' selected' ELSE '' END | ' value=0></option>'
    
13Vh| options 
    | '<option ' | CASE WHEN sel = 0 THEN
UhTURN '<select id="' | col | '" name="' | col | '">' 
26ThDER BY LastNa
me, FirstName
  SET options |= opt
  RE
Shbo.CustName(Id) ) | '</option>'
  FROM dbo.Cust
  OR
57RhLSE '' END 
  | ' value=' | Id | '>' | htm.Encode( d
Qh= '<option ' | CASE WHEN Id = sel THEN ' selected' E
4<PholId
  DECLARE opt string, options string
  FOR opt 
Ohl string SET col = Name FROM sys.Column WHERE Id = c
9;Nh int, sel int ) RETURNS string AS
BEGIN
  DECLARE co
MS%7) ) / 100 ) 
    SET @I=@I+1 
  END
END* (@I%11+@I
:>Lh[Order](Cust,Total) VALUES(1+@I%7, ( 501 * (@I%11+@I
Kho stress system a bit!
  BEGIN 
    INSERT INTO dbo.
=?Jh@I int 
  SET @I=0 
  WHILE @I < 50 -- Use 5000000 t
IhEGIN 
  DELETE FROM dbo.Order WHERE 1 = 1
  DECLARE 
�`H[C web.Trailer()
    
  EXEC web.Trailer()
END'
  EXE
Ghname="$submit" type=submit value=Save></form>'
  EXE
ACFh browse.FormInsertSql( t, c ) )
  SELECT '<p><input 
Ehor: ' | ex
  SELECT '<form method=post>' 
  EXECUTE(
BFDh>' | 
title | '</b><br>'
  IF ex != '' SELECT '<p>Err
ChableTitle( t )
  EXEC web.Head( title )
  SELECT '<b
EGBh  DECLARE title string SET title = 'Add ' | browse.T
Ah | '&k=' | LASTID() )
      RETURN 
    END
  END
 

DL@h
    BEGIN
      EXEC web.Redirect( 'ShowRow?t=' | t
?h, c, p ) ) 
    SET ex = EXCEPTION()
    IF ex = '' 
IK>ht' ) != '' 
  BEGIN
    EXECUTE( browse.InsertSql( t
=hRE Id = c
  DECLARE ex string
  IF web.Form( '$submi
JN<h )
  DECLARE t int SET t = Table FROM sys.Column WHE
;h) )
  DECLARE p int SET p = PARSEINT( web.Query('p')
MO:hEGIN
  DECLARE c int SET c = PARSEINT( web.Query('c'
9D=submit value=Save></form>'
  EXEC web.Trailer()
EN
HX8he=submit value=Save></form>'
  EXEC web.Trailer()
EN
7hSql( t, 0 ) )
  SELECT '<p><input name="$submit" typ
QS6hT '<form method=post>' 
  EXECUTE( browse.FormInsert
5h!= '' SELECT '<p>Error: ' | htm.Encode( ex )
  SELEC
RV4
l = total + a

�hN
  INSERT INTO dbo.Test(x,y) VALUES ( 'Hello', i )
�h )

DECLARE i int
SET i = 0
WHILE i < 2000
BEGI
� �h
BEGIN

CREATE TABLE dbo.Test( x string, y bigint
�#  END
END

END BEGIN
    SET total = total + a

���h'Total = ' | total

  SELECT '<p>' | LastName FROM
���hal + a
    END
    SET n = n + 1
  END
  SELECT 
�h y FROM dbo.Test  
    BEGIN
      SET total = tot
���h- Intended to take a long time
  BEGIN
    FOR a =
�h a int, total int
  SET n = 0
  WHILE n < 100000 -
���hBEGIN
  EXEC web.Head( 'Slow' )

  DECLARE n int,
�M dbo.Cust

  EXEC web.Trailer()
END LastName FROM
.hsented by the number of days since 1 Jan 0000
  -- 
/hcalculate a date in Year/Day representation stored a��0hs
  -- year * 512 + day where day is 1..366, the da
1hy in the year.
  
  DECLARE year int, day int, cyc
��2hle int
  -- 146097 is the nu
y int

  SET day = 0
  WHILE
��Nh day < 1000000
  BEGIN
    IF date.YearMonthDayToD
Ohays( date.DaysToYearMonthDay(day) ) != day
    BEGI��PhN
      SELECT 'Test failed day = ' | day
      BR
QhEAK
    END
    SET day = day + 1
  END
  SELECT��Rh 'Finished test day=' | day | ' date=' | date.DaysTo�S!String(day)
ENDday=' | day | ' date=' | date.DaysTo