% ' FP_ASP ASP gerado automaticamente por um componente do FrontPage. Não edite. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Não é possível criar conexão" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Não é possível criar o conjunto de registros" fp_conn.Open Application("anamnese_ConnectionString") FP_DumpError strErrorUrl, "Não é possível abrir o banco de dados" fp_rs.Open "Resultados", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Não é possível abrir o conjunto de registros" fp_rs.AddNew FP_DumpError strErrorUrl, "Não é possível adicionar novo conjunto de registros ao banco de dados" Dim arFormFields0(45) Dim arFormDBFields0(45) Dim arFormValues0(45) arFormFields0(0) = "DEscolar" arFormDBFields0(0) = "DEscolar" arFormValues0(0) = Request("DEscolar") arFormFields0(1) = "anocons" arFormDBFields0(1) = "anocons" arFormValues0(1) = Request("anocons") arFormFields0(2) = "Noicq" arFormDBFields0(2) = "Noicq" arFormValues0(2) = Request("Noicq") arFormFields0(3) = "Possui" arFormDBFields0(3) = "Possui" arFormValues0(3) = Request("Possui") arFormFields0(4) = "Declaracao" arFormDBFields0(4) = "Declaracao" arFormValues0(4) = Request("Declaracao") arFormFields0(5) = "Religiao" arFormDBFields0(5) = "Religiao" arFormValues0(5) = Request("Religiao") arFormFields0(6) = "Pai" arFormDBFields0(6) = "Pai" arFormValues0(6) = Request("Pai") arFormFields0(7) = "Dias" arFormDBFields0(7) = "Dias" arFormValues0(7) = Request("Dias") arFormFields0(8) = "Padeceu" arFormDBFields0(8) = "Padeceu" arFormValues0(8) = Request("Padeceu") arFormFields0(9) = "anonasc" arFormDBFields0(9) = "anonasc" arFormValues0(9) = Request("anonasc") arFormFields0(10) = "mescons" arFormDBFields0(10) = "mescons" arFormValues0(10) = Request("mescons") arFormFields0(11) = "subject" arFormDBFields0(11) = "subject" arFormValues0(11) = Request("subject") arFormFields0(12) = "NivelCult" arFormDBFields0(12) = "NivelCult" arFormValues0(12) = Request("NivelCult") arFormFields0(13) = "CPF" arFormDBFields0(13) = "CPF" arFormValues0(13) = Request("CPF") arFormFields0(14) = "Desejo" arFormDBFields0(14) = "Desejo" arFormValues0(14) = Request("Desejo") arFormFields0(15) = "Medicamentos" arFormDBFields0(15) = "Medicamentos" arFormValues0(15) = Request("Medicamentos") arFormFields0(16) = "email" arFormDBFields0(16) = "email" arFormValues0(16) = Request("email") arFormFields0(17) = "EstCivil" arFormDBFields0(17) = "EstCivil" arFormValues0(17) = Request("EstCivil") arFormFields0(18) = "redirect" arFormDBFields0(18) = "redirect" arFormValues0(18) = Request("redirect") arFormFields0(19) = "Hábitos" arFormDBFields0(19) = "Hábitos" arFormValues0(19) = Request("Hábitos") arFormFields0(20) = "Psicanálise" arFormDBFields0(20) = "Psicanálise" arFormValues0(20) = Request("Psicanálise") arFormFields0(21) = "Noirmaos" arFormDBFields0(21) = "Noirmaos" arFormValues0(21) = Request("Noirmaos") arFormFields0(22) = "Horas" arFormDBFields0(22) = "Horas" arFormValues0(22) = Request("Horas") arFormFields0(23) = "Nome" arFormDBFields0(23) = "Nome" arFormValues0(23) = Request("Nome") arFormFields0(24) = "recipient" arFormDBFields0(24) = "recipient" arFormValues0(24) = Request("recipient") arFormFields0(25) = "coment" arFormDBFields0(25) = "coment" arFormValues0(25) = Request("coment") arFormFields0(26) = "Cirurgias" arFormDBFields0(26) = "Cirurgias" arFormValues0(26) = Request("Cirurgias") arFormFields0(27) = "Familiar" arFormDBFields0(27) = "Familiar" arFormValues0(27) = Request("Familiar") arFormFields0(28) = "mesnasc" arFormDBFields0(28) = "mesnasc" arFormValues0(28) = Request("mesnasc") arFormFields0(29) = "diacons" arFormDBFields0(29) = "diacons" arFormValues0(29) = Request("diacons") arFormFields0(30) = "required" arFormDBFields0(30) = "required" arFormValues0(30) = Request("required") arFormFields0(31) = "Classe" arFormDBFields0(31) = "Classe" arFormValues0(31) = Request("Classe") arFormFields0(32) = "Medos" arFormDBFields0(32) = "Medos" arFormValues0(32) = Request("Medos") arFormFields0(33) = "Passatempos" arFormDBFields0(33) = "Passatempos" arFormValues0(33) = Request("Passatempos") arFormFields0(34) = "Amigos" arFormDBFields0(34) = "Amigos" arFormValues0(34) = Request("Amigos") arFormFields0(35) = "Acidentes" arFormDBFields0(35) = "Acidentes" arFormValues0(35) = Request("Acidentes") arFormFields0(36) = "Mae" arFormDBFields0(36) = "Mae" arFormValues0(36) = Request("Mae") arFormFields0(37) = "Relsoc" arFormDBFields0(37) = "Relsoc" arFormValues0(37) = Request("Relsoc") arFormFields0(38) = "Lesões" arFormDBFields0(38) = "Lesões" arFormValues0(38) = Request("Lesões") arFormFields0(39) = "dianasc" arFormDBFields0(39) = "dianasc" arFormValues0(39) = Request("dianasc") arFormFields0(40) = "Identidade" arFormDBFields0(40) = "Identidade" arFormValues0(40) = Request("Identidade") arFormFields0(41) = "sort" arFormDBFields0(41) = "sort" arFormValues0(41) = Request("sort") arFormFields0(42) = "T1" arFormDBFields0(42) = "T1" arFormValues0(42) = Request("T1") arFormFields0(43) = "Relirmaos" arFormDBFields0(43) = "Relirmaos" arFormValues0(43) = Request("Relirmaos") arFormFields0(44) = "Posicao" arFormDBFields0(44) = "Posicao" arFormValues0(44) = Request("Posicao") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_de_usuário" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_do_computador_remoto" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_de_navegador" End If FP_SaveFieldToDB fp_rs, Now, "Carimbo_de_hora" fp_rs.Update FP_DumpError strErrorUrl, "Não é possível atualizar o banco de dados" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Response.Redirect "http://www.geocities.com/psicanaliseonline/foi.htm" End If End If %>
|
|