Pon esto
Fecha=Left(objPagingRS("postDate"),8)
Fecha=Cdate(Fecha)
Fecha=DateAdd("d",7,Fecha)
dagar=DateDiff("d", Date, Fecha)
Response.Write Date
Response.Write Fecha
y postea lo que te mande a pantalla.
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>