<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select to_char(CREATION_DATE,'MM/DD/YYYY') CR_DATE, to_char(VALIDITY_DATE,'MM/DD/YYYY') VAL_DATE, " SQLStmt = SQLStmt & " FULL_VERSION, NAME, MAIN_VERSION, " SQLStmt = SQLStmt & " SURVEY_TYPE, ALIGN_TYPE, ALIGN_VERSION, VALID, DESCRIPTION " SQLStmt = SQLStmt & " from phoffline.geometries" SQLStmt = SQLStmt & " order by FULL_VERSION desc, VALID, CREATION_DATE desc" Set RS = Connection.Execute(SQLStmt) %> PHOBOS Geometries

Geometries

<% Do While Not RS.EOF %> <% RS.MoveNext Loop %>
PMC version Name Version Survey type Align type Align version Validity date Description
<%=ROUND(RS("FULL_VERSION"),3)%> <%=RS("NAME")%> <%=RS("MAIN_VERSION")%> <%=RS("SURVEY_TYPE")%> <%=RS("ALIGN_TYPE")%> <%=RS("ALIGN_VERSION")%> <%=RS("VAL_DATE")%> <%=RS("DESCRIPTION")%>
<% Set RS=nothing Connection.Close Set Connection=nothing %>