[plentz]

Ninguém merece ASP poderia ser MENOS ruim se não fossem necessárias fazer coisas desse tipo…Cadê Hibernate, Spring, Struts, WW, etc quando precisamos deles :lol:

[code]

<%
codcasal = request(“codcasal”)
page = request(“page”)
opcao = request(“opcao”)

'--------------------------------DADOS HÁBITO----------------------------------------
masc_peso = request(“masc_peso”)
masc_altura = request(“masc_altura”)
qp_hda = request(“qp_hda”)
sauna = request(“sauna”)
saunaf = request(“saunaf”)
imersao = request(“imersao”)
imersaof = request(“imersaof”)
barbearf = request(“barbearf”)
libido = request(“libido”)
ativ_sexual = request(“ativ_sexual”)
masc_ejaculacao = request(“masc_ejaculacao”)
ardencia_urinar = request(“ardencia_urinar”)
fumo = request(“fumo”)
fumo_diaq = request(“fumo_diaq”)
fumo_tempo = request(“fumo_tempo”)
fumo_parou_tempo = request(“fumo_parou_tempo”)
fumo_tempo_fumou = request(“fumo_tempo_fumou”)
fumo_fumavaq = request(“fumo_fumavaq”)

	cocaina                                 = request("cocaina")
	cocainaf                                = request("cocainaf")
	cocaina_passadof                        = request("cocaina_passadof")
	cocaina_quando_parou                    = request("cocaina_quando_parou")
	maconha                                 = request("maconha")
	maconhaf                                = request("maconhaf")
	maconha_passadof                        = request("maconha_passadof")
	maconha_quando_parou                    = request("maconha_quando_parou")
	alcool                                  = request("alcool")
	alcool_qual                             = request("alcool_qual")
	alcoolf                                 = request("alcoolf")
	alcoolq                                 = request("alcoolq")
	masc_esporte                            = request("masc_esporte")
	masc_esporte_qual                       = request("masc_esporte_qual")
	masc_esportef                           = request("masc_esportef")

sql = "SELECT COUNT(CODCASAL) TOTAL FROM CASAL_HISTORICO_HABITO WHERE CODCASAL = "&codcasal

Set rsVERIFICA = conn.execute(sql)

if CInt(rsVERIFICA(“TOTAL”)) = 0 and sauna <>"" then
sql = "INSERT INTO CASAL_HISTORICO_HABITO ( "
sql = sql & "CODCASAL , "
sql = sql & “PESO , "
sql = sql & “ALTURA , "
sql = sql & “QP_HDA , "
sql = sql & “SAUNA , "
sql = sql & “SAUNA_FREQUENCIA , "
sql = sql & “IMERSAO , "
sql = sql & “IMERSAO_FREQUENCIA , "
sql = sql & “BARBA_FREQUENCIA , "
sql = sql & “LIBIDO , "
sql = sql & “ATIVIDADE_SEXUAL_FREQUENCIA , "
sql = sql & “EJACULACAO , "
sql = sql & “ARDENCIA_URINAR , "
sql = sql & “FUMANTE , "
sql = sql & “FUMANTE_FREQUENCIA , "
sql = sql & “FUMANTE_TEMPO , "
sql = sql & “FUMANTE_PAROU_TEMPO , "
sql = sql & “FUMANTE_TEMPO_FUMOU , "
sql = sql & “FUMANTE_QUANTIDADE_FUMAVA , "
sql = sql & “COCAINA , "
sql = sql & “COCAINA_FREQUENCIA , "
sql = sql & “COCAINA_FREQUENCIA_PASSADO , "
sql = sql & “COCAINA_QUANDO_PAROU , "
sql = sql & “MACONHA , "
sql = sql & “MACONHA_FREQUENCIA , "
sql = sql & “MACONHA_FREQUENCIA_PASSADO , "
sql = sql & “MACONHA_QUANDO_PAROU , "
sql = sql & “ALCOOL , "
sql = sql & “ALCOOL_DESCRICAO , "
sql = sql & “ALCOOL_FREQUENCIA , "
sql = sql & “ALCOOL_QUANTIDADE , "
sql = sql & “ESPORTE , "
sql = sql & “ESPORTE_DESCRICAO , "
sql = sql & “ESPORTE_FREQUENCIA ) "
sql = sql & “VALUES ( "
sql = sql & “”&codcasal&” , "
sql = sql & “’”&masc_peso&”’ , "
sql = sql & “’”&masc_altura&”’ , "
sql = sql & “’”&qp_hda&”’ , "
sql = sql & “’”&sauna&”’ , "
sql = sql & “’”&saunaf&”’ , "
sql = sql & “’”&imersao&”’ , "
sql = sql & “’”&imersaof&”’ , "
sql = sql & “’”&barbearf&”’ , "
sql = sql & “’”&libido&”’ , "
sql = sql & “’”&ativ_sexual&”’ , "
sql = sql & “’”&masc_ejaculacao&”’ , "
sql = sql & “’”&ardencia_urinar&”’ , "
sql = sql & “’”&fumo&”’ , "
sql = sql & “’”&fumo_diaq&”’ , "
sql = sql & “’”&fumo_tempo&”’ , "
sql = sql & “’”&fumo_parou_tempo&”’ , "
sql = sql & “’”&fumo_tempo_fumou&”’ , "
sql = sql & “’”&fumo_fumavaq&”’ , "
sql = sql & “’”&cocaina&”’ , "
sql = sql & “’”&cocainaf&”’ , "
sql = sql & “’”&cocaina_passadof&”’ , "
sql = sql & “’”&cocaina_quando_parou&”’ , "
sql = sql & “’”&maconha&”’ , "
sql = sql & “’”&maconhaf&”’ , "
sql = sql & “’”&maconha_passadof&”’ , "
sql = sql & “’”&maconha_quando_parou&”’ , "
sql = sql & “’”&alcool&”’ , "
sql = sql & “’”&alcool_qual&”’ , "
sql = sql & “’”&alcoolf&”’ , "
sql = sql & “’”&alcoolq&”’ , "
sql = sql & “’”&masc_esporte&”’ , "
sql = sql & “’”&masc_esporte_qual&”’ , "
sql = sql & “’”&masc_esportef&”’ ) "
conn.execute(sql)
end if

