SQL Server Dates

Create the connection object
Set Conn = Server.CreateObject("ADODB.Connection")

Open the connection
Conn.Open "Your ConnectionString"

Create the sql statement to return the articleID and it's expiration date
strSql = "SELECT ArticleID, ExpirationDate FROM ArticlesTable"

Execute the sql statement
Set rs = Conn.Execute(strSql)

If Not rs.eof Then
   do until rs.eof
      newDate will equal the ExpirationDate plus 3 months
      newDate = DateAdd("m", 3, rs("ExpirationDate"))

      Compare ExpirationDate to the newDate
      If rs("ExpirationDate") >= newDate Then
         The Article is over 3 months old, so mark it expired
         Conn.Execute("UPDATE ArticlesTable Set Expired = 1 or True WHERE ArticleID = " & rs("ArticleID"))
      End If
      rs.movenext
   loop
End If

Conn.Close

Set Conn = Nothing