Aprenda a odiar ASP em 463 linhas

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

<%
  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--------------------------------------------
%>

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

Mas q fazer isso no ASP é trash com certeza

GUJ Expert Membro desde: 12/03/2003 11:25:57 Mensagens: 4680 Offline

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í ...

LIPE wrote:Deus do céu ...

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

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"

Dark Optimus Prime wrote:[minimilista mode: on]
Podia ser pior
[minimilsta mode: off]

Mas q fazer isso no ASP é trash com certeza

Com certezxa podia ser pior...e é

, 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

diego_sl wrote:

Dark Optimus Prime wrote:[minimilista mode: on]
Podia ser pior
[minimilsta mode: off]

Mas q fazer isso no ASP é trash com certeza

Com certezxa podia ser pior...e é , 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

E como tenho, passo o dia vendo isso

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

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!

LIPE wrote: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í ...

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

, 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

*

Rafael Steil wrote: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

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

Use componentes ....

Dei uma fucada na net e achei esse AQUI

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

É 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.

Paulo Silveira wrote: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

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).

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!

Notícias, artigos e o maior fórum brasileiro sobre Java