|
|
<%
Dim Rs,sql
getDBConnection()
set Rs = server.createobject("ADODB.recordset")
sql = "SELECT year,month,eventcn FROM T010 ORDER BY year,month"
Rs.open sql,CONN,1,1
While not Rs.EOF
%>
 |
| |
<%
Rs.movenext
Wend
Rs.close
Set Rs = nothing
closeDBConnection()
%>
|
|
|
