home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Komunik / sambar / sambar51p.exe / sysadmin / control / dbms / sql.asp < prev    next >
Encoding:
Text File  |  2001-07-18  |  1.0 KB  |  56 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Sambar Server DBMS Control Panel</TITLE>
  4. <SCRIPT language="JavaScript">
  5. <!--
  6. function Form_Validator(theForm)
  7. {
  8.     if (theForm.sql.value == "")
  9.     {
  10.         alert("Please enter a value for the \"SQL\" field.");
  11.         theForm.sql.focus();
  12.         return (false);
  13.     }
  14. }
  15. //-->
  16. </SCRIPT>
  17. </HEAD>
  18. <% 
  19. #include "../header.asp"
  20. #include "../menu.asp"
  21. area = "isql";
  22. #include "submenu.asp"
  23. %>
  24. <BR>
  25. <CENTER>
  26. <%
  27. if (strcasecmp(envt("usedbms"), "true") != 0)
  28. {
  29.     printf("The DBMS subsystem is currently disabled.");
  30. }
  31. else
  32. {
  33. %>
  34. <FORM METHOD=POST ACTION="/sysadmin/control/dbms/data.asp" TARGET=data onsubmit="return Form_Validator(this)">
  35. <TABLE border=0>
  36. <TR><TD>
  37. <FONT SIZE=+1 COLOR=#000080>DBMS Cache:</FONT> 
  38. <SELECT NAME="dbcache">
  39. <%
  40. list = dbcachelist();
  41. for (i = 0; i < sizeof(list); i++)
  42.     printf("<OPTION>%s\n", list[i]);
  43. %>
  44. </SELECT>
  45. <BR>
  46. <TEXTAREA NAME="sql" ROWS=4 COLS=60></TEXTAREA><BR>
  47. <INPUT TYPE=submit VALUE="Execute SQL">
  48. </TD></TR>
  49. </TABLE>
  50. <%
  51. }
  52. %>
  53. </FORM>
  54. </CENTER>
  55. </BODY></HTML>
  56.