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

Daily Baseball Quiz

Monday, May 11, 2009
Today's theme is: Players Born In Minnesota

  1. Who was the first player born in Minnesota, to hit 100 home runs in his career?
    1. Walt Moryn
    2. Roger Maris
    3. Rip Repulski
    4. Wes Westrum
    5. Dave Winfield

  2. Who was the first pitcher born in Minnesota, to win 200 games in his career?
    1. Chief Bender
    2. Joe Bush
    3. Jerry Koosman
    4. Jack Morris
    5. Rube Walberg

  3. Who was the first player born in Minnesota, to hit three home runs in one game?
    1. Roger Maris
    2. Paul Molitor
    3. Walt Moryn
    4. Wes Westrum
    5. Dave Winfield

  4. Who had a 49-game hitting streak in the minor leagues?
    1. Harry Chozen
    2. Gene DeMontreville
    3. Lee DeMontreville
    4. Paul Molitor
    5. Wayne Nordhagen

  5. Who was the first player born in Minnesota, with the last name of Johnson to play in the major leagues?
    1. Dan Johnson
    2. Josh Johnson
    3. Mike Johnson
    4. Tom Johnson
    5. Walt Johnson

  6. Who was the first player born in Minnesota to win back-to-back RBI titles in the American League?
    1. Kent Hrbek
    2. Roger Maris
    3. Joe Mauer
    4. Paul Molitor
    5. Dave Winfield

  7. Who surrendered 17 home runs to Babe Ruth, more than did any other pitcher?
    1. Chief Bender
    2. Garland Buckeye
    3. Joe Bush
    4. Ernie Nevers
    5. Rube Walberg

  8. Who was the first pitcher born in Minnesota, to throw a no hitter?
    1. Chief Bender
    2. Joe Bush
    3. Dave Goltz
    4. Carmen Hill
    5. Jack Morris

  9. In which county in Minnesota was Roger Maris born?
    1. Clay
    2. Hennepin
    3. Lake
    4. Ramsey
    5. Saint Louis
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/11/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(131) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 131" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon