<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/13/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Who Hit 300 Home Runs And Pitched One Inning

Daily Baseball Quiz

Sunday, December 13, 2009
Today's theme is: Players Who Hit 300 Home Runs And Pitched One Inning

Who was the first designated hitter to hit 35 home runs in one season?
Who was also inducted into the IGFA Fishing Hall of Fame?
Who pleaded guilty in federal court to the misdemeanor offense of trying to bring a fertility drug into the United States?
Who was the first player to play in four divisions in one year?
Who was the first player to hit home runs in his first two postseason plate appearances?
Who was the first player to reached base in 16 consecutive plate appearances?
Who was arrested at age seven for repeated theft?
Who hit a home run in his first major league at bat and took part in two triple plays in another game?
Who is the first player in the American League with 2000 RBI in his career?

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/13/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(347) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 347" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>