if CInt(rsVERIFICA(“TOTAL”)) > 0 and sauna <>"" then
sql = “UPDATE CASAL_HISTORICO_HABITO SET "
sql = sql & “PESO = '”&masc_peso&”’ , "
sql = sql & “ALTURA = '”&masc_altura&"’ , "
sql = sql & “QP_HDA = '”&qp_hda&"’ , "
sql = sql & “SAUNA = '”&sauna&"’ , "
sql = sql & “SAUNA_FREQUENCIA = '”&saunaf&"’ , "
sql = sql & “IMERSAO = '”&imersao&"’ , "
sql = sql & “IMERSAO_FREQUENCIA = '”&imersaof&"’ , "
sql = sql & “BARBA_FREQUENCIA = '”&barbearf&"’ , "
sql = sql & “LIBIDO = '”&libido&"’ , "
sql = sql & “ATIVIDADE_SEXUAL_FREQUENCIA = '”&ativ_sexual&"’ , "
sql = sql & “EJACULACAO = '”&masc_ejaculacao&"’ , "
sql = sql & “ARDENCIA_URINAR = '”&ardencia_urinar&"’ , "
sql = sql & “FUMANTE = '”&fumo&"’ , "
sql = sql & “FUMANTE_FREQUENCIA = '”&fumo_diaq&"’ , "
sql = sql & “FUMANTE_TEMPO = '”&fumo_tempo&"’ , "
sql = sql & “FUMANTE_PAROU_TEMPO = '”&fumo_parou_tempo&"’ , "
sql = sql & “FUMANTE_TEMPO_FUMOU = '”&fumo_tempo_fumou&"’ , "
sql = sql & “FUMANTE_QUANTIDADE_FUMAVA = '”&fumo_fumavaq&"’ , "
sql = sql & “COCAINA = '”&cocaina&"’ , "
sql = sql & “COCAINA_FREQUENCIA = '”&cocainaf&"’ , "
sql = sql & “COCAINA_FREQUENCIA_PASSADO = '”&cocaina_passadof&"’ , "
sql = sql & “COCAINA_QUANDO_PAROU = '”&cocaina_quando_parou&"’ , "
sql = sql & “MACONHA = '”&maconha&"’ , "
sql = sql & “MACONHA_FREQUENCIA = '”&maconhaf&"’ , "
sql = sql & “MACONHA_FREQUENCIA_PASSADO = '”&maconha_passadof&"’ , "
sql = sql & “MACONHA_QUANDO_PAROU = '”&maconha_quando_parou&"’ , "
sql = sql & “ALCOOL = '”&alcool&"’ , "
sql = sql & “ALCOOL_DESCRICAO = '”&alcool_qual&"’ , "
sql = sql & “ALCOOL_FREQUENCIA = '”&alcoolf&"’ , "
sql = sql & “ALCOOL_QUANTIDADE = '”&alcoolq&"’ , "
sql = sql & “ESPORTE = '”&masc_esporte&"’ , "
sql = sql & “ESPORTE_DESCRICAO = '”&masc_esporte_qual&"’ , "
sql = sql & “ESPORTE_FREQUENCIA = '”&masc_esportef&"’ "
sql = sql & "WHERE CODCASAL = "&codcasal
conn.execute(sql)
end if

'--------------------------------DADOS HÁBITO----------------------------------------

'--------------------------------DADOS DOENÇAS---------------------------------------
masc_diabete = request(“masc_diabete”)
diabete_tempo = request(“diabete_tempo”)
diabete_tratamento = request(“diabete_tratamento”)
pressao_alta = request(“pressao_alta”)
pressa_alta_tratamento = request(“pressa_alta_tratamento”)
tratamento_psiquiatrico = request(“tratamento_psiquiatrico”)
tratamento_psiquiatrico_tratamento = request(“tratamento_psiquiatrico_tratamento”)
ulcera_estduo = request(“ulcera_estduo”)
ulcera_estduo_tratamento = request(“ulcera_estduo_tratamento”)
torcao_testiculo = request(“torcao_testiculo”)
torcao_idade = request(“torcao_idade”)
torcao_tratamento = request(“torcao_tratamento”)
orquite = request(“orquite”)
orquite_idade = request(“orquite_idade”)
orquite_tratamento = request(“orquite_tratamento”)
epidimite = request(“epidimite”)
epidimite_idade = request(“epidimite_idade”)
epidimite_tratamento = request(“epidimite_tratamento”)
prostatite = request(“prostatite”)
prostatite_idade = request(“prostatite_idade”)
prostatite_tratamento = request(“prostatite_tratamento”)
masc_gonorreia = request(“masc_gonorreia”)
masc_gonorreia_idade = request(“masc_gonorreia_idade”)
chlamydia = request(“chlamydia”)
chlamydia_idade = request(“chlamydia_idade”)
masc_sifilis = request(“masc_sifilis”)
masc_sifilis_idade = request(“masc_sifilis_idade”)
masc_condiloma = request(“masc_condiloma”)
masc_condiloma_idade = request(“masc_condiloma_idade”)
outras = request(“outras”)
outras_descricao = request(“outras_descricao”)
outras_tratamento = request(“outras_tratamento”)

