<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If 'Response.Write(GB_VisitorID) 'Exit Sub %> <% Dim TmpShop Dim Gokei Dim Query Dim Content Dim Content2 %>

注文履歴 <% '注文履歴のログイン（form1内で処理） If GB_UserID = "" Then %> 注文履歴の閲覧には登録メールアドレスによるログインが必要です。 メールアドレスを登録せずに行った注文は履歴には表示されません。 登録メールアドレス パスワード <% = Spacer(3, 1) %> <% = ActionButton3Image("LoginBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 60, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ログイン", "tx1416w", "center", "form1.submit();") %> <% End If %> <% If GB_UserID <> "" Then %> <% Query = "exec SPF注文履歴取得 '" & GB_UserID & "' " If SelShop <> "" Then Query = Query & " , " & SelShop & " " Else Query = Query & " , null " End If Query = Query & " , null, null, null " '商品ID,日時始,日時終 Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Content.BOF Or Content.EOF Then %> <% Else %> <% If SelShop = "" Then %> <% End If %> <% Dim FuncCnt FuncCnt = 0 Do While Not(Content.BOF Or Content.EOF) FuncCnt = FuncCnt + 1 %> <% If SelShop = "" Then %> <% End If %> <% Content.MoveNext Loop End If %> 注文履歴はありません 注文日時 ショップ名 商品名 価格 数量 小計   <% = Content.Fields("注文日時") %> "><% = Content.Fields("ショップ名") %> <% = Content.Fields("名称") %> <% If Content.Fields("価格") = 0 Then %> 時価 <% Else %> ¥<% = ConvIntToMoney(Content.Fields("価格"), False, False) %>(<% If "" & Content.Fields("消費税フラグ") = "1" Then %>税込<% Else %>税別<% End If %>) <% End If %> <% = ConvIntToMoney(Content.Fields("数量"), False, False) %> ¥<% = ConvIntToMoney(Content.Fields("価格") * Content.Fields("数量"), False, False) %> <% = ActionButton3Image("SearchBtn" & FuncCnt, "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 46, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "再検索", "tx1416w", "center", "form2.Search.value='" & Content.Fields("名称") & "';form2.submit();") %> <% End If %>

<% End Sub %>