function checkExpiry(cert,today) 
dim validfrom
dim v
dim validto
 validfrom = cert.ValidFromDate
 validto = cert.ValidToDate
	if (cdate(today) <= validfrom or cdate(today) >= validto) then
		v=false
	else
		v=true
	end if
	checkExpiry=v
end function

Function checkExpiryFuture(cert, today, inum)
Dim validfrom
Dim validto
dim v
 validfrom = cert.ValidFromDate
 validto = cert.ValidToDate
 If (DateAdd("d", inum, CDate(today)) >= validto) Then
        v = False
    Else
	v = True
    End If
    checkExpiryFuture= v
End Function