<% Response.Buffer = TRUE %> Moxy Moron or Gėnous?

View Moxy Moron or Gėnous? Players


<% FromDate = Request.QueryString("FromDate") ToDate = Request.QueryString("ToDate") Reviewed = Request.QueryString("Reviewed") ID = Request.QueryString("ID") WhereClause = "" If Not(IsNull(FromDate)) and FromDate <> "" Then WhereClause = WhereClause & " AND Date >= #" & FromDate & "#" End If If Not(IsNull(ToDate)) and ToDate <> "" Then WhereClause = WhereClause & " AND Date <= #" & ToDate & "#" End If If Not(IsNull(ID)) and ID <> "" Then WhereClause = WhereClause & " AND ID=" & ID End If If WhereClause <> "" Then WhereClause = "WHERE 1=1 " & WhereClause End If Set PlayerTable = CreateObject("ADODB.Recordset") PlayerTable.Open "SELECT * FROM players " & WhereClause & " ORDER BY Date DESC", "DSN=moxyquiz;" dim i i = 1 %> <% Password = Request.QueryString("Password") If Password = "jethr0" Then Do Until PlayerTable.EOF IDName = "id" & i DeleteName = "delete" & i if i mod 2 = 0 Then bgcolor = "#CCCCCC" else bgcolor = "#FFFF99" end if %> <% PlayerTable.MoveNext i = i + 1 Loop PlayerTable.Close %>
ID Player Score Date Change Delete
><%=Server.HTMLEncode(PlayerTable.Fields("ID")&"")%> ><%=Server.HTMLEncode(PlayerTable.Fields("Player")&"")%> ><%=Server.HTMLEncode(PlayerTable.Fields("Score")&"")%> ><%=Server.HTMLEncode(PlayerTable.Fields("Date")&"")%> >&id=<%=PlayerTable.Fields("ID")%>> Change Player > value="True">
value=<%=PlayerTable.Fields("ID")%>>
<% End If %>