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.Close var db=undefined%> </form> </td>
|