Problema Con Variable Sesion

[Veronicalismar]

tengo la siguiente sentencia:

if Session("Pais") <> "" then
cod_pais = Session("Pais")
else
response.redirect "ver_artistas4.asp"
End if

Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "driver={SQL Server};server=website; database=evenpro; uid=sa;pwd=sa"

sql ="SELECT pais.cod_pais, pais.nom_pais FROM pais INNER JOIN tab_artista_nac ON pais.cod_pais = tab_artista_nac.cod_pais"
set RS10 = con.Execute(sql)
%>

pero me arroja un error

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/ver_artistas4.asp, line 0


la variable no esta vacia ya lo comprobe.

[monkyta]

Ese error significa que no encontró registros que cumplan con el criterio de busqueda.
Te recomiendo que hagas un copy-paste de la query al analizador de consulta para que verifiques el porque no trae resutados

[monkyta]

Se me olvido preguntarte ...... Session("Pais") no debería estar en el select? de eso al final trataba tu pregunta

[doncog]

gracias aqui va todo.

-----------------------------------------------
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/Transporte.mdb")

SQL="SELECT Estado.IFecha, Estado.Guia, Estado.Ingreso, Estado.Transportista, Estado.Receptor, Estado.Comentario "&_
"FROM CIng INNER JOIN Estado ON CIng.Guia = Estado.Guia "&_
"WHERE (((CIng.Empresa)='" & session("Empresa") & "') "&_
vGui & " " & vFec & " " & vCiu & " " & vReg & " " & vTra & " " & vEnt & " ) order by Estado.Guia;"
Set rs = Server.CreateObject("ADODB.RecordSet")
'response.write(sql)
rs.Open SQL, oConn, 1, 1

IF rs.EOF THEN
RESPONSE.WRITE ("<div align=center><span class=Estilo7>NO ENCONTRO DATOS<strong> <br>")
ELSE

if (request("pag") <> "") then
pagina_actual = request("pag")
else
pagina_actual = 1
end if

rs.pageSize = vPag
rs.absolutePage = pagina_actual
cantidad_campos = rs.Fields.Count

END IF

registros_mostrados = 0
'////////////////////////////////////////
'////////// Cargar Fecha ////////////////
'////////////////////////////////////////
If Not rs.eof then

if vFec = "" or vFec = null then

else
vFec = rs.fields("IFecha")
end if
Else

End If
'////////////////////////////////////////

While (Not rs.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
Response.Write( "<TR>" & vbCrlf )
vN = vN + 1