Campos obrigatórios

[Luiz Vieira 0]

Galera, preciso urgente de ajuda, se não vou perder um cliente da empresa onde trabalho! :blink:

Tenho um formulário em htm que depois de preenchido envia os dados pra uma página asp para armazenar os dados num BD Access e enviar tbm por e-mail para o administrador.

O que acontece é que não quero que o usuário não possa enviar os dados sem que todos os campos estejam preenchidos, já q é uma pesquisa e todos os campos são obrigatórios, mas não estou conseguindo fazer isso... :(

 

O código é razoavelmente grande, pois são em torno de uns 30 campos. Será que alguém poderia me ajudar?

O código da página asp é esse daí:

 

<%

'Option Explicit

%>

<!-- include virtual="includes/cConnection.asp" -->

<!-- include virtual="includes/cArea.asp" -->

<!-- include virtual="includes/constant.asp" -->

<!-- include virtual="includes/cCadaster.asp" -->

<%

dim email : email = replace (Request.Form("frm_email"), "'", "'")

dim unid_hosp : unid_hosp = replace (Request.Form("Unidade_Hospitalar"), "'", "'")

dim cidade : cidade = replace (Request.Form("Cidade"), "'", "'")

dim estado : estado = replace (Request.Form("Estado"), "'", "'")

dim coordenador : coordenador = replace (Request.Form("Coordenador_UTI"), "'", "'")

dim telefone : telefone = replace (Request.Form("Telefones"), "'", "'")

dim e_mail : e_mail = replace (Request.Form("E_mail"), "'", "'")

dim instituicao : instituicao = replace (Request.Form("Tipo_instituição"), "'", "'")

dim p1_obs : p1_obs = replace (Request.Form("P1_Observacao_pergunta1"), "'", "'")

dim modelo : modelo = replace (Request.Form("Modelo_predominante"), "'", "'")

dim p2_obs : p2_obs = replace (Request.Form("P2_Observacao_pergunta2"), "'", "'")

dim p3_leitos : p3_leitos = replace (Request.Form("P3_Numero_leitos"), "'", "'")

dim tempo_perm : tempo_perm = replace (Request.Form("tempo_permanência"), "'", "'")

dim p4_obs : p4_obs = replace (Request.Form("P4_Observacao_pergunta4"), "'", "'")

dim defin_prof : defin_prof = replace (Request.Form("Definição_profilaxia"), "'", "'")

dim p5_obs : p5_obs = replace (Request.Form("P5_Observacao_pergunta5"), "'", "'")

dim orient_prof : orient_prof = replace (Request.Form("Orientação_profilaxia"), "'", "'")

dim p6_obs : p6_obs = replace (Request.Form("P6_Observacao_pergunta6"), "'", "'")

dim percentual : percentual = replace (Request.Form("Percentual_pacientes"), "'", "'")

dim p7_obs : p7_obs = replace (Request.Form("P7_Observacao_pergunta7"), "'", "'")

dim estrat_prof : estrat_prof = replace (Request.Form("Estratégia_profilaxia"), "'", "'")

dim p8_obs : p8_obs = replace (Request.Form("P8_Observacao_pergunta8"), "'", "'")

dim paciente_risco : paciente_risco = replace (Request.Form("Pacientes_altorisco"), "'", "'")

dim p10a_scan : p10a_scan = replace (Request.Form("P10a_Duplex_Scan_Venoso"), "'", "'")

dim p10b_flebo : p10b_flebo = replace (Request.Form("P10b_Flebografia"), "'", "'")

dim p10c_pletis : p10c_pletis = replace (Request.Form("P10c_Pletismografia"), "'", "'")

dim p10d_resso : p10d_resso = replace (Request.Form("P10d_Ressonancia_Magnetica"), "'", "'")

dim p10e_tomo : p10e_tomo = replace (Request.Form("P10e_Tomografia_Computadorizada_Helicoidal"), "'", "'")

dim aval_sist : aval_sist = replace (Request.Form("Avaliação_sistematica"), "'", "'")

dim p11_obs : p11_obs = replace (Request.Form("P11_Observacao_pergunta11"), "'", "'")

dim estrat_terap : estrat_terap = replace (Request.Form("Estratégia_terapeutica"), "'", "'")

dim p12_obs : p12_obs = replace (Request.Form("P12_Observacao_pergunta12"), "'", "'")

dim busca_sist : busca_sist = replace (Request.Form("Busca_sistematica"), "'", "'")

dim regras_pred : regras_pred = replace (Request.Form("Regras_predição"), "'", "'")

dim percen_embol : percen_embol = replace (Request.Form("Percentual_embolia"), "'", "'")

dim p15_obs : p15_obs = replace (Request.Form("P15_Observacao_pergunta15"), "'", "'")

dim p16a_eletro : p16a_eletro = replace (Request.Form("P16a_Eletrocardiograma"), "'", "'")

dim p16b_radio : p16b_radio = replace (Request.Form("P16b_Radiografia_de_Torax"), "'", "'")

dim p16c_gaso : p16c_gaso = replace (Request.Form("P16c_Gasometria_arterial"), "'", "'")

dim p16d_ddim : p16d_ddim = replace (Request.Form("P16d_Ddimero"), "'", "'")

dim p16e_tropo : p16e_tropo = replace (Request.Form("P16e_Troponina"), "'", "'")

dim p16f_cintilo : p16f_cintilo = replace (Request.Form("P16f_Cintilografia_pulmonar"), "'", "'")

dim p16g_tomo : p16g_tomo = replace (Request.Form("P16g_Tomografia_computadorizada_helicoidal"), "'", "'")

dim p16h_resson : p16h_resson = replace (Request.Form("P16h_Ressonancia_Magnetica"), "'", "'")

dim p16i_eco : p16i_eco = replace (Request.Form("P16i_Ecocardiograma_transtoracico"), "'", "'")

dim p16j_eco : p16j_eco = replace (Request.Form("P16j_Ecocardiograma_transesofagico"), "'", "'")

dim p16k_arterio : p16k_arterio = replace (Request.Form("P16k_Arteriografia_Pulmonar"), "'", "'")

dim p16_obs : p16_obs = replace (Request.Form("P16_Observacao_pergunta16"), "'", "'")

dim metodo_dim : metodo_dim = replace (Request.Form("Metodogia_dímero"), "'", "'")

dim diag_embol : diag_embol = replace (Request.Form("Diagnóstico_embolia"), "'", "'")

dim p18_obs : p18_obs = replace (Request.Form("P18_Observacao_pergunta18"), "'", "'")

dim p19a_inst : p19a_inst = replace (Request.Form("P19a_Presenca_instabilidade_hemodinamica"), "'", "'")

dim p19b_inst : p19b_inst = replace (Request.Form("P19b_Presenca_instbilidade_clinica"), "'", "'")

dim p19c_disfunc : p19c_disfunc = replace (Request.Form("P19c_Presenca_disfuncao_ventriculo_direito"), "'", "'")

dim p19d_inst : p19d_inst = replace (Request.Form("P19d_Presenca_instabilidade_hemodinamica_acompanhada"), "'", "'")

dim p19e_inst : p19e_inst = replace (Request.Form("P19e_Presenca_instabilidade_clinica_independente_da_hipertensao"), "'", "'")

dim proto_hepar : proto_hepar = replace (Request.Form("Protocolo_heparina"), "'", "'")

dim param_anticoag : param_anticoag = replace (Request.Form("Parâmetro_anticoagulação"), "'", "'")

dim estrat_anticoag : estrat_anticoag = replace (Request.Form("Estratégia_anticoagulação"), "'", "'")

dim p22_obs : p22_obs = replace (Request.Form("P22_Observacao_pergunta22"), "'", "'")

dim trat_anticoag : trat_anticoag = replace (Request.Form("Tratamento_anticoagulante"), "'", "'")

dim p23_obs : p23_obs = replace (Request.Form("P23_Observacao_pergunta23"), "'", "'")

dim percent_int : percent_int = replace (Request.Form("Percentual_intensivista"), "'", "'")

dim prog_nac : prog_nac = replace (Request.Form("Programa_Nacional"), "'", "'")

dim p25_obs : p25_obs = replace (Request.Form("P25_Observacao_pergunta25"), "'", "'")

dim est_multi : est_multi = replace (Request.Form("Estudos_multicentricos"), "'", "'")

dim particip_est : particip_est = replace (Request.Form("Participar_estudos"), "'", "'")

dim p27_obs : p27_obs = replace (Request.Form("P27_Observacao_pergunta27"), "'", "'")

dim amib : amib = replace (Request.Form("AMIB"), "'", "'")

 

if Request.Form("Unidade_Hospitalar") & _

Request.Form("Cidade") & _

Request.Form("Estado") & _

Request.Form("Coordenador_UTI") & _

Request.Form("Telefones") & _

Request.Form("E_mail") & _

Request.Form("Tipo_instituição") & _

Request.Form("P1_Observacao_pergunta1") & _

Request.Form("Modelo_predominante") & _

Request.Form("P2_Observacao_pergunta2") & _

Request.Form("P3_Numero_leitos") & _

Request.Form("tempo_permanência") & _

Request.Form("P4_Observacao_pergunta4") & _

Request.Form("Definição_profilaxia") & _

Request.Form("P5_Observacao_pergunta5") & _

Request.Form("Orientação_profilaxi") & _

Request.Form("P6_Observacao_pergunta6") & _

Request.Form("Percentual_pacientes") & _

Request.Form("P7_Observacao_pergunta7") & _

Request.Form("Estratégia_profilaxia") & _

Request.Form("P8_Observacao_pergunta8") & _

Request.Form("Pacientes_altorisco") & _

Request.Form("P10a_Duplex_Scan_Venoso") & _

Request.Form("P10b_Flebografia") & _

Request.Form("P10c_Pletismografia") & _

Request.Form("P10d_Ressonancia_Magnetica") & _

Request.Form("P10e_Tomografia_Computadorizada_Helicoidal") & _

Request.Form("Avaliação_sistematica") & _

Request.Form("P11_Observacao_pergunta11") & _

Request.Form("Estratégia_terapeutica") & _

Request.Form("P12_Observacao_pergunta12") & _

Request.Form("Busca_sistematica") & _

Request.Form("Regras_predição") & _

Request.Form("Percentual_embolia") & _

Request.Form("P15_Observacao_pergunta15") & _

Request.Form("P16a_Eletrocardiograma") & _

Request.Form("P16b_Radiografia_de_Torax") & _

Request.Form("P16c_Gasometria_arterial") & _

Request.Form("P16d_Ddimero") & _

Request.Form("P16e_Troponina") & _

Request.Form("P16f_Cintilografia_pulmonar") & _

Request.Form("P16g_Tomografia_computadorizada_helicoidal") & _

Request.Form("P16h_Ressonancia_Magnetica") & _

Request.Form("P16i_Ecocardiograma_transtoracic") & _

Request.Form("P16j_Ecocardiograma_transesofagico") & _

Request.Form("P16k_Arteriografia_Pulmonar") & _

Request.Form("P16_Observacao_pergunta16") & _

Request.Form("Metodogia_dímero") & _

Request.Form("Diagnóstico_embolia") & _

Request.Form("P18_Observacao_pergunta18") & _

Request.Form("P19a_Presenca_instabilidade_hemodinamica") & _

Request.Form("P19b_Presenca_instbilidade_clinica") & _

Request.Form("P19c_Presenca_disfuncao_ventriculo_direito") & _

Request.Form("P19d_Presenca_instabilidade_hemodinamica_acompanhada") & _

Request.Form("P19e_Presenca_instabilidade_clinica_independente_da_hipertensao") & _

Request.Form("Protocolo_heparina") & _

Request.Form("Parâmetro_anticoagulação") & _

Request.Form("Estratégia_anticoagulação") & _

Request.Form("P22_Observacao_pergunta22") & _

Request.Form("Tratamento_anticoagulante") & _

Request.Form("P23_Observacao_pergunta23") & _

Request.Form("Percentual_intensivista") & _

Request.Form("Programa_Nacional") & _

Request.Form("P25_Observacao_pergunta25") & _

Request.Form("Estudos_multicentricos") & _

Request.Form("Participar_estudos") & _

Request.Form("P27_Observacao_pergunta27") & _

Request.Form("AMIB") <> " " then

 

 

 

dim enviar_email : set enviar_email = server.createobject ("CDONTS.NewMail")

dim conn, qrylogsen, mensagem, rslogsen

 

set conn = server.createobject ("adodb.connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../database/form_andre.mdb")

 

conn.Execute "insert into Trombo (unid_hosp, cidade, estado, coordenador, telefone, e_mail, instituicao, p1_obs, modelo, p2_obs, p3_leitos, tempo_perm, p4_obs, defin_prof, p5_obs, orient_prof, p6_obs, percentual, p7_obs, estrat_prof, p8_obs, paciente_risco, p10a_scan, p10b_flebo, p10c_pletis, p10d_resso, p10e_tomo, aval_sist, p11_obs, estrat_terap, p12_obs, busca_sist, regras_pred, percen_embol, p15_obs, p16a_eletro, p16b_radio, p16c_gaso, p16d_ddim, p16e_tropo, p16f_cintilo, p16g_tomo, p16h_resson, p16i_eco, p16j_eco, p16k_arterio, p16_obs, metodo_dim, diag_embol, p18_obs, p19a_inst, p19b_inst, p19c_disfunc, p19d_inst, p19e_inst, proto_hepar, param_anticoag, estrat_anticoag, p22_obs, trat_anticoag, p23_obs, percent_int, prog_nac, p25_obs, est_multi, particip_est, p27_obs, amib) " _

& "values (" _

& "'" & Request.Form("Unidade_Hospitalar") & "', " _

& "'" & Request.Form("Cidade") & "', " _

& "'" & Request.Form("Estado") & "', " _

& "'" & Request.Form("Coordenador_UTI") & "', " _

& "'" & Request.Form("Telefones") & "', " _

& "'" & Request.Form("E_mail") & "', " _

& "'" & Request.Form("Tipo_instituição") & "', " _

& "'" & Request.Form("P1_Observacao_pergunta1") & "', " _

& "'" & Request.Form("Modelo_predominante") & "', " _

& "'" & Request.Form("P2_Observacao_pergunta2") & "', " _

& "'" & Request.Form("P3_Numero_leitos") & "', " _

& "'" & Request.Form("tempo_permanência") & "', " _

& "'" & Request.Form("P4_Observacao_pergunta4") & "', " _

& "'" & Request.Form("Definição_profilaxia") & "', " _

& "'" & Request.Form("P5_Observacao_pergunta5") & "', " _

& "'" & Request.Form("Orientação_profilaxia") & "', " _

& "'" & Request.Form("P6_Observacao_pergunta6") & "', " _

& "'" & Request.Form("Percentual_pacientes") & "', " _

& "'" & Request.Form("P7_Observacao_pergunta7") & "', " _

& "'" & Request.Form("Estratégia_profilaxia") & "', " _

& "'" & Request.Form("P8_Observacao_pergunta8") & "', " _

& "'" & Request.Form("Pacientes_altorisco") & "', " _

& "'" & Request.Form("P10a_Duplex_Scan_Venoso") & "', " _

& "'" & Request.Form("P10b_Flebografia") & "', " _

& "'" & Request.Form("P10c_Pletismografia") & "', " _

& "'" & Request.Form("P10d_Ressonancia_Magnetica") & "', " _

& "'" & Request.Form("P10e_Tomografia_Computadorizada_Helicoidal") & "', " _

& "'" & Request.Form("Avaliação_sistematica") & "', " _

& "'" & Request.Form("P11_Observacao_pergunta11") & "', " _

& "'" & Request.Form("Estratégia_terapeutica") & "', " _

& "'" & Request.Form("P12_Observacao_pergunta12") & "', " _

& "'" & Request.Form("Busca_sistematica") & "', " _

& "'" & Request.Form("Regras_predição") & "', " _

& "'" & Request.Form("Percentual_embolia") & "', " _

& "'" & Request.Form("P15_Observacao_pergunta15") & "', " _

& "'" & Request.Form("P16a_Eletrocardiograma") & "', " _

& "'" & Request.Form("P16b_Radiografia_de_Torax") & "', " _

& "'" & Request.Form("P16c_Gasometria_arterial") & "', " _

& "'" & Request.Form("P16d_Ddimero") & "', " _

& "'" & Request.Form("P16e_Troponina") & "', " _

& "'" & Request.Form("P16f_Cintilografia_pulmonar") & "', " _

& "'" & Request.Form("P16g_Tomografia_computadorizada_helicoidal") & "', " _

& "'" & Request.Form("P16h_Ressonancia_Magnetica") & "', " _

& "'" & Request.Form("P16i_Ecocardiograma_transtoracico") & "', " _

& "'" & Request.Form("P16j_Ecocardiograma_transesofagico") & "', " _

& "'" & Request.Form("P16k_Arteriografia_Pulmonar") & "', " _

& "'" & Request.Form("P16_Observacao_pergunta16") & "', " _

& "'" & Request.Form("Metodogia_dímero") & "', " _

& "'" & Request.Form("Diagnóstico_embolia") & "', " _

& "'" & Request.Form("P18_Observacao_pergunta18") & "', " _

& "'" & Request.Form("P19a_Presenca_instabilidade_hemodinamica") & "', " _

& "'" & Request.Form("P19b_Presenca_instbilidade_clinica") & "', " _

& "'" & Request.Form("P19c_Presenca_disfuncao_ventriculo_direito") & "', " _

& "'" & Request.Form("P19d_Presenca_instabilidade_hemodinamica_acompanhada") & "', " _

& "'" & Request.Form("P19e_Presenca_instabilidade_clinica_independente_da_hipertensao") & "', " _

& "'" & Request.Form("Protocolo_heparina") & "', " _

& "'" & Request.Form("Parâmetro_anticoagulação") & "', " _

& "'" & Request.Form("Estratégia_anticoagulação") & "', " _

& "'" & Request.Form("P22_Observacao_pergunta22") & "', " _

& "'" & Request.Form("Tratamento_anticoagulante") & "', " _

& "'" & Request.Form("P23_Observacao_pergunta23") & "', " _

& "'" & Request.Form("Percentual_intensivista") & "', " _

& "'" & Request.Form("Programa_Nacional") & "', " _

& "'" & Request.Form("P25_Observacao_pergunta25") & "', " _

& "'" & Request.Form("Estudos_multicentricos") & "', " _

& "'" & Request.Form("Participar_estudos") & "', " _

& "'" & Request.Form("P27_Observacao_pergunta27") & "', " _

& "'" & Request.Form("AMIB") & "')"

 

 

if Err then

Response.Write "<br><Br>Erro de sistema no envio da Mensagem. <Br><Br>Por favor, preencha todos os campos do formulário!"

end if

 

' response.write "<B>Formulário cadastrado!</B>"

 

 

mensagem = "Unidade Hospitalar: " & unid_hosp & vbnewline &_

"Cidade: " & cidade & vbnewline &_

"Estado: " & estado & vbnewline &_

"Coordenador da UTI: " & coordenador & vbnewline &_

"Telefones: " & telefone & vbnewline &_

"E-mail: " & e_mail & vbnewline &_

vbnewline &_

"1- Sua unidade pertence a que tipo de instituição? " & instituicao & vbnewline &_

"Obs.: " & p1_obs & vbnewline &_

vbnewline &_

"2- Qual o modelo predominante de sua unidade? " & modelo & vbnewline &_

"Obs.: " & p2_obs & vbnewline &_

vbnewline &_

"3- Qual o número de leitos da sua unidade? " & p3_leitos & vbnewline &_

vbnewline &_

"4- Qual o tempo médio de permanência dos pacientes em sua unidade? " & tempo_perm & vbnewline &_

"Obs.: " & p4_obs & vbnewline &_

vbnewline &_

"5- Como é definida a profilaxia da Trombose Venosa Profunda em sua unidade? " & defin_prof & vbnewline &_

"Obs.: " & p5_obs & vbnewline &_

vbnewline &_

"6- Quem orienta a profilaxia da Trombose Venosa Profunda em sua unidade? " & orient_prof & vbnewline &_

"Obs.: " & p6_obs & vbnewline &_

vbnewline &_

"7- Qual o percentual de pacientes que recebem profilaxia de Trombose Venosa Profunda em sua unidade? " & percentual & vbnewline &_

"Obs.: " & p7_obs & vbnewline &_

vbnewline &_

"8- Qual o tipo de estratégia mais utilizada na profilaxia da Trombose Venosa Profunda em sua unidade? " & estrat_prof & vbnewline &_

"Obs.: " & p8_obs & vbnewline &_

vbnewline &_

"9- Em pacientes considerados de alto risco para TVP você utiliza profilaxia combinada (heparina e dispositivo de compreensão intermitente)? " & paciente_risco & vbnewline &_

vbnewline &_

"10- As questões abaixo referem-se a frequência na utilização dos exames complementares para o diagnóstico da trombose venosa profunda." & vbnewline &_

"a) Duplex scan venoso " & p10a_scan & vbnewline &_

"b) Flebografia " & p10b_flebo & vbnewline &_

"c) Pletismografia " & p10c_pletis & vbnewline &_

"d) Ressonância magnética " & p10d_resso & vbnewline &_

"e) Tomografia Computadorizada helicoidal " & p10e_tomo & vbnewline &_

vbnewline &_

"11- Você utiliza uma avaliação sistemática para pesquisa de trombose venosa profunda na sua unidade? Se afirmativo, com que frequência? " & aval_sist & vbnewline &_

"Obs.: " & p11_obs & vbnewline &_

vbnewline &_

"12- Nos pacientes com Trombose venosa profunda, qual a estratégia terapêutica é mais frequentemente utilizada? " & estrat_terap & vbnewline &_

"Obs.: " & p12_obs & vbnewline &_

vbnewline &_

"13- Especificamente nos pacientes com cateter venoso profundo você realiza busca sistemática de TVP? " & busca_sist & vbnewline &_

vbnewline &_

"14- Em sua unidade, quais regras de predição clínica são utilizadas para o diagnóstico de EP, utilizada: " & regras_pred & vbnewline &_

vbnewline &_

"15- Em sua instituição, qual o percentual de pacientes com Embolia Pulmonar são admitidos na Unidade de Terapia Intensiva? " & percen_embol & vbnewline &_

"Obs.: " & p15_obs & vbnewline &_

vbnewline &_

"16- As questões abaixo referem-se a frequência da utilização dos exames complementares na investigação do diagnótstico da Embolia pulmonar." & vbnewline &_

"a) Eletrocardiograma " & p16a_eletro & vbnewline &_

"b) Radiografia de tórax " & p16b_radio & vbnewline &_

"c) Gasometria Arterial " & p16c_gaso & vbnewline &_

"d) D-dímero " & p16d_ddim & vbnewline &_

"e) Troponina " & p16e_tropo & vbnewline &_

"f) Cintilografia pulmonar " & p16f_cintilo & vbnewline &_

"g) Tomografia computadorizada helicoidal " & p16g_tomo & vbnewline &_

"h) Ressonância Magnética " & p16h_resson & vbnewline &_

"i) Ecocardiograma transtorácico " & p16i_eco & vbnewline &_

"j) Ecocardiograma transesofágico " & p16j_eco & vbnewline &_

"k) Arteriografia pulmonar " & p16k_arterio & vbnewline &_

"Obs.: " & p16_obs & vbnewline &_

vbnewline &_

"17- Qual a metodologia do D-dímero utilizado em sua unidade? " & metodo_dim & vbnewline &_

vbnewline &_

"18- Qual o exame que mais frequentemente utiliza para confirmar o diagnóstico da embolia pulmonar? " & diag_embol & vbnewline &_

"Obs.: " & p18_obs & vbnewline &_

vbnewline &_

"19- Nestas situações os pacientes com embolia pulmonar são tratados com trombolíticos em sua unidade? " & vbnewline &_

"a) Presença de instabilidade hemodinâmica " & p19a_inst & vbnewline &_

"b) Presença de instabilidade clínica (hipoxemia, taquipnéia, taquicardia com ou sem hipotensão arterial) " & p19b_inst & vbnewline &_

"c) Presença de disfunção do ventrículo direito ao ecocardiograma independente da avaliação clínica " & p19c_disfunc & vbnewline &_

"d) Presença de instabilidade hemodinâmica acompanhada de disfunção do ventrículo direito " & p19d_inst & vbnewline &_

"e) Presença de instabilidade clínica independente da hipotensão arterial acompanhada de disfunção do ventrículo direito " & p19e_inst & vbnewline &_

vbnewline &_

"20- Nos pacientes com anticoagulação intravenosa, sua unidade utiliza protocolo para ajuste de doses de heparina não fracionada? Se afirmativo quem faz o ajuste? " & proto_hepar & vbnewline &_

vbnewline &_

"21- Qual o parâmetro que sua unidade utiliza para adequação da anticoagulação venosa? " & param_anticoag & vbnewline &_

vbnewline &_

"22- Que estratégia utiliza para o início da anticoagulação oral? " & estrat_anticoag & vbnewline &_

"Obs.: " & p22_obs & vbnewline &_

vbnewline &_

"23- Em que momento você inicia o tratamento com anticoagulante oral nos pacientes com Doença Venosa Tromboembolica? " & trat_anticoag & vbnewline &_

"Obs.: " & p23_obs & vbnewline &_

vbnewline &_

"24- Qual o percentual de médicos em sua Unidade com título de intensivista? " & percent_int & vbnewline &_

vbnewline &_

"25- O que acha do desenvolvimento de um programa nacional de pesquisa do tromboembolismo venoso? " & prog_nac & vbnewline &_

"Obs.: " & p25_obs & vbnewline &_

vbnewline &_

"26- Sua unidade participa de estudos multicêntricos? " & est_multi & vbnewline &_

vbnewline &_

"27- Gostaria de participar de estudos multicêntricos epidemiológicos sobre as principais síndromes do ambiente da terapia intensiva? " & particip_est & vbnewline &_

&

[Salgado 4]

Cara no topo de seu código coloque um FOR EACH testando se todos os campos no Request.form vem com valor +/- assim:

For Each Campo in Request.Form
If Request.Form(Campo) = "" Then
Erro = Erro &"O campo "& Campo &" não possui valor. Favor retornar e preencher!<br>"
End if
Next
If Erro <> "" Then
Response.Write Erro
Response.END
End if

[programadorzenho 0]

Salgado em Java naum é recomendado?

 

Vlw Obrigado desde jah

[Salgado 4]

Salgado em Java naum é recomendado?

 

Vlw Obrigado desde jah

É possível fazer em JavaScript sim, mas sempre recomento fazer a validação no ASP também, pois pode ser que alguém "clone" seu FORM e retire as validações.

[programadorzenho 0]

Eita mininu rapido ashduahdVlw salgado mais uma vez pela força... o Meu form tava só com JS, vou providenciar jah com validação no servidorFlw Vlws :D

[Luiz Vieira 0]

Oi Salgado, valeu mesmo pela força!Mas tô com um outro probleminha...Coloquei aquele código logo acima do primeiro Dim, entre o <% e o primeiro Dim do meu código ...Um código For...Each para cada campo, como o exemplo abaixo para o campo Estado:For Each Estado in Request.FormIf Request.Form("Estado") = "" ThenErro = Erro &"O campo "& Estado &" não possui valor. Favor retornar e preencher!<br>"End ifNextIf Erro <> "" ThenResponse.Write ErroResponse.ENDEnd ifSó que quando clico no envio do form em htm e ele vai acessar o asp, ocorre o erro HTTP 500 - erro interno do servidor ...E aí, o que pode ser isso?Tô queimando a mufa aki...Dá mais uma ajuda, por favor! hehehehheeValeu!Oi Salgado, valeu mesmo pela força!Mas tô com um outro probleminha...Coloquei aquele código logo entre o <% e o primeiro Dim do meu código que postei antes...Um código For...Each para cada campo, como o exemplo abaixo para o campo Estado:For Each Estado in Request.FormIf Request.Form("Estado") = "" ThenErro = Erro &"O campo "& Estado &" não possui valor. Favor retornar e preencher!<br>"End ifNextIf Erro <> "" ThenResponse.Write ErroResponse.ENDEnd ifSó que quando clico no envio do form em htm e ele vai acessar o asp, ocorre o erro HTTP 500 - erro interno do servidor ...E aí, o que pode ser isso?Tô queimando a mufa aki...Dá mais uma ajuda, por favor! hehehehheeValeu!

[Luiz Vieira 0]

Bem, o problema do erro HTTP 500 já resolvi, só que agora todos os campos, mesmo os preenchidos dão a msgs que estão vazios :-(Será que foi prq coloquei um for...each pra cada umn dos campos? Ou a estrutura For...Each tem q vir depois dos Dim?Tipo, o início do código está assim agora:<%'Option Explicit%><!-- include virtual="includes/cConnection.asp" --><!-- include virtual="includes/cArea.asp" --><!-- include virtual="includes/constant.asp" --><!-- include virtual="includes/cCadaster.asp" --><%For Each Unidade_Hospitalar in Request.FormIf Request.Form("Unidade_Hospitalar") = "" ThenErro = Erro &"O campo "& Unidade_Hospitalar &" não possui valor. Favor retornar e preencher!<br>"End ifNextIf Erro <> "" ThenResponse.Write ErroResponse.ENDEnd ifFor Each Cidade in Request.FormIf Request.Form("Cidade") = "" ThenErro = Erro &"O campo "& Cidade &" não possui valor. Favor retornar e preencher!<br>"End ifNextIf Erro <> "" ThenResponse.Write ErroResponse.ENDEnd ifFor Each Estado in Request.FormIf Request.Form("Estado") = "" ThenErro = Erro &"O campo "& Estado &" não possui valor. Favor retornar e preencher!<br>"End ifNextIf Erro <> "" ThenResponse.Write ErroResponse.ENDEnd if........dim email : email = replace (Request.Form("frm_email"), "'", "'")dim unid_hosp : unid_hosp = replace (Request.Form("Unidade_Hospitalar"), "'", "'")dim cidade : cidade = replace (Request.Form("Cidade"), "'", "'")dim estado : estado = replace (Request.Form("Estado"), "'", "'")dim coordenador : coordenador = replace (Request.Form("Coordenador_UTI"), "'", "'")dim telefone : telefone = replace (Request.Form("Telefones"), "'", "'")dim e_mail : e_mail = replace (Request.Form("E_mail"), "'", "'")dim instituicao : instituicao = replace (Request.Form("Tipo_instituicao"), "'", "'")dim p1_obs : p1_obs = replace (Request.Form("P1_Observacao_pergunta1"), "'", "'")dim modelo : modelo = replace (Request.Form("Modelo_predominante"), "'", "'")dim p2_obs : p2_obs = replace (Request.Form("P2_Observacao_pergunta2"), "'", "'")dim p3_leitos : p3_leitos = replace (Request.Form("P3_Numero_leitos"), "'", "'")dim tempo_perm : tempo_perm = replace (Request.Form("tempo_permanencia"), "'", "'")dim p4_obs : p4_obs = replace (Request.Form("P4_Observacao_pergunta4"), "'", "'").......

[AMON-HÁ 0]

Krak... você fez 30 For Each???

naum cara...

o For Each que o salgado passou foi justamente para você naum ter que fazer 30 vezes a verificação dos dados...

ele mesmo verifica a qnt campos existentes e pega todos...

 

Outra coisa...

vi algumas vezes você com dúvidas sobre a utilização de uma rotina antes ou depois do Dim...

cara... o Dim é na verdade uma abreviação de DIMENSION (dimensão)... que tem a finalidade de declarar uma determinada varável...

a partir do momento que você declara uma varável, você está reservando um local pra ela na memória...

por isso... uma variável tem que ser declarada antes que ela seja usada... naum importa em que parte do código você vai colocar um Dim... o que importa é que essa váriavel que está declarando, ainda naum tenha sido usada...

 

Agora uma dica...

cara, aconselho a dar uma lida em alguma apostila sobre ASP... mesmo que seja uma lida rápida... (o básico)... pelo menos vai ficar mais fácil para você absorver as dicas que a galera vai te passando... (vai economizar tempo e trabalho)...

 

vlw??? http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Boa Sorte!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Luiz Vieira 0]

Pô Amon, valeu mesmo cara!

você e o Salgado me salvaram... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Erro primário o meu né? Nervosismo é f***... Mas aquela parada do Dim tá tranquilo, já sabia daquela lógica... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

Agora só restou mesmo uma última dúvida: :wacko:

 

O form está fazendo a validação tranquilo, mas a combobox do form não estão sendo validadas...

Mesmo que eu não mude a opção (que por padrçao fica no selecione, mas sem nenhum value) ele considera q a variável q recebe a combobox está preenchida...

 

Dá pra reverter isso?

 

Abração! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Salgado 4]