sql = "SELECT COUNT(CODCASAL) TOTAL FROM CASAL_HISTORICO_DOENCA WHERE CODCASAL = "&codcasal

Set rsVERIFICA = conn.execute(sql)
if CInt(rsVERIFICA(“TOTAL”)) = 0 and masc_diabete <>"" then
sql = "INSERT INTO CASAL_HISTORICO_DOENCA ( "
sql = sql & "CODCASAL, "
sql = sql & “DIABETE, "
sql = sql & “DIABETE_TEMPO, "
sql = sql & “DIABETE_TRATAMENTO, "
sql = sql & “PRESSAO_ALTA, "
sql = sql & “PRESSAO_ALTA_TRATAMENTO, "
sql = sql & “TRATAMENTO_PSIQ, "
sql = sql & “TRATAMENTO_PSIQ_TRATAM, "
sql = sql & “ULCERA_ESTOMAGO, "
sql = sql & “ULCERA_ESTOMAGO_TRATAM, "
sql = sql & “TORCAO_TESTICULO, "
sql = sql & “TORCAO_TESTICULO_IDADE, "
sql = sql & “TORCAO_TESTICULO_TRATAM, "
sql = sql & “ORQUITE, "
sql = sql & “ORQUITE_IDADE, "
sql = sql & “ORQUITE_TRATAMENTO, "
sql = sql & “EPIDIDIMITE, "
sql = sql & “EPIDIDIMITE_IDADE, "
sql = sql & “EPIDIDIMITE_TRATAMENTO, "
sql = sql & “PROSTATITE, "
sql = sql & “PROSTATITE_IDADE, "
sql = sql & “PROSTATITE_TRATAMENTO, "
sql = sql & “GONORREIA, "
sql = sql & “GONORREIA_IDADE, "
sql = sql & “CHLAMYDIA, "
sql = sql & “CHLAMYDIA_IDADE, "
sql = sql & “SIFILIS, "
sql = sql & “SIFILIS_IDADE, "
sql = sql & “CONDILOMA, "
sql = sql & “CONDILOMA_IDADE, "
sql = sql & “OUTRA, "
sql = sql & “OUTRA_DESCRICAO, "
sql = sql & “OUTRA_TRATAMENTO ) "
sql = sql & “VALUES ( "
sql = sql & “”&codcasal&” , "
sql = sql & “’”&masc_diabete&”’ , "
sql = sql & “’”&diabete_tempo&”’ , "
sql = sql & “’”&diabete_tratamento&”’ , "
sql = sql & “’”&pressao_alta&”’ , "
sql = sql & “’”&pressa_alta_tratamento&”’ , "
sql = sql & “’”&tratamento_psiquiatrico&”’ , "
sql = sql & “’”&tratamento_psiquiatrico_tratamento&”’ , "
sql = sql & “’”&ulcera_estduo&”’ , "
sql = sql & “’”&ulcera_estduo_tratamento&”’ , "
sql = sql & “’”&torcao_testiculo&”’ , "
sql = sql & “’”&torcao_idade&”’ , "
sql = sql & “’”&torcao_tratamento&”’ , "
sql = sql & “’”&orquite&”’ , "
sql = sql & “’”&orquite_idade&”’ , "
sql = sql & “’”&orquite_tratamento&”’ , "
sql = sql & “’”&epidimite&”’ , "
sql = sql & “’”&epidimite_idade&”’ , "
sql = sql & “’”&epidimite_tratamento&”’ , "
sql = sql & “’”&prostatite&”’ , "
sql = sql & “’”&prostatite_idade&”’ , "
sql = sql & “’”&prostatite_tratamento&”’ , "
sql = sql & “’”&masc_gonorreia&”’ , "
sql = sql & “’”&masc_gonorreia_idade&”’ , "
sql = sql & “’”&chlamydia&”’ , "
sql = sql & “’”&chlamydia_idade&”’ , "
sql = sql & “’”&masc_sifilis&”’ , "
sql = sql & “’”&masc_sifilis_idade&”’ , "
sql = sql & “’”&masc_condiloma&”’ , "
sql = sql & “’”&masc_condiloma_idade&”’ , "
sql = sql & “’”&outras&”’ , "
sql = sql & “’”&outras_descricao&”’ , "
sql = sql & “’”&outras_tratamento&”’ ) "
conn.execute(sql)
end if

if CInt(rsVERIFICA(“TOTAL”)) > 0 and masc_diabete <>"" then
sql = “UPDATE CASAL_HISTORICO_DOENCA SET "
sql = sql & “DIABETE = '”&masc_diabete&”’ , "
sql = sql & “DIABETE_TEMPO = '”&diabete_tempo&"’ , "
sql = sql & “DIABETE_TRATAMENTO = '”&diabete_tratamento&"’ , "
sql = sql & “PRESSAO_ALTA = '”&pressao_alta&"’ , "
sql = sql & “PRESSAO_ALTA_TRATAMENTO = '”&pressa_alta_tratamento&"’ , "
sql = sql & “TRATAMENTO_PSIQ = '”&tratamento_psiquiatrico&"’ , "
sql = sql & “TRATAMENTO_PSIQ_TRATAM = '”&tratamento_psiquiatrico_tratamento&"’ , "
sql = sql & “ULCERA_ESTOMAGO = '”&ulcera_estduo&"’ , "
sql = sql & “ULCERA_ESTOMAGO_TRATAM = '”&ulcera_estduo_tratamento&"’ , "
sql = sql & “TORCAO_TESTICULO = '”&torcao_testiculo&"’ , "
sql = sql & “TORCAO_TESTICULO_IDADE = '”&torcao_idade&"’ , "
sql = sql & “TORCAO_TESTICULO_TRATAM = '”&torcao_tratamento&"’ , "
sql = sql & “ORQUITE = '”&orquite&"’ , "
sql = sql & “ORQUITE_IDADE = '”&orquite_idade&"’ , "
sql = sql & “ORQUITE_TRATAMENTO = '”&orquite_tratamento&"’ , "
sql = sql & “EPIDIDIMITE = '”&epidimite&"’ , "
sql = sql & “EPIDIDIMITE_IDADE = '”&epidimite_idade&"’ , "
sql = sql & “EPIDIDIMITE_TRATAMENTO = '”&epidimite_tratamento&"’ , "
sql = sql & “PROSTATITE = '”&prostatite&"’ , "
sql = sql & “PROSTATITE_IDADE = '”&prostatite_idade&"’ , "
sql = sql & “PROSTATITE_TRATAMENTO = '”&prostatite_tratamento&"’ , "
sql = sql & “GONORREIA = '”&masc_gonorreia&"’ , "
sql = sql & “GONORREIA_IDADE = '”&masc_gonorreia_idade&"’ , "
sql = sql & “CHLAMYDIA = '”&chlamydia&"’ , "
sql = sql & “CHLAMYDIA_IDADE = '”&chlamydia_idade&"’ , "
sql = sql & “SIFILIS = '”&masc_sifilis&"’ , "
sql = sql & “SIFILIS_IDADE = '”&masc_sifilis_idade&"’ , "
sql = sql & “CONDILOMA = '”&masc_condiloma&"’ , "
sql = sql & “CONDILOMA_IDADE = '”&masc_condiloma_idade&"’ , "
sql = sql & “OUTRA = '”&outras&"’ , "
sql = sql & “OUTRA_DESCRICAO = '”&outras_descricao&"’ , "
sql = sql & “OUTRA_TRATAMENTO = '”&outras_tratamento&"’ "
sql = sql & "WHERE CODCASAL = "&codcasal
conn.execute(sql)
end if

'--------------------------------DADOS DOENÇAS----------------------------------------

'--------------------------------DADOS FILHOS CIRURGIAS--------------------------------
filhos_nesse_matrimonioq = request(“filhos_nesse_matrimonioq”)
filhos_outro_matrimonioq = request(“filhos_outro_matrimonioq”)
irmaos_sexo_masculinoq = request(“irmaos_sexo_masculinoq”)
irmaos_tem_filhos = request(“irmaos_tem_filhos”)
irmaos_solteiros = request(“irmaos_solteiros”)
irmaos_nao_querem_filhos = request(“irmaos_nao_querem_filhos”)
irmaos_inferteis = request(“irmaos_inferteis”)
cirurgia_abnominal = request(“cirurgia_abnominal”)
cirurgia_abnominal_idade = request(“cirurgia_abnominal_idade”)
cirurgia_abnominal_descricao = request(“cirurgia_abnominal_descricao”)
cirurgia_bexiga = request(“cirurgia_bexiga”)
cirurgia_bexiga_idade = request(“cirurgia_bexiga_idade”)
cirurgia_bexiga_descricao = request(“cirurgia_bexiga_descricao”)
cirurgia_hernia = request(“cirurgia_hernia”)
cirurgia_hernia_idade = request(“cirurgia_hernia_idade”)
cirurgia_hernia_descricao = request(“cirurgia_hernia_descricao”)
cirurgia_uretra = request(“cirurgia_uretra”)
cirurgia_uretra_idade = request(“cirurgia_uretra_idade”)
cirurgia_uretra_descricao = request(“cirurgia_uretra_descricao”)
cirurgia_varicocele = request(“cirurgia_varicocele”)
cirurgia_varicocele_idade = request(“cirurgia_varicocele_idade”)
cirurgia_varicocele_local = request(“cirurgia_varicocele_local”)
biopsia_test = request(“biopsia_test”)
diagnostico = request(“diagnostico”)
observacao = request(“observacao”)

	if irmaos_solteiros = "" then
			irmaos_solteiros = "N"
	end if
	if irmaos_nao_querem_filhos = "" then
			irmaos_nao_querem_filhos = "N"
	end if
	if irmaos_inferteis = "" then
			irmaos_inferteis = "N"
	end if

