Hur fångar jag min inputbox värde för att kunna plocka ut det och skicka vidare till ASP sidan?
Min kod:
testa.htm
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><html>
<script language="JavaScript" src="rs.htm"></script>
<script language="JavaScript">RSEnableRemoteScripting();</script>
<INPUT name="me" size="30" onKeyDown="DoClick();" onChange="DoClick();">
<div id="dta"></div>
<script>
var strURL="test.asp"
function DoClick(){
dta.innerHTML ="<font color=red>Please wait, fetching information from the database...</font>"
ASP = RSGetASPObject("test.asp")
co = ASP.GetData(showdata,errori)
}
function errori(co){
alert("RS ERROR\n\n" +
"status = " + co.status + "\n\n" +
"message = " + co.message + "\n\n" +
"context = " + co.context + "\n\n" +
"data = " + unescape(co.data));
}
function showdata(co){
dta.innerHTML = co.return_value;
}
</script>
</html>
</font>
test.asp
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<!--#INCLUDE FILE="RS.ASP"-->
<%RSDispatch%>
<SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">
var public_description = new MyServerMethods();
function MyServerMethods()
{
this.GetData = Function( 'n1','return GetData(n1)' );
}
</SCRIPT>
<%
if request("a")<>"" then GetData("W")
function GetData(strIn)
dim rs,Connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\dmab2000\DMAB2_data.mdb"
SQLStmt = "SELECT * FROM tabKund Where ForNamn LIKE '%" & request.form("me") & "%' Order By ForNamn"
SET RS = Connection.Execute(SQLStmt)
do while not rs.eof
strout = strout & rs("ForNamn") & "<br>"
rs.MoveNext
loop
GetData = strout
end function
%>
</font>
Som ni ser vill jag hämta request.form("me") från testa.htm och skicka till SQLStmt i test.asp... Några tips?