<%@ LANGUAGE="VBScript" %>
<%
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLt="select dv_version, to_char(validity_date,'MM/DD/YYYY HH24:MI:SS') v_date, description from phoffline.dv_versions order by validity_date desc"
set RS=connection.Execute(SQLt)
%>
DV Versions
DV Versions
DV Version
Validity date
Description
<%
ncount=0
Do while not RS.EOF
dv_version=cstr(RS("dv_version"))
validity_date=cstr(RS("v_date"))
if isnull(RS("description")) then
description=" "
else
description=cstr(RS("description"))
end if
response.write("
")
If ncount=0 Then
fti=""
fte=""
Else
fti=""
fte=""
End If
response.write("
"&fti&dv_version&fte&"
")
response.write("
"&fti&validity_date&fte&"
")
response.write("
"&fti&description&fte&"
")
response.write("
")
ncount=ncount+1
RS.Movenext
Loop
%>
<%
Connection.Close
Set RS=nothing
Set Connection=nothing
%>