<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/10/2009#),date()) < 0 then response.redirect("default.asp") end if %> Sacrifice Fly

Daily Baseball Quiz

Thursday, December 10, 2009
Today's theme is: Sacrifice Fly

  1. Who was the first player to have 100 career sacrifice flies?
    1. Henry Aaron
    2. Ernie Banks
    3. Gil Hodges
    4. Frank Thomas
    5. Robin Yount

  2. Who was the first player to lead the league in batting average and in sacrifice flies in the same year?
    1. Tony Gwynn
    2. Joe Mauer
    3. Tony Oliva
    4. Frank Robinson
    5. Carl Yaztrzemski

  3. Who was the first player to hit three sacrifice flies in one game?
    1. Ernie Banks
    2. Vince Coleman
    3. Candy Maldonado
    4. Don Mattingly
    5. Russ Nixon

  4. Who was the first player to lead the league or be tied for the league lead in sacrifice flies four times?
    1. Henry Aaron
    2. Gil Hodges
    3. Cal Ripken
    4. Brooks Robinson
    5. Carl Yaztrzemski

  5. Who went the entire 1993 season without a sacrifice fly, yet had 112 RBI that year?
    1. Albert Belle
    2. Barry Bonds
    3. Chili Davis
    4. Edgar Martínez
    5. Fred McGriff

  6. Who holds the record for sacrifice flies by a National League player?
    1. Henry Aaron
    2. Andre Dawson
    3. Fred McGriff
    4. Mike Schmidt
    5. Rusty Staub

  7. Who holds the record for sacrifice flies by an American League player?
    1. George Brett
    2. Paul Molitor
    3. Cal Ripken
    4. Brooks Robinson
    5. Robin Yount

  8. Which sports journalist is fascinated by sacrifice flies?
    1. Bob Costas
    2. Bill James
    3. Tim Kurkjian
    4. Rob Neyer
    5. Tom Verducci

  9. Who was the first player to hit 19 sacrifice flies in one season?
    1. Henry Aaron
    2. Andre Dawson
    3. Ken Griffey, Jr.
    4. Gil Hodges
    5. Roy White
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/10/2009#) ' Compare dates comparison = DateDiff("d",expdate,currentDate) ' If date is in the past display the link if comparison > 0 then %> [NEXT DAY] <% End if %> <% ' Set the connection string and open the connection set conn = server.Createobject("ADODB.Connection") conn.Open ("DSN=counter") sql = "SELECT * from counter WHERE counterID = " & cint(344) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 344" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon