<%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango
Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi
Dim DaityoTorishimariyaku, Shihonkin
Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
Dim NextUrl
If GB_EnshuKubun = "P" Then
NextUrl = "default.asp?KaisyaCD=" & KaisyaCD
Else
NextUrl = "default_bin.asp?KaisyaCD=" & KaisyaCD & "&ref=collabo&WBCLB=" & Request("WBCLB")
End If
Dim KoshoninMes
KoshoninMes = "0"
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KoshoninMes = "" & Content.Fields("会社設立時手数料メッセージ")
End If
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>