' Second Site: "Build" Static Output Script (build.sos)
' Copyright (C) 2002 by John Cardinal
Dim sOutput
Page.Textout CreatedMessage
If Site("Build.Include Build Section")="1" Then
If Site("Build.Include Build Date")="1" Or _
Site("Build.Include Build Time")="1" Then
sOutput = "
" & Site("Build.Build Message")
If Site("Build.Include Build Date")="1" Then
If Site("Build.Build Date Prefix")<>"" Then
sOutput = sOutput & " " & Site("Build.Build Date Prefix")
End If
sOutput = sOutput & " " & BuildDate
End If
If Site("Build.Include Build Time")="1" Then
If Site("Build.Build Time Prefix")<>"" Then
sOutput = sOutput & " " & Site("Build.Build Time Prefix")
End If
sOutput = sOutput & " " & BuildTime
End If
End If
If Site("Build.Include Database Name")="1" Then
If Site("Build.Database Name Prefix")<>"" Then
sOutput = sOutput & " " & Site("Build.Database Name Prefix")
End If
sOutput = sOutput & " " & Database.Name
End If
If Site("Build.Include Person Count")="1" Then
If Trim(sOutput)<>"" Then
sOutput = sOutput & "; "
End If
sOutput = sOutput & PersonCount
If Site("Build.Person Count Suffix")<>"" Then
sOutput = sOutput & " " & Site("Build.Person Count Suffix")
End If
End If
If Site("Build.Include Database Memo")="1" Then
If Trim(sOutput)<>"" Then
sOutput = sOutput & "
"
End If
sOutput = sOutput & Database.Memo
End If
Page.Textout sOutput
End If