<%@LANGUAGE="VBScript" CODEPAGE=932 %> <% Option Explicit Response.Expires=0 %> 商品一覧
<% writeHeader() Const PAGE_SIZE = 10 '1ページの表示件数 Dim currentPage '現在の表示ページ Dim sqlProduct, con, recProduct Dim sqlCategory, recCategory Dim categoryID 'カテゴリIDがセット済みの場合(QueryStringで渡されないとき)はここから 'カート画面から戻ってきた場合 'If Request.QueryString("categoryID") = "" Then 'Else '最初の1回は、必ずQueryStringでカテゴリIDが渡される 'カテゴリID保存 ' Session("categoryID") = CInt(Request.QueryString("categoryID")) 'End If categoryID = Request.QueryString("categoryID") If categoryID = "" Then categoryID = 0 Else categoryID = CInt(categoryID) End If Set con = Server.CreateObject("ADODB.Connection") con.Open "Data Source=//nawinfs03/home/users/web/b1922/rh.jinenkan/database/jinenkan_jp.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" %>

DVD
商品カテゴリ 
<% If invalid = 1 Then 'カテゴリIDが不正な値のは"0"にする categoryID = 0 End If Session("categoryID") = categoryID If Session("categoryID") = 0 Then sqlProduct="select * from products" Else sqlProduct="select * from products where categoryID = " & Session("categoryID") ' “Select * from テーブル名 where name = ‘”&username&”’”　　 End If '商品情報の検索 Set recProduct = Server.CreateObject("ADODB.Recordset") recProduct.Open sqlProduct,con,adLockReadOnly,adCmdText If recProduct.EOF Then Response.Write "登録されている商品はありません。" End If recProduct.PageSize = PAGE_SIZE '最初の一回は、ページNoは渡ってこない If Request.QueryString("pNo")="" Then currentPage=1 Else currentPage = CInt(Request.QueryString("pNo")) End If recProduct.AbsolutePage = currentPage %>
<% Dim j Dim countStr,choiceStr,proID,proName,priceStr,numStr,cateStr For j=1 To recProduct.PageSize '商品情報を表示 countStr = "count" & CStr(j) choiceStr = "choice" & CStr(j) proID = "productID" & CStr(j) proName = "productName" & CStr(j) priceStr = "price" & CStr(j) numStr = "num" & CStr(j) cateStr = "cate" & CStr(j) 'その商品のカテゴリID Response.Write "" Response.Write "" Response.Write "" Else Response.Write "
" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'タグにダブルクオートを編集するための""" Response.Write "" Response.Write "" Response.Write "" Response.Write "" recProduct.MoveNext If recProduct.EOF Then Session("howManyRecs")=j '現在のページの表示件数をSessionにセーブ Exit For End If Session("howManyRecs") = j '現在のページの表示件数をSessionにセーブ Next Response.Write "" Response.Write "" %>
商品番号商品名 説明単価数量選択
" & recProduct.Fields("productID") & "" & recProduct.Fields("productName") If recProduct.Fields("imgFile") = "" Or IsNull(recProduct.Fields("imgFile")) Then Response.Write "" & recProduct.Fields("description") & "\" & FormatNumber(recProduct.Fields("price"), 0) & "
KKD 九鬼神流小太刀捕 DVD 全一巻 5000円    
GYR−1 玉虎流 骨指術上巻 捕手基本・上略 6000円    
GYR−2 玉虎流 骨指術下巻 中略・下略 6000円    
DK −1 ランクテスト用DVD 級・初段 5000円    
DK −2 ランクテスト用DVD 2段・3段 5000円    
JBK 自然流秘剣術 作法・地・水・火・風・空 10,000円    
JNT 自然流二刀術 構え・天の巻・地の巻 7000円    
KDT−1 九鬼神流打拳体術 1巻 構え・手技型・初伝型 7000円    
KDT−2 九鬼神流打拳体術 2巻 中伝型・捌き型 7000円    
KDT−3 九鬼神流打拳体術 3巻 奥伝型・調潜型 7000円    

 

ビデオ

  
<% Dim j Dim countStr,choiceStr,proID,proName,priceStr,numStr,cateStr For j=1 To recProduct.PageSize '商品情報を表示 countStr = "count" & CStr(j) choiceStr = "choice" & CStr(j) proID = "productID" & CStr(j) proName = "productName" & CStr(j) priceStr = "price" & CStr(j) numStr = "num" & CStr(j) cateStr = "cate" & CStr(j) 'その商品のカテゴリID Response.Write "" Response.Write "" Response.Write "" Else Response.Write "
" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'タグにダブルクオートを編集するための""" Response.Write "" Response.Write "" Response.Write "" Response.Write "" recProduct.MoveNext If recProduct.EOF Then Session("howManyRecs")=j '現在のページの表示件数をSessionにセーブ Exit For End If Session("howManyRecs") = j '現在のページの表示件数をSessionにセーブ Next Response.Write "" Response.Write "" %>
商品番号 商品名 説明 単価 数量 選択
" & recProduct.Fields("productID") & "" & recProduct.Fields("productName") If recProduct.Fields("imgFile") = "" Or IsNull(recProduct.Fields("imgFile")) Then Response.Write "" & recProduct.Fields("description") & "\" & FormatNumber(recProduct.Fields("price"), 0) & "
VDK−1 ランクテスト用ビデオ 1巻 級 3000円    
VDK−2 ランクテスト用ビデオ 2巻 初段 3000円    
VDK−3 ランクテスト用ビデオ 3巻 2段 3000円    
VDK−4 ランクテスト用ビデオ 4巻 3段 3000円    
VDK−5 ランクテスト用ビデオ全巻セット 級〜3段 10,000円    
VSK−1 真剣型 上巻 3本セット 基本型・初段・二段 10,000円    
VSK−2 真剣型 下巻 ３本セット 三段・四段・五段 10,000円    
VGK−1 玉虎流 1巻 基本 4000円    
VGK−2 玉虎流 2巻 上略 4000円    
VGK−3 玉虎流 3巻 中略 4000円    
VGK−4 玉虎流 4巻 下略 4000円    
VGK−5 玉虎流 全巻セット 4本（基本〜下略） 12,000円    
VGK−6 玉虎流 応用編 上巻   5000円    
VGK−7 玉虎流 応用編 下巻   5000円    
VGK−8 玉虎流 応用編  上下巻セット   8000円    
VKT−1 虎倒流 1巻 基本 4000円    
VKT−2 虎倒流 2巻 初伝 5000円    
VKT−3 虎倒流 1．2巻セット 基本・初伝 8000円    
VKT−4 虎倒流 3巻 中伝 4000円    
VKT−5 虎倒流 4巻 奥伝 4000円    
VKT−6 虎倒流 5巻 壁刀 4000円    
VKT−7

虎倒流 3・4・5巻セット

 中伝・奥伝・壁刀 10,000円    
VJJ−1 自然流十手術 1巻 構え・基礎 4000円    
VJJ−2 自然流十手術 2巻 基本型

4000円

    
VJJ−3 自然流十手術 1．2巻セット 構え〜基本型 7000円    
VJJ−4 自然流十手術 3巻 天の型（その1） 4000円    
VJJ−5 自然流十手術 4巻 天の型（その2） 4000円    
VJJ−6 自然流十手術3．4巻セット 天の型（1．2） 7000円    
VJT−1 自然流十手・鉄扇術   5000円    
VTN−1 戸隠流忍法体術 1巻 構え・受け身型 5000円    
VTN−2 戸隠流忍法体術 2巻 忍返型 5000円    
VTN−3 戸隠流忍法体術 3巻 鼠逃遁甲の型 5000円    
VTN−4 戸隠流忍法体術 3巻セット   12,000円    
VTB−1 戸隠流忍法秘剣 1巻   5000円    
VTB−2 戸隠流忍法秘剣 2巻   5000円    
VTB−3 戸隠流忍法秘剣 1．2巻セット   8000円    
VTG−1 戸隠流五遁の術 上巻 水遁・金遁 6000円    
VTG−2 戸隠流五遁の術 下巻 木遁・火遁・土遁 6000円    
VSFJ−1 神伝不動流柔体術 1巻 初伝（その1） 4000円    
VSFJ−2 神伝不動流柔体術 2巻 初伝（その2） 4000円    
VSFJ−３ 神伝不動流柔体術 3巻 初伝（その3） 4000円    
VSFJ−４ 神伝不動流柔体術 3巻セット 1〜3巻 10,000円    
VSFJ−5 神伝不動流柔体術 4巻 中伝 5000円    
VSFJ−6 神伝不動流柔体術 5巻 奥伝（その1） 4000円    
VSFJ−7 神伝不動流柔体術 6巻 奥伝（その2） 4000円    
VSFJ−8 神伝不動流柔体術 7巻 奥伝（その3） 4000円    
VSFJ−9 神伝不動流柔体術 3巻セット 5から7巻 10,000円    
VSFD−1 神伝不動流打拳体術 1巻 天の型（その1） 4000円    
VSFD−2 神伝不動流打拳体術 2巻 天の型（その2） 4000円    
VSFD−3 神伝不動流打拳体術 2巻セット   7000円    
VSFD−4 神伝不動流打拳体術 3巻 地の型（その1） 4000円    

