<% Set Rs0 = Server.CreateObject("ADODB.RecordSet") sql = "select top 6 * from last2 order by w_num desc" Rs0.Open sql, Conn2, 1, 1 j = 1 Do Until j > 6 if Rs0.eof then %> <% else count = Len(Rs0("title")) %> <% Rs0.MoveNext end if j = j + 1 Loop Rs0.Close %>   <%if Not Rs0("in_step") = 0 then%> <%for k=1 to Rs0("in_step")%>   <%next%> <%end if%> <%if count > 25 Then %><%=Left(Rs0("title"),23)%>...<%else %><%=Rs0("title")%><%end if%> <%if mid(now(),1,10) = Left(Rs0("w_date"), 10) then%><%end if%> <% Set Rs0 = Server.CreateObject("ADODB.RecordSet") sql = "select top 6 * from freeboard order by w_num desc" Rs0.Open sql, Conn, 1, 1 j = 1 Do Until j > 6 if Rs0.eof then %> <% else count = Len(Rs0("title")) %> <% Rs0.MoveNext end if j = j + 1 Loop Rs0.Close set rs0 = nothing %>   <%if Not Rs0("in_step") = 0 then%> <%for k=1 to Rs0("in_step")%>   <%next%> <%end if%> <%if count > 25 Then %><%=Left(Rs0("title"),23)%>...<%else %><%=Rs0("title")%><%end if%> <%if mid(now(),1,10) = Left(Rs0("w_date"), 10) then%><%end if%>

<% set conn = nothing set conn2 = nothing %>