<% Set SQLConn = Server.CreateObject("AdoDB.Connection") SQLConn.Open "elochess" name = CStr(Request.Form("name")) country = CStr(Request.Form("country")) minrating = CDbl(Request.Form("minrating")) sent = Request.Form("sent") parameter = Request.QueryString("parameter") %> Chess / FIDE Official Ratings
OFFICIAL RATINGS
FOR THE 1ST CEMESTER OF 1999

<% if sent = "" AND parameter = "" then %> Search our Database
Use our database to view information about FIDE players and current ratings. You can search for a player by their name, country, and/or minimum rating. The last official ratings update was January 1999.

Name:
Country:
Min Rating:
Tips for searching:
    * You can use partial or mispelled names.
    * The first letter of the name and the surname must be Uppercase.
    * Leave blank the name field, if you want to ignore this criterion.
    * To ignore nationality, choose "All Countries"
    * Enter "0" or leave the field blank to ignore minimum rating.
Acceses so far:
<% end if %> <% if sent <> "" AND parameter = "" then %>
Your Query Parameters:
Player: <%=name%>
Country: <% if country <> "" then %> <%=country%> <% else %> ALL <% end if %>
Rating: <%=minrating%>

<% if name <> "" AND country = "" AND minrating = "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE NAME LIKE '%" & name & "%' ORDER BY NAME" end if if name <> "" AND country <> "" AND minrating = "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE NAME LIKE '%" & name & "%' AND COUNTRY = '" & country & "' ORDER BY NAME" end if if name <> "" AND country <> "" AND minrating <> "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE NAME LIKE '%" & name & "%' AND COUNTRY = '" & country & "' AND JAN99 >= " & minrating & " ORDER BY NAME" end if if name = "" AND country <> "" AND minrating = "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE COUNTRY = '" & country & "' ORDER BY NAME" end if if name = "" AND country <> "" AND minrating <> "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE COUNTRY = '" & country & "' AND JAN99 >= " & minrating & " ORDER BY NAME" end if if name = "" AND country = "" AND minrating <> "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE RO >= " & minrating & " ORDER BY NAME" end if if name <> "" AND country = "" AND minrating <> "" then SQL = "SELECT DISTINCTROW ID_NUMBER, NAME, JAN99, COUNTRY, TITLE, N FROM INDV9901 WHERE NAME LIKE '%" & name & "%' AND JAN99 >= " & minrating & " ORDER BY NAME" end if Set RS = SQLConn.Execute(SQL) 'Response.Write SQL if not RS.EOF then do while not RS.EOF %> <% if my_name <> RS("NAME") then %> <% else %> <% RS.MoveNext %> <% end if %> <% my_name = RS("NAME") RS.MoveNext Loop else %> <% end if RS.Close %>
ID# Name ELO Country Title
"><%=RS("ID_NUMBER")%> <%=RS("NAME")%> <%=RS("JAN99")%> <%=RS("COUNTRY")%> <%=RS("TITLE")%>
No chess players found with the criteria you gave!!!

<% end if %> <% if sent = "" AND parameter <> "" then %> <% SQL = "SELECT DISTINCT NAME, ID_NUMBER, JAN99, TITLE, COUNTRY, BIRTHDAY FROM INDV9901 WHERE ID_NUMBER = " & parameter 'AND RO = " & minrating & " AND COUNTRY = '" & country & "'" Set RS = SQLConn.Execute(SQL) 'Response.Write SQL %>
Player Information
Name: <%=RS("NAME")%>
FIDE ID#: <%=RS("ID_NUMBER")%>
Elo: <%=RS("JAN99")%>
Title: <%=RS("TITLE")%>
Country: <%=RS("COUNTRY")%>
Birthday: <%=RS("BIRTHDAY")%>
<% RS.Close %>

<% SQL = "SELECT EVENT, CITY, FED, START, RO, RC, W, N, CHG, RP, K, KCHG FROM INDV9901 WHERE ID_NUMBER = " & parameter Set RS = SQLConn.Execute(SQL) 'Response.Write SQL if RS("EVENT") <> "" then do while not RS.EOF %> <% RS.MoveNext Loop else %> <% end if RS.Close %>
Event City Fed Start RO RC W N CHG RP K KCHG
<%=RS("EVENT")%> <%=RS("CITY")%> <%=RS("FED")%> <%=RS("START")%> <%=RS("RO")%> <%=RS("RC")%> <%=RS("W")%> <%=RS("N")%> <%=RS("CHG")%> <%=RS("RP")%> <%=RS("K")%> <%=RS("KCHG")%>
No Official Events!!!

<% end if %> <% SQLConn.Close Set SQLConn = Nothing %>