d.m.v. ASP checkboxes waarde in een database veranderen

[Verwijderd]

Wat is de manier om met een ASP pagina met daarop checkboxes waarde te veranderen in een database.
Ik heb een knop op de pagina die een script in werking moet zetten zodat de waardes van de checkboxes uitgelezen en weggeschreven worden.
Maar hoe doe ik dit?

Mijn pagina bestaat uit tabel met daarin een opsomming van personen die voor een vergadering verwacht worden. op het moment dat een persoon zich bij de balie meldt moet d.m.v. een vinkje in de checkbox achter de persoon te zetten aan de database worden doorgegeven dat deze persoon aanwezig is.

p.s. Ik gebruik een access 97 database.

[gorgi_19]

Wat heb je tot nu toe al bedacht voor code...

[Verwijderd]

Dat is heel veel, eens kijken of het erop past:

<SCRIPT language="JavaScript">
function Check(form)
{
waarde1=nee;
waarde2=nee;
waarde3=nee;
waarde4=nee;
waarde5=nee;
waarde6=nee;
waarde7=nee;
waarde8=nee;
waarde9=nee;
waarde10=nee;
waarde11=nee;
waarde12=nee;
waarde13=nee;
waarde14=nee;
waarde15=nee;

if (form.checkbox1.checked) waarde1=ja;
if (form.checkbox2.checked) waarde2=ja;
if (form.checkbox3.checked) waarde3=ja;
if (form.checkbox4.checked) waarde4=ja;
if (form.checkbox5.checked) waarde5=ja;
if (form.checkbox6.checked) waarde6=ja;
if (form.checkbox7.checked) waarde7=ja;
if (form.checkbox8.checked) waarde8=ja;
if (form.checkbox9.checked) waarde9=ja;
if (form.checkbox10.checked) waarde10=ja;
if (form.checkbox11.checked) waarde11=ja;
if (form.checkbox12.checked) waarde12=ja;
if (form.checkbox13.checked) waarde13=ja;
if (form.checkbox14.checked) waarde14=ja;
if (form.checkbox15.checked) waarde15=ja;
return waarde1;
}

</Script>

<% Private Sub VulTextfield
'Procedure die de tekstvelden vult met gegevens uit de database
Dim conVergadering
Dim rsVergadering
Dim rsPersoon1
Dim rsPersoon2
Dim rsPersoon3
Dim rsPersoon4
Dim rsPersoon5
Dim rsPersoon6
Dim rsPersoon7
Dim rsPersoon8
Dim rsPersoon9
Dim rsPersoon10
Dim rsPersoon11
Dim rsPersoon12
Dim rsPersoon13
Dim rsPersoon14
Dim rsPersoon15
Dim intNummer
Dim strDatum
Dim strBeginTijd
Dim strEindtijd
Dim strVergaderingsID
Dim strBelegddoor
Dim strPersoon1
Dim strPersoon2
Dim strPersoon3
Dim strPersoon4
Dim strPersoon5
Dim strPersoon6
Dim strPersoon7
Dim strPersoon8
Dim strPersoon9
Dim strPersoon10
Dim strPersoon11
Dim strPersoon12
Dim strPersoon13
Dim strPersoon14
Dim strPersoon15
Dim intTemp
Dim strNummer


'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conVergadering = Server.CreateObject("ADODB.Connection")
conVergadering.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsVergadering=conVergadering.Execute("SELECT * FROM Vergaderingen WHERE Nummer = '" & strNummer & "'")


%>
<Table>
<TR>
<INPUT TYPE="hidden" NAME="vergadernummer" VALUE="<%= rsVergadering("Nummer") %>">
<TD WIDTH="122"><B>Nummer</B> </TD>
<TD WIDTH="175"><%= rsVergadering("Nummer") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"><B>Datum</B> </TD>
<TD WIDTH="175"><%= rsVergadering("Datum") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"><B>Begintijd</B> </TD>
<TD WIDTH="175"><%= rsVergadering("Begintijd") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"><B>Eindtijd</B> </TD>
<TD WIDTH="175"><%= rsVergadering("Eindtijd") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"><B>VergaderingsID</B> </TD>
<TD WIDTH="175"><%= rsVergadering("VergaderingsID") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"><B>Belegd door</B> </TD>
<TD WIDTH="175"><%= rsVergadering("Belegd door") %></TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81"> </TD>
<TD WIDTH="403"> </TD>
</TR>
<TR>
<TD WIDTH="122"> </TD>
<TD WIDTH="175"><B></B> </TD>
<TD WIDTH="81" ALIGN="CENTER"><B>Aanwezig</B></TD>
<TD WIDTH="47"></TD>
<TD WIDTH="202"></TD>
<TD WIDTH="81"></TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsVergadering.EOF
rsVergadering.MoveNext
Loop
end sub
%>

