PORTAL DE AUDITORIA | Vagas - Currículos

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") msgErro = "" deuErro = false 'variaveis iniciadas para quando o formulario estiver vazio sexo = "M" empregado = True if request("entrar")="Entrar" then usuario = replace(replace(request("usuario"),"'",""),"--","") senha = replace(replace(request("senha"),"'",""),"--","") opcao = request("tipoAcesso") if opcao then 'candidato sql = ("SELECT IdCandidato FROM Candidatos WHERE login='"&usuario&"' AND senha='"&senha&"' and ativo=true") else sql = ("SELECT IdEmpresa FROM empresas WHERE login='"&usuario&"' AND senha='"&senha&"' and ativo=true") end if Set rs = conSQL.Execute(sql) if not rs.EOF then if opcao then session("usuarioCand")=rs(0) response.redirect("dadosCandidato.asp") else session("usuarioEmp")=rs(0) response.redirect("dadosEmpresa.asp") end if else msgErro = "Usuário/Senha Inválidos!" end if elseif request("salvar")="Salvar" then on error resume next email = replace(trim(request("email")),"'","") senha = replace(trim(request("senha")),"'","") cpf = replace(trim(request("cpf")),"'","") nome = replace(trim(request("nome")),"'","") dataNasc = replace(trim(request("data")),"'","") nacionalidade = replace(trim(request("nacional")),"'","") estadoCivil = replace(trim(request("estadoCivil")),"'","") CodEscolaridade = replace(trim(request("escolaridade")),"'","") if CodEscolaridade = "" then CodEscolaridade = "NULL" end if endereco = replace(trim(request("endereco")),"'","") CodPais = replace(trim(request("pais")),"'","") if CodPais = "" then CodPais = "NULL" end if estado = replace(trim(request("estado")),"'","") cidade = replace(trim(request("cidade")),"'","") bairro = replace(trim(request("bairro")),"'","") cep = replace(trim(request("cep")),"'","") fone = replace(trim(request("fone_ddd")),"'","") + "-" + replace(trim(request("fone_num")),"'","") foneDDD = replace(trim(request("fone_ddd")),"'","") fon = replace(trim(request("fone_num")),"'","") celular = replace(trim(request("cel_ddd")),"'","") + "-" + replace(trim(request("cel_num")),"'","") celDDD = replace(trim(request("cel_ddd")),"'","") cel = replace(trim(request("cel_num")),"'","") sexo = replace(trim(request("sexo")),"'","") empregado = replace(trim(request("empregado")),"'","") ativo = "true" auxData = now() ISODate = Year(auxData) & "-" & Month(auxData) & "-" & Day(auxData) & " " & hour(auxData) & ":" & minute(auxData) & ":" & second(auxData) sql = "INSERT INTO Candidatos (Login, senha, cpf, nome, dataNasc, nacionalidade, estadoCivil, CodEscolaridade, " sql = sql & "sexo, endereco, empregado, CodPais, estado, cidade, bairro, cep, email, fone, celular, datahora, ativo) VALUES(" sql = sql & "'" & email &"', " sql = sql & "'" & senha &"', " sql = sql & "'" & cpf &"', " sql = sql & "'" & nome &"', " sql = sql & "'" & dataNasc &"', " sql = sql & "'" & nacionalidade &"', " sql = sql & "'" & estadoCivil &"', " sql = sql & "" & CodEscolaridade &", " sql = sql & "'" & sexo &"', " sql = sql & "'" & endereco &"', " sql = sql & "" & empregado &", " sql = sql & "" & CodPais &", " sql = sql & "'" & estado &"', " sql = sql & "'" & cidade &"', " sql = sql & "'" & bairro &"', " sql = sql & "'" & cep &"', " sql = sql & "'" & email &"', " sql = sql & "'" & fone &"', " sql = sql & "'" & celular &"', " sql = sql & "'" & ISODate &"', " sql = sql & ativo &")" 'Response.Write(sql) 'response.end conSQL.Execute(sql) if err.number=0 then msgErro = "Cadastro realizado com Sucesso!" 'insere no banco de emails sql = "INSERT INTO bancoEmail (ColEmail) VALUES('" & email &"')" conSQL.Execute(sql) if err.number=0 then msg = "" else msg = err.Description end if else deuErro = true if CodEscolaridade = "NULL" then CodEscolaridade = "" end if if CodPais = "NULL" then CodPais = "" end if if err.number = -2147467259 then msgErro = "Erro no cadastro - E-mail ou CPF já cadastrados!" else msgErro = "Erro ao tentar realizar o cadastro." end if end if elseif request("salvarEmpresa")="Salvar" then on error resume next emailEmpresa = replace(trim(request("email")),"'","") senha = replace(trim(request("senha")),"'","") cnpj = replace(trim(request("cnpj")),"'","") nomeEmpresa = replace(trim(request("nomeEmpresa")),"'","") enderecoEmpresa = replace(trim(request("enderecoEmpresa")),"'","") estadoEmpresa = replace(trim(request("estadoEmpresa")),"'","") cidadeEmpresa = replace(trim(request("cidadeEmpresa")),"'","") foneEmp = replace(trim(request("fone_dddEmpresa")),"'","") + "-" + replace(trim(request("fone_numEmpresa")),"'","") foneDDDEmpresa = replace(trim(request("fone_dddEmpresa")),"'","") fonEmpresa = replace(trim(request("fone_numEmpresa")),"'","") nomeRespEmpresa = replace(trim(request("nomeRespEmpresa")),"'","") auxData = now() ISODate = Year(auxData) & "-" & Month(auxData) & "-" & Day(auxData) & " " & hour(auxData) & ":" & minute(auxData) & ":" & second(auxData) sql = "INSERT INTO empresas (Login, senha, empresa, endereco, cidade, uf, cnpj, " & _ "email, telefone, responsavel, datahora, ativo) VALUES(" sql = sql & "'" & emailEmpresa &"', " sql = sql & "'" & senha &"', " sql = sql & "'" & nomeEmpresa &"', " sql = sql & "'" & enderecoEmpresa &"', " sql = sql & "'" & cidadeEmpresa &"', " sql = sql & "'" & estadoEmpresa &"', " sql = sql & "'" & cnpj &"', " sql = sql & "'" & emailEmpresa &"', " sql = sql & "'" & foneEmp &"', " sql = sql & "'" & nomeRespEmpresa &"', " sql = sql & "'" & ISODate &"', " sql = sql & "TRUE" &")" 'Response.Write(sql) 'response.end conSQL.Execute(sql) if err.number=0 then msgErro = "Cadastro realizado com Sucesso!" else deuErroEmpresa = true if err.number = -2147467259 then msgErro = "Erro no cadastro - E-mail já cadastrado!" else msgErro = "Erro ao tentar realizar o cadastro." end if end if end if %> PORTAL DE AUDITORIA | Vagas - Currículos

