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

/SQL/scripts/db/udfstruct.asp

http://github.com/khaneh/Orders
ASP | 62 lines | 58 code | 4 blank | 0 comment | 0 complexity | ff1b2979bb62f0cc1f0a4a5d74245dbc MD5 | raw file
 1<!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
 2<%
 3	Dim myNodeId, myDbName, myUdfName, myArrCol, myColCount, i, myObjStr, myStrClass, myUdfTxt, myStrTree
 4	myNodeId = Request.QueryString("nid")
 5	myDbName = Request.QueryString("db")
 6	myUdfName = Request.QueryString("udf")
 7	openConnection
 8	myStrTree = getTreeStr(Mid(myNodeId, 2) & "_9_1", Array(myDbName, myUdfName))
 9	myArrCol = getSpParam(myDbName, myUdfName)
10	myUdfTxt = txt2html(getObjTxt(myDbName, myUdfName))
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="UDF 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></TR>
24				</THEAD>
25				<TBODY>
26					<%
27						Set myObjStr = New mlt_string
28						For i = 0 To myColCount
29							If i MOD 2 = 0 Then myStrClass = "odd" Else myStrClass = "even" End If
30							myObjStr.strAppend "<TR CLASS=""" & myStrClass & """>" & vBCrLf
31							myObjStr.strAppend "<TD NOWRAP><B>"
32							If myArrCol(0, i) = "" Then myObjStr.strAppend "@RETURN_VALUE" Else myObjStr.strAppend myArrCol(0, i) End If
33							myObjStr.strAppend "</B></TD>" & vbCrLf
34							myObjStr.strAppend "<TD NOWRAP>" & myArrCol(1, i) & "</TD>" & vbCrLf
35							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>" & myArrCol(2, i) & "</TD>" & vbCrLf
36							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>&nbsp;" & myArrCol(3, i) & "</TD>" & vbCrLf
37							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>&nbsp;" & myArrCol(4, i) & "</TD>" & vbCrLf
38							myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>&nbsp;" & myArrCol(5, i) & "</TD>" & vbCrLf
39							myObjStr.strAppend "</TR>" & vBCrLf
40						Next
41						Response.Write myObjStr.getStr()
42						Set myObjStr = Nothing
43					%>
44				</TBODY>
45			</TABLE>
46			
47			&nbsp;<BR>
48
49			<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" WIDTH="100%" SUMMARY="UDF Definition">
50				<THEAD>
51					<TR><TD CLASS="collabel"><% = myTObj.getTerm(175) %></TD></TR>
52				</THEAD>
53				<TBODY>
54					<TR><TD><% = myUdfTxt %></TD></TR>
55				</TBODY>
56			</TABLE>
57			
58		</TD></TR>
59	</TABLE>
60</BODY>
61</HTML>
62<!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->