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

Daily Baseball Quiz

Wednesday, August 5, 2009
Today's theme is: Baseball Cousins

  1. Which pitcher is the cousin of Pedro Martínez and Ramón Martínez?
    1. Denny Bautista
    2. Francisco Liriano
    3. Juan Marichal
    4. Jorge Sosa
    5. Salomón Torres

  2. Which All-Star catcher is the cousin of Fred McGriff?
    1. Earl Battey
    2. Elston Howard
    3. Charles Johnson
    4. Russell Martin
    5. Johnny Roseboro

  3. Who is the cousin of outfielder Ken Landreaux?
    1. Enos Cabell
    2. Trenidad Hubbard
    3. Joe Morgan
    4. Tim Raines
    5. Willie Stargell

  4. Which pitcher the cousin of Christy Mathewson and of Henry Mathewson?
    1. Jack Billingham
    2. Don Cardwell
    3. Don Drysdale
    4. Lefty Grove
    5. Red Ruffing

  5. Which Montreal Expo is the cousin of Angel Mangual and of teammate Pepe Mangual?
    1. Coco Laboy
    2. Orlando Mercado
    3. Willie Montañez
    4. José Morales
    5. Jorge Roque

  6. Who is the cousin of Jerry Royster?
    1. Milton Bradley
    2. Greg Vaughn
    3. Mo Vaughn
    4. Billy Williams
    5. Tony Womack

  7. Who saved 12 games for his cousin George Stone when they played for the Atlanta Braves?
    1. Clay Carroll
    2. Ken Johnson
    3. Ron Reed
    4. Cecil Upshaw
    5. Hoyt Wilhelm

  8. Who is the cousin of Ellis Burks?
    1. Roosevelt Brown
    2. Chuck Carr
    3. Joe Morgan
    4. Jim Rice
    5. Eric Young

  9. Which stolen base champion is the cousin of outfielder Todd Steverson?
    1. Lou Brock
    2. Vince Coleman
    3. Marquis Grissom
    4. Ron LeFlore
    5. Tony Womack
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/5/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(217) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 217" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon