<%
DIM SQL1, RS1, SQL2, RS2, SQL3, RS3, SQL4, RS4
Dim codnome, curso
Codnome=request.QueryString("codnome")
curso=request.QueryString("curso")
SQL = "SELECT * FROM USERS WHERE Codnome="&codnome
'response.Write(SQL)
'response.End()
SET RS=Conn.execute (SQL)
IF (Session("Usuario")=RS("Nome")) then
SQL4="SELECT * FROM Acessos WHERE CodCursoAcesso="&curso&" AND LoginAcesso='"&RS("Login")&"'"
SET RS4=Conn.execute (SQL4)
IF not RS4.EOF Then
%>
<%
SQL1="SELECT * FROM Cursos WHERE codcurso="&curso
SET RS1=Conn.execute (SQL1)
%>
