<% SQL = "SELECT * FROM lag_handelser WHERE datum = '" & Request.QueryString("datum") & "' ORDER BY typ ASC, lag DESC, rubrik ASC" Set handelserRS = Server.CreateObject("ADODB.Recordset") handelserRS.Open SQL, ifkskovdeConn, 3, 3 If Not handelserRS.EOF Then Do Until handelserRS.EOF %>

<% =handelserRS("lag") %> - <% =handelserRS("rubrik") %>

<% If handelserRS("typ") = 1 Then %> Match <% ElseIf handelserRS("typ") = 2 Then %> Övrigt <% Else %> Träning <% End If %>

<% =handelserRS("datum") %>
<% =handelserRS("tid") %>

<% =handelserRS("text") %>

<% If handelserRS.EOF Then Exit Do Else handelserRS.moveNext End If Loop End If %>