<%
dim conexao, sql, rs
dim texto
call banco(conexao)
sql = "select vaga.*, profissao.nome from vaga inner join profissao on vaga.idProfissao = profissao.idProfissao order by profissao.nome"
set rs = openrs(conexao, sql)
if rs.eof then
texto = "| Nenhuma vaga disponível no momento | "
else
do while not rs.eof
texto = texto & "
" _
& "| " & rs("quantidade") & " | " _
& "" & rs("nome") & " | " _
& "
"
rs.movenext
loop
end if
pfecharobj(rs)
%>
body
|
Banco
de Empregos
|
Oferece
|
Profissão
|
<%=texto%>
|
|
|
