<%
'-------------------------------------------------------------------------------
' 名 称：seisan1_1.asp
' 機 能：顧客情報選択
' 戻り画面：custmenu.asp
' 次 画 面：seisan1_1.asp（項目選択時）
' キ ー ６：shopping.asp
' ０：default.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
'on error resume next
'----- 変数宣言
Dim l_clsSession
Dim shopcode 'ショップ
Dim l_objDbClass 'データベース
Dim l_rs 'レコードセット
Dim l_strSql 'SQL文
Dim l_Sqlx 'SQL文
Dim l_params
Dim DataBase 'データベース種類
Dim Hozon '検索結果保存フラグ
Dim PointShop 'ポイントショップ
Dim Point 'ポイント数
Dim Shocd '表示商品コード
Dim SSL 'SSL
Dim Url 'Url
Dim rec
Dim Gamen '画面フラグ
Dim Msg 'メッセージ
Dim i '添字
Dim j '添字
Dim iCount '商品数
Dim Email 'Email
Dim Custcode '顧客コード
Dim SessionID
%>
<%
SessionID=Trim(Request("sessionid"))
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
iCount = Session("ItemCount")
shopcode=session("Shop")
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_rs = l_objDbClass.doSelect(l_strSql, l_params)
if Not l_rs.Eof then
Hozon = cint(l_rs("検索結果保存ﾌﾗｸﾞ"))
SSL = cint(l_rs("SSL"))
DataBase = cint(l_rs.Fields("DBTYPE"))
PointShop = cint(l_rs("ﾎﾟｲﾝﾄｼｮｯﾌﾟ"))
end if
l_rs.close
custcode = trim(strCustcode)
Email = trim(Request("email"))
Gamen = trim(request("gamen"))
if Hozon = 2 then Hozonx("会員情報選択")
%>
顧客情報
会員情報
お客様名
お客様ｶﾅ名
E-mailｱﾄﾞﾚｽ
ご住所
電話番号
FAX番号
性別
生年月日
ご職業
お支払方法
ｼｮｯﾋﾟﾝｸﾞｶｰﾄ
SHOP MENUへ
戻る
<%
'SESSION更新
Call l_clsSession.UpdateSession
Call l_clsSession.dberrchk()
Call l_objDbClass.dberrchk()
set l_rs = nothing
set l_objDbClass = nothing
set l_clsSession = nothing
errchk
%>