Pô Amon, valeu mesmo cara!

você e o Salgado me salvaram... :joia:

Erro primário o meu né? Nervosismo é f***... Mas aquela parada do Dim tá tranquilo, já sabia daquela lógica... :assobiando:

 

Agora só restou mesmo uma última dúvida: :wacko:

 

O form está fazendo a validação tranquilo, mas a combobox do form não estão sendo validadas...

Mesmo que eu não mude a opção (que por padrçao fica no selecione, mas sem nenhum value) ele considera q a variável q recebe a combobox está preenchida...

 

Dá pra reverter isso?

 

Abração! :clap:

Como o Amon-Ha disse, o For Each é para exatamente não ter que fazer um teste para cada campo de seu FORM e traduzindo seria um Para Cada algumacoisa Em algumlugar Sobre o ComboBox (Select) você deve colocar um IF dentro do outro IF do For Each para especificar se esse select está vindo com o valor padrão ou não. Os selects caso não tenha Value nas Options passa por padrão o valor que é exibido na tela, por isso que seus Selects sempre passam pelo For Each.

[Luiz Vieira 0]

Grande Salgado!você salvou minha vida...rs.Agora o form está funcionando bem e corretamente.Valeu mesmo, agora sou frequentador assíduo do fórum...rs.Abração e sucesso pra ti!

[Salgado 4]

Parabéns tiozinho (frase com copyrigth do Tio Mário, todos os direitos reservados).

[Mário Monteiro 179]

Parabéns tiozinho (frase com copyrigth do Tio Mário, todos os direitos reservados).

boa http://forum.imasters.com.br/public/style_emoticons/default/joia.gif estou de olho nos direitos autorais http://forum.imasters.com.br/public/style_emoticons/default/grin.gif