<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/22/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With Exactly 22 Doubles & 22 Home Runs In One Season

Daily Baseball Quiz

Wednesday, July 22, 2009
Today's theme is: Players With Exactly 22 Doubles & 22 Home Runs In One Season

  1. Who holds the record for most home runs by a rookie?
    1. Roy Campanella
    2. Darrell Evans
    3. Willie Mays
    4. Mark McGwire
    5. Billy Williams

  2. Who was the the second player to hit 100 home runs with three different teams?
    1. Gerónimo Berroa
    2. Don Demeter
    3. Darrell Evans
    4. Don Lenhardt
    5. Mark McGwire

  3. Who lead the major leagues in sacrifice flies in 1962?
    1. Don Demeter
    2. Ron Hansen
    3. Willie Kirkland
    4. Willie Mays
    5. Billy Williams

  4. Who won the American League Rookie of the Year award in 1960?
    1. Don Demeter
    2. Ron Hansen
    3. Willie Kirkland
    4. Sherm Lollar
    5. Billy Williams

  5. Who was the first center fielder for the San Francisco Giants?
    1. Don Demeter
    2. Ron Hansen
    3. Willie Kirkland
    4. Don Lenhardt
    5. Willie Mays

  6. Who was the first right handed hitter to draw 160 walk in one season?
    1. Gerónimo Berroa
    2. Roy Campanella
    3. Ron Hansen
    4. Willie Mays
    5. Mark McGwire

  7. Which infielder, born in Nebraska, got his first hit in his third season in the American League?
    1. Steve Buechele
    2. Darrell Evans
    3. Ron Hansen
    4. Don Lenhardt
    5. Billy Williams

  8. Who wrote the book "It's Good to Be Alive"?
    1. Roy Campanella
    2. Willie Kirkland
    3. Don Lenhardt
    4. Willie Mays
    5. Billy Williams

  9. Who, in 1959, lead the major leagues in grounding into double plays?
    1. Don Demeter
    2. Willie Kirkand
    3. Sherm Lollar
    4. Willie Mays
    5. Billy Williams
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/22/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(203) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 203" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon