Samliv, individ og samfunn Kulturforståelse Lov og rett: kriminalitet og domstoler Demokrati, politiske partier og påvirkning Politiske institusjoner i stat, fylker og kommuner Velferdssamfunnet Ungdom og økonomi Arbeidsmarked og tariffavtaler Arbeid og bedrifter, ledighet og miljø Globalisering og styring, krig og fred Internasjonalt samarbeid, miljø og utvikling

PowerPoint Oppgaver Ordgåter Gjettelek 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\samfunn.mdb" objDBF.Open Set objR = Server.CreateObject("ADODB.Recordset") objR.Open "Select * FROM samfunn where emne = 'samliv' order by nummer", objDBF Set objR = objDBF.Execute("Select * from samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 samfunn where emne = 'samliv' 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 %>