Likes: 
mijne heren,
ik heb zit met een vervelend feit:
ik ben bezig met een reserveringsysteem in asp voor school, alleen ik krijg een foutmelding:
Soort fout:
Compilatiefout Microsoft VBScript (0x800A0401)
Einde van de instructie wordt verwacht
/personeel3/reserveer/reservering_maken2.asp, line 101, column 75
dit is de code.....
-------------------------------------------------
<%
pasID = Cint(request.form("pasnr"))
datum = request.form("resdatum")
aantalPer = Cint(request.form("aantalPer"))
set DB_CONN=server.createobject("ADODB.Connection")
DSN_CONN_STRING="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN_CONN_STRING=DSN_CONN_STRING & "DBQ=" & server.mappath(sRoot&"../../../db/karten.mdb")
DB_CONN.Open DSN_CONN_STRING
'klantID ophalen
Set RS = Server.CreateObject("ADODB.Recordset")
SQL_STRING = "SELECT * FROM klantPas where pasID="&pasID
RS.Open SQL_STRING, DB_CONN
klantID = rs("klantID")
rs.close
Set RS = Server.CreateObject("ADODB.Recordset")
SQL_STRING = "SELECT * FROM Klant WHERE KlantID = '"&klantID&"'"
RS.Open SQL_STRING, DB_CONN
achternaam = rs("Achternaam")
plaats = rs("plaats")
rs.close
'klant gegevens tonen
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<script>
function ShowDiv(val)
{
document.all['blok2'].style.display = "none";
document.all['blok3'].style.display = "none";
if(val == "2")
{
document.all['blok2'].style.display = "block";
}
if(val == "3")
{
document.all['blok3'].style.display = "block";
document.all['blok2'].style.display = "block";
}
}
</script>
</head>
<body>
<table>
<tr>
<td>achternaam:</td>
<td><%=achternaam%></td>
</tr>
<tr>
<td>Plaatsnaam:</td>
<td><%=plaats%></td>
</tr>
<tr>
<td>Datum:</td>
<td><%=datum%></td>
</tr>
<tr>
<td>Aantal heats (max 3)</td>
<td><select name="heat" onchange="ShowDiv(this.value)">
<option value = 1 selected> 1 heat</option>
<option value = 2 > 2 heats</option>
<option value = 3 > 3 heats</option>
</td>
</tr>
<tr>
<td>Kies een tijd</td>
<td>
<table>
<tr>
<td>
<select name="heat1">
<%
Set RS = Server.CreateObject("ADODB.Recordset")
SQL_STRING = "SELECT * FROM Heat"
RS.Open SQL_STRING, DB_CONN
do while NOT rs.EOF
Heatnummer = cint(rs("Heatnummer"))
beginDatum = rs("Heat_begin_tijd")
eindDatum = rs("Heat_eind_tijd")
Set RSs2 = Server.CreateObject("ADODB.Recordset")
SQL_STRING ="SELECT COUNT (*) AS totaal FROM Reservering WHERE Heatnummer="&heatnummer&""
RSs2.Open SQL_STRING, DB_CONN
if rss2("totaal") > 0 then
RSs2.close
SQL_STRING ="SELECT * FROM reservering WHERE Heatnummer = 1"
RSs2.Open SQL_STRING, DB_CONN
do while NOT rss2.EOF
%>
<option value="<%=Heatnummer%>"><%=beginDatum%> - <%=eindDatum%></option>
<%
rss2.moveNext
loop
rss2.close
end if
rs.movenext
loop
rs.close
%>
</select>
</td>
<td style="display:none;" id="blok2"></td>
<td style="display:none;" id="blok3"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>extra opties</td>
<td></td>
</tr>
</table>
<%
%>
</body>
</html>
---------------------------------------------
dit is regel 100:
SQL_STRING ="SELECT COUNT (*) AS totaal FROM Reservering WHERE Heatnummer="&heatnummer&""
kan iemand me als plzzz helpen?
