I am using following code/loop to dislay the record information
this is safety certificate records information,

Dim fielddata
dim v
v = 1

do while rs.eof=false
if v mod 2 = 0 then
   Response.Write("<tr bgcolor=#e3effe>")
else
   Response.Write("<tr bgcolor=f8f8ff>")

end if

Response.Write("<td align=left>" & rs("Name") & "</td>")
Response.Write("<td align=left>" & rs("SOP_NAME") & "</td>")
Response.Write("<td align=center>" & rs("DATE_CERTIFICATE") & "</td>")
...
....


v = v + 1

rs.movenext
loop

----------------------------
I want that When certificate date near to expirying it color will display red otherwise no chnage as display in above code.
ie.

if DATE_CERTIFICATE <= (between one week)
 Response.Write("<tr bgcolor=red>")
else
   Response.Write("<tr bgcolor=f8f8ff>")

ie. user cerficate is expired today 1 August 2007, one week
before row will show in red color how ?
what change in above code ?

regard
Mateen