PageRenderTime 6ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 2ms app.codeStats 0ms

/SQL/scripts/db/spstruct.asp

http://github.com/khaneh/Orders
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>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</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>&nbsp;" & myArrCol(3, i) & "</TD>" & vbCrLf
39							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>&nbsp;" & myArrCol(4, i) & "</TD>" & vbCrLf
40							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>&nbsp;" & myArrCol(5, i) & "</TD>" & vbCrLf
41							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>" & myArrCol(6, i) & "&nbsp;</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			&nbsp;<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" -->