<% ' If date is in the future redirect to default if DateDiff("d",CDate(#6/15/2009#),date()) < 0 then response.redirect("default.asp") end if %> Los Angeles Dodgers

Daily Baseball Quiz

Monday, June 15, 2009
Today's theme is: Los Angeles Dodgers

To which team did the Los Angeles Dodgers lose to in the 1983 National League playoffs?
Which Los Angeles Dodger won the 1980 Rookie of the Year award?
Which Los Angeles Dodger appeared in an episode, which aired in January 1970, of the television show "The Brady Bunch"?
Who was the first Los Angeles Dodger to have 150 RBI in one season?
Who was the last Los Angeles Dodger pitcher to throw a no hitter in the 20th century?
Which Dodger pitcher had a record of 14 wins and 1 loss in 1966?
Who was the only teenager on the 1962 Los Angeles Dodgers roster?
Who was the first Los Angeles Dodger to be hit by the pitch three times in one game?
Who was the first Los Angeles Dodger pitcher to give up twelve walks in one extra inning game?

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