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

Daily Baseball Quiz

Thursday, November 19, 2009
Today's theme is: Minnesota Twins Infielders

  1. Which Minnesota Twins infielder missed the last few games of the 1990 season because he was injured while wrestling with the club house attendant?
    1. Gary Gaetti
    2. Greg Gagne
    3. Kent Hrbek
    4. Steve Lombardozzi
    5. Al Newman

  2. Which Minnesota Twins infielder was the first to ground into 200 double plays while playing for the Minnesota Twins?
    1. Gary Gaetti
    2. Kent Hrbek
    3. Harmon Killebrew
    4. Frank Quilici
    5. Rich Rollins

  3. Which Canadian province is Justin Morneau from?
    1. Alberta
    2. British Columbia
    3. New Brunswick
    4. Ontario
    5. Quebec

  4. Which Canadian province is Corey Koskie from?
    1. Alberta
    2. British Columbia
    3. Manitoba
    4. Ontario
    5. Quebec

  5. Which Minnesota Twins infielder did not win an American League Most Valuable Player award?
    1. Rod Carew
    2. Kent Hrbek
    3. Harmon Killebrew
    4. Justin Morneau
    5. Zoilo Versalles

  6. Who was the first Minnesota Twin to hit 20 triples in one season?
    1. John Castino
    2. Cristian Guzmán
    3. Chuck Knoblauch
    4. César Tovar
    5. Zoilo Versalles

  7. Who was the last Minnesota Twin to wear number 7 before Joe Mauer?
    1. Ron Coomer
    2. Denny Hocking
    3. Greg Gagne
    4. Scott Ullger
    5. Rob Wilfond

  8. Which Minnesota Twins infielder hit a home run in each of his first two post season at bats?
    1. Gary Gaetti
    2. Greg Gagne
    3. Kent Hrbek
    4. Corey Koskie
    5. Doug Mientkiewicz

  9. How many times did Cristian Guzmán lead the American League in triples while playing for the Minnesota Twins?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/19/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(323) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 323" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon