IF/Else / IF Else

[ukow 1]

Olá!

 

Estou montando um pequeno relatório, onde tenho alunos e grupos.

 

Fiz o Select:

 

<%

dim rsAluno2, Grupo2

sql = "select * from parceiro where id_parceiro = "& rsProf("id_parceiro")

set rsAluno2 = GetRS(sql)

sql = "select * from grupos where id_grupo = "& rsProf("id_parceiro")

set rsGrupo2 = GetRS(sql)

%>

<%=rsAluno2("nome")%>

* Como posso fazer para que no response write caso não exista esse aluno, pesquisar na tabela de grupos e responder a <%rsGrupo2("ds_grupo")%> ?

Obrigado!

[Public2004 79]

Veja aí se ajuda:

dim rsAluno2, rsGrupo2
 
sql = "select * from parceiro where id_parceiro = "& rsProf("id_parceiro")
set rsAluno2 = GetRS(sql)

If rsAluno2.EOF Then
	Response.Write("Nenhum Nome")
	sql = "select * from grupos where id_grupo = "& rsProf("id_parceiro")
	set rsGrupo2 = GetRS(sql)
	If rsGrupo2.EOF Then
		Response.Write("Nenhum Grupo")
	Else
		Response.Write(rsGrupo2("ds_grupo"))
	End If
Else
	Response.Write(rsAluno2("nome"))
End If

Att.