<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#e7b78f" lightgray="#e0e0e0" %> Café Wilhelmina te Amsterdam - Muziekquiz - Kennisquiz - Poker <% nr=Request("nr") If nr="" Then nr=1 End If Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/wilhelmina2007.mdb") SQL = "Select * From mqdatum" Set RS = MyConn.Execute(SQL) dag=RS.Fields("dag") datum=RS.Fields("datum") maand=RS.Fields("maand") ronde=RS.Fields("ronde") team=RS.Fields("team") thema=RS.Fields("thema") %> <% SQL = "Select * From mqprofiel Where nr = " & nr Set RS = MyConn.Execute(SQL) %>
Muziekquiz Kennisquiz Live muziekEK 2008
 
 Teamleden:
  <%=RS.Fields("teamleden")%>
 Sterke punten:
  <%=RS.Fields("sterkepunten")%>
 Zwakke punten:
  <%=RS.Fields("zwakkepunten")%>
 Angstgegner:
  <%=RS.Fields("angstgegner")%>
 Bijzonderheden:
  <%=RS.Fields("opmerkingen")%>
 
 
<% SQL = "Select COUNT(*) AS [CountVanTeams] FROM mqprofiel" Set RS = MyConn.Execute(SQL) aantal=RS("CountVanTeams") max=aantal+2 SQL = "Select * From mqprofiel Where nr = " & nr Set RS = MyConn.Execute(SQL) %> <%nr=nr-1%><%If nr=0 Then%><%nr=aantal%><%End If%><%nr=nr+2%><%If nr=aantal Then%><%nr=1%><%End If%><%If nr=max Then%><%nr=1%><%End If%>
 
 .jpg" border=1 color="#616161" width=200> 
 
<%=RS.Fields("teamnaam")%>
 
   
 > width=100% border=0 cellspacing=1 cellpadding=1 align=right>
InschrijvingenTeamprofielenSpelregels
<% RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>