★ 廣田新聞店
★

マスコットキャラクター
ひろたん
<求人:資料請求・応募>
<試読・購読のお申込>
週間「シェフ7人のおうちレシピ」
<創刊号(無料)お申込>
ひろたりあん旅倶楽部
<お得情報>
え〜っ! 1年でなーんと
80万円ももらえる
新聞奨学生制度って
どんだけ〜?!!♪♪
<%
Set C = Server.CreateObject("ADODB.Connection")
Set R = Server.CreateObject("ADODB.Recordset")
C.Open "Provider=SQLOLEDB;Server=MSSQL2000A;Database=customer;uid=counter;pwd=c7Va1qEn"
R.Open "SELECT カウント,名称 FROM 単一カウント WHERE ID=5", C, 3, 3, 1
if Session("counton")="on" then
iCount = R("カウント")
else
iCount = R("カウント") + 1
Session("counton") = "on"
end if
sName = R("名称")
R("カウント") = iCount
R.Update
R.Close
C.Close
Set C = Nothing
Set R = Nothing
keta = 6
lcount = Len(Cstr(iCount))
count_str = ""
While keta > lcount
count_str = count_str & "0"
lcount = lcount + 1
Wend
count_str = count_str & Cstr(iCount)
%>
<%=count_str%>