<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/16/2009#),date()) < 0 then response.redirect("default.asp") end if %> Spanish Nicknames

Daily Baseball Quiz

Thursday, July 16, 2009
Today's theme is: Spanish Nicknames

  1. Which starting pitcher had the nickname "El Presidente"?
    1. Juan Marichal
    2. Dennis Martínez
    3. Pedro Martínez
    4. Ramón Martínez
    5. Ramón Ortiz

  2. Which former infielder had the nickname "Café"?
    1. Adrián Beltré
    2. Cristian Guzmán
    3. Carlos Martínez
    4. Tino Martínez
    5. Omar Vizquel

  3. Which All-Star outfielder is known as "El Caballo"?
    1. Carlos Beltrán
    2. Mike Cameron
    3. José Cruz
    4. Adam Dunn
    5. Carlos Lee

  4. Which Cuban-born pitcher is known as "El Duque"?
    1. Tony Fossas
    2. Liván Hernández
    3. Orlando Hernández
    4. Camilo Pascual
    5. Luis Tiant

  5. Which Venezuelan-born pitcher is known as "El Guapo"?
    1. Rich Garces
    2. Enrique González
    3. Gereni González
    4. Félix Hernández
    5. Carlos Zambrano

  6. Which starting pitcher had the nickname "El Toro"?
    1. Teddy Higuera
    2. Juan Marichal
    3. Ramón Martínez
    4. Camilo Pascual
    5. Fernando Valenzuela

  7. Which pitcher, with a condition known as hyperdactyly or sexdactyly, is known as "El Pulpo"?
    1. Antonio Alfonseca
    2. Francisco Rodríguez
    3. Fernando Valenzuela
    4. Carlos Zambrano
    5. Victor Zambrano

  8. Which Venezuelan-born player was known as "Pepito"?
    1. Bobby Abreu
    2. Carlos Guillén
    3. Félix Hernández
    4. César Tovar
    5. Omar Vizquel

  9. Which All-Star batting champion was nicknamed "Beto"?
    1. Matty Alou
    2. Bobby Avila
    3. Rico Carty
    4. Tony Oliva
    5. Magglio Ordóñez
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/16/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(197) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 197" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon