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

/SQL/scripts/db/txtviewer.asp

http://github.com/khaneh/Orders
ASP | 43 lines | 38 code | 5 blank | 0 comment | 0 complexity | d3e5f7028830c88386547eaacfa7a84d MD5 | raw file
 1<!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
 2<%
 3	Dim myDbName, myTblName, myFieldName, myStrCnd, myStrSQL, myArrRow
 4
 5	myDbName = Request.QueryString("db")
 6	myTblName = Request.QueryString("tbl")
 7	myFieldName = Request.QueryString("fld")
 8	myStrCnd = Request.QueryString("pk")
 9
10	openConnection
11	myStrSQL = "SELECT " & myFieldName & " FROM " & myTblName & " WHERE " & myStrCnd
12	myArrRow = getArrFromSQL(myStrSQL)
13	closeConnection
14
15%>
16<!-- #INCLUDE FILE="../inc/metaheader.asp" -->
17<BODY>
18
19	<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="content" SUMMARY="Database Information">
20		<TR><TD CLASS="caption"><IMG SRC="../../themes/<% = mla_cfg_theme %>/images/mylittletree/table.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALIGN="MIDDLE" ALT="Content"> <% = myTObj.getTerm(459) %></TD></TR>
21		<TR><TD>
22			<TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1 CLASS="content" SUMMARY="Query">
23				<THEAD>
24				<TR><TD CLASS="collabel"><% = myFieldName %></TD></TR>
25				</THEAD>
26				<TBODY>
27				<TR><TD>
28				<%
29					If isArray(myArrRow) Then
30						Response.Write txt2html(myArrRow(0, 0)) 
31					Else
32						Response.Write "&nbsp;"
33					End If
34				%>
35				</TD></TR>
36				</TBODY>
37			</TABLE>
38		</TD></TR>
39	</TABLE>
40
41</BODY>
42</HTML>
43<!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->