<!--#include file="common.asp" -->
<%
'On Error Resume Next
response.buffer = true
response.AddHeader "Pragma", "No-Cache"
Dim tipsrad
Dim spelarkaka
Dim KanInteKaka
Dim Kaka
Dim MittSvar
Dim FrageNummer
Dim strStatus
Dim rs
Dim SQL
Dim QMSQL ' SQL för QuizMaskinen
Dim namn
Dim alder
Dim nummer
Dim basta(100)
Dim i
Dim ii
Dim ledig
Dim NyttRekord
Dim klottertext
Dim AntalTkn
Dim uppdaterad
Dim RsEXIST
Dim senasteHar
Dim dropDownBox
Dim basiti ' Bäst sista timmen
Dim basititime
Dim basitiratt
Dim sistaHold
Dim koFr ' En komplett fråga
Dim TidsJustering ' Antal sekunder för att få klotter att stämma
TidsJustering = 3600



' If Request.QueryString("mittsvar") = "11" Then
'	 response.Redirect("http://aftonbladet.se")
' end if

Function iso2utf(instrang)
	instrang= Replace(instrang,"å","Ã¥")
	instrang= Replace(instrang,"ä","Ã¤")
	instrang= Replace(instrang,"ö","Ã¶")
	instrang= Replace(instrang,"Å","Ã…")
	instrang= Replace(instrang,"Ä","Ã„")
	instrang= Replace(instrang,"©","Â©")
	instrang= Replace(instrang,"°","Â°")
	instrang= Replace(instrang,"à","Ã ")
	instrang= Replace(instrang,"á","Ã¡")
	instrang= Replace(instrang,"è","Ã¨")
	instrang= Replace(instrang,"ë","Ã«")
	instrang= Replace(instrang,"é","Ã©")
	instrang= Replace(instrang,"ü","Ã¼")
	iso2utf= Replace(instrang,"Ö","Ã–")
End Function

Function DettaSpeletsNummer()
	' Skapar databasanslutningen.
	Set MinConn = Server.CreateObject("Adodb.Connection")
	MinConn.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=wosusr12;pwd=heTdu3h;database=wos12;"

	Set rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT MAX(spelnummer) AS tot FROM qz_topp"
	rs.Open SQL, MinConn

	DettaSpeletsNummer = rs("tot")

	' Stänger databaskopplingen.
	rs.Close
	MinConn.Close
'	Set rs = Nothing
	Set MinConn = Nothing
End Function

Sub Spelnummerkoll
	Dim SpNu
	Dim klotter
	SpNu = DettaSpeletsNummer()
	klotter = ""

	if SpNu = 500000 Then
		klotter = "Grattis " & strLoggedInUsername & ", du spelade spel nummer 500000 och vinner förutom äran dessutom tre Trisslotter"
	Elseif (SpNu mod 500) = 0 Then
		klotter = "Spel " & SpNu & " spelades av " & strLoggedInUsername
	End if
	If klotter <> "" Then
		' Skapar databasanslutningen.
		Set MinConn = Server.CreateObject("Adodb.Connection")
	
		' Här är det jag förklarade innan.
		MinConn.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=wosusr12;pwd=heTdu3h;database=wos12;"
		MinConn.Execute("INSERT INTO wp_roeptumaar (naam, text, tijd, IP) VALUES( 'QuizMaskinen','" & iso2utf(klotter) & "', '" & DateDiff("s", "01/01/1970 00:00:00", Now()) - TidsJustering & "', '" & Request.ServerVariables("remote_addr") & "')")
		' Stänger databaskopplingen.
		MinConn.Close
		Set MinConn = Nothing
	End If
End Sub

Sub TillMySQLTopplista(ratt, tid)
	' Skapar databasanslutningen.
	Set MinConn = Server.CreateObject("Adodb.Connection")

	' Här är det jag förklarade innan.
	MinConn.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=wosusr12;pwd=heTdu3h;database=wos12;"

	MinConn.Execute("INSERT INTO qz_topp (user_identity, ratt, tid, datum, old_nummer) VALUES( '" & iso2utf(strLoggedInUsername) & "','" & ratt & "','" & replace(tid, ",", ".") & "', '" & Now & "', 1000)")
	MinConn.Execute("INSERT INTO qz_topp_arkiv (user_identity, ratt, tid, datum, old_nummer) VALUES( '" & iso2utf(strLoggedInUsername) & "','" & ratt & "','" & replace(tid, ",", ".") & "', '" & Now & "', 1000)")

' Stänger databaskopplingen.
  MinConn.Close
  Set MinConn = Nothing
End Sub

Sub TillQM (klotter)
  If Len(klotter) > 2 Then
    Set Connect = Server.CreateObject("ADODB.Connection")
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='C:\Inetpub\www.telder.com\admin\dbasen.mdb' "   'This one is for Access 2000
    Connect.Open strCon
    strSQL = "INSERT INTO tblKlotter (datum, anvandare, klotter, ip) VALUES ('" & Now & "', 'QM', '" & klotter & "','" & Request.ServerVariables("remote_addr") & "')"
    'Query the database
    Connect.Execute strSQL,,128
    'response.write(strSQL)
    'response.write("<br><br>" & Connect)
    Connect.Close
    Set Connect = Nothing
  End If
End Sub

Function dublett(namn)
  ledig = 0
  For i = 1 To 99
    If basta(i)=namn Then dublett=True : Exit Function
    If ledig=0 And basta(i)="" Then ledig=i : Exit For
  Next
  basta(ledig)=namn
  dublett=False
End Function


Sub nolladublett
  For i = 1 To 99
'    response.write("<br> " & i & basta(i)) ' Felkoll!
    basta(i)=""
  Next
End Sub


Sub sjurovarlistan
    ' Sjurövarlistan
    uppdaterad = DateDiff("n",Application("oldSjuUppdat") , Now)
    If uppdaterad > 3 Or Len(Application("oldSjuTopp")) < 50 Then ' Gammal eller obefintlig sjurövarlista
    oldSjuTopp =""
    SQL = "SELECT *"
    SQL = SQL & " FROM tblSjurovare WHERE tblSjurovare.datum > #" & DateAdd("n", -43820, Now) & "#"
    SQL = SQL & " ORDER BY tblSjurovare.tid ASC"
    rs.Open SQL, adoCon
    nolladublett
    Do While not rs.EOF
        namn = rs("namn")
        If dublett(namn) = False Then
            alder=DateDiff("n", rs("datum"), Now)
            oldSjuTopp = oldSjuTopp & "<tr><td colspan=""2"" align=""left""><div title=""Genomsnitt:" & Round(rs("tid")/7,1) & "sek, ålder: " & senaste(alder) & ".""><Font color=""#" & farger(alder/96) & """>" & namn & "</font></div></td><td align=""center""><Font color=""#" & farger(alder/96) & """>" & Round(rs("tid"),1) & "</td></tr>" & VbCrLf
        End If
        rs.MoveNext
    Loop
'    Set rs = Nothing
'    Set adoCon = Nothing
    application("oldSjuUppdat") = Now
    application("oldSjuTopp") = oldSjuTopp
    Response.Write(oldSjuTopp)
    Else
        Response.Write(application("oldSjuTopp"))
    End If
End Sub


Sub sistaspelenlistan
  'Sista spelen-listan
  Dim basititid
  Dim Nybasititid
  sistaHold =""
  Nybasititid = 10000
  basiti = ""
  ' SQL = "SELECT tblQuizTopplista.antal_ratt, tblQuizTopplista.tid, tblQuizTopplista.datum, tblQuizTopplista.anvandare"
  SQL = "SELECT TOP 200 * FROM tblQuizTopplista WHERE tblQuizTopplista.datum > Now() - 3"
  SQL = SQL & " ORDER BY tblQuizTopplista.nummer DESC , tblQuizTopplista.tid"
  If Not RsEXIST Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    RsEXIST = True
  End If
  rs.Open SQL, adoCon
  nummer=0
  rs.MoveFirst
Do While not rs.EOF
  namn=rs("anvandare")
  If namn ="" Then namn="Anonym"
  alder=DateDiff("n", rs("datum"), Now)
  farg = farger(alder)
  If (rs("nummer") - 2) mod 100 = 0 Then farg="66E4FB"
  If (rs("nummer") - 2) mod 1000 = 0 Then 
	farg="83FF58"
	'If strLoggedInUsername <> "" Then TillQM ("Spel " & nummer + 200000 & "spelades av " & strLoggedInUsername & ".")
  End If
  SistaSpelTid = Round(rs("tid"),1)

  If alder < 61 Then
    basititid = 100 * ( 10 - rs("antal_ratt") ) + rs("tid")
    If basititid < Nybasititid Then
      Nybasititid = basititid
      basiti = namn
      basititime = SistaSpelTid
      basitiratt = rs("antal_ratt")
    End If
  End If

  If SistaSpelTid = "999" Then SistaSpelTid = "Avbrutet"
'  If alder > 1379 Then farg="DBDBDB"

  If alder < 1550 And nummer < (10 + Antaltkn / 70 ) And nummer < 30 Then
    sistaHold= sistaHold & "<tr><td><font color=""#" & farg & """><div title=""Kl: " & mid(rs("datum"),12,5) & """>" & namn & "</div></font></td><td align=""center""><Font color=""#" & farg & """>" & rs("antal_ratt") & "</font></td><td align=""center""><Font color=""#" & farg & """>" & SistaSpelTid & "</Font></td></tr>"
    nummer = nummer + 1
  End If
  rs.MoveNext
  If nummer => 10 + Antaltkn / 70 And alder > 61 Then Exit Do ' Ändrad från 20 till 10 pga SjuRövarelistan
Loop


rs.Close
End Sub


Sub klotterplankslistan
Dim fetstil
Dim visa
Dim EgetKlotter
Dim langd
Dim VisadePrivata
Dim Dag
Dim DagAlder
If Not RsEXIST Then
  Set rs = Server.CreateObject("ADODB.Recordset")
  RsEXIST = True
End If

SQL = "SELECT TOP 100 * "
SQL = SQL & "FROM tblKlotter WHERE tblKlotter.datum > #" & DateAdd("n", -4320, Now) & "#"      ' Två dygn = 2880 minuter, Tre dygn = 4320 minuter.
SQL = SQL & "ORDER BY tblKlotter.nummer DESC"
rs.Open SQL, adoCon
nummer = 0
i = 0
VisadePrivata = 0
AntalTkn = 0
Do While not rs.EOF
  bakfarg="F9F174"
  If (nummer Mod 2) = 0 Then bakfarg="F9E274"
  namn=rs("anvandare")
  If namn = strLoggedInUsername Then
    EgetKlotter = True
  Else
    EgetKlotter = false
  End If
  klottertext = Server.HTMLEncode(rs("klotter"))
  klottertext = Replace(klottertext, "*L*","<IMG src=""mboard/forum_images/smiley1.gif"" border=""0"">")
  klottertext = Replace(klottertext, "*S*","<IMG src=""mboard/forum_images/smiley4.gif"" border=""0"">")
  klottertext = Replace(klottertext, "*spc*","<IMG src=""smilisar/spc.gif"" border=""0"">")
  klottertext = Replace(klottertext, "*kom*","<IMG src=""smilisar/kom.gif"" border=""0"">")
  klottertext = Replace(klottertext, "&amp;#197;","Å")
  klottertext = Replace(klottertext, "&amp;#228;","ä")
  klottertext = Replace(klottertext, "&amp;#229;","å")
  klottertext = Replace(klottertext, "&amp;#246;","ö")
  klottertext = Replace(klottertext, "&amp;#233;","é")
  visa = True
  TillMig = False
  If Left(klottertext,1) = "#" Then  'Privata klottermeddelanden
    langd = Instr(2,klottertext, "#")
    If langd > 2 And langd < 21 Then
      Tillnamn = Mid(klottertext,2,langd-2)
      'response.write(langd & klottertext)'("¤"&Tillnamn&"¤")
      visa = False
      If strLoggedInUsername = Tillnamn Then ' Visa privata meddelanden till mig
        visa = True
        TillMig = True
        klottertext = "-&gt; <b>" & strLoggedInUsername & "</b> " & Mid(klottertext,langd+1)
      ElseIf strLoggedInUsername = namn Then ' Visa privata meddelanden jag skickat
        visa = True
        TillMig = True
        klottertext = "-&gt; <b>" & TillNamn & "</b> " & Mid(klottertext,langd+1)
      End If
    End If
  End If
  If visa = True And (i < 15 Or TillMig) Then
  If Not (i < 15) Then VisadePrivata = VisadePrivata + 1
    If Instr(klottertext, "*") > 0 Then 'Gör bara dessa loopar om nödvändigt
      For ii = 1 To 99
        klottertext = Replace(klottertext, "*" & ii & "*","<IMG src=""smilisar/" & ii & ".gif"" border=""0"">")
      Next
      For ii = 0 To 9
        klottertext = Replace(klottertext, "*00" & ii & "*","<IMG src=""smilisar/00" & ii & ".gif"" border=""0"">")
      Next
    End If
    nummer = nummer + 1
    i = i + 1
    If namn = "QuizMaskinen" Then i = i - 0.2
    If namn = "QM" Then i = i - 0.2
    If EgetKlotter Then namn ="<i>" & namn & "</i>"
    If TillMig = True Then bakfarg ="FFDDDD"
	Dag = ""
	DagAlder = datediff("d", rs("datum"), Now)
	If DagAlder = 0 Then 
		Dag = "i dag "
	ElseIf DagAlder = 1 Then 
		Dag = "i går "
	Else
		Select Case DatePart("w", rs("datum"))
			Case 1 Dag = "sön "
			Case 2 Dag = "mån "
			Case 3 Dag = "tis "
			Case 4 Dag = "ons "
			Case 5 Dag = "tor "
			Case 6 Dag = "fre "
			Case 7 Dag = "lör "
		End Select
	End If
    %><tr><td bgcolor="#<%=bakfarg%>"><font  style="font-family:verdana,arial,helvetica,geneva; font-size:12px;"><b><%=namn%></b> <%=klottertext%> </font><font size="1"><%=Dag & Mid(Left(rs("datum"),16),12)%></font></td></tr>
    <%
  End If
  rs.MoveNext
  'If nummer => 10 Then Exit Do
  If Not rs.EOF OR rs.BOF Then AntalTkn = AntalTkn + Len(rs("klotter"))
  If i >= 15 And VisadePrivata > 2 Then Exit Do
Loop
rs.Close
End Sub


Function senaste (minuter)
	If minuter < 91 Then
		senaste = minuter & " minuter"
	ElseIf minuter < 1441 Then
		senaste = minuter \ 60 & " timmar och " & minuter - (minuter \ 60)* 60 & " minuter"
	Else
		senaste = minuter \ 1440 & " dagar och " & (minuter - (minuter \ 1440)* 1440) \ 60 & " timmar"
	End If 
End Function


Sub senasteinloggade    'Vilka är de senaste spelarna?
    senasteHar = ""
    dropDownBox = "<SELECT TABINDEX=""2"" NAME=""klotterTill""><OPTION VALUE="""">Alla<OPTION VALUE=""Dick"">Dick"
    If Not RsEXIST Then
      Set rs = Server.CreateObject("ADODB.Recordset")
      RsEXIST = True
    End If
    SQL = "SELECT Username, Senast_IP, Senast FROM tblAuthor WHERE Senast > #" & DateAdd("h", -12, Now) & "# ORDER BY Senast DESC"
    rs.Open SQL, adoCon
    Do while Not rs.EOF
        alder=DateDiff("s", rs("Senast"), Now)
        If alder < 900 And rs("Username") <> "Dick" Then
          senasteHar = senasteHar & "<b>" & rs("Username")& "</b> " & mid(rs("Senast"),12,5) & ", "
        End If
        If rs("Username") <> "Dick" Then dropDownBox = dropDownBox & "<OPTION VALUE=""" & rs("Username") & """>" & rs("Username")
    rs.MoveNext
    Loop
    rs.Close
    dropDownBox = dropDownBox & "</SELECT>"
'    Set rs = Nothing
End Sub


Sub inpatopplistan
    If Not RsEXIST Then
      Set rs = Server.CreateObject("ADODB.Recordset")
      RsEXIST = True
    End If
    SQL = "SELECT * FROM tblQuizTopplista WHERE tblQuizTopplista.datum > #" & DateAdd("n", -10080, Now) & "#"
    SQL = SQL & " ORDER BY tblQuizTopplista.antal_ratt DESC , tblQuizTopplista.tid, tblQuizTopplista.datum DESC"
    rs.Open SQL, adoCon
    Nummer = 0
    NyttRekord = 0
    Do While not rs.EOF
      namn = rs("anvandare")
      If namn = "" Then namn="Anonym"
        If dublett(namn) = False Then
        If namn = "Anonym" Then nummer = nummer - 1 ' Anonym ska ju inte räknas...
          nummer = nummer + 1
          If tipsrad.AntalRatt > rs("antal_ratt") Then
            'Nytt rekord, fler rätt än tidigare rekord, överst eller bästa med 9 rätt...
            NyttRekord = nummer
            If strLoggedInUsername = "" Then
              QMSQL = ""
%><tr><td align="center" bgcolor="#ACD7E5" style="font-family:verdana,arial,helvetica,geneva; font-size:12px;">Ja, plats <b><%=nummer%></b> på veckotopplistan hade varit din, om du varit inloggad!
<br></td></tr><%
            Else
              QMSQL = "INSERT INTO tblKlotter (datum, anvandare, klotter, ip) VALUES ('" & Now & "','QM','" & strLoggedInUsername & " klättrar till plats " & platsnamn2(NyttRekord) & "','" & Request.ServerVariables("remote_addr") & "')"
            End If
            Exit Do

          ElseIf tipsrad.AntalRatt = rs("antal_ratt") And (tipsrad.tid / 1000) < rs("tid") And strLoggedInUsername = namn Then
            ' Bättrat på sitt rekord, lika många rätt som tidigare, men inte stigit i listan
'            NyttRekord = nummer
'            QMSQL = "INSERT INTO tblKlotter (datum, anvandare, klotter, ip) VALUES ('" & Now & "','QM','Grattis " & strLoggedInUsername & " som bättrat på sitt resultat på " & platsnamn2(NyttRekord) & "!','" & Request.ServerVariables("remote_addr") & "')"
            Exit Do

          ElseIf tipsrad.AntalRatt = rs("antal_ratt") And (tipsrad.tid / 1000) < rs("tid") And strLoggedInUsername <> namn Then
            ' Bättrat på sitt rekord, lika många rätt som tidigare, och har klivit upp högre i listan
            NyttRekord = nummer
            If strLoggedInUsername = "" Then
              QMSQL = ""
%><tr><td align="center" bgcolor="#ACD7E5" style="font-family:arial,verdana,helvetica; font-size:14px;" class="quizfraga">Plats <b><%=NyttRekord%></b> på veckotopplistan hade varit din, om du varit inloggad!
<br></td></tr><%
            Else
              QMSQL = "INSERT INTO tblKlotter (datum, anvandare, klotter, ip) VALUES ('" & Now & "','QM','" & strLoggedInUsername & " klättrar till plats " & platsnamn2(NyttRekord) & "','" & Request.ServerVariables("remote_addr") & "')"
            End If
            Exit Do

          ElseIf tipsrad.AntalRatt = rs("antal_ratt") And (tipsrad.tid / 1000) > rs("tid") And strLoggedInUsername = namn  Then
            ' Sämre tid, ska inte vara med i topplistan
             Exit Do

          ElseIf tipsrad.AntalRatt < rs("antal_ratt") And strLoggedInUsername = namn Then
            ' Färre antal rätt, ska inte vara med i topplistan
             Exit Do

          End If
        End If
      rs.MoveNext
     If nummer => 20 Then Exit Do
    Loop
    rs.Close
'    Set rs = Nothing

    If (NyttRekord > 0) And QMSQL <> "" Then ' Nytt rekord som QM ska klottra om
      adoCon.Execute QMSQL,,128
      'Skriv ut i en fil
      Set fileObj=Server.CreateObject("Scripting.FileSystemObject")
      If (fileObj.FileExists("D:\vb\Övervakning\Klotter.txt"))=true Then
          '---Open file
          set file1 = fileObj.OpenTextFile("D:\vb\Övervakning\Klotter.txt",8,true)' 1=Write 2=read 8=append
      Else
          '---create file
          set file1=fileObj.CreateTextFile("D:\vb\Övervakning\Klotter.txt",true)
      End If
      file1.WriteLine("QM: " & Time & "Nytt rekord av " & strLoggedInUsername & ", som hamnade på plats " & NyttRekord & " med " & tipsrad.AntalRatt & " rätt på " & (tipsrad.tid / 1000) & " sekunder.")
      file1.Close
      set file1=nothing
      set fileObj=nothing
    End If
End Sub


Sub kollaomsjurovare
    'Är detta en Sjurövare?
    If tipsrad.AntalRatt = 10 Then
      If Not RsEXIST Then
        Set rs = Server.CreateObject("ADODB.Recordset")
        RsEXIST = True
      End If
      SQL = "SELECT SUM(tblQuizTopplista.antal_ratt) As antr, SUM(tid) As zumma"
      SQL = SQL & " FROM (SELECT TOP 6 antal_ratt, anvandare, nummer, tid FROM tblQuizTopplista WHERE tblQuizTopplista.anvandare ='" & strLoggedInUsername & "' ORDER BY nummer DESC)"
      rs.Open SQL, adoCon
      If rs("antr") = 60 Then' Alla rätt i de senaste sex omgångarna
        zumma = rs("zumma") + (tipsrad.tid / 1000) ' Lägg ihop tiden för de senaste sju omgångarna...
		rs.Close
		' Kolla om detta är en ny bättre Sjurövare.
	    SQL = "SELECT *"
	    SQL = SQL & " FROM tblSjurovare WHERE tblSjurovare.datum > #" & DateAdd("n", -43820, Now) & "#"
	    SQL = SQL & " AND namn = '" & strLoggedInUsername & "' AND tid <= " & zumma 
        SQL = Replace(SQL, ",", ".")
	    rs.Open SQL, adoCon
	    If rs.EOF Then ' Ja, detta ÄR en ny Sjurövare!
			TillQM( strLoggedInUsername & " förbättrade sin Sjurövare till " & Round(zumma,1) & " sekunder.")
		End If
        rs.Close
        SQL = "INSERT INTO tblSjurovare (tid, datum, namn) VALUES ('" & zumma & "','" & Now & "','" & strLoggedInUsername & "')"
        adoCon.Execute SQL
        SQL = "DELETE FROM tblSjurovare WHERE namn = '" & strLoggedInUsername & "' AND tid > " & zumma ' Ta bort sämre och äldre poster i Sjurövarlistan
        SQL = Replace(SQL, ",", ".")
        adoCon.Execute SQL
%><tr><td align="center" bgcolor="#ACD7E5" style="font-family:verdana,arial,helvetica,geneva; font-size:12px;" class="quizfraga">Nu gjorde du en Sjurövare på <b><%=Round(zumma,1)%></b> sekunder, i genomsnitt <b><%=Round(zumma/7,1)%></b> sekunder!
<br></td></tr><%
      Else
        rs.Close
      End If
    End If
'    Set rs = Nothing
End Sub


Sub spararesultatitopplistan
  'Spara resultatet i topplistan
  If strLoggedInUsername <> "Dick" Then
    SQL = "INSERT INTO tblQuizTopplista (antal_ratt, tid, datum, anvandare) VALUES ('" & tipsrad.AntalRatt & "','" & tipsrad.tid / 1000 & "','" & Now & "','" & strLoggedInUsername & "')"
    adoCon.Execute SQL
	TillMySQLTopplista tipsrad.AntalRatt, tipsrad.tid / 1000
  End If
End Sub


Function platsnamn2(siffra)
If siffra < 10 Then
  platsnamn2 = "*spc**00" & siffra & "**spc*"
ElseIf siffra < 100 Then
  platsnamn2 = "*spc**00" & siffra \ 10 & "**00" & siffra mod 10 & "**spc*"
ElseIf siffra < 1000 Then
  platsnamn2 = "**spc*00" & siffra \ 100 & "**00" & siffra \ 10 & "**00" & siffra mod 10 & "**spc*"
Else
  platsnamn2 = siffra
End If
End Function


Sub Felsvar(fr_num)
 ' Skriv ut rätt svar till felaktigt besvarad fråga.
 Mellanord = "är en"
 ' Select Case Tipsrad.OrdStatus(fr_num)
 '   Case "s", "a", "v", "sjuk"
 '     Mellanord = "betyder"
 '   Case "pers"
 '     Mellanord = "är en"
 '   Case Else
 '     Mellanord = "betyder"
 ' End Select
  If Left(Tipsrad.FelSvar(fr_num),3) = "en " Then Mellanord = "är"
  If Left(Tipsrad.FelSvar(fr_num),4) = "ett " Then Mellanord = "är"

  Response.Write("<b>" & Tipsrad.FelFraga(fr_num) & "</b> " & Mellanord & " <b>" & Tipsrad.FelSvar(fr_num) & "</b>")
  Application("SenasteFelet") = Tipsrad.FelFraga(fr_num) ' För att lägga ut i raden för kolla ord
'  If Not IsNull(Tipsrad.FelHjalptext(fr_num)) Then
  If Len(Tipsrad.FelHjalptext(fr_num)) > 2 Then
    Response.Write(" (" & Tipsrad.FelHjalptext(fr_num) & ").")
  ElseIf Right(Tipsrad.FelSvar(fr_num),1) <> "." Then
    Response.Write(".")
  End If
End Sub


Function farger(alder)
  farger="ffffff"
  If alder > 434 Then 
    farger="CFCFCF" ' 1,5 dygn
  ElseIf alder > 441 Then
    farger="909090" ' 1,0 dygn
  ElseIf alder > 455 Then
    farger="000000"
  ElseIf alder < 01 Then
    farger="FF0000"
  ElseIf alder < 03 Then
    farger="FF2000"
  ElseIf alder < 05 Then
    farger="FF4000"
  ElseIf alder < 07 Then
    farger="FF6000"
  ElseIf alder < 09 Then
    farger="FF8000"
  ElseIf alder < 11 Then
    farger="FFA000"
  ElseIf alder < 13 Then
    farger="FFC000"
  ElseIf alder < 15 Then
    farger="FFE000"
  ElseIf alder < 17 Then
    farger="FFFF00"
  ElseIf alder < 19 Then
    farger="FFFF30"
  ElseIf alder < 22 Then
    farger="FFFF60"
  ElseIf alder < 25 Then
    farger="FFFF90"
  ElseIf alder < 28 Then
    farger="FFFFB0"
  ElseIf alder < 30 Then
    farger="FFFFE0"
  End If
End Function


RsEXIST = False

 If Request.QueryString("k") = "y" And  strLoggedInUsername <> "" Then
    strStatus = "SLUT"
    KanInteKaka = False
    Klottrat = True
 Else

  ' instansiera DLL genom att använda createobject
  Set tipsrad = Server.CreateObject("tipsrad.tips")

  Klottrat = False
  tipsrad.TotaltAntalFragor(10)
  tipsrad.DataBasNamn("D:\vb\tipsrad\tipsradsdatabas.mdb")
  Kaka = Request.Cookies("spelar_id")
  spelarkaka = tipsrad.kaka(Kaka)
  If spelarkaka = "" then spelarkaka = "no_good"
    Response.Cookies("spelar_id") = spelarkaka
  If isEmpty(Request.Cookies("spelar_id")) = True Then KanInteKaka = True
  'Hämta Svaret och vilken fråga det gällde från förra frågan
  MittSvar = Request.QueryString("mittsvar")
  FrageNummer = Request.QueryString("FrageNummer")
  'Skicka svaret till DLL-filen
  tipsrad.SvarsFrageNummer(FrageNummer)
  strStatus = tipsrad.MittSvar(MittSvar)
 End If
%><html>
<head><title>telder.com - quiz</title>
<link rel=STYLESHEET href="/telder.css" type="text/css">
<link rel="shortcut icon" href="favicon.ico" ><%

If KanInteKaka = False  AND strStatus = "SLUT" Then
%><SCRIPT language="JavaScript" type="text/javascript">
<!--// hide from non-javascript browsers
function showInfo(sida) {
open(sida,"info","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,fullscreen=no,width=264,height=543,top=50,left=300");
}
function validate(s) {
if (s.klotter.value.length > 245) {
alert("Varje klotter får innehålla  upp till 245 tecken. Du måste korta ner ditt klotter med " + (s.klotter.value.length - 245) + " tecken.");
return false;
} else
return true;
}
//-->
</SCRIPT><%
ElseIf KanInteKaka = False  AND strStatus <> "SLUT" Then
%><SCRIPT language="JavaScript" type="text/javascript">
<!--
document.onkeyup = test;
function test(e)
{
	var y = (window.event) ? event.keyCode : e.keyCode;
	var x = String.fromCharCode(y);
	if ( x > '0' && '6' > x)
	{
		self.location = 'tips.asp?mittsvar=' + x + '&FrageNummer=<%=tipsrad.FrageNummer%>';
	}
}
//-->
</SCRIPT><%
End If



'Här börjar sidan   Här börjar sidan   Här börjar sidan   Här börjar sidan   Här börjar sidan   Här börjar sidan   Här börjar sidan



%></head>
<body class="text">
<table width="580" border="0" cellspacing="0" cellpadding="5">
<tr><td><h1><center><font color="white">Spela Quiz!</font></center></h2></td></tr>
<tr><td>
<table><tr><td cellspacing="10" align="center">
<%
If KanInteKaka = True Then
%>
Din webbläsare returnerar inga kakor!<br>Ingen kaka - ingen tipsrad!
<%
ElseIf strStatus = "OK" Then

'Skicka ut en fråga:
kofr = "<table width=""550"" cellspacing=""0"" cellpadding=""2"" bgcolor=""#DBDBDB"" class=""quiztabell"">" & vbcrlf
kofr = kofr & "  <tr>" & vbcrlf
kofr = kofr & "    <td class=""quizfraga"" valign=""middle"">" & vbcrlf
kofr = kofr & "      &nbsp;<font size=""1"">Fråga " & tipsrad.FrageNummer & " av 10</font>" & vbcrlf
kofr = kofr & "    </td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
kofr = kofr & "    <td valign=""middle"" bgcolor=""#ACD7E5"" class=""quizfraga"">" & vbcrlf
kofr = kofr & "      &nbsp;<font size=""1"">Vad betyder:</font><br>" & vbcrlf
kofr = kofr & "      &nbsp;<b>" & tipsrad.Fraga & "</b>?" & vbcrlf & "    </td>" & vbcrlf & "  </tr>" & vbcrlf
For i = 1 To 5
kofr = kofr & "<tr height=""25"">" & vbcrlf & "    <td align=""left"" class=""quizfraga"">" & vbcrlf
kofr = kofr & "      <a class=""qf"" href=""tips.asp?mittsvar=" & i & "&FrageNummer=" & tipsrad.FrageNummer & """>" & vbcrlf
kofr = kofr & "      &nbsp;" & i & "&nbsp;&nbsp;" & tipsrad.Alternativ(i) & "&nbsp;&nbsp;</a>" & vbcrlf
kofr = kofr & "    </td>" & vbcrlf & "  </tr>" & vbcrlf
Next
kofr = kofr & "</table>" & vbcrlf & "</td></tr></table>" & vbcrlf

