<
!-- added close button, title, links and new function to open window--><
%@ LANGUAGE="VBScript" %><
!--#include file="ADOVBS.inc"--><
!--#include virtual="old_check.inc"--><
%Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd