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

Daily Baseball Quiz

Sunday, March 1, 2009
Today's theme is: San Francisco Giants Opening Day Pitchers

  1. Which San Francisco Giant pitcher hit a home run in his first major league at bat?
    1. John Burkett
    2. Shawn Estes
    3. Bob Knepper
    4. John Montefusco
    5. Rick Reuschel

  2. Who is the last San Francisco Giants pitcher to throw a no hitter in the 20th century?
    1. Vida Blue
    2. Juan Marichal
    3. John Montefusco
    4. Terry Mulholland
    5. Gaylord Perry

  3. Who won the first major league baseball game played in California?
    1. Johnny Antonelli
    2. Rubén Gómez
    3. Sam Jones
    4. Juan Marichal
    5. Jack Sanford

  4. Who was the head baseball coach at his alma mater, the Univesity of Maryland?
    1. Jim Barr
    2. Tom Bradley
    3. John Burkett
    4. Mike Krukow
    5. Bill Swift

  5. Which picher bowled twelve perfect games?
    1. John Burkett
    2. Mark Davis
    3. Atlee Hammaker
    4. Terry Mulholland
    5. Jason Schmidt

  6. Who, in 1962, won 16 consecutive decisions for the San Francisco Giants?
    1. Johnny Antonelli
    2. Sam Jones
    3. Juan Marichal
    4. Gaylord Perry
    5. Jack Sanford

  7. How many consecutive opening day starts did Juan Marichal have for the San Francisco Giants?
    1. 5
    2. 6
    3. 7
    4. 9
    5. 10

  8. Which San Francisco Giants pitcher hit a grand slam in 2000?
    1. Shawn Estes
    2. Liván Hernández
    3. Mark Gardner
    4. Mark Leiter
    5. Kirk Reuter

  9. Who is the nephew of actor Patrick Duffy?
    1. Dave Dravecky
    2. Al Holland
    3. Jason Schmidt
    4. Bill Swift
    5. Barry Zito
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#3/1/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(60) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 60" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon