<% If Request.QueryString("b") = "2" Then Texter = "SELECT * FROM tunering order by ID" Re.Open Texter, Con, 3, 3 %>
<% If Re("1") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("2") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("3") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("4") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("5") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("6") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("7") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("8") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("9") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("10") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("11") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("12") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("13") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("14") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("14") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("15") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("16") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("17") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("18") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("19") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("20") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("21") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("22") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("23") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("24") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("25") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("26") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("27") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("28") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("29") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else If Re("30") = Session("ID") then %> <% Do Until Re.EOF if Re.EOF Then Exit Do End If %> ">Anmäl dig till tuneringen den <% =Re ("Dat") %>
<% Re.MoveNext Loop %> <% Else %> <% Re("1") = 1 Re("2") = 5 Re("3") = 9 Re("4") = 13 Re("5") = 17 Re("6") = 21 Re("7") = 25 Re("8") = 29 Re("9") = 2 Re("10") = 6 Re("11") = 10 Re("12") = 14 Re("13") = 18 Re("14") = 22 Re("15") = 26 Re("16") = 30 Re("17") = 3 Re("18") = 7 Re("19") = 11 Re("20") = 15 Re("21") = 19 Re("22") = 23 Re("23") = 27 Re("24") = 4 Re("25") = 8 Re("26") = 12 Re("27") = 16 Re("28") = 20 Re("29") = 24 Re("30") = 28 Re.Close Texter = "SELECT * FROM tunering order by ID = 1" Re.Open Texter, Con, 3, 3 %> <% =Re("Namn") %> <% Re.close Texter = "SELECT * FROM tunering order by ID = 2" Re.Open Texter, Con, 3, 3 %> <% =Re("Namn") %> <% Re.close End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If %>
<% End If %> <% If Request.QueryString("b") = "2tun" Then Addera = "SELECT * FROM tunering WHERE ID = " & Request.QueryString("ID") & " " Re.Open Addera, Con, 3, 3 If Not Re("1") = "" Then Re ("1") = Session("ID") Else If Not Re("2") = "" Then Re ("2") = Session("ID") Else If Not Re("3") = "" Then Re ("3") = Session("ID") Else If Not Re("4") = "" Then Re ("4") = Session("ID") Else If Not Re("5") = "" Then Re ("5") = Session("ID") Else If Not Re("6") = "" Then Re ("6") = Session("ID") Else If Not Re("7") = "" Then Re ("7") = Session("ID") Else If Not Re("8") = "" Then Re ("8") = Session("ID") Else If Not Re("9") = "" Then Re ("9") = Session("ID") Else If Not Re("10") = "" Then Re ("10") = Session("ID") Else If Not Re("11") = "" Then Re ("11") = Session("ID") Else If Not Re("12") = "" Then Re ("12") = Session("ID") Else If Not Re("13") = "" Then Re ("13") = Session("ID") Else If Not Re("14") = "" Then Re ("14") = Session("ID") Else If Not Re("15") = "" Then Re ("15") = Session("ID") Else If Not Re("16") = "" Then Re ("16") = Session("ID") Else If Not Re("17") = "" Then Re ("17") = Session("ID") Else If Not Re("18") = "" Then Re ("18") = Session("ID") Else If Not Re("19") = "" Then Re ("19") = Session("ID") Else If Not Re("20") = "" Then Re ("20") = Session("ID") Else If Not Re("21") = "" Then Re ("21") = Session("ID") Else If Not Re("22") = "" Then Re ("22") = Session("ID") Else If Not Re("23") = "" Then Re ("23") = Session("ID") Else If Not Re("24") = "" Then Re ("24") = Session("ID") Else If Not Re("25") = "" Then Re ("25") = Session("ID") Else If Not Re("26") = "" Then Re ("26") = Session("ID") Else If Not Re("27") = "" Then Re ("27") = Session("ID") Else If Not Re("28") = "" Then Re ("28") = Session("ID") Else If Not Re("29") = "" Then Re ("29") = Session("ID") Else If Not Re("30") = "" Then Re ("30") = Session("ID") End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Re.Update Re.Close Con.Close Response.write "
Bokad
Kom ihåg att anmälan är bindande. Om du ej deltar tar vi ut en avgift på 50kr.
Mvh Styrelsen.
" End if %>