/SQL/scripts/db/spstruct.asp
ASP | 65 lines | 61 code | 4 blank | 0 comment | 0 complexity | ee093926e9022281a73e8bbf9d08e057 MD5 | raw file
1<!-- #INCLUDE FILE="../inc/mla_sql_include.asp" --> 2<% 3 Dim myNodeId, myDbName, mySpName, myArrCol, myColCount, i, myObjStr, myStrClass, mySpTxt, myStrTree 4 myNodeId = Request.QueryString("nid") 5 myDbName = Request.QueryString("db") 6 mySpName = Request.QueryString("sp") 7 openConnection 8 myStrTree = getTreeStr(Mid(myNodeId, 2) & "_3_1", Array(myDbName, mySpName)) 9 myArrCol = getSpParam(myDbName, mySpName) 10 mySpTxt = txt2html(getObjTxt(myDbName, mySpName)) 11 closeConnection 12 If isArray(myArrCol) Then myColCount = UBound(myArrCol, 2) Else myColCount = -1 End If 13%> 14<!-- #INCLUDE FILE="../inc/metaheader.asp" --> 15<BODY> 16 <P CLASS="treeinfo"><% = myStrTree %></P> 17 18 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="content" SUMMARY="Database Information"> 19 <TR><TD CLASS="caption"><% = myTObj.getTerm(174) %></TD></TR> 20 <TR><TD> 21 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" WIDTH="100%" SUMMARY="SP Stucture"> 22 <THEAD> 23 <TR><TD CLASS="collabel"><% = myTObj.getTerm(172) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(301) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(302) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(303) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(304) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(305) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(173) %></TD></TR> 24 </THEAD> 25 <TBODY> 26 <TR CLASS="odd"> 27 <TD NOWRAP><B>@RETURN_VALUE</B></TD> 28 <TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD> 29 </TR> 30 <% 31 Set myObjStr = New mlt_string 32 For i = 0 To myColCount 33 If i MOD 2 = 0 Then myStrClass = "even" Else myStrClass = "odd" End If 34 myObjStr.strAppend "<TR CLASS=""" & myStrClass & """>" & vBCrLf 35 myObjStr.strAppend "<TD NOWRAP><B>" & myArrCol(0, i) & "</B></TD>" & vbCrLf 36 myObjStr.strAppend "<TD NOWRAP>" & myArrCol(1, i) & "</TD>" & vbCrLf 37 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>" & myArrCol(2, i) & "</TD>" & vbCrLf 38 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(3, i) & "</TD>" & vbCrLf 39 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(4, i) & "</TD>" & vbCrLf 40 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(5, i) & "</TD>" & vbCrLf 41 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>" & myArrCol(6, i) & " </TD>" & vbCrLf 42 myObjStr.strAppend "</TR>" & vBCrLf 43 Next 44 Response.Write myObjStr.getStr() 45 Set myObjStr = Nothing 46 %> 47 </TBODY> 48 </TABLE> 49 50 <BR> 51 52 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" WIDTH="100%" SUMMARY="SP Definition"> 53 <THEAD> 54 <TR><TD CLASS="collabel"><% = myTObj.getTerm(171) %></TD></TR> 55 </THEAD> 56 <TBODY> 57 <TR><TD><% = mySpTxt %></TD></TR> 58 </TBODY> 59 </TABLE> 60 61 </TD></TR> 62 </TABLE> 63</BODY> 64</HTML> 65<!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->