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

Daily Baseball Quiz

Wednesday, April 17, 2009
Today's theme is: Minnesota Twins

  1. Who was the first Minnesota Twin to hit an inside the park grand slam home run?
    1. Bob Allison
    2. Tom Brunansky
    3. Mike Cubbage
    4. Vic Power
    5. Zoilo Versalles

  2. Who hit two inside the park home runs in one game, both off of Floyd Bannister?
    1. Randy Bush
    2. Greg Gagne
    3. Dan Gladden
    4. Gene Larkin
    5. Kirby Puckett

  3. Who is the first Twins centerfielder to have recorded 17 putouts in a doubleheader?
    1. Lyman Bostock
    2. Lenny Green
    3. Jimmie Hall
    4. Torii Hunter
    5. Kirby Pucket

  4. Who is the son-in-law of the Boston Celtics great John Havlicek?
    1. Jason Bartlett
    2. Brian Buchanan
    3. Mike Cubbage
    4. Greg Gagne
    5. Roy Smalley

  5. Who is the first pitcher born in Minnesota to win 20 games for the Minnesota Twins?
    1. Dave Boswell
    2. Dean Chance
    3. Dave Goltz
    4. Mudcat Grant
    5. Jerry Koosman

  6. Who is the first Minnesota Twin to steal 60 bases in one season?
    1. Rod Carew
    2. Chuck Knoblauch
    3. Willie Norwood
    4. Cesar Tovar
    5. Zoilo Versalles

  7. Who is the first Minnesota Twin to have 150 hits in one season?
    1. Bernie Allen
    2. Lenny Green
    3. Harmon Killebrew
    4. Vic Power
    5. Rich Rollins

  8. Who is the first Minnesota Twin pitcher to walk 100 batters in one season?
    1. Dave Boswell
    2. Jim Hughes
    3. Camilo Pascual
    4. Jim Perry
    5. Dick Woodson

  9. Which Minnesota Twin made the last out during David Wells's perfect game on May 17, 1998?
    1. Ron Coomer
    2. Pat Meares
    3. Alex Ochoa
    4. Jon Shave
    5. Javier Valentín
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/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(168) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 168" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon