<%@LANGUAGE=VBScript%> アローズは「安心」、「安全」、「安さ!」をお届けします

アローズは「安心」、「安全」、「安さ!」をお届けします


チケット買取&販売 金プラチナ買取

チケット買取&販売 金プラチナ買取 (買取は18:45迄です)

<% 'MENU1  1:チケット販売   2:チケット買取    3:金プラチナ買取 'MENU2(チケットの場合) 1:商品券   2:乗車券    3:レジャー券    4:その他 ' if Request.QueryString("MENU1") = "1" then'チケット販売 ' elseif Request.QueryString("MENU1") = "2" then'チケット買取 ' elseif Request.QueryString("MENU1") = "3" then'金プラチナ買取 ' end if Response.Write "
" Response.Write "  
" Response.Write "商品券 | 乗車券 | レジャー券 | その他" Response.Write "
" Response.Write "
" if Request.QueryString("MENU1") = "1" then'チケット販売 strSQL ="" 'ADO DB Recordset オブジェクトを作成する、英文そのままじゃん Set rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名を指定します。 select case Request.QueryString("MENU2") case "1" strSQL = "select * from inter.csv where 種別 = 1 " case "2" strSQL = "select * from inter.csv where 種別 = 2 " case "3" strSQL = "select * from inter.csv where 種別 = 3 " case "4" strSQL = "select * from inter.csv where 種別 = 4 " case else strSQL = "select * from inter.csv where 種別 = 1 " end select '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath(".") & ";" '↑MapPathに(".")を渡し、カレントディレクトリを渡す '接続文字列、SQLを渡して、レコードセットを開く rs.Open strSQL, Con, 0 '0=adOpenForwardOnly 'データの表示をテーブルで行う Response.Write "" dim icnt icnt =1 'お約束のEOFまでループは(データが無くなるまでループ)、 Do While rs.EOF = False 'レコードセットの.EOFがFalseの間 if rs.Fields("数量").Value < 0 then'在庫がマイナスの場合は表示しない else if icnt mod 4 =1 then Response.Write "" '4個ずつ改行 end if Response.Write "" if icnt mod 4 =0 then Response.Write "" '4個ずつ改行 end if icnt =icnt+1 end if rs.MoveNext '次のレコードに移動する Loop Response.Write "

" '内容を表示する Response.Write rs.Fields("商品名").Value & "
(" & rs.Fields("額面").Value &"円券)
" Response.Write "
" Response.Write "価格:" & rs.Fields("買取売価").Value & "円
(買取" & rs.Fields("買取原価").Value &"円)
" if rs.Fields("数量").Value = 0 then Response.Write "在庫:入荷待ち

" else Response.Write "在庫:あり

" end if Response.Write "
" 'テーブルは終わりです Response.Write "
在庫状況は流動しておりますので、詳しくはお電話(072-466-0880)でお問い合わせください。
" 'テーブルは終わりです '後始末 rs.Close '開いていたレコードセットを閉じる Set rs = Nothing 'お行儀よくオブジェクトも開放しましょう elseif Request.QueryString("MENU1") = "2" then'チケット買取 elseif Request.QueryString("MENU1") = "3" then'金プラチナ買取 strSQL ="" 'ADO DB Recordset オブジェクトを作成する、英文そのままじゃん Set rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名を指定します。 strSQL = "select * from inter.csv where 種別 = 5 " '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath(".") & ";" '↑MapPathに(".")を渡し、カレントディレクトリを渡す '接続文字列、SQLを渡して、レコードセットを開く rs.Open strSQL, Con, 0 '0=adOpenForwardOnly dim goldIn dim goldK24 dim goldK22 dim goldK21 dim goldK18 dim goldK14 dim praIN dim pra1000 dim pra950 dim pra900 dim pra850 dim icnt2 icnt2 =1 'お約束のEOFまでループは(データが無くなるまでループ)、 Do While rs.EOF = False 'レコードセットの.EOFがFalseの間 select case icnt2 case "1" goldIn=rs.Fields("買取原価").Value case "2" goldK24=rs.Fields("買取原価").Value case "3" goldK22=rs.Fields("買取原価").Value case "4" goldK21=rs.Fields("買取原価").Value case "5" goldK18=rs.Fields("買取原価").Value case "6" goldK14=rs.Fields("買取原価").Value case "7" praIN=rs.Fields("買取原価").Value case "8" pra1000=rs.Fields("買取原価").Value case "9" pra950=rs.Fields("買取原価").Value case "10" pra900=rs.Fields("買取原価").Value case "11" pra850=rs.Fields("買取原価").Value case else end select rs.MoveNext '次のレコードに移動する icnt2 =icnt2+1 Loop '後始末 rs.Close '開いていたレコードセットを閉じる Set rs = Nothing 'お行儀よくオブジェクトも開放しましょう response.write "
" Dim objFSO Dim objFIL Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFIL = objFSO.GetFile("C:\Inetpub\wwwroot\inter.csv") Response.Write(objFIL.DateLastModified) & "現在のレート
" Set objFIL = Nothing Set objFSO = Nothing response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
" response.write " ingot ¥ " & goldIn & "
" response.write " K24  ¥ " & goldK24 & "
" response.write " K22  ¥ " & goldK22 & "
" ' response.write " K20  ¥ " & goldK21 & "
" response.write " K18  ¥ " & goldK18 & "
" response.write " K14  ¥ " & goldK14 & "
" response.write "
" response.write "
" response.write "ingot ¥ " & praIN & "
" response.write "Pt1000 ¥ " & pra1000 & "
" response.write "Pt950 ¥ " & pra950 & "
" response.write "Pt900 ¥ " & pra900 & "
" response.write "Pt850 ¥ " & pra850 & "
" response.write "
" response.write "
" response.write "「 金やプラチナじゃないかも・・」と思っておられる方も、お気軽にご相談ください。
" response.write "鑑定書が無くても金やプラチナの含有率を鑑定し買取しますので、安心です!!
" response.write "いらなくなった 金・プラチナ製品があれば、店頭までお持ち下さい。

" response.write "" response.write "
" end if %>