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

Daily Baseball Quiz

Friday, August 21, 2009
Today's theme is: Players Born In Hawaii

Who was the first player born in Hawaii to play in the major leagues?
Who was the first player born in Hawaii to play in two All-Star games?
Who was the first player to hit a walk off home run off of Roger Clemens?
Who was the first player born in Hawaii to hit a home run in the major leagues?
Who was the first player born in Hawaii to pitch for the Florida Marlins?
Who had the nickname "Hawaiian Punch" when he played for the New York Mets?
Who, in 1984, lead the major leagues in complete games with 17?
Who is the "Flyin' Hawaiian"?
Who was the first player of Japanese ancestry to play in the major leagues?

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