windows-server-2003/sdktools/appparse/appparseweb/querydb.html

<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Query Form</title>
<base target="rbottom">
</head>

<object
	classid="clsid:083BE70B-A07B-46FA-BCB1-8D85D262C699" 
	codebase = "http://mkrause/appparse.cab"
	id="AppParse" 
	data="DATA:application/x-oleobject;BASE64,C+c7CHug+ka8sY2F0mLGmQADAADYEwAA2BMAAA==
	"
	width="0" height="0" align="right">
</object>

<body>

<form method="POST" action="_vti_bin/shtml.dll/QueryDB.html" onSubmit="" name="QueryParams" webbot-action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot
  bot="SaveResults" endspan i-checksum="43374" -->
  <p>Ptolemy ID <input type="text"  value = "" ID= "PtolemyID" size="20">
  Function Name <input type = "text" value = "" ID="FunctionName" size="30"></p>
  <p><input type="button" value="Execute Query" name="B3" OnClick = "ExecuteQuery();">
  </p>
</form>
 <hr>


<table border="1" width="100%">
  <tr>
    <td width="3%">&nbsp;</td>
    <td>Project Name</td>
    <td width="20%">Ptolemy ID</td>
  </tr>
</table>

<DIV ID="Results">
</DIV>

</body>

<script language = "javascript">

function ShowItem(item)
{
	if (eval(item+'.style.display') == '')
	{
		eval(item+'.style.display = "none";');
		eval(item+'Button.value = "+";');
	}
	else
	{
		eval(item+'.style.display = "";');
		eval(item+'Button.value = "-";');
	}

}

function ExecuteQuery()
{		
	// Execute the query
	document.AppParse.ConnectionString = 
	"Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=\\\\mkrause\\shared\\appparse.mdb";
	
	var szFunc = "*";
	var Ptolemy;
	if(QueryParams.PtolemyID.value == "")
		Ptolemy = 0;
	else
		Ptolemy = QueryParams.PtolemyID.value;
		
	if(QueryParams.FunctionName.value != "")	
		szFunc = QueryParams.FunctionName.value;

	if(szFunc == "*" && Ptolemy == 0)
	{
		alert("Please enter search criteria");
		return;
	}			
		
	document.AppParse.QueryDB(Ptolemy, szFunc);
}

</script>
</HTML>