ﾏｽｺｯﾄｷｬﾗｸﾀｰ
ひろたん
＜求人：資料請求･応募＞
＜試読･購読のお申込＞
週間｢ｼｪﾌ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%>