<% 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 "