<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim sRow
Dim sCount
Dim sTemp
Dim lLen
Dim i
lLen = Len(CStr(Application("Visitors")))
For i = 0 to (6 - lLen) - 1
sTemp = sTemp & "0"
Next
sCount = sTemp & CStr(Application("Visitors"))
For i = 1 to 6
sRow = sRow & ""
Next
Session("AsunaroID") = Application("AsunaroID")
%>
共信グループホームページ
