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

Daily Baseball Quiz

Saturday, November 14, 2009
Today's theme is: Detroit Tigers

  1. What was the first name of the grounds crew member that lead the dancing while sweeping the infield at Tiger Stadium in the 1970's and 1980's?
    1. Bernie
    2. Billy
    3. Felix
    4. Herbie
    5. Willy

  2. Who was the first Tiger pitcher to give up two grand slams in one game?
    1. Jeremy Bonderman
    2. Jim Bunning
    3. Jack Morris
    4. Kenny Rogers
    5. Virgil Trucks

  3. Which player has hit the most home runs against the Detroit Tigers?
    1. Lou Gehrig
    2. Reggie Jackson
    3. Harmon Killebrew
    4. Babe Ruth
    5. Jim Thome

  4. In which round of the 2004 amateur draft was Justin Verlander taken?
    1. 1st
    2. 2nd
    3. 3rd
    4. 4th
    5. 5th

  5. Who was the first Detroit Tiger to play in an All-Star game?
    1. Tommy Bridges
    2. Ty Cobb
    3. Mickey Cochrane
    4. Charlie Gehringer
    5. Goose Goslin

  6. What number did Al Kaline wear before he wore number 6?
    1. 5
    2. 15
    3. 25
    4. 26
    5. 36

  7. Who, in 1947, set a record for most consecutive games with at least one walk with 22?
    1. Doc Cramer
    2. Roy Cullenbine
    3. George Kell
    4. Eddie Mayo
    5. Vic Wertz

  8. Which Detroit Tigers holds the team record for most strikeouts in one season with 308?
    1. Hooks Dauss
    2. Mickey Lolich
    3. Denny McLain
    4. Jack Morris
    5. George Mullin

  9. Who was the first year the Detroit Tigers had over 3,000,000 attendance?
    1. 1984
    2. 1985
    3. 2007
    4. 2008
    5. 2009
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/14/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(318) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 318" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon