el valor de BOF o EOF es True, o el actual registr
Publicado por Ainhoa (5 intervenciones) el 09/08/2001 10:35:32
hola, tengo un problema al recorrer una base de datos de la que solo quiero sacar unos datos haciendo una consulta, pero me da el error arriba inicado.Sabriais decirme donde tengo el problema?Os mando el codigo.
Gracias
<%
if request.QueryString("cod")<>"" then
dim x,i,kk,q
x=1
dim rstm
dim rstv
set rstm=server.CreateObject("adodb.recordset")
rstm.ActiveConnection=session("con")
rstm.CursorType=adOpenKeyset
rstm.LockType =adLockoptimistic
rstm.Source="select * from mayoristas where id_cliente like " & session("pp")
rstm.open
session("coco")=Request.QueryString("cod")
rstm.fields("compra")=rstm.fields("compra") & session("coco") & " "
rstm.Update%>
<font size=2>
<%for i=x to len(lTrim(rstm.Fields("compra")))
session("kk")=mid(rstm.Fields("compra"),i,1)
if session("kk")=" " then
set rstv=server.CreateObject("adodb.recordset")
rstv.ActiveConnection=session("con")
rstv.Cursorlocation=adopenDynamic
rstv.LockType =adLockoptimistic
rstv.Source="select * from productos where id="& session("codi")
rstv.Open
Response.Write(rstv.Fields(2))%>
<%Response.Write(rstv.Fields(4))%>
<br>
<%else
session("codi")=session("codi")&session("kk")
end if
next
rstv.Close
rstm.close
end if%>
Gracias
<%
if request.QueryString("cod")<>"" then
dim x,i,kk,q
x=1
dim rstm
dim rstv
set rstm=server.CreateObject("adodb.recordset")
rstm.ActiveConnection=session("con")
rstm.CursorType=adOpenKeyset
rstm.LockType =adLockoptimistic
rstm.Source="select * from mayoristas where id_cliente like " & session("pp")
rstm.open
session("coco")=Request.QueryString("cod")
rstm.fields("compra")=rstm.fields("compra") & session("coco") & " "
rstm.Update%>
<font size=2>
<%for i=x to len(lTrim(rstm.Fields("compra")))
session("kk")=mid(rstm.Fields("compra"),i,1)
if session("kk")=" " then
set rstv=server.CreateObject("adodb.recordset")
rstv.ActiveConnection=session("con")
rstv.Cursorlocation=adopenDynamic
rstv.LockType =adLockoptimistic
rstv.Source="select * from productos where id="& session("codi")
rstv.Open
Response.Write(rstv.Fields(2))%>
<%Response.Write(rstv.Fields(4))%>
<br>
<%else
session("codi")=session("codi")&session("kk")
end if
next
rstv.Close
rstm.close
end if%>
Valora esta pregunta
0