%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PageType
PageType = Request("PageType")
Dim Title, SenColor
If PageType = "Nyukin" Then
Title = "入金伝票"
SenColor = "#FF2211" '赤
Else
Title = "出金伝票"
SenColor = "#1133FF" '青
End If
Dim Label
If PageType = "Nyukin" Then
Label = "入金伝票"
ElseIf PageType = "Shukkin" Then
Label = "出金伝票"
ElseIf PageType = "Shiire" Then
Label = "仕入伝票"
ElseIf PageType = "Uriage" Then
Label = "売上伝票"
Else
Label = "振替伝票"
End If
%>