<%@ Language=VBScript %> <% Option Explicit %> Norsk språkhistore/norrønt og dansketid
Norsk
Historie
Idrett og samfunn
Politikk
Samfunnsfag
Tysk
Andre fag

PowerPoint-presentasjon: norrønt språk
Bondesjakk med norrøne ord
PowerPoint-presentasjon: språkhistorie før 1900
PowerPoint-presentasjon: språkhistorie etter 1900
Arbeidsoppgaver: norrønt, dansketid
Arbeidsoppgaver: linjene fra 1800-tallet
Arbeidsoppgaver: språkpolitikk/reformer etter 1900
Ordgåte: norrønt, dansketid
Ordgåte: linjene fra 1800-tallet
Ordgåte: språkpolitikk, reformer etter 1900
Kommunikasjon, sjangerlære m.m.
Litteraturhistoriske linjer
Forfattere og verk
Språkhistorie og norrønt
Målføre og språksosiologi
Nynorsk øvingsprogram
Norskfaglige lenker

<% Dim objDBF, objR, nr nr = 0 Set objDBF = Server.CreateObject("ADODB.Connection") objDBF.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=D:\Websites\LocalUser\w199597\www\db\norsk.mdb" objDBF.Open Set objR = Server.CreateObject("ADODB.Recordset") objR.Open "Select * FROM norsk where emne = 'spno5' order by nummer", objDBF Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 1") If objR("vises") = true Then nr = nr + 1 Dim antrader1, vekt1, test1, mittsvar1 vekt1 = objR("vekt") antrader1 = 8 * vekt1 Response.Write("" & _ "") If Request.Form("svar1") = "" Then If Request.Form("besvart1") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar1 = Request.Form("besvart1") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar1 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov1") <> "" Then test1 = Request.Form("prov1") If (Len(test1) >= vekt1*30) And (InStr(1, test1, " ") > 0) And (InStr(1, test1, "e", 1) > 0) And (InStr(1, test1, "s", 1) > 0) And (InStr(1, test1, "r", 1) > 0) And (InStr(1, test1, "t", 1) > 0) And (InStr(1, test1, "n", 1) > 0) And ((InStr(1, test1, "a", 1) > 0) Or (InStr(1, test1, "i", 1) > 0) Or (InStr(1, test1, "v", 1) > 0)) And ((InStr(1, test1, "k", 1) > 0) Or (InStr(1, test1, "l", 1) > 0) Or (InStr(1, test1, "m", 1) > 0)) And ((InStr(1, test1, "d", 1) > 0) Or (InStr(1, test1, "g", 1) > 0) Or (InStr(1, test1, "o", 1) > 0)) Then mittsvar1 = Request.Form("prov1") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar1 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 2") If objR("vises") = true Then nr = nr + 1 Dim antrader2, vekt2, test2, mittsvar2 vekt2 = objR("vekt") antrader2 = 8 * vekt2 Response.Write("" & _ "") If Request.Form("svar2") = "" Then If Request.Form("besvart2") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar2 = Request.Form("besvart2") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar2 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov2") <> "" Then test2 = Request.Form("prov2") If (Len(test2) >= vekt2*30) And (InStr(1, test2, " ") > 0) And (InStr(1, test2, "e", 1) > 0) And (InStr(1, test2, "s", 1) > 0) And (InStr(1, test2, "r", 1) > 0) And (InStr(1, test2, "t", 1) > 0) And (InStr(1, test2, "n", 1) > 0) And ((InStr(1, test2, "a", 1) > 0) Or (InStr(1, test2, "i", 1) > 0) Or (InStr(1, test2, "v", 1) > 0)) And ((InStr(1, test2, "k", 1) > 0) Or (InStr(1, test2, "l", 1) > 0) Or (InStr(1, test2, "m", 1) > 0)) And ((InStr(1, test2, "d", 1) > 0) Or (InStr(1, test2, "g", 1) > 0) Or (InStr(1, test2, "o", 1) > 0)) Then mittsvar2 = Request.Form("prov2") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar2 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 3") If objR("vises") = true Then nr = nr + 1 Dim antrader3, vekt3, test3, mittsvar3 vekt3 = objR("vekt") antrader3 = 8 * vekt3 Response.Write("" & _ "") If Request.Form("svar3") = "" Then If Request.Form("besvart3") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar3 = Request.Form("besvart3") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar3 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov3") <> "" Then test3 = Request.Form("prov3") If (Len(test3) >= vekt3*30) And (InStr(1, test3, " ") > 0) And (InStr(1, test3, "e", 1) > 0) And (InStr(1, test3, "s", 1) > 0) And (InStr(1, test3, "r", 1) > 0) And (InStr(1, test3, "t", 1) > 0) And (InStr(1, test3, "n", 1) > 0) And ((InStr(1, test3, "a", 1) > 0) Or (InStr(1, test3, "i", 1) > 0) Or (InStr(1, test3, "v", 1) > 0)) And ((InStr(1, test3, "k", 1) > 0) Or (InStr(1, test3, "l", 1) > 0) Or (InStr(1, test3, "m", 1) > 0)) And ((InStr(1, test3, "d", 1) > 0) Or (InStr(1, test3, "g", 1) > 0) Or (InStr(1, test3, "o", 1) > 0)) Then mittsvar3 = Request.Form("prov3") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar3 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 4") If objR("vises") = true Then nr = nr + 1 Dim antrader4, vekt4, test4, mittsvar4 vekt4 = objR("vekt") antrader4 = 8 * vekt4 Response.Write("" & _ "") If Request.Form("svar4") = "" Then If Request.Form("besvart4") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar4 = Request.Form("besvart4") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar4 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov4") <> "" Then test4 = Request.Form("prov4") If (Len(test4) >= vekt4*30) And (InStr(1, test4, " ") > 0) And (InStr(1, test4, "e", 1) > 0) And (InStr(1, test4, "s", 1) > 0) And (InStr(1, test4, "r", 1) > 0) And (InStr(1, test4, "t", 1) > 0) And (InStr(1, test4, "n", 1) > 0) And ((InStr(1, test4, "a", 1) > 0) Or (InStr(1, test4, "i", 1) > 0) Or (InStr(1, test4, "v", 1) > 0)) And ((InStr(1, test4, "k", 1) > 0) Or (InStr(1, test4, "l", 1) > 0) Or (InStr(1, test4, "m", 1) > 0)) And ((InStr(1, test4, "d", 1) > 0) Or (InStr(1, test4, "g", 1) > 0) Or (InStr(1, test4, "o", 1) > 0)) Then mittsvar4 = Request.Form("prov4") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar4 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 5") If objR("vises") = true Then nr = nr + 1 Dim antrader5, vekt5, test5, mittsvar5 vekt5 = objR("vekt") antrader5 = 8 * vekt5 Response.Write("" & _ "") If Request.Form("svar5") = "" Then If Request.Form("besvart5") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar5 = Request.Form("besvart5") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar5 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov5") <> "" Then test5 = Request.Form("prov5") If (Len(test5) >= vekt5*30) And (InStr(1, test5, " ") > 0) And (InStr(1, test5, "e", 1) > 0) And (InStr(1, test5, "s", 1) > 0) And (InStr(1, test5, "r", 1) > 0) And (InStr(1, test5, "t", 1) > 0) And (InStr(1, test5, "n", 1) > 0) And ((InStr(1, test5, "a", 1) > 0) Or (InStr(1, test5, "i", 1) > 0) Or (InStr(1, test5, "v", 1) > 0)) And ((InStr(1, test5, "k", 1) > 0) Or (InStr(1, test5, "l", 1) > 0) Or (InStr(1, test5, "m", 1) > 0)) And ((InStr(1, test5, "d", 1) > 0) Or (InStr(1, test5, "g", 1) > 0) Or (InStr(1, test5, "o", 1) > 0)) Then mittsvar5 = Request.Form("prov5") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar5 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 6") If objR("vises") = true Then nr = nr + 1 Dim antrader6, vekt6, test6, mittsvar6 vekt6 = objR("vekt") antrader6 = 8 * vekt6 Response.Write("" & _ "") If Request.Form("svar6") = "" Then If Request.Form("besvart6") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar6 = Request.Form("besvart6") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar6 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov6") <> "" Then test6 = Request.Form("prov6") If (Len(test6) >= vekt6*30) And (InStr(1, test6, " ") > 0) And (InStr(1, test6, "e", 1) > 0) And (InStr(1, test6, "s", 1) > 0) And (InStr(1, test6, "r", 1) > 0) And (InStr(1, test6, "t", 1) > 0) And (InStr(1, test6, "n", 1) > 0) And ((InStr(1, test6, "a", 1) > 0) Or (InStr(1, test6, "i", 1) > 0) Or (InStr(1, test6, "v", 1) > 0)) And ((InStr(1, test6, "k", 1) > 0) Or (InStr(1, test6, "l", 1) > 0) Or (InStr(1, test6, "m", 1) > 0)) And ((InStr(1, test6, "d", 1) > 0) Or (InStr(1, test6, "g", 1) > 0) Or (InStr(1, test6, "o", 1) > 0)) Then mittsvar6 = Request.Form("prov6") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar6 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 7") If objR("vises") = true Then nr = nr + 1 Dim antrader7, vekt7, test7, mittsvar7 vekt7 = objR("vekt") antrader7 = 8 * vekt7 Response.Write("" & _ "") If Request.Form("svar7") = "" Then If Request.Form("besvart7") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar7 = Request.Form("besvart7") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar7 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov7") <> "" Then test7 = Request.Form("prov7") If (Len(test7) >= vekt7*30) And (InStr(1, test7, " ") > 0) And (InStr(1, test7, "e", 1) > 0) And (InStr(1, test7, "s", 1) > 0) And (InStr(1, test7, "r", 1) > 0) And (InStr(1, test7, "t", 1) > 0) And (InStr(1, test7, "n", 1) > 0) And ((InStr(1, test7, "a", 1) > 0) Or (InStr(1, test7, "i", 1) > 0) Or (InStr(1, test7, "v", 1) > 0)) And ((InStr(1, test7, "k", 1) > 0) Or (InStr(1, test7, "l", 1) > 0) Or (InStr(1, test7, "m", 1) > 0)) And ((InStr(1, test7, "d", 1) > 0) Or (InStr(1, test7, "g", 1) > 0) Or (InStr(1, test7, "o", 1) > 0)) Then mittsvar7 = Request.Form("prov7") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar7 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 8") If objR("vises") = true Then nr = nr + 1 Dim antrader8, vekt8, test8, mittsvar8 vekt8 = objR("vekt") antrader8 = 8 * vekt8 Response.Write("" & _ "") If Request.Form("svar8") = "" Then If Request.Form("besvart8") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar8 = Request.Form("besvart8") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar8 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov8") <> "" Then test8 = Request.Form("prov8") If (Len(test8) >= vekt8*30) And (InStr(1, test8, " ") > 0) And (InStr(1, test8, "e", 1) > 0) And (InStr(1, test8, "s", 1) > 0) And (InStr(1, test8, "r", 1) > 0) And (InStr(1, test8, "t", 1) > 0) And (InStr(1, test8, "n", 1) > 0) And ((InStr(1, test8, "a", 1) > 0) Or (InStr(1, test8, "i", 1) > 0) Or (InStr(1, test8, "v", 1) > 0)) And ((InStr(1, test8, "k", 1) > 0) Or (InStr(1, test8, "l", 1) > 0) Or (InStr(1, test8, "m", 1) > 0)) And ((InStr(1, test8, "d", 1) > 0) Or (InStr(1, test8, "g", 1) > 0) Or (InStr(1, test8, "o", 1) > 0)) Then mittsvar8 = Request.Form("prov8") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar8 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 9") If objR("vises") = true Then nr = nr + 1 Dim antrader9, vekt9, test9, mittsvar9 vekt9 = objR("vekt") antrader9 = 8 * vekt9 Response.Write("" & _ "") If Request.Form("svar9") = "" Then If Request.Form("besvart9") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar9 = Request.Form("besvart9") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar9 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov9") <> "" Then test9 = Request.Form("prov9") If (Len(test9) >= vekt9*30) And (InStr(1, test9, " ") > 0) And (InStr(1, test9, "e", 1) > 0) And (InStr(1, test9, "s", 1) > 0) And (InStr(1, test9, "r", 1) > 0) And (InStr(1, test9, "t", 1) > 0) And (InStr(1, test9, "n", 1) > 0) And ((InStr(1, test9, "a", 1) > 0) Or (InStr(1, test9, "i", 1) > 0) Or (InStr(1, test9, "v", 1) > 0)) And ((InStr(1, test9, "k", 1) > 0) Or (InStr(1, test9, "l", 1) > 0) Or (InStr(1, test9, "m", 1) > 0)) And ((InStr(1, test9, "d", 1) > 0) Or (InStr(1, test9, "g", 1) > 0) Or (InStr(1, test9, "o", 1) > 0)) Then mittsvar9 = Request.Form("prov9") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar9 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If Set objR = objDBF.Execute("Select * FROM norsk where emne = 'spno5' and nummer = 10") If objR("vises") = true Then nr = nr + 1 Dim antrader10, vekt10, test10, mittsvar10 vekt10 = objR("vekt") antrader10 = 8 * vekt10 Response.Write("" & _ "") If Request.Form("svar10") = "" Then If Request.Form("besvart10") = "" Then Response.Write("" & _ "" & _ "" & _ "
" & nr & ". " & objR("spørsmål") & "
" & _ "" & _ "
Vekttall: " & _ "Avgi svar - og studer deretter fasiten.
") Else mittsvar10 = Request.Form("besvart10") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar10 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") End If Else If Request.Form("prov10") <> "" Then test10 = Request.Form("prov10") If (Len(test10) >= vekt10*30) And (InStr(1, test10, " ") > 0) And (InStr(1, test10, "e", 1) > 0) And (InStr(1, test10, "s", 1) > 0) And (InStr(1, test10, "r", 1) > 0) And (InStr(1, test10, "t", 1) > 0) And (InStr(1, test10, "n", 1) > 0) And ((InStr(1, test10, "a", 1) > 0) Or (InStr(1, test10, "i", 1) > 0) Or (InStr(1, test10, "v", 1) > 0)) And ((InStr(1, test10, "k", 1) > 0) Or (InStr(1, test10, "l", 1) > 0) Or (InStr(1, test10, "m", 1) > 0)) And ((InStr(1, test10, "d", 1) > 0) Or (InStr(1, test10, "g", 1) > 0) Or (InStr(1, test10, "o", 1) > 0)) Then mittsvar10 = Request.Form("prov10") Response.Write("" & _ "" & _ "" & _ "

" & mittsvar10 & "" & _ "" & _ "" & _ "

" & objR("avsnitt1") & _ "

" & objR("avsnitt2") & _ "

" & objR("avsnitt3") & _ "

" & objR("avsnitt4") & _ "

" & objR("avsnitt5") & _ "

" & objR("avsnitt6") & "") Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If Else Response.Write("" & _ "" & _ "" & _ "Vekttall: " & _ "" & _ "Det kreves et grundig svar for å få se fasiten." & _ "") End If End If Response.Write("

") End If 'lukker recordsettet og databaseforbindelsen objR.Close() objDBF.Close() Set objR = Nothing Set objDBF = Nothing %>