<% dim id, Mcoll id=request.querystring("kat") tittel=request.querystring("tittel") Response.Write ("

" & tittel & "


") Set Mcoll= Updb.Execute ("SELECT * FROM TblHoved WHERE Kategori=" & id & " ORDER BY Materialtype") Response.Write ("") Response.Write ("
") Do until Mcoll.EOF If LastMaterialtype<>Mcoll("Materialtype") Then If Mcoll("Materialtype")=1 then Response.Write "

Sources

" End If If Mcoll("Materialtype")=2 then Response.Write "

Books

" End If If Mcoll("Materialtype")=3 then Response.Write "

Articles

" End If End If Response.Write ("

") Response.Write (Mcoll("Hovedpost") & "
") %> ">link OPAC
<% LastMaterialtype=Mcoll("Materialtype") Mcoll.MoveNext Loop Response.Write (" 

") Response.Write ("

") %>


Main Menu