sql = "SELECT COUNT(CODCASAL) TOTAL FROM CASAL_HISTORICO_FILHO WHERE CODCASAL = "&codcasal

Set rsVERIFICA = conn.execute(sql)

if CInt(rsVERIFICA(“TOTAL”)) = 0 and filhos_nesse_matrimonioq <>"" then
sql = "INSERT INTO CASAL_HISTORICO_FILHO ( "
sql = sql & “CODCASAL , "
sql = sql & “QTDE_FILHO_NESTE_MATRIMONIO , "
sql = sql & “QTDE_FILHO_OUTRO_MATRIMONIO , "
sql = sql & “QTDE_IRMAO_SEXO_MASCULINO , "
sql = sql & “IRMAO_TEM_FILHO , "
sql = sql & “IRMAO_SOLTEIRO , "
sql = sql & “IRMAO_NAO_DESEJA_FILHO , "
sql = sql & “IRMAO_INFERTIL , "
sql = sql & “CIRURGIA_ABDOMEM , "
sql = sql & “CIRURGIA_ABDOMEM_IDADE , "
sql = sql & “CIRURGIA_ABDOMEM_DESCRICAO , "
sql = sql & “CIRURGIA_BEXIGA , "
sql = sql & “CIRURGIA_BEXIGA_IDADE , "
sql = sql & “CIRURGIA_BEXIGA_DESCRICAO , "
sql = sql & “CIRURGIA_HERNIA , "
sql = sql & “CIRURGIA_HERNIA_IDADE , "
sql = sql & “CIRURGIA_HERNIA_DESCRICAO , "
sql = sql & “CIRURGIA_URETRA , "
sql = sql & “CIRURGIA_URETRA_IDADE , "
sql = sql & “CIRURGIA_URETRA_DESCRICAO , "
sql = sql & “CIRURGIA_VARICOCELE , "
sql = sql & “CIRURGIA_VARICOCELE_IDADE , "
sql = sql & “CIRURGIA_VARICOCELE_LOCAL , "
sql = sql & “CIRURGIA_BIOPSIA_TEST , "
sql = sql & “DIAGNOSTICO , "
sql = sql & “OBSERVACAO ) "
sql = sql & “VALUES (”
sql = sql & “”&codcasal&” , "
sql = sql & “’”&filhos_nesse_matrimonioq&”’ , "
sql = sql & “’”&filhos_outro_matrimonioq&”’ , "
sql = sql & “’”&irmaos_sexo_masculinoq&”’ , "
sql = sql & “’”&irmaos_tem_filhos&”’ , "
sql = sql & “’”&irmaos_solteiros&”’ , "
sql = sql & “’”&irmaos_nao_querem_filhos&”’ , "
sql = sql & “’”&irmaos_inferteis&”’ , "
sql = sql & “’”&cirurgia_abnominal&”’ , "
sql = sql & “’”&cirurgia_abnominal_idade&”’ , "
sql = sql & “’”&cirurgia_abnominal_descricao&”’ , "
sql = sql & “’”&cirurgia_bexiga&”’ , "
sql = sql & “’”&cirurgia_bexiga_idade&”’ , "
sql = sql & “’”&cirurgia_bexiga_descricao&”’ , "
sql = sql & “’”&cirurgia_hernia&”’ , "
sql = sql & “’”&cirurgia_hernia_idade&”’ , "
sql = sql & “’”&cirurgia_hernia_descricao&”’ , "
sql = sql & “’”&cirurgia_uretra&”’ , "
sql = sql & “’”&cirurgia_uretra_idade&”’ , "
sql = sql & “’”&cirurgia_uretra_descricao&”’ , "
sql = sql & “’”&cirurgia_varicocele&”’ , "
sql = sql & “’”&cirurgia_varicocele_idade&”’ , "
sql = sql & “’”&cirurgia_varicocele_local&”’ , "
sql = sql & “’”&biopsia_test&”’ , "
sql = sql & “’”&diagnostico&”’ , "
sql = sql & “’”&observacao&”’ ) "
conn.execute(sql)
end if

