autocomplete
Jeg fandt dette smarte autocomplete script, som jeg har fået til at virke med access database.<%
Dim myOptions
myOptions = ""
Set conntemp = Server.CreateObject("ADODB.Connection")
conntemp.Open DSN
SQLAUTOCOMPLETE = "SELECT * FROM USERS"
Set rsAutoComplete = conntemp.Execute(SQLAUTOCOMPLETE)
Do While Not rsAutoComplete.EOF
myOptions = myOptions & "'" & LowerCase(SpecielTegn(rsAutoComplete("U_NAVN"))) & "',"
rsAutoComplete.MoveNext
Loop
myOptions = Left(myOptions,Len(myOptions)-1)
rsAutoComplete.Close
Set rsAutoComplete = Nothing
%>
<script>
function matchFieldSelect (field) {
var found = false;
for (var i = 0; i < myOptions.length; i++)
if ((found = myOptions[i].indexOf(field.value) == 0))
break;
if (field.createTextRange) {
var cursorKeys ="8;46;37;38;39;40;33;34;35;36;45;"
if (cursorKeys.indexOf(event.keyCode+";") == -1) {
var r1 = field.createTextRange()
var oldValue = r1.text;
var newValue = found ? myOptions[i] : oldValue;
if (newValue != field.value) {
field.value = newValue
var rNew = field.createTextRange()
rNew.moveStart('character', oldValue.length)
rNew.select()
}
}
}
}
// Valgmuligheder
myOptions = new Array(<%=myOptions%>);
</script>
Jeg har ikke så meget forstand på javascript, så jeg ville lige høre om man ikke kan gøre sådan at den ikke tager højde for store og små bogstaver, for det er ret irriterende at man skal skrive det nødagtigt som det står i databasen.
På forhånd tak!
