/SQL/scripts/db/txtviewer.asp
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 " " 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" -->