<%@ Language=VBScript%> <% Response.ContentType = "text/xml" %> <% strDate=dateadd("h", -7, Now()) strDate=WeekdayName(Weekday(strDate),true) & ", " & Generic_TimeFormat(strDate,12) & " " & Generic_TimeFormat(strDate,13) & " GMT" %> http://www.formulazone.com 300 <% = strDate %> fzsales@formulazone.com (Sales) webmaster@formulazone.com (Webmaster) en-us New Zone Diet Recipes delivered often! <% on error goto 0 strDSQL=Dateadd("d",-7,Now()) if instr(strDSQL," ")<>0 then strDSQL=left(strDSQL,instr(strDSQL," ")-1) strWhere=strWhere & "RecipeDateAdded>'" & strDSQL & "'" set oRS=con.execute("Select RecipeID, RecipeName, RecipeDateAdded FROM Recipe WHERE " & strWhere & " AND RecipeReview<>0 ORDER BY RecipeName") if not (oRS.BOF or oRS.EOF) then do lngMID=oRS("RecipeID") strName=oRS("RecipeName") strName=replace(strName, "& ", "& ") strName=replace(strName, "'", "'") strDateAdded=oRS("RecipeDateAdded") strPubDate=DateAdd("h",-7,strDateAdded) strPubDate=WeekdayName(Weekday(strPubDate),true) & ", " & Generic_TimeFormat(strPubDate,12) & " " & Generic_TimeFormat(strPubDate,13) & " GMT" response.write("" & chr(10)) response.write("Added " & strDateAdded & "" & chr(10)) response.write("http://www.formulazone.com/ViewRecipe.asp?MID=" & lngMID & "") response.write("" & strPubDate & "" & chr(10)) response.write("http://www.formulazone.com/ViewRecipe.asp?MID=" & lngMID & "" & chr(10)) oRS.MoveNext loop while not oRS.EOF end if oRS.Close %>