
<!-- #include file="../../../include.asp" -->

<%
main()

Sub main()

	Dim Data

	Dim Query
	Dim Content

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	Data = Request("Data")
	NumChrCheck = NumChrCheck & Data

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If


	Query = "exec SPT名刺データ2更新 '" & GB_SystemCD & "', '" & EnshuCD &  "', '" & KaisyaCD & "', '" & GakuseiNo & "', '" & Data & "'"


	Set Content = OpenQuery(Query)

	Response.Redirect("default.asp")

End Sub
%>