ajax-template

<p>
<div id="login-box-name">Menu ID :</div>
<div id="login-box-field">
<input
autocomplete=off
name="RecordID"
id="RecordID"
title="Record ID"
type="text"
onkeyup="callFindMenu(this.value);"
size="20"
maxlength="30" >
<span id="txtHint"></span>
</p>

<div> First Report Level</div><div id="login-box-field">
<input
id="mainreportlevel"
name="mainreportlevel"
autocomplete=off
type="text"
class="form-login"
title="mainreportlevel" value="" size="30" maxlength="30" />
</div>

function callFindMenu(str){
if (str.length==0) {
document.getElementById("txtHint").innerHTML="";
return;
}
if (window.XMLHttpRequest){
xmlhttp=new XMLHttpRequest();
} else {
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function() {
if (xmlhttp.readyState==4 && xmlhttp.status==200){
ajaxReturn=xmlhttp.responseText;
_refreshv('divisionPermit','')
if (ajaxReturn) {
var values=ajaxReturn.split("`");
_refreshv('mainreportlevel',values[1])
}
}
}
xmlhttp.open("GET","findMenu.asp?q="+str,true);
xmlhttp.send();
}



findMenu.asp

<%
response.expires=-1
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DSN=menu;UID=edwardl;PWD=joanna;Database=users"
Set SQLStmt = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject ("ADODB.Recordset")
q=ucase(request.querystring("q"))
if q<>"" then
SQLStmt.CommandText = "select * from menu where recordid='" & q &"'"
SQLStmt.CommandType = 1
Set SQLStmt.ActiveConnection = OBJdbConnection
RS.Open SQLStmt
if not RS.EOF then
R=RS("recordid")
O=RS("mainreportlevel")
T=RS("subreportlevel")
W=RS("Thirdreportlevel")
S=RS("REPORTNAME")
D=RS("DIVISION")
C=RS("COMPANY")
L=RS("LINK")
U=RS("STATUS")
response.write(R&"`"&O&"`"&T&"`"&W&"`"&S&"`"&D&"`"&C&"`"&L&"`"&U)
'response.write(RS("divisionPermit")&"`"&RS("password")&"`"&RS("companyPermit"))
end if
end if
%>