% '===ログ取得処理 === 'dim xMID 'dim xStatus 'dim xNow 'dim StrSQL 'xNow = Now() 'xMID = Request( "rMID" ) 'xStatus = Request ( "rStatus" ) '***** DB接続 ***** 'Set ObjConn = Server.CreateObject("ADODB.Connection") 'ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ 'Server.Mappath("LogRec.mdb") '***** Insert ***** 'StrSQL = "insert into tLog (fMID, fStatus, fAccessTime) values ('" & xMID & "','" & xStatus & "','" & xNow &"')" 'ObjConn.Execute(StrSQL) 'Response.write strsql & "Insert完了" '===END=== '===ログファイルを作成するASP === ' pMID1 = Request( "rMID" ) ' dim xFile1 ' dim xName1 ' dim xValue1 ' dim fsCon1 ' dim tsCon1 ' dim xNow0, xNow1 ' dim xPage2 ' dim xSurveyStatus1 ' dim xSurveyResult1 ' xNow0 = Now() ' xNow1 = gfncFormatDateTime( xNow0, "", "", "" ) 'response.write xNow1 ' xFile1 = "E:\iNet\Survey\Crest\Osusume_Log\" & xNow1 & ".txt" ' set fsCon1 = CreateObject( "Scripting.FileSystemObject" ) ' set tsCon1 = fsCon1.CreateTextFile( xFile1 ) ' tsCon1.Write( "field" & vbTab & "value" ) & vbCrLf ' tsCon1.Write( "AccessDate" & vbTab & xNow1 ) & vbCrLf '=== Session情報を取得する === ' dim sMID ' dim sDate ' dim sSID ' tsCon1.Write( "MID" & vbTab & pMID1 ) & vbCrLf ' tsCon1.Write( "SID" & vbTab & pRSID1 ) & vbCrLf '=== サーバーの基本情報を取得する === ' tsCon1.Write( "URL" & vbTab & Request.ServerVariables("URL") ) & vbCrLf ' tsCon1.Write( "HTTP_REFERER" & vbTab & Request.ServerVariables("HTTP_REFERER") ) & vbCrLf ' tsCon1.Write( "REMOTE_ADDR" & vbTab & Request.ServerVariables("REMOTE_ADDR") ) & vbCrLf ' tsCon1.Write( "HTTP_USER_AGENT" & vbTab & Request.ServerVariables("HTTP_USER_AGENT") ) & vbCrLf ' tsCon1.Close '===ログファイルを作成するASP END=== '=== 桁補正のファンクション === 'function gfncFormatDateTime(xDate, xDlmtr1, xDlmtr2, xDlmtr3) ' dim xYear, xMonth, xDay, xHour, xMinute, xSecond ' dim xResult1 ' xYear = gfncFormatDigit( Year( xDate ), 4 ) ' xMonth = gfncFormatDigit( Month( xDate ), 2 ) ' xDay = gfncFormatDigit( Day( xDate ), 2 ) ' xHour = gfncFormatDigit( Hour( xDate ), 2 ) ' xMinute = gfncFormatDigit( Minute( xDate ), 2 ) ' xSecond = gfncFormatDigit( Second( xDate ), 2 ) ' xResult1 = "" ' xResult1 = xResult1 & xYear & xDlmtr1 ' xResult1 = xResult1 & xMonth & xDlmtr1 ' xResult1 = xResult1 & xDay & xDlmtr2 ' xResult1 = xResult1 & xHour & xDlmtr3 ' xResult1 = xResult1 & xMinute & xDlmtr3 ' xResult1 = xResult1 & xSecond ' gfncFormatDateTime = xResult1 'end function 'function gfncFormatDigit(xNumber,xDgt) ' gfncFormatDigit = right( ( "0000000000000" & CStr( xNumber ) ), xDgt ) 'end function '=== END === %>
CREST生活アンケート |
CREST生活アンケートでは、毎日たくさんのおすすめメニューを皆様からお寄せいただいています。
その中から、特に注目のホットアイテムをコンビニ編/ファーストフード・ファミリーレストラン編/一般レストラン編の3つに分けてご紹介します。 |
| ||
| ||
| ||
| ||||
コンビニフライドチキン戦争勃発か?! ファミリーマートで大人気のフライドチキン。その人気は、今やケンタッキーフライドチキンに迫る勢い?! その人気を見てか、ローソンも今年3月にフライドチキンの新商品を発売。ファミリーマートの既存商品「ファミチキ」そっくりの、その名も「L(エル)チキ」。ファミチキより一回り小さく、価格も32円安い。「黒コショウの"風味"と、赤唐辛子の"辛み"が決め手!くせになる濃味です!(ローソンHPより)」
これがなんと大当たり! おすすめも従来のフライドチキンの約3倍になるほど。おにぎり、からあげクン(レギュラー)、サンドイッチに続く人気商品となった(弊社売れ筋メニューデータベースより)。 そのお味は…「カリッとした衣の味がスパイシー」で「肉汁がたっぷり出てきて」「とーーーってもジューシー」!「噛んだときにジューっとなるのがいい」。「コンビニのフライドチキンとは思えないほど」! 「味がしっかりしていて」「ちょうどいい味の濃さ」。「肉厚で食べ応えがある」。「熱々で一回食べて病み付きになった」。「損はしないカウンター商品の逸品!」「とても美味しかった」!しかも「安い」!! さらには、8/18に「Lチキバンズ」なる、Lチキ専用パンまで発売。「喉が渇くけど、脂身が最高」というこの商品なら、油分と旨味をパンがうまく吸収してくれそうだ。食べる直前にパンにはさむので、パンがべちゃっとならずにすむのもうれしい。 「ファミチキも美味しいとは思うのですが、このLチキのちょっとピリッとしているところが好きです」という声も。追い抜け!ファミチキ人気! 目指せ!定番からあげクン?! |
| ||
今年の夏に発売された、松屋の「フレッシュトマトカレー」がすごい人気だ。弊社売れ筋メニューデータベースによると、7月は、不動の「牛めし」「豚めし」を抜いて、松屋で一番食べられているメニューに! その影響か、松屋の既存店客数の前年同月比は、7月100.6%、8月100.2%と 2007年3月以来初のプラスに転じた。オススメも、牛丼のおよそ4倍の数が寄せられる。
見た目も普通のカレーとは全然違っていて、鮮やかなオレンジ色で「一風変わったカレー」だ。「トマト味でサッパリ」していて、「酸味がすがすがしく」「ピリッと辛くて奥が深い味わい」。「にんにくたっぷり」で「スパイスが効いて」「絶妙な味」。「夏らしい味で飽きません」。「安いのに高いカレーに劣らぬ味」で「290円とは思えない」! さらに、7/30〜8/6は、期間限定キャンペーンでなんと¥250という安さだった。「この値段ではお値打ち」!!その上、「体に良さそうな感じ」で「並も大盛も満足いく量」ときているから、「リピーター決定」! 「夏限定なのが残念」! 松屋に急げ?! |