%
Option Explicit
Response.Buffer = True
' インクルードがある場合は↓に!
%>
<%
Dim ErrorFlag
ErrorFlag = True
Dim melody_id
melody_id = Request("id")
If Not CheckNumber(melody_id,5,5) Then
ErrorFlag = False
End If
If ErrorFlag Then
' カウントの処理をしてください。
' テーブル用の【YYYYMM】を取得
'Dim sDate, sDay
'sDate = CStr(Year(Date)) & Right("0" & CStr(Month(Date)), 2)
' ダウンロード日用の日付を取得
'sDay = Day(Date)
'Dim DB, RS, Query
'Set DB = Server.CreateObject("ADODB.Connection")
'DB.Open "PROVIDER=SQLOLEDB;SERVER=192.168.2.232;DATABASE=AuditionInfo;UID=audition01;PWD=audition01"
'DB.BeginTrans
'Query = _
' "SELECT * FROM AuditionInfo.dbo.NmeloPlayHistory" & sDate & _
' " WHERE dl_day = " & sDay & "" & _
' " AND song_id = '" & melody_id & "'"
'Set RS = Server.CreateObject("ADODB.RecordSet")
'RS.Open Query, DB, adOpenKeyset, adLockPessimistic, adCmdText
'If RS.EOF Then
' RS.AddNew
' RS("dl_day") = sDay
' RS("song_id") = melody_id
' RS("cnt") = 1
'Else
' RS("cnt") = RS("cnt") + 1
'End If
'RS.Update
'RS.Close
'Set RS = Nothing
'DB.CommitTrans
'DB.Close
'Set DB = Nothing
Response.ContentType="video/x-ms-asf"
%>