References and Motion Measurement Projects

<%@ Language=VBScript %> References and Motion Measurement Projects <%strWelcomeTitle="References and Motion Measurement Projects"%> <% sub WriteProjectCount (lngRecordsCount) strHtml = "

Projects " if lngRecordCount = 0 then strHtml = strHtml & "0-" else strHtml = strHtml & "1-" end if strHtml = strHtml & lngRecordCount strHtml = strHtml + "

" Response.Write(strHtml) end sub dim connectString, sqlString, rsProjectsList sqlString = "SELECT * FROM Projects ORDER BY Project_StartDate DESC" set myConnection = Server.CreateObject("ADODB.Connection") set rsProjectsList = Server.CreateObject("ADODB.Recordset") myConnection.Open Application("mxctrl_ConnectionString") rsProjectsList.Open sqlString, myConnection, adOpenStatic, adLockReadOnly lngRecordCount = rsProjectsList.RecordCount %>

<%WriteProjectCount lngRecordCount%> <% do while not rsProjectsList.EOF %>

<% link = rsProjectsList("Project_HttpLink") dt=rsProjectsList("Project_StartDate") if link <> "" then Response.Write("") end if %> <% Response.Write(DateTimeToStr("dd-MM-yyyy", dt)) %>
<%=rsProjectsList("Project_Name")%>
<%=rsProjectsList("Project_Descr")%> <% if link <> "" then Response.Write("
more >>>") end if %>

<% rsProjectsList.MoveNext%> <%loop %> <%WriteProjectCount lngRecordCount%>