/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. myDbName = Request.QueryString("db")
  5. myTblName = Request.QueryString("tbl")
  6. myFieldName = Request.QueryString("fld")
  7. myStrCnd = Request.QueryString("pk")
  8. openConnection
  9. myStrSQL = "SELECT " & myFieldName & " FROM " & myTblName & " WHERE " & myStrCnd
  10. myArrRow = getArrFromSQL(myStrSQL)
  11. closeConnection
  12. %>
  13. <!-- #INCLUDE FILE="../inc/metaheader.asp" -->
  14. <BODY>
  15. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="content" SUMMARY="Database Information">
  16. <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>
  17. <TR><TD>
  18. <TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1 CLASS="content" SUMMARY="Query">
  19. <THEAD>
  20. <TR><TD CLASS="collabel"><% = myFieldName %></TD></TR>
  21. </THEAD>
  22. <TBODY>
  23. <TR><TD>
  24. <%
  25. If isArray(myArrRow) Then
  26. Response.Write txt2html(myArrRow(0, 0))
  27. Else
  28. Response.Write "&nbsp;"
  29. End If
  30. %>
  31. </TD></TR>
  32. </TBODY>
  33. </TABLE>
  34. </TD></TR>
  35. </TABLE>
  36. </BODY>
  37. </HTML>
  38. <!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->