'response.write session("tips1")
response.write kofr
'session("tips1") = kofr

ElseIf strStatus = "INGET SVAR" Then
  ' Spara ett nollresultat i topplistan
  If strLoggedInUsername <> "Dick" Then
  ' Addera till statistiken på framsidan ifall den körs cachad
    application("totalt") = application("totalt") + 1
    SQL = "INSERT INTO tblQuizTopplista (antal_ratt, tid, datum, anvandare) VALUES ('0','999','" & Now & "','" & strLoggedInUsername & "')"
    adoCon.Execute SQL
  End If%>
<a href="tips.asp"><center>Det bidde fel på nåt sätt. Börja om från början!</center></a><%

ElseIf strStatus = "SLUT"  And Klottrat = False Then
' tog bort  valign="top" nedan i table...
%>
<tr><td valign="Top">
<table width="580" cellspacing="2" cellpadding="5">
<tr><td align="left" bgcolor="#ACD7E5" style="font-family:arial,verdana,helvetica; font-size:14px;" class="quizfraga">
<%

'Skriva ut antal rätt och fel..
If tipsrad.AntalRatt = 10 Then
%><br><center>
  <img src="images/piltavla.gif" width="100" height="75"></center><br>
Grattis<%If strLoggedInUsername <> "" Then Response.Write (" " & strLoggedInUsername)
%>! Du lyckades svara rätt på alla <%=tipsrad.TotaltAntalFragor%> frågorna på <b><%=Round(tipsrad.tid / 1000,1)%></b> sekunder.
<%
ElseIf tipsrad.AntalRatt = 9 Then
%><br>Inte illa<%If strLoggedInUsername <> "" Then Response.Write (" " & strLoggedInUsername)%>!
Du lyckades svara rätt på <b>9</b> av <b>10</b> frågor på <b><%=Round(tipsrad.tid / 1000,1)%></b> sekunder.
<br><br>Frågan du missade: <br><%FelSvar(1)%><br>
<%
Else%><br>Du svarade rätt på <b><%=tipsrad.AntalRatt%></b> av <b>10</b> frågor. Det tog dig <b><%=Round(tipsrad.tid / 1000,1)%></b> sekunder.
<br><br>Ett par tips:<br><% FelSvar(1)%><br><% FelSvar(2)%><br><%
End If
%></font></td></tr><%


' Efter en fullbordad spelomgång
If strLoggedInUsername <> "Dick" Then
' Addera till statistiken på framsidan ifall den körs cachad
  application("totalt") = application("totalt") + 1
  inpatopplistan   'inpatopplistan   inpatopplistan   inpatopplistan   inpatopplistan   inpatopplistan   inpatopplistan
  If strLoggedInUsername <> "" Then
    kollaomsjurovare   'kollaomsjurovare   kollaomsjurovare   kollaomsjurovare   kollaomsjurovare   kollaomsjurovare   kollaomsjurovare
  End If
  spararesultatitopplistan   'spararesultatitopplistan   spararesultatitopplistan   spararesultatitopplistan   spararesultatitopplistan
  'Stäng databasen
'  adoCon.Close
'  Set adoCon = Nothing
  Spelnummerkoll  '	Spelnummerkoll	Spelnummerkoll	Spelnummerkoll	Spelnummerkoll
End If


End If

If strStatus = "SLUT" Then
%>
 <tr>
   <td width="570" height=30 align="center" bgcolor="#ACD7E5" style="font-family:verdana,arial,helvetica,geneva; font-size:14px;" class="quizfraga">
   <a href="tips.asp">&nbsp;&nbsp;&nbsp;<b>Spela igen!</b>&nbsp;&nbsp;&nbsp;</a>  <i>Spela så många gånger du vill!</i>  <a href="tips.asp">&nbsp;&nbsp;&nbsp;<b>Spela igen!</b>&nbsp;&nbsp;&nbsp;</a>
   </td>
 </tr>
