okay I want to compare today's date with a date pulled from a DB.
If today's date = to DB Date then print "today"
If not then print "later"(at this point I don't care about dates b4 today or after)
In Access DB date is set to short date mm/dd/yyyy
here's the code( all the dates print "later" even if they are the same) :
<%
Dim CONN_STRING
CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\
Dim Comdate
Dim vbShortdate
vbShortDate = 2
Comdate=FormatdateTime(now(), vbShortDate)
Response.Write comdate & "<BR>"
Dim cnnDBEdit, rstDBEdit ' ADO objects
Dim strSQL
strSQL = "SELECT * FROM Projects;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset"
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
Dim x
Do While NOT rstDBEdit.EOF
x = rstDBEdit.Fields ("DateDue"
If rstDBEdit.Fields("DateDue" = Comdate Then
Response.Write rstDBEdit.Fields("DateDue"%> <%Response.Write comdate%>Today<BR><%
Response.Write
Else
Response.Write rstDBEdit.Fields("DateDue"%> <%Response.Write comdate%>Later<BR><%
End If
rstDBEdit.MoveNext
Loop
%>
If today's date = to DB Date then print "today"
If not then print "later"(at this point I don't care about dates b4 today or after)
In Access DB date is set to short date mm/dd/yyyy
here's the code( all the dates print "later" even if they are the same) :
<%
Dim CONN_STRING
CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\
Dim Comdate
Dim vbShortdate
vbShortDate = 2
Comdate=FormatdateTime(now(), vbShortDate)
Response.Write comdate & "<BR>"
Dim cnnDBEdit, rstDBEdit ' ADO objects
Dim strSQL
strSQL = "SELECT * FROM Projects;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset"
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
Dim x
Do While NOT rstDBEdit.EOF
x = rstDBEdit.Fields ("DateDue"
If rstDBEdit.Fields("DateDue" = Comdate Then
Response.Write rstDBEdit.Fields("DateDue"%> <%Response.Write comdate%>Today<BR><%
Response.Write
Else
Response.Write rstDBEdit.Fields("DateDue"%> <%Response.Write comdate%>Later<BR><%
End If
rstDBEdit.MoveNext
Loop
%>