<%
dim da
da=DATE()
dim ar
query=("select * from news order by date1 desc")
set rs=server.createobject("ADODB.recordset")
rs.activeconnection=conn
rs.open query
ar= array("Jan", "Feb", "Mar" , "Apr" , "May" , "Jun" , "Jul" , "Aug" , "Sep" , "Oct" , "Nov" , "Dec")
dim str
while not rs.eof
%>
