Nobel Prize Winners
<% rc = 0 : oy = 0 : oc = "" while not rs.EOF rc = rc + 1 cat = rs("nCat") yr = rs("nYear") who = rs("nName") if rs("nName2") <> "" then who = who &", " & rs("nName2") response.write("")
if yr <> oy then
response.write("
" & vbCrLf)
rs.Movenext
wend
if rc > 0 then
response.write(rc & " records in database.")
else
%>
" & yr & "
" & vbCrLf) oy = yr end if if oc <> cat then response.write("" & cat & ": ") oc = cat end if response.write("" & who) response.write("Not dynamic
Peace
Literature
Physics