焼酎紀行festa2009

<% 'データベース変数 Dim objRS Dim strDSN Dim objConn 'オブジェクト宣言 Dim strShcd '商品コード Set objConn = Server.CreateObject("ADODB.Connection") strDSN = "festa" objConn.Open strDSN 'ＧＥＴオブジェクト取得 strShcd = left(Request.QueryString("Shcd"),3) 'ＳＱＬ商品台帳検索 'データーベース検索 strSQL = "" strSQL = strSQL & "Select * from 焼酎フェスタ2009（商品台帳）" strSQL = strSQL & " where 商品企画番号=" & "'" & strShcd & "';" ' response.write strSQL 'SQL実行 objConn.Execute strSQL If Err <> 0 Then 'エラー終了 Call PUS_ErrPage(Err.Number,Err.Description,strProgramID,"00020") Response.End End If 'レコードセット Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL,objConn,1,1 'マスタ内容セット strGazou = objRS("商品画像") strLabel = objRS("ラベル大") strShmoji = objRS("商品文字") strCatch = objRS("キャッチフレーズ") strTokucyo = objRS("商品特長") strShmei = objRS("商品名（正式）") strShmei2 = objRS("商品名") strYouryo = objRS("容量") strSeisan = objRS("生産地") strMaker = objRS("メーカー名") strGenryo = objRS("原材料") strDosu = objRS("度数") strNomikata = objRS("おすすめ飲み方") strTuhan = objRS("メーカー販売サイト") strTuhan2 = objRS("表示項目名") '画像関連の格納ディレクトリ strDir = "../shohin/" %>

※画像・コンテンツ等を許可なく転載することを禁じます

<% = strCatch %>

■商品名	<%=strShmei %>
■容量	<%=strYouryo %>ml
■度数	<%=strDosu %>度
■生産地	<%=strSeisan %>
■原料	<%=strGenryo %>
■メーカー名	<%=strMaker %>
■おすすめ飲み方	<%=strNomikata %>
■メーカー販売サイト	target="_blank"><%=strTuhan2 %>


<%=strTokucyo %>

<% 'コネクションクローズ objConn.close 'コネクション解放 Set objConn = Nothing %>