<% Dim newStatus DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("\db\versions15.mdb") & ";" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open(DSN) SQLQuery = "SELECT * FROM Versions " SQLQuery = SQLQuery & "WHERE `Legacy` = 'No' ORDER by Sort" Set RS = OBJdbConnection.Execute(SQLQuery) Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open(DSN) SQLQuery2 = "SELECT * FROM Versions " SQLQuery2 = SQLQuery2 & "WHERE `Legacy` = 'Yes' ORDER by Sort" Set RS2 = OBJdbConnection.Execute(SQLQuery2) %>

The Latest Versions

The newest versions of AGTEK software are available by clicking on the appropriate link below.

<% Do While Not RS.EOF If (RS("Releasedate") + 31) > Date() then Newstatus = "New" Else NewStatus = " " end if %> <%RS.MoveNext Loop %>
Program Version Release Date   New Features . . .
"><%=RS("Program")%> <%=RS("version")%> <%=RS("releasedate")%> <%=newStatus%> <%=RS("features")%>
<% Do While Not RS2.EOF If (RS2("Releasedate") + 31) > Date() then Newstatus = "New" Else NewStatus = " " end if %> <%RS2.MoveNext Loop %>
Legacy Programs
"><%=RS2("Program")%> <%=RS2("version")%> <%=RS2("releasedate")%> <%=newStatus%> <%=RS2("features")%>
<%RS.Close Set RS = Nothing OBJdbConnection.Close Set OBJdbConnection = Nothing %>