|  Nieuw lid |  | Ik heb een databank met een veldnaam "modelnr" deze zijn gevuld met "HA-585" ,"FF-147". Ik krijg mijn tabel gevuld met alle records , maar wanneer ik 1 regel bijvoegt 'IF THEN " dan krijg ik een foutmelding, bedoeling is dat ik een tabel vul met alleen modelnrs die beginnen met "HA". Foutmelding isRuntime-fout Microsoft JScript (0x800A138F) Object wordt verwacht
 
 
    
    
        
            
                
<%@language="JSCRIPT" %>
<%var db = Server.CreateObject("ADODB.Connection")
dbPath = Server.mapPath("moninspek.mdb");
db.Open("DBQ=" + dbPath + ";Driver={MICROSOFT ACCESS DRIVER (*.MDB)};");
sql_query="Select * from mal order by modelnr"
var lijst = db.Execute(sql_query)%>
-------------------------------------------------
<td><form>         
<select name="mallijst" onChange="kies()">	
<% var i=0 %>
<%while(!lijst.eof)
{ i++
if ("HA"=left(lijst("modelnr"),2)) then	%>
<option value = "<%='mal'+i%>"><%=lijst("modelnr")%></option>
<%lijst.MoveNext
}
db.Close
var db=undefined%>
</form>
</td> <%@language="JSCRIPT" %><%var db = Server.CreateObject("ADODB.Connection")dbPath = Server.mapPath("moninspek.mdb");db.Open("DBQ=" + dbPath + ";Driver={MICROSOFT ACCESS DRIVER (*.MDB)};");sql_query="Select * from mal order by modelnr"var lijst = db.Execute(sql_query)%>-------------------------------------------------<td><form>         <select name="mallijst" onChange="kies()">	<% var i=0 %><%while(!lijst.eof){ i++if ("HA"=left(lijst("modelnr"),2)) then	%><option value = "<%='mal'+i%>"><%=lijst("modelnr")%></option><%lijst.MoveNext}db.Closevar db=undefined%></form></td>
   |