if CInt(rsVERIFICA(“TOTAL”)) > 0 and filhos_nesse_matrimonioq <>"" then
sql = “UPDATE CASAL_HISTORICO_FILHO SET "
sql = sql & “QTDE_FILHO_NESTE_MATRIMONIO = '”&filhos_nesse_matrimonioq&”’ , "
sql = sql & “QTDE_FILHO_OUTRO_MATRIMONIO = '”&filhos_outro_matrimonioq&"’ , "
sql = sql & “QTDE_IRMAO_SEXO_MASCULINO = '”&irmaos_sexo_masculinoq&"’ , "
sql = sql & “IRMAO_TEM_FILHO = '”&irmaos_tem_filhos&"’ , "
sql = sql & “IRMAO_SOLTEIRO = '”&irmaos_solteiros&"’ , "
sql = sql & “IRMAO_NAO_DESEJA_FILHO = '”&irmaos_nao_querem_filhos&"’ , "
sql = sql & “IRMAO_INFERTIL = '”&irmaos_inferteis&"’ , "
sql = sql & “CIRURGIA_ABDOMEM = '”&cirurgia_abnominal&"’ , "
sql = sql & “CIRURGIA_ABDOMEM_IDADE = '”&cirurgia_abnominal_idade&"’ , "
sql = sql & “CIRURGIA_ABDOMEM_DESCRICAO = '”&cirurgia_abnominal_descricao&"’ , "
sql = sql & “CIRURGIA_BEXIGA = '”&cirurgia_bexiga&"’ , "
sql = sql & “CIRURGIA_BEXIGA_IDADE = '”&cirurgia_bexiga_idade&"’ , "
sql = sql & “CIRURGIA_BEXIGA_DESCRICAO = '”&cirurgia_bexiga_descricao&"’ , "
sql = sql & “CIRURGIA_HERNIA = '”&cirurgia_hernia&"’ , "
sql = sql & “CIRURGIA_HERNIA_IDADE = '”&cirurgia_hernia_idade&"’ , "
sql = sql & “CIRURGIA_HERNIA_DESCRICAO = '”&cirurgia_hernia_descricao&"’ , "
sql = sql & “CIRURGIA_URETRA = '”&cirurgia_uretra&"’ , "
sql = sql & “CIRURGIA_URETRA_IDADE = '”&cirurgia_uretra_idade&"’ , "
sql = sql & “CIRURGIA_URETRA_DESCRICAO = '”&cirurgia_uretra_descricao&"’ , "
sql = sql & “CIRURGIA_VARICOCELE = '”&cirurgia_varicocele&"’ , "
sql = sql & “CIRURGIA_VARICOCELE_IDADE = '”&cirurgia_varicocele_idade&"’ , "
sql = sql & “CIRURGIA_VARICOCELE_LOCAL = '”&cirurgia_varicocele_local&"’ , "
sql = sql & “CIRURGIA_BIOPSIA_TEST = '”&biopsia_test&"’ , "
sql = sql & “DIAGNOSTICO = '”&diagnostico&"’ , "
sql = sql & “OBSERVACAO = '”&observacao&"’ "
sql = sql & "WHERE CODCASAL = "&codcasal
conn.execute(sql)
end if
'--------------------------------DADOS FILHOS CIRURGIAS---------------------------------------

'-------------------------------------DADOS EXAMES--------------------------------------------
ef = request(“ef”)
td_med1 = request(“td_med1”)
td_med2 = request(“td_med2”)
td_med3 = request(“td_med3”)
td_cons = request(“td_cons”)
td_obs = request(“td_obs”)
te_med1 = request(“te_med1”)
te_med2 = request(“te_med2”)
te_med3 = request(“te_med3”)
te_cons = request(“te_cons”)
te_obs = request(“te_obs”)
td_varicocele = request(“td_varicocele”)
td_grau = request(“td_grau”)
td_hidrocele = request(“td_hidrocele”)
td_cisto = request(“td_cisto”)
te_varicocele = request(“te_varicocele”)
te_grau = request(“te_grau”)
te_hidrocele = request(“te_hidrocele”)
te_cisto = request(“te_cisto”)
epididimos = request(“epididimos”)
deferentes = request(“deferentes”)
prostata = request(“prostata”)
secrecao = request(“secrecao”)
rcb = request(“rcb”)
exa_observacao = request(“exa_observacao”)

sql = "SELECT COUNT(CODCASAL) TOTAL FROM CASAL_HISTORICO_EXAME WHERE CODCASAL = "&codcasal

Set rsVERIFICA = conn.execute(sql)

if CInt(rsVERIFICA(“TOTAL”)) = 0 and td_cons <>"" then
sql = “INSERT INTO CASAL_HISTORICO_EXAME ( "
sql = sql & “CODCASAL , "
sql = sql & “EF , "
sql = sql & “TESTICULO_DIREITO_MEDIDA1 , "
sql = sql & “TESTICULO_DIREITO_MEDIDA2 , "
sql = sql & “TESTICULO_DIREITO_MEDIDA3 , "
sql = sql & “TESTICULO_DIREITO_CONSIST , "
sql = sql & “TESTICULO_DIREITO_OBS , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA1 , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA2 , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA3 , "
sql = sql & “TESTICULO_ESQUERDO_CONSIST , "
sql = sql & “TESTICULO_ESQUERDO_OBS , "
sql = sql & “FUN_ESP_DIREITO_VARICOCELE , "
sql = sql & “FUN_ESP_DIREITO_GRAU , "
sql = sql & “FUN_ESP_DIREITO_HIDROCELE , "
sql = sql & “FUN_ESP_DIREITO_CISTO , "
sql = sql & “FUN_ESP_ESQUERDO_VARICOCELE , "
sql = sql & “FUN_ESP_ESQUERDO_GRAU , "
sql = sql & “FUN_ESP_ESQUERDO_HIDROCELE , "
sql = sql & “FUN_ESP_ESQUERDO_CISTO , "
sql = sql & “EPIDIDIMO , "
sql = sql & “DEFERENTE , "
sql = sql & “TOQUE_RETAL_PROSTATA , "
sql = sql & “TOQUE_RETAL_SECRECAO , "
sql = sql & “TOQUE_RETAL_RCB , "
sql = sql & “OBSERVACAO )”
sql = sql & “VALUES(”
sql = sql & “’”&codcasal&”’, "
sql = sql & “’”&ef&”’, "
sql = sql & “’”&td_med1&”’, "
sql = sql & “’”&td_med2&”’, "
sql = sql & “’”&td_med3&”’, "
sql = sql & “’”&td_cons&”’, "
sql = sql & “’”&td_obs&”’, "
sql = sql & “’”&te_med1&”’, "
sql = sql & “’”&te_med2&”’, "
sql = sql & “’”&te_med3&”’, "
sql = sql & “’”&te_cons&”’, "
sql = sql & “’”&te_obs&”’, "
sql = sql & “’”&td_varicocele&”’, "
sql = sql & “’”&td_grau&”’, "
sql = sql & “’”&td_hidrocele&”’, "
sql = sql & “’”&td_cisto&”’, "
sql = sql & “’”&te_varicocele&”’, "
sql = sql & “’”&te_grau&”’, "
sql = sql & “’”&te_hidrocele&”’, "
sql = sql & “’”&te_cisto&”’, "
sql = sql & “’”&epididimos&”’, "
sql = sql & “’”&deferentes&”’, "
sql = sql & “’”&prostata&”’, "
sql = sql & “’”&secrecao&”’, "
sql = sql & “’”&rcb&”’, "
sql = sql & “’”&exa_observacao&”’) "
conn.execute(sql)
end if

