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

Daily Baseball Quiz

Monday, June 8, 2009
Today's theme is: Cleveland Indians

  1. Who was the first Cleveland Indian to hit 50 home runs in one season?
    1. Albert Belle
    2. Travis Hafner
    3. Manny Ramirez
    4. Frank Robinson
    5. Jim Thome

  2. Who was the first Cleveland Indian to score 140 runs in a season?
    1. Roberto Alomar
    2. Earl Averill
    3. Lou Boudreau
    4. Larry Doby
    5. Kenny Lofton

  3. Who was the first Cleveland player to hit for the cycle?
    1. Earl Averill
    2. Bill Bradley
    3. Larry Doby
    4. Odell Hale
    5. Tris Speaker

  4. How many complete game shutouts did Bob Feller pitch during his career?
    1. 4
    2. 5
    3. 6
    4. 10
    5. 44

  5. In what year did the Cleveland Indians win their first World Series?
    1. 1920
    2. 1948
    3. 1954
    4. 1995
    5. 1997

  6. Who was the first Cleveland Indian pitcher to hit a home run in a World Series?
    1. Jim Bagby. Sr.
    2. Ray Caldwell
    3. Stan Coveleski
    4. Bob Feller
    5. Duster Mails

  7. Who has pitched the most games for the Cleveland Indians?
    1. Gary Bell
    2. Bob Feller
    3. Mel Harder
    4. Willis Hudlin
    5. Bob Lemon

  8. Who threw the first pitch ever thrown at Cleveland Municipal Stadium?
    1. Wes Ferrell
    2. Mel Harder
    3. Willis Hudlin
    4. Bob Lemon
    5. Jack Russell

  9. Who was the first Cleveland Indian to play 163 games in one season?
    1. Roberto Alomar
    2. Bobby Avila
    3. Vic Power
    4. Omar Vizquel
    5. Leon Wagner
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/8/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(159) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 159" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon