el código de ''mainframe'' es el siguiente:
Cita: SQL="Select * from CtroTrbjo Order By CntrCod"
select case criterio
case "'" & "codigo" & "'"
SQL="Select * from CtroTrbjo Order By CntrCod"
case "'" & "nombre" & "'"
SQL="Select * from CtroTrbjo Order By CntrNombre"
case "'" & "editar" & "'"
SQL="SELECT * FROM CtroTrbjo WHERE CntrCod=" & paramedit
case "'" & "borrar" & "'"
end select
pos=0
set cnn = server.createobject("ADODB.connection")
cnn.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("bdd\IntraOpt.mdb"))
set rs = cnn.execute(SQL)
while not rs.eof
pos = pos + 1
if (pos mod 2) = 0 then
response.write("<tr bgcolor=" & "'" & "#505050" & "'><td valign=" & "'" & "top" & "'" & " align=" & "'" & "left" & "'>" & "<input type=" & "'" & "radio" & "'" & "name='frm_chk' value='" & pos & "'>" & rs("CntrCod") & "</td>")
response.write("<td valign=" & "'" & "top" & "'" & " align=" & "'" & "left" & "'>" & "<div class=" & "'" & "txtcuadros" & "'>" & rs("CntrNombre") & "</div></td></tr>")
else
response.write("<tr bgcolor=" & "'" & "#808080" & "'><td valign=" & "'" & "top" & "'" & " align=" & "'" & "left" & "'>" & "<input type=" & "'" & "radio" & "'" & "name='frm_chk' value='" & pos & "'>" & rs("CntrCod") & "</td>")
response.write("<td valign=" & "'" & "top" & "'" & " align=" & "'" & "left" & "'>" & "<div class=" & "'" & "txtcuadros" & "'>" & rs("CntrNombre") & "</div></td></tr>")
end if
rs.movenext
wend