<%
set rs=server.CreateObject("adodb.recordset")
rs.open "execute [dbo].[get_cqlb_list]",fconn,0,1
if not rs.eof then
do while not rs.eof
Num=rs("id")
pdate=rs("date")
title=rs("title")
print("- ·"&title&" ("&pdate&")
")
rs.movenext
loop
end if
rs.close
set rs=nothing
Closeconn()%>