no kreo que el error que te aparece ahora sea debido al cambio que te dijo que hicieras RootK.
Código:
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
do while NOT(rsPrCode.EOF)
if not(isnull(rsPrCode("PrCom"))) then
PrCom = rsPrCode("PrCom")
end if
rsPrCode.MoveNext
loop
end if
;)
<center><font face=verdana size=1 color=blue>
¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>