Cookies problem

Hvad er der i vejen med denne kode?

<%
If Request.Cookies("visits") = "" Then
  Response.Cookies("visits") = 1
Response.Cookies.Expires = DateAdd("d",1, Now())
Else
  Response.Cookies("visits") = CInt(Request.Cookies("visits")) + 1
End If

If Request.Cookies("visits") > 30 Then
  Response.Write "Du må vente 24 timer, fister"
  Response.End
End If
%>


får denne fejl

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Expires'