<% Private Sub VulPersoon1
Dim conPersoon1
Dim rsPersoon1
Dim strNummer
Dim intTemp
Dim checkvalue
Dim strSQl

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon1 = Server.CreateObject("ADODB.Connection")
conPersoon1.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon1=conPersoon1.Execute("SELECT * FROM Persoon1 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 1</B> </TD>
<TD WIDTH="175"><%= rsPersoon1("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX" NAME="CheckBox1"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon1.EOF
rsPersoon1.MoveNext
Loop
rsPersoon1.Close
conPersoon1.Close
Set rsPersoon1=nothing
Set conPersoon1=nothing
end sub
%>

<% Private Sub VulPersoon2
Dim conPersoon2
Dim rsPersoon2
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon2 = Server.CreateObject("ADODB.Connection")
conPersoon2.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon2=conPersoon2.Execute("SELECT * FROM Persoon2 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 2</B> </TD>
<TD WIDTH="175"><%= rsPersoon2("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox2"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon2.EOF
rsPersoon2.MoveNext
Loop
rsPersoon2.Close
conPersoon2.Close
Set rsPersoon2=nothing
Set conPersoon2=nothing
end sub
%>

<% Private Sub VulPersoon3
Dim conPersoon3
Dim rsPersoon3
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon3 = Server.CreateObject("ADODB.Connection")
conPersoon3.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon3=conPersoon3.Execute("SELECT * FROM Persoon3 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 3</B> </TD>
<TD WIDTH="175"><%= rsPersoon3("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox3"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon3.EOF
rsPersoon3.MoveNext
Loop
rsPersoon3.Close
conPersoon3.Close
Set rsPersoon3=nothing
Set conPersoon3=nothing
end sub
%>
<% Private Sub VulPersoon4
Dim conPersoon4
Dim rsPersoon4
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon4 = Server.CreateObject("ADODB.Connection")
conPersoon4.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon4=conPersoon4.Execute("SELECT * FROM Persoon4 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 4</B> </TD>
<TD WIDTH="175"><%= rsPersoon4("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox4"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon4.EOF
rsPersoon4.MoveNext
Loop
rsPersoon4.Close
conPersoon4.Close
Set rsPersoon4=nothing
Set conPersoon4=nothing
end sub
%>
<% Private Sub VulPersoon5
Dim conPersoon5
Dim rsPersoon5
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon5 = Server.CreateObject("ADODB.Connection")
conPersoon5.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon5=conPersoon5.Execute("SELECT * FROM Persoon5 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 5</B> </TD>
<TD WIDTH="175"><%= rsPersoon5("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox5"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon5.EOF
rsPersoon5.MoveNext
Loop
rsPersoon5.Close
conPersoon5.Close
Set rsPersoon5=nothing
Set conPersoon5=nothing
end sub
%>
<% Private Sub VulPersoon6
Dim conPersoon6
Dim rsPersoon6
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon6 = Server.CreateObject("ADODB.Connection")
conPersoon6.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon6=conPersoon6.Execute("SELECT * FROM Persoon6 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 6</B> </TD>
<TD WIDTH="175"><%= rsPersoon6("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox6"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon6.EOF
rsPersoon6.MoveNext
Loop
rsPersoon6.Close
conPersoon6.Close
Set rsPersoon6=nothing
Set conPersoon6=nothing
end sub
%>
<% Private Sub VulPersoon7
Dim conPersoon7
Dim rsPersoon7
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon7 = Server.CreateObject("ADODB.Connection")
conPersoon7.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon7=conPersoon7.Execute("SELECT * FROM Persoon7 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 7</B> </TD>
<TD WIDTH="175"><%= rsPersoon7("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox7"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon7.EOF
rsPersoon7.MoveNext
Loop
rsPersoon7.Close
conPersoon7.Close
Set rsPersoon7=nothing
Set conPersoon7=nothing
end sub
%>
<% Private Sub VulPersoon8
Dim conPersoon8
Dim rsPersoon8
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon8 = Server.CreateObject("ADODB.Connection")
conPersoon8.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon8=conPersoon8.Execute("SELECT * FROM Persoon8 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 8</B> </TD>
<TD WIDTH="175"><%= rsPersoon8("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox8"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon8.EOF
rsPersoon8.MoveNext
Loop
rsPersoon8.Close
conPersoon8.Close
Set rsPersoon8=nothing
Set conPersoon8=nothing
end sub
%>
<% Private Sub VulPersoon9
Dim conPersoon9
Dim rsPersoon9
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon9 = Server.CreateObject("ADODB.Connection")
conPersoon9.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon9=conPersoon9.Execute("SELECT * FROM Persoon9 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 9</B> </TD>
<TD WIDTH="175"><%= rsPersoon9("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox9"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon9.EOF
rsPersoon9.MoveNext
Loop
rsPersoon9.Close
conPersoon9.Close
Set rsPersoon9=nothing
Set conPersoon9=nothing
end sub
%>
<% Private Sub VulPersoon10
Dim conPersoon10
Dim rsPersoon10
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon10 = Server.CreateObject("ADODB.Connection")
conPersoon10.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon10=conPersoon10.Execute("SELECT * FROM Persoon10 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 10</B> </TD>
<TD WIDTH="175"><%= rsPersoon10("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox10"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon10.EOF
rsPersoon10.MoveNext
Loop
rsPersoon10.Close
conPersoon10.Close
Set rsPersoon10=nothing
Set conPersoon10=nothing
end sub
%>
<% Private Sub VulPersoon11
Dim conPersoon11
Dim rsPersoon11
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon11 = Server.CreateObject("ADODB.Connection")
conPersoon11.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon11=conPersoon11.Execute("SELECT * FROM Persoon11 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 11</B> </TD>
<TD WIDTH="175"><%= rsPersoon11("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox11"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon11.EOF
rsPersoon11.MoveNext
Loop
rsPersoon11.Close
conPersoon11.Close
Set rsPersoon11=nothing
Set conPersoon11=nothing
end sub
%>
<% Private Sub VulPersoon12
Dim conPersoon12
Dim rsPersoon12
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon12 = Server.CreateObject("ADODB.Connection")
conPersoon12.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon12=conPersoon12.Execute("SELECT * FROM Persoon12 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TR>
<TD WIDTH="122"><B>Persoon 12</B> </TD>
<TD WIDTH="175"><%= rsPersoon12("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox12"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon12.EOF
rsPersoon12.MoveNext
Loop
rsPersoon12.Close
conPersoon12.Close
Set rsPersoon12=nothing
Set conPersoon12=nothing
end sub
%>
<% Private Sub VulPersoon13
Dim conPersoon13
Dim rsPersoon13
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon13 = Server.CreateObject("ADODB.Connection")
conPersoon13.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon13=conPersoon13.Execute("SELECT * FROM Persoon13 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 13</B> </TD>
<TD WIDTH="175"><%= rsPersoon13("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox13"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon13.EOF
rsPersoon13.MoveNext
Loop
rsPersoon13.Close
conPersoon13.Close
Set rsPersoon13=nothing
Set conPersoon13=nothing
end sub
%>
<% Private Sub VulPersoon14
Dim conPersoon14
Dim rsPersoon14
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon14 = Server.CreateObject("ADODB.Connection")
conPersoon14.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon14=conPersoon14.Execute("SELECT * FROM Persoon14 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 14</B> </TD>
<TD WIDTH="175"><%= rsPersoon14("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox14"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon14.EOF
rsPersoon14.MoveNext
Loop
rsPersoon14.Close
conPersoon14.Close
Set rsPersoon14=nothing
Set conPersoon14=nothing
end sub
%>
<% Private Sub VulPersoon15
Dim conPersoon15
Dim rsPersoon15
Dim strNummer
Dim intTemp

'Connectie maken met de ODBC-database: "Aanwezigheidsregistratie"
Set conPersoon15 = Server.CreateObject("ADODB.Connection")
conPersoon15.Open "Aanwezigheidsregistratie"
strNummer= Request.Form ("cmbNummer")
Set rsPersoon15=conPersoon15.Execute("SELECT * FROM Persoon15 WHERE Nummer = '" & strNummer & "'")
%>
<TABLE>
<TR>
<TD WIDTH="122"><B>Persoon 15</B> </TD>
<TD WIDTH="175"><%= rsPersoon15("Persoon") %></TD>
<TD WIDTH="81" ALIGN="CENTER"> <INPUT TYPE="CHECKBOX"
NAME="CheckBox15"></TD>
<TD WIDTH="47"> </TD>
<TD WIDTH="202"> </TD>
<TD WIDTH="81" ALIGN="CENTER"> </TD>
<TD WIDTH="403"> </TD>
</TR>
</TABLE>
<%
Do While Not rsPersoon15.EOF
rsPersoon15.MoveNext
Loop
rsPersoon15.Close
conPersoon15.Close
Set rsPersoon15=nothing
Set conPersoon15=nothing
end sub
%>
<HTML>
<HEAD><LINK REL="STYLESHEET" HREF="../../css/brt.css">
<TITLE>Aanvinken Personen</TITLE>
</HEAD>
<BODY
ONLOAD="javascript:{if(parent.frames[0]&&parent.frames['navigatie'].Go)parent.frames['navigatie'].Go()}">
<FORM name="form1">
<%VulTextField%>
<%VulPersoon1%>
<%VulPersoon2%>
<%VulPersoon3%>
<%VulPersoon4%>
<%VulPersoon5%>
<%VulPersoon6%>
<%VulPersoon7%>
<%VulPersoon8%>
<%VulPersoon9%>
<%VulPersoon10%>
<%VulPersoon11%>
<%VulPersoon12%>
<%VulPersoon13%>
<%VulPersoon14%>
<%VulPersoon15%>
<TABLE border=0 cellpadding=0 cellspacing=0>
<TR>
<TD WIDTH="100">
<INPUT TYPE="submit" NAME="Ok" VALUE="Ok"></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

[gorgi_19]

* gorgi_19 moet uitkijken wat hij vraagt..

Kan je nu nog [code=asp][/code] tags gebruiken?

[ Voor 12% gewijzigd door gorgi_19 op 10-01-2003 14:57 ]

[whoami]

Tip: gebruik code-tags.
Tip2 : post enkel relevante code. Er zullen niet veel mensen zijn die bereid zullen zijn om dit te lezen/doorpluizen.

[Verwijderd]

Volgens mij wel, maar dat is juist het punt ik weet niet hoe ik het op moet lossen.
Met javascript of met visual basic.

[Verwijderd]

Tip3: gebruik functie's en sub's met parameters, gebruik array's enb gebruik koppel tabellen

[gorgi_19]

whoami schreef op 10 januari 2003 @ 14:58:
Tip2 : post enkel relevante code. Er zullen niet veel mensen zijn die bereid zullen zijn om dit te lezen/doorpluizen.

Dit is de relevante code, met zijn opzet ben ik bang....

Daarom aan de topicstarter... Geen kwade bedoelingen, maar erhm..
Er klopt niet zo veel aan je programmeerstijl, zowel op het gebied van ASP als van Access.... Ik denk dat je hier eerst even naar kan kijken, voordat je gaat proberen te updaten.
15 tabellen voor 15 personen, lijkt me niet de juiste methodiek, in ieder geval.
Evenals het openen van 15 connecties... Het opvragen van het probleem moet volgens mij in 1 query in plaats van 15.

[ Voor 9% gewijzigd door gorgi_19 op 10-01-2003 15:02 ]

[Janoz]

Wat nou als er 16 mensen komen te vergaderen?

[Glimi]

Je zit 'way over your head' te werken. Vergelijk dat met iemand die ooit foto's van een automotor blok gezien heeft, z'n motorblok uitelkaar trekt en het weer in elkaar probeert te zetten.

Je schijnt ongeveer te begrijpen hoe de syntaxis van de taal in elkaar zit, maar de principes en denkbeelden van de taal totaal niet.
Probeer dan ook niet gelijk iets te maken zonder deze kennis. De kennis van de taal is meer dan de syntaxis. Je moet ook de semantiek beheersen.

Ga dus ajb eerst beginnen met een basiscurus VBScript en daarna nogmaals naar deze code. Je zult dan zien dat dit op te lossen is in een luttel aantal regels, vergeleken met de code hier.

Kijk even de P&W faq door naar linkjes voor ASP/VBScript
Succes!