<lastmod>2010-09-30T10:20:58+00:002010-09-30Set getCat = CreateObject("ADODB.Command")
getCat.ActiveConnection=objConn
getCat.Prepared = true
getCat.commandtext="SELECT ID, convert(varchar(11),MDate,121) as MDate, CONVERT(CHAR(8), CONVERT(DATETIME, MDate, 113), 114) AS MilTime FROM MyTable"
set rsgetCat = getCat.execute<%if not IsNull(rsgetCat("MDate")) then%><%=replace(rsgetCat("MDate")," ","")%>T<%=replace(rsgetCat("MilTime")," ","")&"+00:00"%><%else%><%=date()&"T"&time()&"+00:00"%><%end if%>
NOT NULLIsNULLIsNULLreplace()