<% ' If date is in the future redirect to default if DateDiff("d",CDate(#3/17/2009#),date()) < 0 then response.redirect("default.asp") end if %> Baseball Players Born In Ireland

Daily Baseball Quiz

Tuesday, March 17, 2009
Today's theme is: Baseball Players Born In Ireland

Who was the first player to win the pitching triple crown?
Which former Irish pitcher had the nickname "Fire"?
Which pitcher has a career ERA of 189.00?
Who was the last player to appear in a game in the 20th century to be born in Ireland?
Who broke Sam Thompson's record for games played in right field?
Who hit the first pinch hit inside the park grand slam home run?
Who was the first player to hit for the cycle?
Who was the first pitcher to pitch left handed and right handed in the same game?
Which pitcher was the governor of Pennsylvania from 1911 to 1915?

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