</table>

</td>
</tr>
<tr>
 <td>
  <table width="550" cols="2" valign="top" align="center">
   <tr>
    <td width="382" valign="Top">
     <table width="382" cellspacing="2" cellpadding="5">
<%

If strLoggedInUsername <> "" Then  'Klotterplank för inloggade
senasteinloggade  'Skapar senasteHar och dropdown-box för privatklotter
 %>   <tr>
       <td align="center" bgcolor="#4F8F4F">
	   <b><font color="white">Klotterplank</font></b><br>
	   <form action="shoutbox_update.asp" method="post" enctype="application/x-www-form-urlencoded" name="klottra" target="_self" id="klottra" onSubmit="return validate(this)">
	   <table>
	   <tr><td><textarea cols="38" rows="3" tabindex="1" name="klotter"></textarea>
	   </td><td>
	   <a href="#" onClick="showInfo('smil.htm'); return false;"><img src="/images/smil1w.gif" border="0"></a>
       <a href="#" onClick="showInfo('smil2.htm'); return false;"><img src="/images/smil2w.gif" border="0"></a><br>
       <%=dropDownBox%>
       <input type="submit" accesskey="s" tabindex="3" value="Klottra">
	   </td></tr>
       </table>
	   <font style="font-family:verdana,arial,helvetica,geneva; font-size:12px;" color="white">Senast här: <%=senasteHar%></font>
	   </form>
	   </td>
       </tr>
