<% ' If date is in the future redirect to default if DateDiff("d",CDate(#3/18/2009#),date()) < 0 then response.redirect("default.asp") end if %> Street Addresses Of Major League Baseball Venues

Daily Baseball Quiz

Wednesday, March 18, 2009
Today's theme is: Street Addresses Of Major League Baseball Venues

Which team plays their home games at 401 East Jefferson Street?
Which ballpark is has a street address of 100 Main Street?
Which team plays their home games at 1500 South Capitol Street, SE?
Which team plays their home games at 700 Clark Street?
Which team once played their home games at 2121 Trumbull Avenue?
Which team once played their home games at 1085 West Third Street?
Which team plays their home games at 2100 Woodward Avenue?
Which team plays their home games at 2401 Ontario Street?
Which team plays their home games at 501 Crawford Street?

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