Selected TLD Doses

<% If IsNull(Request("positions")) Then%>

(You Must Select Some Positions)

<% Else %> <% ' ' Open Database connection, read only ! ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLstmt = "select position, description from phoffline.tld_positions where position in (" & CStr(Request("positions")) & ") order by position" Set RS = Connection.Execute(SQLstmt) %>

" width="800" height="600">

<% Do While Not RS.EOF %> <% RS.MoveNext Loop %>

Legend Value	Description
Pos<%=RS("position")%>	<%=RS("description")%>

<% Connection.Close Set Connection=nothing Set RS=nothing %> <% End If%>