<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#bdc6de" lightgray="#e0e0e0" %> Café Wilhelmina te Amsterdam - Muziekquiz - Kennisquiz - Poker <% Id=Request("Id") Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/wilhelmina2007.mdb") If Id="" Then SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) While NOT RS.EOF %>
">
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext Wend %> <%Else%> <% SQL = "Select * From stamgasten Where Id= (" & Id & ")" Set RS = MyConn.Execute(SQL) volgorde=RS.Fields("Id") viertal=RS.Fields("viertal") teller=1 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) Select case viertal case 1 While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend case 2 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) teller=5 count=1 While count<=4 RS.MoveNext count=count+1 Wend While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) count=1 While count<=4 %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext count=count+1 Wend case 3 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) teller=9 count=1 While count<=8 RS.MoveNext count=count+1 Wend While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) count=1 While count<=8 %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext count=count+1 Wend case 4 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) teller=13 count=1 While count<=12 RS.MoveNext count=count+1 Wend While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) count=1 While count<=12 %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext count=count+1 Wend case 5 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) teller=17 count=1 While count<=16 RS.MoveNext count=count+1 Wend While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) count=1 While count<=16 %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext count=count+1 Wend case 6 SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) teller=21 count=1 While count<=20 RS.MoveNext count=count+1 Wend While NOT RS.EOF If teller=volgorde Then %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<%Else%>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% End If teller=teller+1 RS.Movenext Wend SQL = "Select * From stamgasten" Set RS = MyConn.Execute(SQL) count=1 While count<=20 %>
.jpg" align=center>
<%=RS.Fields("naam")%>
<% RS.MoveNext count=count+1 Wend %> <%End Select%> <%End If%> <% 'RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>