Hola a todos:
Bueno les cuento que estoy teniendo un problema que no entiendo porque ya que esto lo he hecho en otras páginas y funciona pero en esta no se que sucede.
Es fácil de entender muestro un listado de datos pero cuando la tabla esta vacia deberia redireccionarme a una página de error y no lo hace me tira error
La funcion es asi:
*********************************************
Function Todo_resultado()
Dim Command, RS
Set Command = Server.CreateObject("ADODB.Command")
Command.ActiveConnection = CnBase
Command.CommandText = "E_info3"
Command.CommandType = 4
Command.CommandTimeout = 0
Command.Prepared = true
Command.Parameters.Append Command.CreateParameter("@RETURN_VALUE", 3, 4)
Set RS = Command.Execute
Error = RS.fields.item("result").value
RS.close
Set RS = nothing
Set Command = nothing
Todo_resultado = Error
End Function****************************************** ***
y la llamo de esta forma
error = Todo_resultado()
If Error <> 0 Then
Response.redirect("error.asp")
end if
*********************************************
Y el error me lo tira en esta linea donde asigno el id_usuario
<% While Not RS.EOF%>
<tr bgcolor="#385A72"><%id_usuario = trim(RS("id_usuario"))%><td valign="top"><font face="Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><%=trim(RS("e mail"))%></font></td><td valign="top"><font face="Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><%=trim(RS("p 1b"))%>/font></td>
********************************************
El procedimiento almacenado es este
CREATE PROCEDURE [E_info3] AS
declare @error as int
declare @contador as int
select @error = 0
select @contador = (select count(id_usuario) FROM respuestas_encuesta3)
If @contador = 1
begin
select u.email, re.id_usuario,re.p1b
from respuestas_encuesta3 as re , usuarios as u where u.id_usu = re.id_usuario order by u.email asc
end
else
begin
set @error = 1
end
select @error as result
