<% ' If date is in the future redirect to default if DateDiff("d",CDate(#1/14/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Who Have Hit Two Grand Slams In One Game

Daily Baseball Quiz

Wednesday, January 14, 2009
Today's theme is: Players Who Have Hit Two Grand Slams In One Game

Who was the first player to hit two grand slams in one game?
Who was the first Boston Red Sox to hit two grand slams in one game?
Who was the first Baltimore Oriole to hit two grand slams in one game?
Who was the first player to hit two grand slams in one game for the home team?
Who was the first player to hit two grand slams in one game in the National League?
Who was the first player to hit a grand slam for each side of the plate in one game?
Who was the first player to hit two grand slams in one game on the 4th of July?
Who was the first player to hit two grand slams in one game in the 21st century?
Who set the American League record for most RBI in a game the day he hit two grand slams in one game?

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#1/14/2009#) ' Compare dates comparison = DateDiff("d",expdate,currentDate) ' If date is in the past display the link if comparison > 0 then %>

<% 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(14) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 14" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>