<%
Dim Connect,contestrs,Query,thismonth,n,mymonth
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "lucy"
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrypoints"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Year |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("points")%> |
<% contestrs.MoveNext
Loop %>
|
<% End If
thismonth = Month(Date)
Select Case thismonth
Case 1
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryjan"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("jan")%> |
<% contestrs.MoveNext
Loop
End If
Case 2
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryfeb"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("feb")%> |
<% contestrs.MoveNext
Loop
End If
Case 3
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrymar"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("mar")%> |
<% contestrs.MoveNext
Loop
End If
Case 4
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryapr"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("apr")%> |
<% contestrs.MoveNext
Loop
End If
Case 5
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrymay"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("may")%> |
<% contestrs.MoveNext
Loop
End If
Case 6
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryjun"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("jun")%> |
<% contestrs.MoveNext
Loop
End If
Case 7
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryjul"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("jul")%> |
<% contestrs.MoveNext
Loop
End If
Case 8
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryaug"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("aug")%> |
<% contestrs.MoveNext
Loop
End If
Case 9
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrysep"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("sep")%> |
<% contestrs.MoveNext
Loop
End If
Case 10
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qryoct"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("oct")%> |
<% contestrs.MoveNext
Loop
End If
Case 11
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrynov"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("nov")%> |
<% contestrs.MoveNext
Loop
End If
Case 12
Set contestrs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM qrydec"
contestrs.Open Query, Connect, adOpenStatic, adLockOptimistic
n = contestrs.RecordCount
If n > 0 Then %>
| Month |
| Name |
Country |
Points |
<% Do Until contestrs.EOF %>
| <%=contestrs("player")%> |
<%=contestrs("country")%> |
<%=contestrs("dec")%> |
<% contestrs.MoveNext
Loop
End If
End Select
contestrs.Close %>
|