%@language="VBScript" %>
<%
set db=Server.CreateObject("ADODB.Connection")
db.open "ptl_nomosho"
today ="" dateserial(year(now),month(now),(day(now)))
SQL="SELECT 登録情報.obj_id, 登録情報.件名, 登録情報.開始日, 登録情報.終了日, 登録情報.発行部署, コンテンツ.コンテンツ名 "&_
"FROM 登録情報 INNER JOIN コンテンツ ON 登録情報.発行部署 ="" コンテンツ.cnts_id "&_
"where 開始日 <="" #"& today &"# and 終了日 >= #"& today &"# and 承認=True "&_
"order by 開始日 desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open SQL,db,3,3
SQL_cnt="select アクセス from アクセス"
set rs_cnt=Server.CreateObject("ADODB.Recordset")
rs_cnt.open SQL_cnt,db,3,1
strcnt = rs_cnt("アクセス") 'アクセス数を文字列に変換
lencnt = Len(strcnt) 'アクセス数の文字数を返す
%>
野母小学校