if CInt(rsVERIFICA(“TOTAL”)) > 0 and td_cons <> “” then
sql = “UPDATE CASAL_HISTORICO_EXAME SET "
sql = sql & “EF = '”&ef&”’ , "
sql = sql & “TESTICULO_DIREITO_MEDIDA1 = '”&td_med1&"’ , "
sql = sql & “TESTICULO_DIREITO_MEDIDA2 = '”&td_med2&"’ , "
sql = sql & “TESTICULO_DIREITO_MEDIDA3 = '”&td_med3&"’ , "
sql = sql & “TESTICULO_DIREITO_CONSIST = '”&td_cons&"’ , "
sql = sql & “TESTICULO_DIREITO_OBS = '”&td_obs&"’ , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA1 = '”&te_med1&"’ , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA2 = '”&te_med2&"’ , "
sql = sql & “TESTICULO_ESQUERDO_MEDIDA3 = '”&te_med3&"’ , "
sql = sql & “TESTICULO_ESQUERDO_CONSIST = '”&te_cons&"’ , "
sql = sql & “TESTICULO_ESQUERDO_OBS = '”&te_obs&"’ , "
sql = sql & “FUN_ESP_DIREITO_VARICOCELE = '”&td_varicocele&"’ , "
sql = sql & “FUN_ESP_DIREITO_GRAU = '”&td_grau&"’ , "
sql = sql & “FUN_ESP_DIREITO_HIDROCELE = '”&td_hidrocele&"’ , "
sql = sql & “FUN_ESP_DIREITO_CISTO = '”&td_cisto&"’ , "
sql = sql & “FUN_ESP_ESQUERDO_VARICOCELE = '”&te_varicocele&"’ , "
sql = sql & “FUN_ESP_ESQUERDO_GRAU = '”&te_grau&"’ , "
sql = sql & “FUN_ESP_ESQUERDO_HIDROCELE = '”&te_hidrocele&"’ , "
sql = sql & “FUN_ESP_ESQUERDO_CISTO = '”&te_cisto&"’ , "
sql = sql & “EPIDIDIMO = '”&epididimos&"’ , "
sql = sql & “DEFERENTE = '”&deferentes&"’ , "
sql = sql & “TOQUE_RETAL_PROSTATA = '”&prostata&"’ , "
sql = sql & “TOQUE_RETAL_SECRECAO = '”&secrecao&"’ , "
sql = sql & “TOQUE_RETAL_RCB = '”&rcb&"’ , "
sql = sql & “OBSERVACAO = '”&exa_observacao&"’ "
sql = sql & "WHERE CODCASAL = "&codcasal
conn.execute(sql)
end if
'-------------------------------------DADOS EXAMES--------------------------------------------
%>[/code]

[Dark_Optimus_Prime]

[minimilista mode: on]
Podia ser pior
[minimilsta mode: off]

Mas q fazer isso no ASP é trash com certeza

[_fs]

Deus do céu …

“Chefe: Ei, mudei o nome de uma coluna.”
“Você: começa a trançar uma corda”

hehe

Tem uma pastinha aqui com um projeto imenso em asp … tem mais de 150 arquivos desse tipo aí …

[Dark_Optimus_Prime]

[quote=“LIPE”]Deus do céu …

“Chefe: Ei, mudei o nome de uma coluna.”
“Você: começa a trançar uma corda”.[/quote]

ou então:
“Chefe: Ei, mudei o nome de umas colunas”
“Você: Em qual tabela?(já pegando um 38 na gaveta)”
“Chefe: Numas duas…eu acho”

[plentz]

[quote=“Dark Optimus Prime”][minimilista mode: on]
Podia ser pior
[minimilsta mode: off]

Mas q fazer isso no ASP é trash com certeza[/quote]

Com certezxa podia ser pior…e é :D, as páginas realmente grandes não consegui postar pq passoui do tamanho máximo e o fórum cortou

Não tem noção do nojo que da começar a criar essas páginas sabendo do q vem pela frente :evil:

[Dark_Optimus_Prime]

[quote=“diego_sl”][quote=“Dark Optimus Prime”][minimilista mode: on]
Podia ser pior
[minimilsta mode: off]

Mas q fazer isso no ASP é trash com certeza[/quote]

Com certezxa podia ser pior…e é :D, as páginas realmente grandes não consegui postar pq passoui do tamanho máximo e o fórum cortou

