Recordset - SQL Query

[Brachole]

I have a recordset in ASP VBScript that lets Members Login to their account. The query is as follow:

<%
Dim rsMembers
Dim rsMembers_numRows

Set rsMembers = Server.CreateObject("ADODB.Recordset")
rsMembers.ActiveConnection = MM_Datasource_STRING
rsMembers.Source = "SELECT * FROM Members WHERE EmailAddress = '" + Replace(rsMembers__MMColParam, "'", "''") + "'"
rsMembers.CursorType = 0
rsMembers.CursorLocation = 2
rsMembers.LockType = 1
rsMembers.Open()

rsMembers_numRows = 0
%>

The DB table has a field called "ExpirationDate". I need to check that the Member's subscription is not expired. How can I check that:

"Today's Date is before Expiration Date"

and add it to the above query?

[sstalder]

In the ballpark of this: (don't know what kind of database you are using so this may differ)

If rsMembers("ExpirationDate") > Date() Then

End If

Or

rsMembers.Source = "SELECT * FROM Members WHERE EmailAddress = '" + Replace(rsMembers__MMColParam, "'", "''") + "' AND ExpirationDate < #" & Date & "#"

[zingmatter]

IF you're using SQL Server then

rsMembers.Source = "SELECT * FROM Members WHERE EmailAddress = '" & Replace(rsMembers__MMColParam, "'", "''") & "' AND ExpirationDate < GETDATE()"