<%set cn=server.CreateObject("ADODB.Connection")
cn.commandtimeout = 10000
cn.Open "DSN=arbro;UID=arbro;PWD=arbro123"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "select * from literature where section='a'",cn,2,3
if not rs.eof then
while not rs.eof
%>
