<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim strQuery, strPropno, strColour Dim dtVal %> <% on error resume next strQuery="SELECT * from apps " strQuery=strQuery & "WHERE DATEVAL > '01/01/01' " strQuery=strQuery & "ORDER BY DateVal desc" set objRS=objConn.Execute(strQuery) %>

<% objRS.MoveFirst %>

These are the applications found for


<% If isDate(objRS.fields("dateval")) then dtVal = FormatDateTime(objRS.fields("dateval"), 1) End If response.write dtVal %>

Click on a highlighted number to see full details

Return to the top 10 list

<% objRS.close objConn.close Set objRS = Nothing Set objConn = Nothing if err.number <> 0 then response.write "

Error! " + Err.description +"

" end if %>