<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/3/2009#),date()) < 0 then response.redirect("default.asp") end if %> Shot Heard 'Round The World

Daily Baseball Quiz

Saturday, October 3, 2009
Today's theme is: Shot Heard 'Round The World

  1. Who hit the Shot Heard 'Round the World?
    1. Alvin Dark
    2. Monte Irvin
    3. Bill Rigney
    4. Bobby Thomson
    5. Wes Westrum

  2. Who started that game for the Brooklyn Dodgers?
    1. Carl Erskine
    2. Joe Hatten
    3. Clem Labine
    4. Don Newcombe
    5. Preacher Roe

  3. Who started that game for the New York Giants?
    1. Jim Hearn
    2. Larry Jansen
    3. Sheldon Jones
    4. Dave Koslo
    5. Sal Maglie

  4. Who was not one of the broadcasters of the game?
    1. Red Barber
    2. Ernie Harwell
    3. Russ Hodges
    4. Gordon McLendon
    5. Vin Scully

  5. Who was the winning pitcher?
    1. Al Corwin
    2. Larry Jansen
    3. Monte Kennedy
    4. George Spencer
    5. Sal Maglie

  6. Which Hall of Famer was born on that very same day?
    1. George Brett
    2. Dennis Eckersley
    3. Reggie Jackson
    4. Mike Schmidt
    5. Dave Winfield

  7. Who started the rally with a single in the bottom of the ninth inning?
    1. Alvin Dark
    2. Clint Hartung
    3. Whitey Lockman
    4. Don Mueller
    5. Wes Westrum

  8. Who was on deck when the game ended?
    1. Alvin Dark
    2. Clint Hartung
    3. Whitey Lockman
    4. Willie Mays
    5. Don Mueller

  9. Who was the losing pitcher?
    1. Ralph Branca
    2. Carl Erskine
    3. Clyde King
    4. Don Newcombe
    5. Preacher Roe
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/3/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(276) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 276" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon