%@ LANGUAGE=VBSCRIPT %> <% response.buffer = True %> <% '------------------------------------------------------------- ' Texas Commission on the Arts Web Grant System Version 1.6 ' Updated 09/30/2009 'Version 1 10/98 'Version 1.1 Updated 7/99 for MDAC 2.x 'Page: TXArtsPlan/TAPTOC.asp 'Function: display '------------------------------------------------------------- %> <% 'user does not need to be logged - public content Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") 'Creating a dynamic list of org types Set EntityTypes = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT EntityTypes.* FROM EntityTypes WHERE EntityTypeCode <> 'NS' ORDER BY EntityTypes.EntityTypeDescription" 'response.write cmdTemp.CommandText cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn EntityTypes.Open cmdTemp, , 3, 1 EntityTypes.MoveFirst 'Creating a dynamic list of programs Set Programs = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT Programs.* FROM Programs where ProgramStatus <> 'NOK' ORDER BY Programs.ProgramName " 'response.write cmdTemp.CommandText cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn Programs.Open cmdTemp, , 3, 1 Programs.MoveFirst 'end if %>
Revised September 2016
![]() |
||||||||||
![]() |
|