VSFD−5

 神伝不動流打拳体術 4巻 地の型（その2） 4000円    
VSFD−6 神伝不動流打拳体術 2巻セット   7000円    
VSFD−7 神伝不動流打拳体術 5巻 自然至極の型（その1） 4000円    
VSFD−8 神伝不動流打拳体術 6巻 自然至極の型（その2） 4000円    
VSFD−9 神伝不動流打拳体術 7巻 自然至極の型（その3） 4000円    
VSFD−10 神伝不動流打拳体術 3巻セット  

10,000円

    
VKS−1 九鬼神流槍術 1巻 捌き型 5000円    
VKS−2 九鬼神流槍術 2巻 天地型 5000円    
VKS−3 九鬼神流槍術 3巻 免許皆伝型 5000円    
VKS−4 九鬼神流槍術 3巻セット 1〜3巻 12,000円    
VKN−1 九鬼神流薙刀術   5000円    
VKB−1 九鬼神流眉尖刀術   5000円    
VKBK−1 九鬼神流秘剣術 1巻 その1 5000円    
VKBK−2 九鬼神流秘剣術 2巻 その2 5000円    
VKBK−3 九鬼神流秘剣術 2巻セット   8000円    

 

武道具

  
<% Dim j Dim countStr,choiceStr,proID,proName,priceStr,numStr,cateStr For j=1 To recProduct.PageSize '商品情報を表示 countStr = "count" & CStr(j) choiceStr = "choice" & CStr(j) proID = "productID" & CStr(j) proName = "productName" & CStr(j) priceStr = "price" & CStr(j) numStr = "num" & CStr(j) cateStr = "cate" & CStr(j) 'その商品のカテゴリID Response.Write "" Response.Write "" Response.Write "" Else Response.Write "
" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'タグにダブルクオートを編集するための""" Response.Write "" Response.Write "" Response.Write "" Response.Write "" recProduct.MoveNext If recProduct.EOF Then Session("howManyRecs")=j '現在のページの表示件数をSessionにセーブ Exit For End If Session("howManyRecs") = j '現在のページの表示件数をSessionにセーブ Next Response.Write "" Response.Write "" %>
商品番号 商品名 説明 単価 数量 選択
" & recProduct.Fields("productID") & "" & recProduct.Fields("productName") If recProduct.Fields("imgFile") = "" Or IsNull(recProduct.Fields("imgFile")) Then Response.Write "" & recProduct.Fields("description") & "\" & FormatNumber(recProduct.Fields("price"), 0) & "
FKS−1 袋竹刀  大   6000円    
FKS−2 袋竹刀  小   4000円    
JTT 十手   5000円    
PCH1 自然舘 ロゴパッチ   5000円    

本

 
商品番号 商品名 説明 単価 数量 選択
unsui book1 雲水の独り事 間中雲水の45年間の武道人生あれこれ 3900円    

 

 

 

<% 'ページインデックスを表示 Dim p For p = 1 To recProduct.PageCount If p = currentPage Then Response.Write "　[" & p & "]" Else Response.Write "　[" & p &"]" End If Next '商品情報レコードセットクローズ recProduct.Close Set recProduct = Nothing con.Close Set con = Nothing %>

<% writeFooter() %>