<% sql="select top 5 * from board where mode='route' order by writeday desc" set rs=server.CreateObject("ADODB.RecordSet") rs.open sql,db,1 for i=1 to 5 if not rs.eof then %> <% rs.movenext else %> <%End if%> <% next rs.close set rs=nothing db.close set db=nothing %>
   <% subject=rs("subject") if instr(subject,"<")>0 then response.write re & subject else if len(subject)>20 then response.write re & left(subject,20)&"..." else response.write re & subject end if end if %>
<%=right(replace(left(rs("writeday"),10),"-","/"),12)%>