I wiil be appreciated if someone take a look at my code below <BR>and suggest me a better way for my email tobe done.<BR>I want to retrieve from the database records where Request Date &#062; then 14 <BR>days and send email to ADMIN to figure out why those records without <BR>approval ........<BR><BR>********************************** ************************************<BR>Dim dtNow, a<BR>dtNow = Now()<BR><BR> Set objConnection = Server.CreateObject("ADODB.Connection") <BR>objConnection.Open "PROVIDER=SQLOLEDB;" & _<BR> "DATA SOURCE=SQL2000;DATABASE=itforms;" & _<BR> "USER ID=comitforms;PASSWORD=comitforms;" <BR> <BR>a = DateAdd("d", -14, dtNow) <BR> <BR> sSQL= "Select * from test WHERE RequestDate &#060;= &#039;" & a & "&#039;" <BR> Set RS=objConnection.Execute(sSQL)<BR>Response.Write (sSQL)<BR>WHILE Not RS.EOF <BR><BR>%&#062;<BR>&#060;%=RS("RequestDate")%&#062 ;<BR>&#060;%= RS("CostManName")%&#062;<BR><BR>&#060;%<BR>p = p + RS("CostManName")<BR>m = m + RS("RequestDate")<BR>RS.MoveNext<BR>Wend<BR> <BR>varSubject= "e-Form Request has been expired!"<BR>varBody = varBody & chr(13)& "Please contact to the following Cost Centre <BR>Managers :" & p & chr(13) & chr(13) <BR>&#039;varBody = varBody & chr(13) <BR>& "http://angelica/MyITProject/itformTestJob.asp?rid=" & RS("Req_id") & <BR>chr(13) & chr(13)<BR><BR>Set newMailObj = CreateObject("CDONTS.Newmail")<BR>resipStr = "abutramenko@baycrest.org"<BR>strFrom = "Reminder"<BR>newMailObj.To = resipStr<BR>newMailObj.From = strFrom<BR>newMailObj.Subject = varSubject<BR>newMailObj.Body = varBody<BR><BR> newMailObj.Send<BR>Set newMailObj = Nothing <BR><BR>the result is:<BR>Please contact to the following Cost Centre Managers :Mariana CatzMariana<BR>CatzMariana<BR>CatzabVCVXB@baycrest .orgemailadmin@baycrest.orgabVCVXB@baycrest.orgema ilad<BR>min@baycrest.orgMariana CatzMariana CatzMariana Catz<BR><BR><BR>Thank you in advance.<BR>