Dit is mijn code. Het is de bedoeling dat ik moet kunnen aanvinken waarvan ik een afdruk wil hebben, dus dat er meerdere selecties zijn. Maar deze code doet niet??
<%
Set ObjectVerbinding = Server.CreateObject("ADODB.connection")
ObjectVerbinding.Open "DSN=coermandata;DATABASE=data"
%>
<% set strSQL = objectVerbinding.Execute("SELECT * FROM data") %>
<% Do while Not strSQL.EOF %>
<center>
<form action="default.asp" method=POST>
<table border="0" width="100%">
<tr>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<input type="checkbox" name="checkbox" value="<% = strSQL.Fields("identificatie").Value %>">
<% = strSQL.Fields("meldcode").Value %>
</font>
</td>
<td width="15%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("klantnaam").Value %>
</font>
</td>
<td width="12%">
<font face="verdana" size="1" color="#000000">
0<% = strSQL.Fields("telefoonnummer").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("contactpersoon").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("memo1").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("memo2").Value %>
</font>
</td>
<td width="8%">
<font face="verdana" size="1" color="#000000">
<A href="update.asp?id=<% = strSQL.Fields("identificatie").Value %>">Wijzigen</a>
</font>
</td>
</tr>
</table>
</center>
<% strSQL.MoveNext
Loop
%>
</form>
<Input type="submit" value="Afdrukken">
<center>
<font face="verdana" size="1" color="#000000">
<hr color="darkblue" size="1" width="50%">
</font>
</center>
</body>
</html>
<%
Set ObjectVerbinding = Server.CreateObject("ADODB.connection")
ObjectVerbinding.Open "DSN=coermandata;DATABASE=data"
%>
<% set strSQL = objectVerbinding.Execute("SELECT * FROM data") %>
<% Do while Not strSQL.EOF %>
<center>
<form action="default.asp" method=POST>
<table border="0" width="100%">
<tr>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<input type="checkbox" name="checkbox" value="<% = strSQL.Fields("identificatie").Value %>">
<% = strSQL.Fields("meldcode").Value %>
</font>
</td>
<td width="15%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("klantnaam").Value %>
</font>
</td>
<td width="12%">
<font face="verdana" size="1" color="#000000">
0<% = strSQL.Fields("telefoonnummer").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("contactpersoon").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("memo1").Value %>
</font>
</td>
<td width="10%">
<font face="verdana" size="1" color="#000000">
<% = strSQL.Fields("memo2").Value %>
</font>
</td>
<td width="8%">
<font face="verdana" size="1" color="#000000">
<A href="update.asp?id=<% = strSQL.Fields("identificatie").Value %>">Wijzigen</a>
</font>
</td>
</tr>
</table>
</center>
<% strSQL.MoveNext
Loop
%>
</form>
<Input type="submit" value="Afdrukken">
<center>
<font face="verdana" size="1" color="#000000">
<hr color="darkblue" size="1" width="50%">
</font>
</center>
</body>
</html>