Allowed Run Types

<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select run_type,description from phoffline.run_types order by run_type" Set RS = Connection.Execute(SQLStmt) %> Allowed Run Types

Run Types

<% Do While Not RS.EOF %> <% RS.Movenext Loop Connection.Close %>

Run Type	Description
<%Response.Write(RS("Run_type"))%>	<%If IsNull(RS("Description")) Then Response.write(" ") Else Response.write(RS("Description")) End If %>