")
		gix = 0
		for i = 1 to ak
		if left(kategorinamn(i),1) = ">" then 
		'response.write ("

")
		gix = gix +1
		if gix = 1 then response.write ("
")
		if gix>1 then response.write("|
")
		kk = right(kategorinamn(i),len(kategorinamn(i))-1)
		kategorinamn(i) = "> " & kk & ""
		response.write ("|-" & kategorinamn(i) & "(" & antalinomkategori(i) & ")
")
		else

		sx = 0
		for mn = 1 to len(kategorinamn(i))
		if mid(kategorinamn(i),mn,1) = ">" then sx = mn+1
		next

		if left(kategorinamn(i),1) = ">" then response.write("
")
		for mex = 1 to len(kategorinamn(i))
		if mid(kategorinamn(i),mex,1) = ">" then nm = mex
		'response.write(mid(kategorinamn(i),1,mex))
		next
		if nm="" then nm = 1 
		bbs = len(kategorinamn(i))-nm
		nox = right(kategorinamn(i),bbs)
		'response.write (kategorinamn(i) & " " & nm)
		'response.end

		response.write ("|-" & left(kategorinamn(i),nm) & " " & nox & " (" & antalinomkategori(i) & ")
")
		end if

		next

		'

end if


'response.write ("Januari 2008

")
'response.write ("December 2007
")
'response.write ("November 2007
")
'response.write ("Oktober 2007
")
'response.write ("September 2007
")
'response.write ("Augusti 2007
")
'response.write ("Juli 2007
")
'response.write ("Juni 2007
")
'response.write ("Maj 2007
")
'response.write ("April 2007
")
'response.write ("Mars 2007
")
'response.write ("Februari 2007
")
'response.write ("Januari 2007

")
'response.write ("December 2006
")
'response.write ("November 2006
")
'response.write ("Oktober 2006
")
'response.write ("September2006
")
'response.write ("Augusti 2006
")
'response.write ("Juli 2006
")
'response.write ("Juni 2006
")
'response.write ("Maj 2006
")
'response.write ("April 2006
")
'response.write ("Mars 2006
")
'response.write ("Februari 2006
")
'response.write ("Januari 2006

")
'response.write ("December 2005
")
'response.write ("November 2005
")
'response.write ("Oktober 2005
")
'response.write ("September 2005
")
'response.write ("Augusti 2005
")
'response.write ("Juli 2005
")
'response.write ("Juni 2005
")
'response.write ("Maj 2005
")
'response.write ("April 2005
")
'response.write ("Mars 2005
")
'response.write ("Februari 2005
")
'response.write ("Januari 2005

")
'response.write ("December 2004
")
'response.write ("November 2004
")
'response.write ("Oktober 2004
")
'response.write ("september 2004
")
'response.write ("augusti 2004
")
'response.write ("juli 2004
")
'response.write ("juni 2004
")
'response.write ("maj 2004
")
'response.write ("april 2004
")
'response.write ("mars 2004
")
'response.write ("februari 2004
")
'response.write ("januari 2004

")
'response.write ("december 2003
")
'response.write ("november 2003
")
'response.write ("oktober 2003
")
'response.write ("september 2003
")
'response.write ("augusti 2003
")
'response.write ("juli 2003
")
'response.write ("juni 2003
")
'response.write ("maj 2003
")
'response.write ("april 2003
")
'response.write ("mars 2003
")
'response.write ("februari 2003
")
'response.write ("januari 2003

")
'response.write ("december 2002
")
'response.write ("november 2002
")

'response.write("

Mina senaste träningsresultat:
")

'SQL = "SELECT * FROM spring ORDER BY datum DESC"
'antalspring = 0
'objRS.open SQL, objConn
'response.write ("")
'while not antalspring > 5 and not objRS.EOF 
'response.write ("")
'objRS.moveNext
'wend
'objRS.Close
'response.write ("
")
'antalspring = antalspring + 1
'tid = ""
'if objRS("timme") > 0 then tid = objRS("timme") & "."
'if objRS("minut") < 10 then tid = tid & "0"
'if objRS("minut") = 0 then 
'tid = tid & "0"
'else 
'tid = tid & objRS("minut")
'end if
'if tid <> "" then tid = tid & "."
'if objRS("sekund") < 10 then tid = tid & "0"
'if objRS("sekund") = 0 then 
'tid = tid & "0"
'else 
'tid = tid & objRS("sekund")
'end if
'if objRS("hundradel") <> 0 then tid = tid & "." & objRS("hundradel")

'tid2 = " sek"
'if objRS("minut") > 0 then tid2 = " min"
'if objRS("timme") > 0 then tid2 = " tim"
'tid = tid & tid2
'km = objRS("km") + objRS("meter")/1000
'if objRS("meter") = 0 then km = km & ",0"
'response.write (objRS("datum") & ": " & km & " km
" & tid & "
Fler resultat hittar du här
")

'response.write("
Senast lästa böcker:

")

'SQL = "SELECT * FROM bokfilm WHERE aktivitet = 'bok' ORDER BY författare, namn"
'antal = 0
'objRS.Open SQL, objConn
'while not objRS.EOF

'if objRS("slut") = "" and objRS("start") <> "" then 
'
'else

'if forfattare <> objRS("författare") then
'if antal <> 0 then response.write ("
")
'response.write ("")
'if objRS("författarlänk") <> "" then response.write ("")
'response.write (objRS("författare"))
'if objRS("författarlänk") <> "" then response.write ("")
'response.write ("
")
'forfattare = objRS("författare")
'end if
'antal = antal + 1
'response.write ("- ")

'if objRS("länk") <> "" then response.write ("")
'response.write (objRS("namn"))
'if objRS("länk") <> "" then response.write ("")

'fx = 0
'if objRS("betyg") <> 0 then fx = objRS("betyg")
'if fx > 0 then 
'response.write (" ("&fx&")")
'end if
'response.write ("
")
'end if
'objRS.MoveNext
'wend
'objRS.Close
'response.write ("
Totalt: " & antal & " st.")
'response.write("

Senast sedda filmer:
")

'SQL = "SELECT * FROM bokfilm WHERE aktivitet = 'film' ORDER BY namn"

'objRS.Open SQL, objConn
'antal = 0
'while not objRS.EOF
'response.write ("" & objRS("namn") & "")
'fx = 0
'if objRS("betyg") <> 0 then fx = objRS("betyg")
'if fx > 0 then 
'response.write ("("&fx&")")
'end if
'response.write ("
")
'antal = antal + 1
'objRS.MoveNext
'wend
'objRS.Close

'response.write ("
Totalt: " & antal & " st.

")
response.write ("

Generated by:


")
%>



<%

response.write ("
Denna sida använder cookies, bland annat för statistik, men också för att du ska slippa skriva in dina uppgifter varje gång du skriver en kommentar. Gillar du inte detta? Stäng då av cookies-funktionen i din webbläsare.