<% ' connect to the MS Access database in the same directory strDbPath = Server.MapPath(".") & "\users2.mdb" ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath Set rs = Server.CreateObject("adodb.recordset") rs.Open "users", ConnectStr, 2, 3 If Request("Send") <> "" Then ' send email to all users Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = "falecom@passofeliz.com.br" Mail.FromName = "Faça Parte de Nossa Família" Mail.Subject = "Canditato a Emprego" Mail.Body = "Nome: " & Request("a") & chr(13) &chr(10) & "Nascimento: " & Request("b") & "/" & Request("c") & "/" & Request("d") & chr(13) &chr(10) & "Nacionalidade:" & Request("e") & chr(13) &chr(10) & "Naturalidade: " & Request("f") & chr(13) &chr(10) & "Estado Civil: " & Request("g") & chr(13) &chr(10) & "Qtd. Dependentes: " & Request("h") & chr(13) &chr(10) & "Endereço:" & Request("i") & chr(13) &chr(10) & "Cidade: " & Request("j") & " - " & "Estado: " & Request("k") & chr(13) &chr(10) & "CEP: " & Request("l") & chr(13) &chr(10) & "e-mail: " & Request("m") & chr(13) &chr(10) & "Telefone: " & Request("n") & " - Celular: " & Request("o") & chr(13) &chr(10) & "Cargo Desejado: " & Request("p") & chr(13) &chr(10) & "Outro: " & Request("q") & chr(13) &chr(10) & "Cidade de Interesse: " & Request("r") & chr(13) &chr(10) & "Área de Interesse - 1: " & Request("s") & chr(13) &chr(10) & "Área de Interesse - 2: " & Request("ss") & chr(13) &chr(10) & "Nível de Escolaridade: " & Request("t") & chr(13) &chr(10) & "Curso: " & Request("u") & chr(13) &chr(10) & "Outros Cursos Realizados: " & chr(13) &chr(10) & Request("v") & chr(13) &chr(10) & "Idioma 1: " & Request("w") & " - Nível: " & Request("x") & chr(13) &chr(10) & "Idioma 2: " & Request("y") & " - Nivel: " & Request("z") & chr(13) &chr(10) & "Outros Idiomas: " & Request("aa") & chr(13) &chr(10) & "Cursos de Informática: " & Request("bb") & " - " & Request("cc") & " - " & Request("dd") & " - " & Request("ee") & " - " & Request("ff") & chr(13) &chr(10) & "Outros: " & Request("gg") & chr(13) &chr(10) & "Experência Profissional" & chr(13) &chr(10) & "Empresa: " & Request("hh") & chr(13) &chr(10) & "De: " & Request("ii") & "/" & Request("jj") & chr(13) &chr(10) & "Até:" & Request("kk") & "/" & Request("ll") & chr(13) &chr(10) & "Cargo:" & Request("mm") & chr(13) &chr(10) & "Área: " & Request("nn") & chr(13) &chr(10) & "Atividades: " & Request("oo") & chr(13) &chr(10) & "Experiências Extra-Curriculares: " & Request("pp") & chr(13) &chr(10) ' read address from DB and put them in the BCC field While not rs.EOF Mail.AddBcc rs("email"), rs("name") rs.MoveNext Wend ' finally: send message Mail.Send Response.Redirect "ok2.htm" Else ' simply display the list of users in the database 'Response.Write "Currently in the user database:

" 'While not rs.EOF 'Response.Write rs("name") & " (" & rs("email") & ")
" 'rs.MoveNext 'Wend End If %>