' Second Site: "Compiler" Static Output Script (compiler.sos)
' Copyright (C) 2002 by John Cardinal
If Site("Compiler.Include Compiler Section")="1" Then
Dim sDelim, sDelim1, sDelim2
Dim bNeedEMail
If Site("Compiler.One Line Format")="1" Then
sDelim1 = " "
sDelim2 = ", "
Else
sDelim1 = "
"
sDelim2 = "
"
End If
If Site("Compiler.General Message")<>"" Then
Page.TextOut Site("Compiler.General Message")
sDelim = "
"
End If
If Site("Compiler.General Message Only")<>"1" Then
If Site("Compiler.Heading")<>"" Then
Page.TextOut sDelim & Site("Compiler.Heading") & ":"
sDelim = sDelim1
End If
bNeedEMail=True
If Site("Compiler.Name")<>"" Then
If HiddenEMailURL<>"" Then
bNeedEMail=False
Page.TextOut sDelim & HiddenEMailURL & _
Site("Compiler.Name") & ""
Else
Page.TextOut sDelim & Site("Compiler.Name")
End If
sDelim = sDelim2
End If
If Site("Compiler.Address")<>"" Then
Page.TextOut sDelim & Site("Compiler.Address")
sDelim = sDelim2
End If
If bNeedEMail And HiddenEMailURL<>"" Then
Page.TextOut sDelim & HiddenEMailURL & "E-Mail"
End If
End If
End If