<%
' FORMATAR AQUELE CAMPO DE NÚMERO DE TELEFONE COM MÁSCARA
' Recupera os valores do Formulário
' DADOS GERAIS
nome = Request.Form("nome") :data_nascimento = Request.Form("data_nascimento") :rg = Request.Form("rg") :endereco = Request.Form("endereco")
numero = Request.Form("numero") :complemento = Request.Form("complemento") :bairro = Request.Form("bairro") :cidade = Request.Form("cidade")
estado = Request.Form("estado") :ddd_res = Request.Form("ddd_res") :tel_res = Request.Form("tel_residencial")
ddd_cel = Request.Form("ddd_cel"):tel_celular = Request.Form("tel_celular") :email = Request.Form("email")
escolaridade = Request.Form("escolaridade") :organizacao_ensino = Request.Form("organizacao_ensino") :curso = Request.Form("curso")
ocupacao = Request.Form("ocupacao")
' ÚLTIMO EMPREGO
empresa_ultimo_emprego = Request.Form("empresa_ultimo_emprego")
ddd_empresa = Request.Form("ddd_empresa") :tel_empresa = Request.Form("tel_empresa")
nome_ref_empresa = Request.Form("pessoa_ref_empresa") :data_saida = Request.Form("data_saida") :tempo_trabalhado = Request.Form("tempo_trabalhado")
' REFERÊNCIAS PESSOAIS
nome_ref_1 = Request.Form("nome_ref_pessoal1") :tel_ref_1 = Request.Form("tel_ref_1") :ddd_ref_1 = Request.Form("ddd_ref_1")
nome_ref_2 = Request.Form("nome_ref_pessoal2") :tel_ref_2 = Request.Form("tel_ref_1") :ddd_ref_2 = Request.Form("ddd_ref_1")
i = 1
for each item in request.Form()
' response.Write(item & " ("&i&") ") : i = i + 1
next
function str_sql
sql = "insert into cf_entrevistador ("
for each item in request.Form()
if (left(item,3) = "txt") then
sql_campos = sql_campos & right(item,len(item) - 4)& ", "
sql_valores = sql_valores & "'" &request.form(item) & "', "
end if
next
sql = sql & left(sql_campos,len(sql_campos) -2) & ") values ("&left(sql_valores,len(sql_valores) -2) & ")"
str_sql = sql
end function
if (Request.Form() <> "") then
call db_open()
if db_scalar("select id_cf_entrevistador from CF_ENTREVISTADOR where rg = '"&Request.Form("txt-rg")&"' ") <> "" then
form_alert("Já existe um registro gravado com o RG = "&Request.Form("txt-rg")&" ") :form_back() :response.End()
end if
if db_scalar("select id_cf_entrevistador from CF_ENTREVISTADOR where rg = '"&Request.Form("txt-rg")&"' OR email = '"&Request.Form("txt-email")&"' ") <> "" then
form_alert("Já existe um registro gravado com o E-MAIL = "&Request.Form("txt-email")&" ") :form_back() :response.End()
end if
con.execute(str_sql)
response.Redirect("Entrevistador_fotos.asp")
end if
%>
Request.Form() = (<%= Request.Form() %>)
Cadastro