91 lines
2.2 KiB
HTML
91 lines
2.2 KiB
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%"> </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> |