Comparar No Bd E Dar Um Checked

[jucacabala]

olás, tentei a tarde inteira mas não rolou... É o seguinte

como faço para exibir os dados de uma tabela e verificar se os registro contem em outra tabela

e se conter dar um checked no meu checkbox.

tem como? :ph34r:

str = "select * from curso order by curso asc"

str2 = "select * from curso_aluno where cod_aluno = '"&cod_aluno&"'"

Set rs = conexaodb.Execute(str)

Set rs2 = conexaodb.Execute(str2)

<%

if rs.Eof then

%>

N&atilde;o possui cursos cadastrados

<%

else

Do While Not rs.Eof

id_curso = rs.Fields("id_curso")

id2 = rs2.Fields("id_curso")

response.write id2

%>

<input name="id_curso" type="checkbox" id="id_curso" value="<% = rs.Fields("id_curso") %>" <% if id_curso = id2 then %>checked="checked" <% end if %> />

<% = rs.Fields("curso")%>&nbsp;&nbsp;

<%

rs.movenext

loop

End if

set rs = nothing

%>

desta forma esta dando Checked somente no ultimo id2 da tabela...

[JCMPJ]

Penso que isso pode ser feito com um único SELECT, mas por hora tente assim:

<%
str = "select * from curso order by curso asc"
str2 = "select * from curso_aluno where cod_aluno = '"&cod_aluno&"'"
set rs   = server.createobject("adodb.recordset")
set rs2 = server.createobject("adodb.recordset")
rs.Open   str, conexaodb, 3, 3
rs2.Open str2, conexaodb, 3, 3
if rs.Eof then
%>
Não possui cursos cadastrados
<%
else
Do While Not rs.Eof
     rs2.MoveFirst
     matriculado = false
     id_curso = rs.Fields("id_curso")
     Do While Not rs2.Eof
     id2 = rs2.Fields("id_curso")
     if id_curso = id2 then  matriculado = true
                 rs2.MoveNext
     Loop
%>
<input name="id_curso" type="checkbox" id="id_curso" value="<% = rs.Fields("id_curso") %>" <% if matriculado then %>checked="checked" <% end if %> />
<% = rs.Fields("curso")%>  
<%
     rs.movenext
loop
End if
set rs = nothing
%>

Editado Maio 13, 2006 por JCMPJ

[jucacabala]

mesmo assim

se eu der um response.write id2 ele mostra somente o valor do ultimo registro da tabela...

[jucacabala]

então fica assim (valeu JCMP)

<%

str = "select * from curso order by curso asc"

str2 = "select * from curso_aluno where cod_aluno = '"&cod_aluno&"'"

set rs = server.createobject("adodb.recordset")

set rs2 = server.createobject("adodb.recordset")

rs.Open str, conexaodb, 3, 3

rs2.Open str2, conexaodb, 3, 3

if rs.Eof then

%>

N&atilde;o possui cursos cadastrados

<%

else

Do While Not rs.Eof

rs2.MoveFirst

matriculado = false

id_curso = rs.Fields("id_curso")

Do While Not rs2.Eof

id2 = rs2.Fields("id_curso")

if id_curso = id2 then matriculado = true

rs2.MoveNext

Loop

%>

<input name="id_curso" type="checkbox" id="id_curso" value="<% = rs.Fields("id_curso") %>" <% if matriculado then %>checked="checked" <% end if %> /><% = rs.Fields("curso")%>

<%

rs.movenext

loop

End if

set rs = nothing

%>