<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content, Data
Dim XStart
Dim YStart
Dim SpaceYoko
Dim SpaceTate
XStart = "0"
YStart = "0"
SpaceYoko = "0"
SpaceTate = "0"
Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango
Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi
Dim DaityoTorishimariyaku, Shihonkin
Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
Dim ShijyoCD
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaisyaKanaMeisyo = Content.Fields("会社カナ名称")
KaisyaMeisyo = Content.Fields("会社名称")
KaisyaRyakuMeisyo = Content.Fields("会社略名称")
YubinBango = Content.Fields("郵便番号")
Jyusyo1 = Content.Fields("住所1")
Jyusyo2 = Content.Fields("住所2")
TEL = Content.Fields("TEL")
FAX = Content.Fields("FAX")
DaityoTorishimariyaku = Content.Fields("代表取締役")
Shihonkin = Content.Fields("資本金")
ShijyoCD = Content.Fields("市場CD")
' Dim tmp1, tmp2
' tmp1 = Content.Fields("取締役")
' tmp2 = split(tmp1, "/")
' If UBound(tmp2) >= 1 Then
' Torishimariyaku1 = tmp2(0)
' Torishimariyaku2 = tmp2(1)
' End If
Torishimariyaku1 = Content.Fields("取締役1")
Torishimariyaku2 = Content.Fields("取締役2")
Torishimariyaku1Jyusyo = Content.Fields("取締役1住所")
Torishimariyaku2Jyusyo = Content.Fields("取締役2住所")
End If
If Request("Mode") <> "Renew" Then
Query = "exec SPT名刺データ2取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Data = Content.Fields("名刺データ")
End If
End If
'不具合修正のため「?TimeUniq=」文字列を除外する処理
Dim StartColumn
StartColumn = InStr(Data, "?TimeUniq=")
If StartColumn > 0 Then
Dim EndColumn
EndColumn = InStr(StartColumn, Data, """")
Data = Left(Data, StartColumn - 1) & Mid(Data, EndColumn, Len(Data))
End If
Dim VHData, TXdata, IMData, SQData
If InStr(Data , "?") > 0 Then
Dim tmp
tmp = Split(Data, "?")
VHData = tmp(0)
TXdata = tmp(1)
IMData = tmp(2)
SQData = tmp(3)
End If
Dim TopMargin
Dim LeftMargin
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
TopMargin = Content.Fields("名刺印刷余白上")
LeftMargin = Content.Fields("名刺印刷余白左")
End If
If "" & TopMargin = "" Then
TopMargin = 0
End If
If "" & LeftMargin = "" Then
LeftMargin = 0
End If
%>
<% = HtmlHeader("") %>
<% If GB_CSS <> "EC" Then %>
<% End If %>
<% = HtmlFooter %>
<%
End Sub
%>