
<!-- #include virtual="/sj3web/include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：名刺
' 	作成日：2003/04/09
' 	作成者：山崎
' 	目的　：名刺作成
' 	概要	：
' 	 <<表示>>
' ・名刺
'################################################
'-->
'
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then 
		Exit Sub 
	End If
	
	Dim Email, TEL, Jyusyo1, Jyusyo2, YubinBango, Shimei, Katagaki, KaisyaMeisyo
	Dim ImageFile 
	Dim TateyokoKubun
	Dim FAX, Yakusyoku


	Email = Request("Email")
	TEL = Request("TEL")
	Jyusyo1 = Request("Jyusyo1")
	Jyusyo2 = Request("Jyusyo2")
	YubinBango = Request("YubinBango")
	Shimei = Request("Shimei")
	Katagaki = Request("Katagaki")
	KaisyaMeisyo = Request("KaisyaMeisyo")
	ImageFile = Request("ImageFile")
	FAX = Request("FAX")	
	Yakusyoku = Request("Yakusyoku")	

	Dim Font, MeishiDesignCD
	Font = Request("Font")
	MeishiDesignCD = Request("MeishiDesignCD")
	TateyokoKubun = Request("TateyokoKubun")

	Dim Query, Content
	Query = "exec SPT名刺データ更新 '" & GB_SystemCD & "',null, null, '" & GakuseiNo & "', null"
	Query = Query & ",'" & KaisyaMeisyo & "'"
	Query = Query & ",'" & Katagaki & "'"
	Query = Query & ",'" & Yakusyoku & "'"	
	Query = Query & ",'" & Shimei & "'"
	Query = Query & ",'" & YubinBango & "'"
	Query = Query & ",'" & Jyusyo1 & "'"
	Query = Query & ",'" & Jyusyo2 & "'"
	Query = Query & ",'" & TEL & "'"
	Query = Query & ",'" & FAX & "'"	
	Query = Query & ",'" & Email & "'"
	Query = Query & ",'" & ImageFile & "'"

	Set Content = OpenQuery(Query)

	Response.Redirect("meisi" & LCase(TateyokoKubun) & ".asp?Font=" & Font & "&MeishiDesignCD=" & MeishiDesignCD)

End Sub
%>