OKay, her er hvad jeg har fået lavet indtil videre, uden dog at det virker.
<%
sqlBorger = "select * from Persondata where Jobpilot = '" & Session("BrugerID") & "'"
'response.write sqlBorger
'response.end
Set rsBorger = conn.execute(sqlBorger)
sqlFaglige = "select * from DineFagligeKompetencer where BrugerID = '" & request.QueryString("borgerid") & "'"
'response.Write sqlFaglige
'response.end
set rsFaglige = conn.execute(sqlFaglige)
%>
<%
sqlKompetence = "select * from ValgfagligKompetence Order by Kompetence"
set rsKompetence = conn.execute(sqlKompetence)
%>
<form action=# method=post>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<td height=10></td>
</tr>
<%
i = 0
y = 0
%>
<tr>
<% do while not rsKompetence.eof and i < 4 %>
<%
strFaglige = rsKompetence("Kompetence")
'strAlmene = split(strAlmene,",")
'i = 0
'y = 0
'for b = Lbound(strAlmene) to Ubound(strAlmene)
strSQL1 = "Select * from DineFagligeKompetencer where Kompetence like '%" & strFaglige & "%' and BrugerID = '" & Session("BrugerID") & "'"
'response.Write strSQL1
'response.end
Set rs1 = Conn.Execute(strSQL1)
%>
<td width=20%><font face=arial size=1><%=rsKompetence("Kompetence")%></font></td>
<td width=1>
<input id="Checkbox1" type="checkbox" name="kompetence" value="<%=rsKompetence("Kompetence")%>" />
</td>
<%
i = i + 1
y = y + 1
if i = 3 then
i = 0
response.Write "</tr>"
end if
rsKompetence.movenext
loop
%>
<input id="Hidden1" type="hidden" name=antal value="<%=y%>" />
<tr>
<td colspan=6 align=center><input id="submit200" type="submit" value="submit" /></td>
</tr>
</table>
</form>
