<% ' If date is in the future redirect to default if DateDiff("d",CDate(#6/25/2009#),date()) < 0 then response.redirect("default.asp") end if %> San Francisco Giants

Daily Baseball Quiz

Thursday, June 25, 2009
Today's theme is: San Francisco Giants

  1. Who is the first San Francisco Giant to win the Rookie of the Year award?
    1. Orlando Cepeda
    2. Harvey Kuenn
    3. Gary Matthews
    4. Willie McCovey
    5. John Montefusco

  2. Who is the first San Francisco Giant to lead the National League in home runs in cosecutive years?
    1. Barry Bonds
    2. Orlando Cepeda
    3. Willie Mays
    4. Willie McCovey
    5. Kevin Mitchell

  3. Who is the first San Francisco Giant pitcher to save 200 games for the San Francisco Giants?
    1. Rod Beck
    2. Gary Lavelle
    3. Greg Minton
    4. Randy Moffitt
    5. Rob Nen

  4. Which San Francisco Giant pitched 270 innings without allowing a home run?
    1. Jim Barr
    2. Mike Krukow
    3. Greg Minton
    4. John Montefusco
    5. Randy Moffitt

  5. How many Most Valuable Player awards did Barry Bonds win as a San Francisco Giant?
    1. 3
    2. 4
    3. 5
    4. 6
    5. 7

  6. Which San Francisco Giant pitcher is the younger brother of tennis great Billie Jean King?
    1. Jim Barr
    2. Ed Halicki
    3. Gary Lavelle
    4. Randy Moffitt
    5. John Montefusco

  7. Who is the first San Francisco Giant to have walks in seven consecutive plate appearances?
    1. Barry Bonds
    2. Bobby Bonds
    3. Orlando Cepeda
    4. Willie Mays
    5. Willie McCovey

  8. Who was the first San Francisco Giant to save 35 games in one season?
    1. Rod Beck
    2. Armando Benítez
    3. Rob Nen
    4. Brian Wilson
    5. Tim Worrell

  9. Which team did the San Francisco Giants defeat in the 1989 National League playoffs?
    1. Chicago Cubs
    2. New York Mets
    3. Philadelphia Phillies
    4. Pittsburgh Pirates
    5. Saint Louis Cardinals
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/25/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(176) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 176" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon