><%
new_date = Year(rs1.Fields.Item("wn_date")) & "/" & _
Left("00",2-Len(Month(rs1.Fields.Item("wn_date")))) & _
Month(rs1.Fields.Item("wn_date")) & "/" & _
Left("00",2-Len(Day(rs1.Fields.Item("wn_date")))) & _
Day(rs1.Fields.Item("wn_date"))
If ck_date <> new_date Then
splkey = split(new_date,"/")
Response.Write splkey(0) &"年"& splkey(1) &"月"& splkey(2) &"日"
else
Response.Write " "
End If
%> |
> <% Response.Write rs1.Fields.Item("title") %> |
<%
ck_date = new_date
rs1.MoveNext '次のレコードへ
nCNT = nCNT + 1
Loop
%>