tengo problema con el sig codigo... que recorre un registro y me tiene k mostrar un sig y anterior para avanzar y retroceder
tengo la sig funcion:
<%
set conexion = server.CreateObject("adodb.connection")
conexion.open session("strConn")
sub traerPreg_Sig_Ant(varPregAct,varPregAnt,varPregSig )
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adUseClient = 3
sql = "Select id_pregunta, id_encuesta, pregunta from encPreguntas where id_encuesta="& id_encuesta &" "
Set rs_prg2 = Server.CreateObject("ADODB.Recordset")
rs_prg2.CursorType = adOpenKeyset
rs_prg2.LockType = adLockOptimistic
rs_prg2.CursorLocation = adUseClient
rs_prg2.open sql, conexion
varProximaPreg = rs_prg2("id_pregunta")
while not rs_prg2.EOF
if rs_prg2("id_pregunta") = cint(varPregAct) then
rs_prg2.MovePrevious
varPregAnt = rs_prg2("id_pregunta")
rs_prg2.moveNext
varPregSig = rs_prg2("id_pregunta")
end if
rs_prg2.moveNext
wend
end sub
la cual llamo desde esta pagina
<!--#include file="_functionRecorreRegistros.asp"-->
<%
set conexion = server.CreateObject("adodb.connection")
conexion.open session("strConn")
sub mostrarEnc()
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adUseClient = 3
id_encuesta = request.QueryString("id_encuesta")
id_pregunta=request.QueryString("id_pregunta")
'************ encabezado preguntas
sql_prg = "Select id_pregunta, id_encuesta," & _
" pregunta, descripcion descripcion_prg, archivo" & _
" from encPreguntas" & _
" where id_encuesta="& id_encuesta &" "
Set rs_prg=Server.CreateObject("ADODB.Recordset")
rs_prg.open sql_prg, conexion
if request.QueryString("id_pregunta") <> "" then
sql_prg = "Select id_pregunta, id_encuesta," & _
" pregunta, descripcion descripcion_prg, archivo" & _
" from encPreguntas" & _
" where id_encuesta="& id_encuesta &" AND id_pregunta= "& id_pregunta &" "
Set rs_prg=Server.CreateObject("ADODB.Recordset")
rs_prg.open sql_prg, conexion
end if
'************************* Lista preguntas
IF NOT rs_prg.eof THEN
sql = "Select id_pregunta, id_encuesta, pregunta from encPreguntas where id_encuesta="& id_encuesta &" ORDER BY id_pregunta ASC"
Set rs_prg2 = Server.CreateObject("ADODB.Recordset")
rs_prg2.CursorType = adOpenKeyset
rs_prg2.LockType = adLockOptimistic
rs_prg2.CursorLocation = adUseClient
rs_prg2.open sql, conexion
while not rs_prg2.eof %>
<img src="images/elminar.gif" width="10" height="10" border="0" alt="<%=rs_prg2("pregunta")%>">
<a href="admin.asp?sec=7&actionForm=1&sigPreg=2&id_pr egunta=<%=rs_prg2("id_pregunta")%>&id_encuesta=<%= rs_prg2("id_encuesta")%>"><%=mid(rs_prg2("pregunta "),1,100)%> ...</a><br>
<% rs_prg2.movenext
wend
'rs_prg2.movelast
'varUltimaPregunta = rs_prg2("id_pregunta")
rs_prg2.movefirst
'varPrimeraPregunta = rs_prg2("id_pregunta")
b = "1"
'************************************************* ********************* Lista preguntas ANTERIOR Y SIGUIENTE
if request.QueryString("id_pregunta") <> "" then
call traerPreg_Sig_Ant(id_pregunta,varPregAnt,varPregSi g)
%>
<a href="admin.asp?sec=7&actionForm=1&id_encuesta=<%= rs_prg2("id_encuesta")%>&id_pregunta=<%=varPregAnt %>"><< anterior</a> |
<a href="admin.asp?sec=7&actionForm=1&id_encuesta=<%= rs_prg2("id_encuesta")%>&id_pregunta=<%=varPregSig %>">siguiente >></a>
<% else
response.redirect("admin.asp?sec=7&actionForm=1&id _encuesta="&id_encuesta&"&id_pregunta="&rs_prg2("i d_pregunta")&"")
end if
ELSE
response.write("no existen registros")
END IF
me arroja errores del tipo que no existen datos, y tengo datos, se agradese desde ya cualkier ayuda
