Introduksjon til faget politikk og menneskerettigheter     P     R     O     S         ------------ Alfabetisk oversikt ------------ O     R     E     R     P       Valgkanalen: styringsorganer, partier og velgere   R     E     G     D     I           D     S     J     G     L   Valgkanalen: nærmere fokus på styringsorganer T     F     E     E     Å     L     I     O     N     R     T     Andre kanaler for innflytelse og påvirkning     L     R     T     I     E     F           K     A     N     R Internasjonal politikk og utenrikspolitikk   A     D     L     S     G           G     R     A     J     E   Internasjonale statlige organisasjoner       L     Ø     R     O     R           E     F     I     N     Fokus på internasjonale spørsmål           N     T     N     E                 K     I     G     R Menneskerettighetene               E     N     E                       R     G     R

ab cd e f gh ij k lm no pq r s tu vw...øå <% Dim objDBF, objR Set objDBF = Server.CreateObject("ADODB.Connection") objDBF.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=D:\Websites\LocalUser\w199597\www\db\politikk.mdb" objDBF.Open 'kopierer innholdet i tabellen medlemmer til objR Set objR = Server.CreateObject("ADODB.Recordset") objR.Open "Select * FROM politikk order by navn", objDBF Response.Write(" ") Set objR = objDBF.Execute("Select navn, tekst from politikk where tekst not like '.' and alfabet like 'c' or tekst not like '.' and alfabet like 'd' order by navn") Do While Not objR.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") objR.MoveNext() Loop Response.Write(" " & objR("navn") & " " & objR("tekst") & " ") %>