<% system = Request.QueryString("system") %>

 ASP Pattern Technology Standards

<% Set conn = Server.CreateObject("ADODB.CONNECTION") conn.open DBCon on error resume next connect.errors.clear "error on connection" sql = "select TRM_ID, LAYER, SUB_LAYER, TECHNOLOGY, STANDARD_TECH FROM TRM WHERE MAINFRAME =1 ORDER BY LAYER DESC, SUB_LAYER, TECHNOLOGY" on error resume next set rs = conn.execute(sql) if conn.errors.count > 0 then response.write("error, there is a problem") end if %>
C Value="<%=a4%>"> <% fild_name= 0 do while not rs.eof field_name= field_name + 1 a1 = rs("LAYER") if a1 = "" or isnull(a1) then a1 = " " a2 = rs("SUB_LAYER") if a2 = "" or isnull(a2) then a2 = " " a3 = rs("TECHNOLOGY") if a3 = "" or isnull(a3) then a3 = " " a4 = rs("TRM_ID") if a4 = "" or isnull(a4) then a4 = " " a 5= rs("") if a5 = "" or isnull(a5) then a5 = " " %> <% rs.movenext loop rs.close set conn = nothing set rs = nothing %>
TRM_layers TRM_Sublayers

Technologies

Products_used
<%=a1%> <%=a2%> <%=a3%> A value="" size="42">

Back to  Editor