<% If Session("User_kreds30") = "" Then Response.Redirect("login.asp") End If %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../database/login.mdb") SQL = "Select * from loginfo where Brugerlevel = '"&session("User_kreds30")&"'" set RS = conn.execute(sql) %> Trænerliste i schæferhundeklubben - Kreds 30, Greve <% if rs("brugerlevel") = "Administrator" then %> <% elseif rs("brugerlevel") = "Superbruger" then %>

velkommen <%=session("User_kreds30")%>

<% else %>

velkommen

<% end if %>

velkommen <%=session("User_kreds30")%>

Her kan du tilføje eller rette i nuværende oplysninger

Bestyrelsen

Tilføj | Ret/slet

Brugshundeudvalget

Tilføj | Ret/slet

Avlsudvalget

Tilføj | Ret/slet

Øvrige udvalg

Tilføj | Ret/slet

Medlemsresultater

Tilføj | Ret/slet

Årets hund

Tilføj | Ret/slet

Træningstider

Tilføj | Ret/slet

Trænerliste

Tilføj | Ret/slet

Kenneler

Tilføj | Ret/slet

Arrangementer

Tilføj | Ret/slet | Se tilmeldte

Administrér billeder

Administrer mapper

Referater

Upload referat

Kredsblad

Upload kredsblad

DM/VM BHP3

Upload filer til mappen "DM/VM BHP3"

Sponsorer

Upload filer til mappen "Sponsorer"

log af

  
<% RS.Close conn.Close Set conn = nothing Set SQLstmt = nothing %>