<%
' If date is in the future redirect to default
if DateDiff("d",CDate(#12/29/2009#),date()) < 0 then
response.redirect("default.asp")
end if
%>
2009 American League Opening Day Pitchers
Daily Baseball Quiz
Tuesday, December 29, 2009
Today's theme is: 2009 American League Opening Day Pitchers
Who was the 2003, 2004, 2005, 2006, 2007, 2008, and 2009 opening day starting pitcher for the Toronto Blue Jays?
<%
' Get the current date
currentDate = date()
' Convert the expiration date
expdate = CDate(#12/29/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(363)
set rs = conn.execute(sql)
counter = cint(rs("Count"))
counter = counter + 1
sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 363"
set rs = conn.execute(sql)
Set rs = Nothing
conn.close
set conn = nothing
%>
![[PREVIOUS DAY]](images/back.gif)
![[INDEX]](images/up.gif)
<%
' Get the current date
currentDate = date()
' Convert the expiration date
expdate = CDate(#12/29/2009#)
' Compare dates
comparison = DateDiff("d",expdate,currentDate)
' If date is in the past display the link
if comparison > 0 then
%>
![[NEXT DAY]](images/next.gif)
<% 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(363)
set rs = conn.execute(sql)
counter = cint(rs("Count"))
counter = counter + 1
sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 363"
set rs = conn.execute(sql)
Set rs = Nothing
conn.close
set conn = nothing
%>