<%@ EnableSessionState=False Language=VBScript%> <% Option Explicit %> <% Dim i Dim answer Dim firstQuest Dim currQuestion Dim questionContent Dim answerAltNumArr currQuestion = Request.Form( "questNum" ) answer = Request.Form( "q" & currQuestion ) answerAltNumArr = Array( 3, 3, 3, 3, 3, 3, 3, 18, 3, 3, 4, 3 ) If ( Len( Trim( currQuestion ) ) = 0 ) Then currQuestion = 1 End if If currQuestion < 13 Then questionContent = f_readFile( "inc/" & currQuestion & ".txt" ) Call ShowQuestion Else Call ShowResult End If '************************************************************************************ Sub PageHeader %> www.HEMBYGDSSLÖJD.net - IQ-test <% If currQuestion < 13 Then %> <% End If %>
  <% Call PageFooter End Sub '************************************************************************************ Sub ShowResult Call PageHeader Dim iq Dim points Dim rightAnswerArr points = 0 rightAnswerArr = Array( "", "b", "c", "abc", "b", "b", "c", "a", "cm", "abc", "c", "a", "abc" ) For i = 1 to 12 If InStr( rightAnswerArr( i ), Request.Form( "q" & i ) ) Then points = points + 1 End If Next Select Case points Case 1,2,3 : iq = F_RandRange( 0, 42 ) Case 4 : iq = F_RandRange( 43, 55 ) Case 5 : iq = F_RandRange( 56, 70 ) Case 6 : iq = F_RandRange( 71, 75 ) Case 7 : iq = F_RandRange( 76, 83 ) Case 8 : iq = F_RandRange( 83, 92 ) Case 9 : iq = F_RandRange( 93, 100 ) Case 10 : iq = F_RandRange( 101, 110 ) Case 11 : iq = F_RandRange( 110, 115 ) Case 12 : iq = F_RandRange( 190, 2000 ) End Select Response.Write "

<% End Sub '************************************************************************************ Sub ShowQuestion Call PageHeader Response.Write questionContent %>




<% For i = 1 To answerAltNumArr( currQuestion - 1 ) Response.Write i & "" & vbCrlf If i = 9 Then Response.Write "
" End If Next For i = 1 To 12 If Not i = cInt( currQuestion ) Then Response.Write "" & vbCrLf End If Next %>

" Response.Write "" Response.Write "Du har en IQ på " & iq & "." Response.Write "

" If points < 4 Then %> Hallå??? Hör du mig? Hallååååå???!??!?! Är det nån där? Hallå?? Du ser ut som du lever men ändå inte. Att du överhuvudtaget hittade hit är som ett mirakel för Harald och de flesta andra. Mer korkad än dig går det faktiskt inte att vara. Grattis. <% ElseIf points < 7 Then %> Du är inte så smart. Faktiskt jävligt korkad. Men är man så dum som du är så fattar du ändå inte vidden av det hela. Ta testet igen och slumpklicka på varje fråga. Chansen är faktiskt större för att det skall gå bra då. <% ElseIf points < 9 Then %> Du är lagom. Inte smart och inte dum. Precis mittimellan faktiskt. Det är extremt tråkigt att vara. Men du kan vara glad att du inte är en dummis i alla fall. <% ElseIf points < 11 Then %> Du är absolut ingen dummis! Du är smartare än de allra flesta faktiskt. Smartare än Christer Ulfbåge faktiskt. (Han var här innan och gjorde testet faktiskt..) Så var stolt! Sträck på dig! Och dra en kul vits! <% ElseIf points = 12 Then %> Doktor! Forskare! Läkare! Kemilärare! Veterinär! Om man staplar alla dina Nobelpris på varandra så räcker de upp till månen. Du är den smartaste som har varit på www.harald.net och det tackar vi för. <% End If Response.Write "



" Response.Write "Jag är smartare än så här" Response.Write "


" Call PageFooter End Sub '************************************************************************************ Sub PageFooter %>
<% End Sub %>