%@ 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 %>
<% End Sub
'************************************************************************************
Sub ShowQuestion
Call PageHeader
Response.Write questionContent
%>
<%
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 "
"
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 "