Curser i felt til indtastning
Hej !Jeg har et lille problem. I følgende vil jeg godt have at curseren går til feltet indtastning af varenummer. Når varenummer er indtastet og data på varenummer er fremkommet vil jeg godt igen have at curseren stiller sig i feltet indtastning af varenummer!
Følgende skal bruges til en håndscanner med windows pocket pc!
<%option Explicit%>
<%
Dim Database
Dim Varer
Set Database=Server.Createobject("ADODB.Connection")
Database.Open("Provider=sqloledb;data source=Venus;Initial catalog=AXDB;PWD=AXDBReader;UID=AXDBReader")
Set Varer=Server.Createobject("ADODB.Recordset")
%>
<html>
<body>
<form method="get" action="priser.asp">
<input name="Varenummer" type="text" value="" size="13" maxlength="13">
<input type="Submit" name="send" value="Søg" />
</form>
<h3>
<%
Dim SQL
If len(request.querystring("Varenummer"))=0 Then
SQL="Select * from inventtable"
else
SQL="Select itemname,price,unitid from inventtable join inventtablemodule on inventtable.dataareaid=inventtablemodule.dataareaid and inventtable.itemid=inventtablemodule.itemid where inventtable.itemid='" & request.querystring("Varenummer") & "' and inventtable.dataareaid='dat' and inventtablemodule.dataareaid='dat' and inventtablemodule.moduletype=2"
Varer.open(SQL),database,3
if Varer.recordcount > 0 then
response.write varer.fields("itemname")
Response.write "<br>"
response.write "Pris pr. " & varer.fields("Unitid") & " : " & varer.fields("price") & " kr."
else
Response.write "Vare ikke fundet!"
end if
end if
%>
</h3>
</body>
</html>
Hilsen
JL
