<%
RANSU = Request("RANSU")
If RANSU="" then
'======================================================================
'ﾃﾞｰﾀﾍﾞｰｽを開く
Set db=Server.CreateObject("ADODB.Connection")
db.open Const_ConStr
'======================================================================
'----------バスケットのワークテーブル使用のため、乱数を発生------------
Randomize ' 乱数発生ルーチンを初期化します。
RANSU = Int((100000000000000 * Rnd) + 1) ' 1 から１００億までの乱数を発生させます。
wkNOW = FormatDateTime(NOW(),2) & " " & FormatDateTime(NOW(),4) & ":" & Second(Now())
SQL = "INSERT INTO ATaste_ransu(RANSU,DT) VALUES ('" & RANSU & "','" & wkNOW & "')"
DB.Execute(SQL)
End if
%>
Auto Taste
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>