<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/17/2009#),date()) < 0 then response.redirect("default.asp") end if %> Montreal Expos

Daily Baseball Quiz

Friday, July 17, 2009
Today's theme is: Montreal Expos

  1. Which team did the Montreal Expos defeat by a score of 11 to 10 in their very first game?
    1. Chicago Cubs
    2. Cincinnati Reds
    3. Los Angeles Dodgers
    4. New York Mets
    5. Philadelphia Phillies

  2. Who threw the first and second no hitter for the Montreal Expos?
    1. John Candelaria
    2. Randy Johnson
    3. Charlie Lea
    4. Dennis Martínez
    5. Bill Stoneman

  3. Who had the first hit for the Montreal Expos?
    1. Bob Bailey
    2. John Bateman
    3. Coco Laboy
    4. Rusty Staub
    5. Maury Wills

  4. Who was the first Montreal Expo to hit for the cycle?
    1. Tim Foli
    2. Tim Raines
    3. Chris Speier
    4. Rondell White
    5. Brad Wilkerson

  5. Who was the only Montreal Expo to pitch 20 complete games in one season?
    1. Ross Grimsley
    2. Pedro Martínez
    3. Steve Rogers
    4. Bill Stoneman
    5. Mike Torrez

  6. Who was the only Montreal Expo pitcher to win 20 games in one season?
    1. Ross Grimsley
    2. Carl Morton
    3. Steve Rogers
    4. Bryn Smith
    5. Bill Stoneman

  7. From whom did Major League Baseball buy the Montreal Expos after the 2001 season?
    1. Claude Brochu
    2. Charles Bronfman
    3. Jeffrey Loria
    4. Peter O'Malley
    5. Walter O'Malley

  8. Who was the first Montreal Expo to pitch in 80 games in one season?
    1. Luis Ayala
    2. Steve Kline
    3. Graeme Lloyd
    4. Mike Marshall
    5. Dale Murray

  9. Who, in 2004, was the last Montreal Expo to bat?
    1. Jamey Carroll
    2. Endy Chávez
    3. Ryan Church
    4. Termel Sledge
    5. Brad Wilkerson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/17/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(198) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 198" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon