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

Daily Baseball Quiz

Wednesday, June 9, 2009
Today's theme is: Colorado Rockies

Who was the first Colorado Rockie to lead the National League in RBI?
Who was the first player to have hit two inside the park home runs as a Colorado Rockie?
Who was the first Colorado Rockie to have 150 RBI in one season?
Who was the first Colorado Rockie to steal home?
Who was the first Colorado Rockie to pitch a complete game shutout?
Who was the first Colorado Rockie to have six hits in one game?
Who was the first Colorado Rockie to win the National League batting championship?
Who was the first Colorado Rockie to hit for the cycle?
Who hit the first solo home run in Colorado Rockies history?

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