Hola gente, tengo el siguiente problema:
1-soy newb en esto.
2-estoy modificando una plataforma de e-learning y tengo el siguiente codigo:
<%
idcurso = 5
Dim usuario
usuario = TRIM(Request.Cookies("usuario"))
set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source= localhost;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog= blabla_db"
Conexion.Open
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conexion
RS.CursorType = 3
RS.Open "SELECT id_usuario FROM Usuarios WHERE usuario= '" & usuario & "'"
'recupero el ID de usuario en cuestion a partir de una cookie
id_user = RS( "id_usuario" )
Set RS2 = Server.CreateObject( "ADODB.Recordset" )
RS2.ActiveConnection = Conexion
RS2.CursorType = 3
RS2.Open "SELECT clase_1 FROM Cursos_Interactivos Where id_usuario='" & id_user & "' AND id_curso= '" & idcurso & "'"
'recupero el valor del registro clase_1 de la DB para ese usuario en cuestión para confirmar que esta habilitado
clase_1 = RS2( "clase_1")
IF clase_1 = "enero" Then
session ("accesook") = 9
ELSE
session ("accesook") = 0
END IF
%>
Ahora... como hacer para contemplar el caso en que no existan registros de clase_1 o bien de id_usuario y en ese caso enviarlos a un mensaje de error? Este caso podria darse ya sea porque no hay en la DB un registro para la sentencia SQL que ejecuto o bien porque nunca hubo una Cookie de donde extraer el "usuario" ?
He intentado cambiando ->
clase_1 = RS2( "clase_1")
Por lo siguiente:
IF NOT RS2.EOF Then
clase_1 = ( "clase_1")
ELSEIF RS2.EOF Then
session("accesook") = 1
END IF
Genero una session y que luego deseo hacer un chequeo de sessiones activas realizando combinaciones paras determinar si finalmente brindo acceso o no al usuario en cuestion...
Pero no logro que funcione . Como lo corregirian? Muchas gracias =)
