<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/10/2009#),date()) < 0 then response.redirect("default.asp") end if %> Most Games Played By Position For The Boston Red Sox

Daily Baseball Quiz

Thursday, September 10, 2009
Today's theme is: Most Games Played By Position For The Boston Red Sox

  1. Which pitcher started the most number of games for the Boston Red Sox?
    1. Roger Clemens
    2. Mel Parnell
    3. Luis Tiant
    4. Tim Wakefield
    5. Cy Young

  2. Who caught the most number of games for the Boston Red Sox?
    1. Bill Carrigan
    2. Carlton Fisk
    3. Rich Gedman
    4. Jason Varitek
    5. Sammy White

  3. Who played the most number of games for the Boston Red Sox at first base?
    1. Jimmie Foxx
    2. George Scott
    3. Phil Todt
    4. Mo Vaughn
    5. Carl Yaztrzemski

  4. Who played the most number of games for the Boston Red Sox at second base?
    1. Marty Barrett
    2. Bobby Doerr
    3. Hobe Ferris
    4. Doug Griffin
    5. Jerry Remy

  5. Who played the most number of games for the Boston Red Sox at third base?
    1. Wade Boggs
    2. Jimmy Collins
    3. Larry Gardner
    4. Frank Malzone
    5. Jim Tabor

  6. Who played the most number of games for the Boston Red Sox at shortstop?
    1. Rick Burleson
    2. Joe Cronin
    3. Nomar Garciaparra
    4. Freddy Parent
    5. Everett Scott

  7. Who played the most number of games for the Boston Red Sox in left field?
    1. Mike Greenwell
    2. Manny Ramírez
    3. Jim Rice
    4. Ted Williams
    5. Carl Yaztrzemski

  8. Who played the most number of games for the Boston Red Sox in center field?
    1. Dom DiMaggio
    2. Fred Lynn
    3. Reggie Smith
    4. Tris Speaker
    5. Chick Stahl

  9. Who played the most number of games for the Boston Red Sox in right field?
    1. Tony Conigliaro
    2. Dwight Evans
    3. Harry Hooper
    4. Jackie Jensen
    5. Trot Nixon
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/10/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(253) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 253" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon