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

Daily Baseball Quiz

Saturday, October 31, 2009
Today's theme is: Fred McGriff

  1. Where was Fred McGriff born?
    1. Altanta, Georgia
    2. Beaumont, Texas
    3. Orlando, Florida
    4. Saint Petersburg, Florida
    5. Tampa, Florida

  2. How many inside the park home runs did Fred McGriff hit in his career?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  3. With which Hall of Famer is Fred McGriff tied in career home runs?
    1. Lou Gehrig
    2. Willie McCovey
    3. Stan Musial
    4. Cal Ripken
    5. Ted Williams

  4. What year did Fred McGriff win the All-Star Game Most Valuable Player award?
    1. 1992
    2. 1994
    3. 1995
    4. 1996
    5. 2000

  5. What are the names of Fred McGriff's children?
    1. Erick and Ericka
    2. Erick and Veronica
    3. Fred and Ethel
    4. Fred and Veronika
    5. Terry and Veronica

  6. What uniform number did Fred McGriff not wear in his major league career?
    1. 9
    2. 19
    3. 27
    4. 28
    5. 29

  7. How many consecutive seasons of 30 or more home runs did Fred McGriff have?
    1. 3
    2. 4
    3. 5
    4. 6
    5. 7

  8. In what year did Fred McGriff lead the American League in home runs?
    1. 1989
    2. 1990
    3. 1991
    4. 1992
    5. 1993

  9. How much was Fred McGriff’s original signing bonus after being drafted by the New York Yankees?
    1. US$10,000
    2. US$16,000
    3. US$17,000
    4. US$18,000
    5. US$22,000
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/31/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(304) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 304" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon