%
Dim flag
Dim CN
Dim RS
Dim SSQL
dim dt
dim optList,tmpStr, optListPending, optListAccepted, optListRejected, EdNo
flag = false
SET CN=SERVER.CREATEOBJECT("ADODB.Connection")
SET RS=SERVER.CREATEOBJECT("ADODB.recordset")
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\db\BioData.mdb") & ";Persist Security Info=False; JET OLEDB:DATABASE PASSWORD='5177s261276'"
ssql="select * from BioData where Decision=true order by Fname"
RS.Open ssql,CN,1,2
AuthorList="
"
if rs.recordcount >0 then
rs.movefirst
strow=1
for i= 1 to rs.recordcount
AuthorList= AuthorList & "