<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
dim SessionID
dim l_objDbClass
dim l_objRSet
dim Hozon
dim l_strSql
dim l_params
dim intEofFlg
dim intCheckMust
dim strMsg
dim l_clsSession
'on error resume next
%>
<%
SessionID = Trim(Request("sessionid"))
if session("sessionid") <> "" then
sessionid = session("sessionid")
end if
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
'Sessionオブジェクト作成
Set l_clsSession = new CSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if Not l_objRSet.Eof then
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
end if
Set l_objRSet = Nothing
if Hozon = 2 then Hozonx "顧客情報登録"
'登録ボタンが押された時の動作。
if request.form("InputComplete") = 1 then
'顧客データをTEMP_CUSTからCUSTへコピー
strMsg = SetCustData()
if strMsg = "" then
session("sessionid") = sessionid
server.transfer("shiharai.asp")
end if
end if
'現在の顧客情報登録状況を取得
l_strSql = "SELECT * FROM TEMP_CUST"
l_strSql = l_strSql & " WHERE ACODE = ?"
l_strSql = l_strSql & " AND SESSIONID = ?"
Redim l_params(2)
l_params(1) = ACODE
l_params(2) = SessionID
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if l_objRSet.eof or l_objRSet.bof then
intEofFlg = 1
else
intEofFlg = 0
end if
%>
顧客情報登録
<%if strMsg <> "" then%>
<%=strMsg%>
<%end if%>
会員情報
●必須項目
■入力済み
●<%=IsInputted("顧客名", l_objRSet, "", intEofFlg, 1)%>お客様名
●<%=IsInputted("kana", l_objRSet, "", intEofFlg, 1)%>お客様カナ名
●<%=IsInputted("EMAIL", l_objRSet, "", intEofFlg, 1)%>E-mailアドレス
●<%=IsInputted("ﾊﾟｽﾜｰﾄﾞ", l_objRSet, "", intEofFlg, 1)%>パスワード
●<%=IsInputted("住所1", l_objRSet, "", intEofFlg, 1)%>ご住所
●<%=IsInputted("電話番号", l_objRSet, "", intEofFlg, 1)%>電話番号
<%=IsInputted("FAX番号", l_objRSet, "", intEofFlg, 0)%>FAX番号
<%=IsInputted("性別", l_objRSet, "", intEofFlg, 0)%>性別
<%=IsInputted("BIRTH", l_objRSet, "", intEofFlg, 0)%>生年月日
<%=IsInputted("職業", l_objRSet, "", intEofFlg, 0)%>ご職業
●<%=IsInputted("支払方法", l_objRSet, "", intEofFlg, 1)%>お支払方法
<%=IsInputted("MEMBERID", l_objRSet, "", intEofFlg, 0)%>会員番号
<%if intCheckMust >= 7 then%>
<%end if%>
ｼｮｯﾋﾟﾝｸﾞｶｰﾄ
SHOP MENUへ
戻る
<%
'SESSION更新
Call l_clsSession.UpdateSession
set l_objRSet = nothing
set l_objDbClass = nothing
%>