Vagas / Currículos

<%if msgErro <> "" then%> <%=msgErro%> <%end if%>

	Usuário:
	Senha:
Candidato Empresa

Candidatos
Para visualizar as vagas disponíveis e enviar seu currículo, realize login no sistema.
Ainda não possui cadastrado? Clique Aqui

Empresas
Para visualizar os currículos disponíveis, realize login no sistema.
Ainda não possui cadastro? Clique Aqui

<%if deuErroEmpresa then%>

<%else%> <%if deuErro then%>

<%else%>

<%end if%>

1 - Dados Principais
Informe seus dados principais nos campos abaixo. Ao preencher seu nome, evite abreviações.

Nome Completo

Data de Nascimento

(dd/mm/aaaa)

Nacionalidade

Estado Civil

Escolaridade

<%sql = ("SELECT descr, cod FROM Escolaridade where ativo=true ORDER BY descr") Set rs = conSQL.Execute(sql)%>

Sexo

checked<%end if%>>Masculino checked<%end if%>>Feminino

Empregado

checked<%end if%>>Sim checked<%end if%>>Não

2 - Dados de Contato

Informe os dados solicitados, com atenção especial para o seu e-mail, que poderá ser utilizado em contatos das empresas com você.

País

<%sql = ("SELECT descr, cod FROM pais where ativo=true ORDER BY descr") Set rs = conSQL.Execute(sql)%>

Cidade

Estado

Bairro

Endereço

CEP

E-mail

Telefone Residencial

DDD	Número

Telefone Celular

DDD	Número

3 - Documento

O número do seu documento será utilizado neste passo exclusivamente para validar o cadastramento único no site.

CPF

utilize os pontos e o hífen

4 - Dados Login

O usuário é seu endereço de e-mail.

Usuário

Senha

<% set conSQL=nothing Set rs = Nothing %>