<% @LANGUAGE = VBScript %> <% Option Explicit Response.Buffer = true : Response.Expires = 60 Response.ExpiresAbsolute = Now() - 1 : Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" : Response.CacheControl = "no-cache" %> <% ' inicializacao da pagina: cabecalhos html, menu e cabecalho do sistema Call IniHTM("Comissária Pibernat", true, "") Call IniMenu(true, "11.jpg", "oportunidades.gif") ' texto da pagina Dim lConfirmado, cNome, cEmail, cCidade, nCargo, cTelefone, cTexto, cMensagem, lErro : lErro = false If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then lConfirmado = ValLogGER(Request.Form("CO"), false) cNome = Request.Form("NOME") cEmail = Request.Form("EMAIL") cCidade = Request.Form("CIDADE") nCargo = Request.Form("CARGO") cTelefone = Request.Form("TELEFONE") cTexto = Request.Form("MENSAGEM") Else lConfirmado = false cNome = Request.QueryString("NOME") cEmail = Request.QueryString("EMAIL") cCidade = Request.QueryString("CIDADE") nCargo = Request.QueryString("CARGO") cTelefone = Request.QueryString("TELEFONE") cTexto = Request.QueryString("MENSAGEM") End If Call CriAceBD(oConexao, ACESSOBANCO2, oRegistro) If (lConfirmado) Then If (VazioGER(cNome)) Then lErro = true If (VazioGER(cEmail)) Then lErro = true ElseIf (VerEmail(cEmail) = false) Then lErro = true End If If (VazioGER(cCidade)) Then lErro = true If (VazioGER(cTelefone)) Then lErro = true If (NumGER(nCargo) = false) Then lErro = true If (VazioGER(cTexto)) Then lErro = true If (lErro) Then cMensagem = "Preencha todos os campos indicados e verifique o e-mail" Else If (ExeSqlBD(oConexao, oRegistro, "Select NOMECURR, CARGOCURR, CIDADECURR, TELEFONECURR, EMAILCURR, DESCRICAOCURR, " & _ "DTCADCURR, HORACADCURR, USUCADCURR, DTATUCURR, HORAATUCURR, USUATUCURR From CURRICULOS Where 0 = 1", false, "")) Then oRegistro.AddNew oRegistro.Fields(0).Value = cNome oRegistro.Fields(1).Value = nCargo oRegistro.Fields(2).Value = cCidade oRegistro.Fields(3).Value = cTelefone oRegistro.Fields(4).Value = cEmail oRegistro.Fields(5).Value = cTexto oRegistro.Fields(6).Value = Date oRegistro.Fields(7).Value = Time oRegistro.Fields(8).Value = "Site" oRegistro.Fields(9).Value = Date oRegistro.Fields(10).Value = Time oRegistro.Fields(11).Value = "Site" oRegistro.Update oRegistro.Close Call DesAceBD(oConexao, oRegistro) Response.Clear : Response.Redirect "oportunidades2.asp" Else cMensagem = "Ocorreu um erro no envio. Tente novamente." End If Call DesAceBD(oConexao, oRegistro) End If End If %> Se você tiver interesse em integrar a equipe Pibernat, envie seu currículo.

<%=cMensagem%>
* Nome:
* E-mail:
* Cidade:
* Cargo:	<% Call MonCOM("inputpib2", oConexao, oRegistro, "Select CODCAR, NOMECAR From CARGOS Order By NOMECAR", "cargo", "", _ "Selecione o cargo", true, nCargo, "") %>
* Telefone:
* Mensagem:	<%=cTexto%>
Campos indicados são obrigatórios

<% Call DesAceBD(oConexao, oRegistro) ' fim do texto Call FimTab() Call FimMenu() ' finalizacao da pagina Call RodHTM(true) %>