<%@LANGUAGE="VBSCRIPT"%> <% conn_string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("hiscoretitris.mdb") & ";Persist Security Info=False" %> <% set rsHi = Server.CreateObject("ADODB.Recordset") rsHi.ActiveConnection = conn_string rsHi.Source = "SELECT TOP 10 * FROM hiscore ORDER BY point desc" rsHi.CursorType = 0 rsHi.CursorLocation = 2 rsHi.LockType = 3 rsHi.Open() %> <% strSQL = "SELECT * FROM hiscore ORDER BY point desc" set rsDu = Server.CreateObject("ADODB.Recordset") rsDu.ActiveConnection = conn_string rsDu.Source = strSQL rsDu.CursorType = 0 rsDu.CursorLocation = 2 rsDu.LockType = 3 rsDu.Open() ' response.write strSQL %> FisseFisseFezFez - Ørkenens Sønner, Koldingafdelingen

Ornament
Den distraherende version af Tetris!
Så kan i godt TITte frem bag skærmen, og fatte kluden om jeres hånd. For her på Fisse-Fisse-Fez-Fez er vi nu stolte over at kunne præsentere TITris. Sjældent har kønne piger været villige til at distrahere jeres solo-spil som her.

For dem af jer der lider af en sygelig trang til at vise omverdenen hvor dygtige i er til at tage spilleriet i egen kludesvøbte hånd, er her også en velfungerende HI-score liste over de 10 dygtigste spillemænd.

KLIK LIGE HER FOR AT BEGYNDE SPILLET!


<% if not rsDu.EOF then i=1 %> <% do while not rsDu.eof and i<11%> <% date_dato_fra = rsDu("dato") if date_dato_fra >= date-7 then %> <% i=i+1 end if rsDu.movenext loop %>
<%= i %>. <%= rsDu("navn") %> <%= DoDateTime(rsDu("dato"), 2, 2070) %> <%= formatnumber(rsDu("point"),0) %>
<% end if %>
<% if not rsHi.EOF then i=1 %> <% do while not rsHi.eof %> <% i=i+1 rsHi.movenext loop %>
<%= i %>. <%= rsHi("navn") %> <%= DoDateTime(rsHi("dato"), 2, 2070)%> <%= formatnumber(rsHi("point"),0) %>
<% end if %>
Ornament
<% rsDu.close rsHi.close %>