Não tem noção do nojo que da começar a criar essas páginas sabendo do q vem pela frente :evil:[/quote]

E como tenho, passo o dia vendo isso :evil: :evil: :evil:

[Rafael_Steil]

eh, acho que voces nunca viram servlet com 6 mil linhas ;)… isso sim eh tosco.

Nao culpem a linguagem somente por causa dos pessimos programadores que existem…

Rafael

[aborges]

Trabalhei com ASP a algum tempo utilizando COMs ( Component Object Model ) e nao fica tao zoado assim… !

No ASP, apesar de nao possuir tantos recursos dah pra fazer codigozinhos amigaveis, depende do programador!

[plentz]

[quote=“LIPE”]Deus do céu …

“Chefe: Ei, mudei o nome de uma coluna.”
“Você: começa a trançar uma corda”

hehe

Tem uma pastinha aqui com um projeto imenso em asp … tem mais de 150 arquivos desse tipo aí …[/quote]
Esses dias aconteceu justamente isso:
A empresa não queria mais chamar no sistema seus clientes de marido e esposa, pois estão já pensando em começar a receber casais gays pelo jeito :P, então lá foi o Diego entrar em todas as páginas pra alterar. Sorte que a janela é pequena e que o fio do mouse foi muito curto

[plentz]

[quote=“Rafael Steil”]eh, acho que voces nunca viram servlet com 6 mil linhas ;)… isso sim eh tosco.

Nao culpem a linguagem somente por causa dos pessimos programadores que existem…

Rafael[/quote]

Pois…esse que estou desenvolvendo já está com…hm vamos ver:
246 arquivos .asp
Nada menos que 1.7mb de puro código.
77 tabelinhas imenssas no Oracle 9i

Graças ao bom santo Deus já está chegando nos finalmente

PS: Tentem criar um txt com 1.7mb e vejam quanto de texto que dá…agora imaginem criar isso tudo suando asp, tendo que respeitar regrass de negócio, nomes de tabelas, validações etc etc
PS2: Tentei postar outra página só que como tinha apenas 1121 linhas o fórum cortou no meio
PS3: Se alguém tiver uma sugestão de como fazer esse tipo de nhaca ficar menos ruim estou com 2 olhos bem abertos

[aborges]

Use componentes …

Dei uma fucada na net e achei esse AQUI

[Paulo_Silveira]

quem falar que a primeira vez que criou um site em asp/php e nao ficou algo assim, que atire a primeira pedra…

eu lembro que programava em php, ficava aquele arquivo GIGANTE e achava super legal.

ai comecei a desconfiar quando precisava ficar dando replaceall do mesmo codigo em varios arquivos

[danieldestro]

É bem por aí…
Ou você usa COM com o seu ASP, ou não dá pra melhorar mto não.
Em PHP conseguís umas proezas criando umas classes, reusando mto código.

Boa sorte Diego.

[plentz]

[quote=“Paulo Silveira”]quem falar que a primeira vez que criou um site em asp/php e nao ficou algo assim, que atire a primeira pedra…

eu lembro que programava em php, ficava aquele arquivo GIGANTE e achava super legal.

ai comecei a desconfiar quando precisava ficar dando replaceall do mesmo codigo em varios arquivos[/quote]

Mas nesse caso que você citou o problema era que você estava fazendo algo errado. Mas no fonte que coloquei ali por exemplo…eu não imagino outra forma de fazer isso com uma diferença relativamente de tamanho de código, por causa da quantidade imensa de requests(muitos campos).

[aborges]

Uma coisa q diminuiria um pouquinho ( bem pouquinho mesmo ) o tamanho deste codigo eh vc tirar os fields dos seus Inserts…

Ao inves de

Insert into tabela (a,b,c) values(a,b,c)

faz

Insert into tabela values(a,b,c).

Porem, daih vc precisa garantir a ordem!

[plentz]

[quote=“aborges”]Uma coisa q diminuiria um pouquinho ( bem pouquinho mesmo ) o tamanho deste codigo eh vc tirar os fields dos seus Inserts…

Ao inves de

Insert into tabela (a,b,c) values(a,b,c)

faz

Insert into tabela values(a,b,c).

Porem, daih vc precisa garantir a ordem![/quote]
é uma idéia,mas não ajudaria muito, o ideal seria se podesse fazer como PHP, que os submits dos formulários já vem como variáveis, sem precisar do request…se ouvesse uma maneira mais “automatizada” de se fazer isso

[danieldestro]

Isso nunca, a borges.

[aborges]

Jah q o codigo tah porco mesmo, pq vc nao usua os requests direto onde vc precisa …

tipo

Select * from blablabla where blabla = request.Form("xxx")

Isso ja eliminaria as linhas onde vc cria as variaveis …

Obs.: Caso vc use o valor de um request mais de uma vez, eh melhor criar a variavel !

[aborges]

Isso nunca, a borges.

Pq?

[Vegetto]

[quote=“aborges”]Uma coisa q diminuiria um pouquinho ( bem pouquinho mesmo ) o tamanho deste codigo eh vc tirar os fields dos seus Inserts…

Ao inves de

Insert into tabela (a,b,c) values(a,b,c)

faz

Insert into tabela values(a,b,c).

Porem, daih vc precisa garantir a ordem![/quote]

credo, quase vomitei aqui, faz isso não!! Você custuma usar select * pra tudo também?