Ayuda, tengo un error!

[bakanzipp]

todavia no entender...prueba con esto y dino que te imprime

Código:

  
QPrCode="select * from parametr where rCod=" & PrCod
Set rsPrCode=CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
i=1
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
do while NOT(rsPrCode.EOF)
if not(isnull(rsPrCode("PrCom"))) then
PrCome = rsPrCode("PrCom")
response.write "iteracion i = " & PrCome "<br>"
else
PrCome=""
end if
rsPrCode.MoveNext
i=i+1
loop
end if 
rsPrCode.close
If trim(PrCome) <> "" then 
Estud = rsEst("EsCod")
Else
Estud = 0
End if

estai pisando una variable...cual es la idea...ando ams perdio.

<center><font face=verdana size=1 color=blue>¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>