<%Else    '   Klotterplank för icke inloggade
%>      <tr>
       <td align="center" bgcolor="#4F8F4F"><b><font color="white">Klotterplank</b><form action="tips.asp"><input type="image" src="/images/transparent.gif" value="Nytt spel" accesskey="q"></form>
       <b><i>Du måste vara inloggad för att klottra.</i></b></font>
      </td>
     </tr>
<%End If
klotterplankslistan   'klotterplankslistan   klotterplankslistan   klotterplankslistan   klotterplankslistan
%>  <tr>
      <td bgcolor="#4F8F4F" align="center"><font color="white">
        <a href="/tips.asp?k=y"><b>&nbsp;Uppdatera sidan&nbsp;&nbsp;</b></a><img src="/smilisar/71.gif">
        <a href="/faq.htm"><b>&nbsp;FAQ - Ofta Ställda Frågor&nbsp;</b></a><br></font>
       </td>
      </tr>
      <tr><%

If strLoggedInUsername <> "" Then%>

      <td bgcolor="#ACD7E5" class="quizfraga">Kolla upp, ändra eller <b>lägg till</b> nya frågor i Quizzet!<br><form action="ord.asp" method="post">
      <font face="Verdana" size="2" color="#000000"><b>Vad betyder: <input type="text" value="<%=Application("SenasteFelet")%>"name="nyttord">? </b></font><input type="submit" value="Kolla"></form>
     </td>
    </tr>
<%End If%>
    <tr>
     <td bgcolor="#ACD7E5" class="quizfraga" align="center">Maila gärna synpunkter till <a HREF="mailto:vgk2@telder.com">vgk2@telder.com</a>
     <form action="tips.asp"><input type="image" src="/images/transparent.gif" value="Nytt spel" accesskey="q"></form>
     </td>
    </tr>
    <tr>
      <td width="570" height=30 align="center" bgcolor="#ACD7E5" style="font-family:verdana,arial,helvetica,geneva; font-size:14px;" class="quizfraga">
      <a href="tips.asp">&nbsp;&nbsp;&nbsp;<b>Spela igen!</b>&nbsp;&nbsp;&nbsp;</a><i> Gratis tidsfördriv! </i><a href="tips.asp">&nbsp;&nbsp;&nbsp;<b>Spela igen!</b>&nbsp;&nbsp;&nbsp;</a>
      </td>
    </tr>
  </table>
  </td>
  <td width="180" valign="top">
   <table bgcolor="#5F5F5F" width="190" class="topplista">
	<%sistaspelenlistan   'Sista spelen-listan   Sista spelen-listan   Sista spelen-listan%>   
	<%
	Application("BastSistaTimmen") = basiti
	If basiti <> "" Then%>
    <tr>
     <td class="topplisterubrik" colspan="3" align="center"><font face="Arial"><b>Bäst Sista Timmen</b></font>
     </td>
    </tr>
    <tr>
     <td colspan="3" align="center"><Font color="#FFFFFF"><%
     Response.Write ("<b>" & basiti & " </b>")
     If basitiratt = 10 Then
       Response.Write (FormatNumber(basititime,1))
     Else
       Response.Write (basitiratt & " rätt")
     End If
     %></font>
     </td>
    </tr>
    <tr><td colspan="3"></td></tr><%End If%>
    <tr>
     <td class="topplisterubrik" colspan="3" align="center"><font face="Arial"><b>De senaste spelen</b></font>
     </td>
    </tr>
    <tr>
     <td class="topplisterubrik"><font face="Arial"><b>Namn</b></font>
     </td>
     <td align="center" class="topplisterubrik"><font face="Arial"><b>Rätt</b></font>
     </td>
     <td align="center" class="topplisterubrik"><font face="Arial"><b>Tid</b></font>
     </td>
    </tr>
	<%Response.Write sistaHold%>
    <tr><td colspan="3"></td></tr>
    <tr>
     <td class="topplisterubrik" colspan="3" align="center"><font face="Arial"><b>Månadens SjuRövare</b></font>
     </td>
    </tr>
    <tr>
     <td class="topplisterubrik" colspan="2"><font face="Arial"><b>Namn</b></font>
     </td>
     <td class="topplisterubrik" align="center"><font face="Arial"><b>Tid</b></font>
     </td>
    </tr>
<%sjurovarlistan   'sjurovarlistan   sjurovarlistan   sjurovarlistan   sjurovarlistan%>
<tr><td colspan="3"></td></tr><%
End If
'TillQM ("hej, prov")
' Frigöra objektet från minnet

adoCon.Close
Set adoCon = Nothing

If RsEXIST Then
   Set rs = Nothing
End If

Set tipsrad = Nothing
%>
   </table>
  </td>
 </tr>
</table>
</td></tr>
</table>
</body>
</html>