|
|
|
<% Response.Buffer = True ' load object Dim load Set load = new Loader ' calling initialize method load.initialize Dim fnomemaridoInput fnomemaridoInput = load.getValue("Nome_Marido") Dim fnomeesposaInput fnomeesposaInput = load.getValue("Nome_Esposa") Dim fprofissaomaridoInput fprofissaomaridoInput = load.getValue("Profissao_Marido") Dim fprofissaoesposaInput fprofissaoesposaInput = load.getValue("Profissao_Esposa") Dim fdatanascimentoesposaInput fdatanascimentoesposaInput = load.getValue("Data_Nascimento_Esposa") Dim fdatanascimentomaridoInput fdatanascimentomaridoInput = load.getValue("Data_Nascimento_Marido") Dim fbiesposaInput fbiesposaInput = load.getValue("BI_Esposa") Dim fbimaridoInput fbimaridoInput = load.getValue("BI_Marido") Dim fbicontesposaInput fbicontesposaInput = load.getValue("BI_Esposa_cont") Dim fbicontmaridoInput fbicontmaridoInput = load.getValue("BI_Marido_cont") Dim fbiesposadataInput fbiesposadataInput = load.getValue("Data_BI_Esposa") Dim fbimaridodataInput fbimaridodataInput = load.getValue("Data_BI_Marido") Dim fbiesposaarquivoInput fbiesposaarquivoInput = load.getValue("BI_Arquivo_Esposa") Dim fbimaridoarquivoInput fbimaridoarquivoInput = load.getValue("BI_Arquivo_Marido") Dim fcontribuinteesposaInput fcontribuinteesposaInput = load.getValue("Contribuinte_Esposa") Dim fcontribuintemaridoInput fcontribuintemaridoInput = load.getValue("Contribuinte_Marido") Dim femailcasaesposaInput femailcasaesposaInput = load.getValue("email_esposa_casa") Dim femailcasamaridoInput femailcasamaridoInput = load.getValue("email_marido_casa") Dim femailtrabesposaInput femailtrabesposaInput = load.getValue("email_esposa_trab") Dim femailtrabmaridoInput femailtrabmaridoInput = load.getValue("email_marido_trab") Dim ftelemovelmaridoInput ftelemovelmaridoInput = load.getValue("Telemovel_Marido") Dim ftelemovelesposaInput ftelemovelesposaInput = load.getValue("Telemovel_Esposa") Dim ftelefonemaridotrabInput ftelefonemaridotrabInput = load.getValue("Telefone_Marido_trab") Dim ftelefoneesposatrabInput ftelefoneesposatrabInput = load.getValue("Telefone_Esposa_trab") Dim fmorada1Input fmorada1Input = load.getValue("Morada1") Dim fmorada2Input fmorada2Input = load.getValue("Morada2") Dim fcodpostalInput fcodpostalInput = load.getValue("codpostal") Dim fcodpostalpeqInput fcodpostalpeqInput = load.getValue("codpostalpeq") Dim flocalidadeInput flocalidadeInput = load.getValue("Localidade") Dim ftelefonecasaInput ftelefonecasaInput = load.getValue("Telefone_casa") Dim ffaxInput ffaxInput = load.getValue("fax") Dim fdatacasamentoInput fdatacasamentoInput = load.getValue("Data_Casamento") dim ffilho1 ffilho1=load.getvalue("Filho1") Dim fdatanascimentofilho1Input fdatanascimentofilho1Input = load.getValue("Data_Nascimento_Filho1") dim ffilho2 ffilho2=load.getvalue("Filho2") Dim fdatanascimentofilho2Input fdatanascimentofilho2Input = load.getValue("Data_Nascimento_Filho2") dim ffilho3 ffilho3=load.getvalue("Filho3") Dim fdatanascimentofilho3Input fdatanascimentofilho3Input = load.getValue("Data_Nascimento_Filho3") dim ffilho4 ffilho4=load.getvalue("Filho4") Dim fdatanascimentofilho4Input fdatanascimentofilho4Input = load.getValue("Data_Nascimento_Filho4") dim ffilho5 ffilho5=load.getvalue("Filho5") Dim fdatanascimentofilho5Input fdatanascimentofilho5Input = load.getValue("Data_Nascimento_Filho5") dim ffilho6 ffilho6=load.getvalue("Filho6") Dim fdatanascimentofilho6Input fdatanascimentofilho6Input = load.getValue("Data_Nascimento_Filho6") dim ffilho7 ffilho7=load.getvalue("Filho7") Dim fdatanascimentofilho7Input fdatanascimentofilho7Input = load.getValue("Data_Nascimento_Filho7") dim ffilho8 ffilho8=load.getvalue("Filho8") Dim fdatanascimentofilho8Input fdatanascimentofilho8Input = load.getValue("Data_Nascimento_Filho8") dim ffilho9 ffilho9=load.getvalue("Filho9") Dim fdatanascimentofilho9Input fdatanascimentofilho9Input = load.getValue("Data_Nascimento_Filho9") dim ffilho10 ffilho10=load.getvalue("Filho10") Dim fdatanascimentofilho10Input fdatanascimentofilho10Input = load.getValue("Data_Nascimento_Filho10") 'dim fchequenr ' fchequenr=load.getvalue("cheque_nr") ' Dim fbancoInput ' fbancoInput = load.getValue("banco") Dim fmodpag fmodpag=load.getValue("Mod_pagamento") Dim fsddInput fsddInput = load.getValue("SDD") Dim fmbInput fmbInput = load.getValue("MB") Dim fsddnibInput fsddnibInput = load.getValue("sdd_NIB") Dim fsddbancoInput fsddbancoInput = load.getValue("sdd_Banco") Dim fsdddependenciaInput fsdddependenciaInput = load.getValue("sdd_Dependencia") Dim fsddbanco1Input fsddbanco1Input = load.getValue("sdd_Banco1") Dim fsddaceitaInput fsddaceitaInput = load.getValue("sdd_Aceita") Dim fdadospessoaisInput fdadospessoaisInput = load.getValue("Dados_Pessoais") ' destroying load object Set load = Nothing %> <% if (fnomemaridoInput<>"" or fnomeesposaInput<>"" ) then '*************************************+++FAZ BACKUP DOS DADOS PARA O DISCO ***********************+++ Const ForReading = 1, ForWriting = 2, ForAppending = 8 dim inscricao 'MARIDO inscricao = "Nome do Marido: " & fnomemaridoInput & vbCrLf inscricao = inscricao &"Profissão do Marido: "& fprofissaomaridoInput & vbCrLf inscricao = inscricao & "Data de Nascimento do Marido: " & fdatanascimentomaridoInput & vbCrLf inscricao = inscricao & "BI do Marido: " & fbimaridoInput & vbCrLf inscricao = inscricao & "BI do Marido checkdig: " & fbicontmaridoInput & vbCrLf inscricao = inscricao & "Data do BI do Marido: "& fbimaridodataInput & vbCrLf inscricao = inscricao & "Arquivo do BI do Marido: " & fbimaridoarquivoInput & vbCrLf inscricao = inscricao & "Contribuinte do Marido: " & fcontribuintemaridoInput & vbCrLf inscricao = inscricao & "Email de casa do Marido: " & femailcasamaridoInput & vbCrLf inscricao = inscricao & "Email de trab do Marido: " & femailtrabmaridoInput & vbCrLf inscricao = inscricao & "Telemóvel do Marido: " & ftelemovelmaridoInput & vbCrLf inscricao = inscricao & "Telefone de trab do Marido: " & ftelefonemaridotrabInput & vbCrLf 'ESPOSA inscricao = inscricao & "Nome da Esposa: " & fnomeesposaInput & vbCrLf inscricao = inscricao & "Profissão da Esposa: " & fprofissaoesposaInput & vbCrLf inscricao = inscricao & "Data de Nascimento da Esposa: " & fdatanascimentoesposaInput & vbCrLf inscricao = inscricao & "BI do Esposa: " & fbiesposaInput & vbCrLf inscricao = inscricao & "BI do Esposa checkdig: "& fbicontesposaInput & vbCrLf inscricao = inscricao & "Data do BI do Esposa: " & fbiesposadataInput & vbCrLf inscricao = inscricao & "Arquivo do BI do Esposa: "& fbiesposaarquivoInput & vbCrLf inscricao = inscricao & "Contribuinte da Esposa: " & fcontribuinteesposaInput & vbCrLf inscricao = inscricao & "Email de casa do Esposa: " & femailcasaesposaInput & vbCrLf inscricao = inscricao & "Email de trab do Esposa: " & femailtrabesposaInput & vbCrLf inscricao = inscricao & "Telemóvel do Esposa: " & ftelemovelesposaInput & vbCrLf inscricao = inscricao & "Telefone de trab do Esposa: " & ftelefoneesposatrabInput &vbCrLf 'DADOS GERAIS inscricao = inscricao & "Morada: " & fmorada1Input & vbCrLf inscricao = inscricao & "Morada2: " & fmorada2Input & vbCrLf inscricao = inscricao & "Código Postal: " & fcodpostalInput & vbCrLf inscricao = inscricao & "Código Postal peq:" & fcodpostalpeqInput & vbCrLf inscricao = inscricao & "Localidade: " & flocalidadeInput & vbCrLf inscricao = inscricao & "telefone casa: " & ftelefonecasaInput & vbCrLf inscricao = inscricao & "Fax: " & ffaxInput & vbCrLf inscricao = inscricao & "Data de casamento: " & fdatacasamentoInput & vbCrLf 'FILHOS inscricao = inscricao & "Filho1: " & ffilho1 & vbCrLf inscricao = inscricao & "DN filho1: " & fdatanascimentofilho1Input & vbCrLf inscricao = inscricao & "Filho2: " & ffilho2 & vbCrLf inscricao = inscricao & "DN filho2: " & fdatanascimentofilho2Input & vbCrLf inscricao = inscricao & "Filho3: " & ffilho3 & vbCrLf inscricao = inscricao & "DN filho3: "& fdatanascimentofilho3Input & vbCrLf inscricao = inscricao & "Filho4: " & ffilho4 & vbCrLf inscricao = inscricao & "DN filho4: " & fdatanascimentofilho4Input & vbCrLf inscricao = inscricao & "Filho5: " & ffilho5 & vbCrLf inscricao = inscricao & "DN filho5: " & fdatanascimentofilho5Input & vbCrLf inscricao = inscricao & "Filho6: " & ffilho6 & vbCrLf inscricao = inscricao & "DN filho6: "& fdatanascimentofilho6Input & vbCrLf inscricao = inscricao & "Filho7: " & ffilho7 & vbCrLf inscricao = inscricao & "DN filho7: "& fdatanascimentofilho7Input & vbCrLf inscricao = inscricao & "Filho8: " & ffilho8 & vbCrLf inscricao = inscricao & "DN filho8: " & fdatanascimentofilho8Input & vbCrLf inscricao = inscricao & "Filho9: " & ffilho9 & vbCrLf inscricao = inscricao & "DN filho9: " & fdatanascimentofilho9Input & vbCrLf inscricao = inscricao & "Filho10: " & ffilho10 & vbCrLf inscricao = inscricao & "DN filho10: " & fdatanascimentofilho10Input & vbCrLf 'MODO DE PAGAMENTO inscricao = inscricao & "Modo de Pag.: " & fmodpag & vbCrLf inscricao = inscricao & "NIB: " & fsddnibInput & vbCrLf inscricao = inscricao & "Banco: " & fsddbancoInput & vbCrLf inscricao = inscricao & "Dependência: " & fsdddependenciaInput & vbCrLf inscricao = inscricao & "Titular: " & fsddbanco1Input 'GRAVA DADOS NO DISCO Wfile="C:\Inetpub\vhosts\apfn.com.pt\httpdocs\formularios\inscricoes.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(Wfile, ForAppending, True) a.WriteLine "Data: " & Now a.WriteLine "Inscrição online para Sócio EFECTIVO:" a.Writeline a.Writeline a.WriteLine inscricao if fmodpag="SDD" then a.WriteLine "***********************************************************************" end if a.Close '*****************************************+++ dim Conn dim rs dim counter dim sqlmysql dim strSQL sqlmysql="Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=apfn; Uid=fcastro; Pwd=joao09;" set Conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") Conn.Open sqlmysql '****************************************tblpropostas***************************************+ strSQL = "INSERT INTO tblpropostas (tiposocio,NumRefMultibanco,ReferenciaMB,DataInscricao,SituacaoFamiliaSocioEfectivo,DataSituacaoFamilia,NumSocioMarido," strSQL=strSQL + "NomeMarido,ProfissaoMarido,BIMarido,CheckDigBIMarido,DataBIMarido,ArquivoBIMarido,ContribMarido,NascimentoMarido,EmailCasaMarido,EmailTrabalhoMarido," strSQL=strSQL + "TelemovelMarido,TelefoneTrabalhoMarido,NumSocioMulher,NomeMulher,ProfissaoMulher,BIMulher,CheckDigBIMulher,DataBIMulher,ArquivoBIMulher,ContribMulher," strSQL=strSQL + "NascimentoMulher,EmailCasaMulher,EmailTrabalhoMulher,TelemovelMulher,TelefoneTrabalhoMulher,Morada1,Morada2,CodPostal,DetalhePostal,Localidade," strSQL=strSQL + "TelefoneCasa,Fax,Casamento,NIB,TitularMF,TitularConta,Morada1Titular,Morada2Titular,CodPostalTitular,DetPostalTitular,LocalidadeTitular,ModalidadePagamento," strSQL=strSQL + "DataPagamento,DadosPessoaisParaFacilidades)" strSQL=strSQL + " VALUES (" strSQL=strSQL + "'E'," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," dim tempo tempo=CStr(Year(Now)) + "/"+ CStr(Month(Now)) + "/" + CStr(Day(Now)) + " " + formatdatetime(now(), 4)+":"+CStr(Second(Now)) strSQL=strSQL + "'"+tempo + "'," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "'" + fnomemaridoInput +"'," strSQL=strSQL + "'" +fprofissaomaridoInput+"'," if fbimaridoInput<>"" then strSQL=strSQL + fbimaridoInput +"," else strSQL=strSQL + "NULL," end if if fbicontmaridoInput<>"" then strSQL=strSQL +fbicontmaridoInput +"," else strSQL=strSQL + "NULL," end if if fbimaridodataInput<>"" then strSQL=strSQL + "'"+ Right(fbimaridodataInput,4)+"/"+ Mid(fbimaridodataInput,4,2) +"/"+Left(fbimaridodataInput,2)+"'," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "'" +fbimaridoarquivoInput+"'," if fcontribuintemaridoInput<>"" then strSQL=strSQL + fcontribuintemaridoInput+"," else strSQL=strSQL + "NULL," end if if fdatanascimentomaridoInput<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentomaridoInput,4)+"/"+ Mid(fdatanascimentomaridoInput,4,2) +"/"+Left(fdatanascimentomaridoInput,2)+"'," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "'" +femailcasamaridoInput+"'," strSQL=strSQL + "'" +femailtrabmaridoInput+"'," if ftelemovelmaridoInput<>"" then strSQL=strSQL + ftelemovelmaridoInput+"," else strSQL=strSQL + "NULL," end if if ftelefonemaridoInput<>"" then strSQL=strSQL + ftelefonemaridoInput+"," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "NULL," strSQL=strSQL + "'" +fnomeesposaInput+"'," strSQL=strSQL + "'" +fprofissaoesposaInput+"'," if fbiesposaInput<>"" then strSQL=strSQL + fbiesposaInput+"," else strSQL=strSQL + "NULL," end if if fbicontesposaInput<>"" then strSQL=strSQL + fbicontesposaInput+"," else strSQL=strSQL + "NULL," end if if fbiesposadataInput<>"" then strSQL=strSQL + "'"+ Right(fbiesposadataInput,4)+"/"+ Mid(fbiesposadataInput,4,2) +"/"+Left(fbiesposadataInput,2)+"'," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "'" +fbiesposaarquivoInput+"'," if fcontribuintesposaInput<>"" then strSQL=strSQL + fcontribuintesposaInput+"," else strSQL=strSQL + "NULL," end if if fdatanascimentoesposaInput<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentoesposaInput,4)+"/"+ Mid(fdatanascimentoesposaInput,4,2) +"/"+Left(fdatanascimentoesposaInput,2)+"'," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "'" +femailcasaesposaInput+"'," strSQL=strSQL + "'" +femailtrabesposaInput+"'," if ftelemovelesposaInput<>"" then strSQL=strSQL + ftelemovelesposaInput+"," else strSQL=strSQL + "NULL," end if if ftelefoneesposaInput<>"" then strSQL=strSQL + ftelefoneesposaInput+"," else strSQL=strSQL + "NULL," end if strSQL=strSQL + "'" +fmorada1Input+"'," strSQL=strSQL + "'" +fmorada2Input+"'," strSQL=strSQL + fcodpostalInput+"," strSQL=strSQL + "'"+fcodpostalpeqInput+"'," strSQL=strSQL + "'" +flocalidadeInput+"'," if ftelefonecasaInput<>"" then strSQL=strSQL + ftelefonecasaInput+"," else strSQL=strSQL + "NULL," end if if ffaxInput<>"" then strSQL=strSQL + ffaxInput+"," else strSQL=strSQL + "NULL," end if if fdatacasamentoInput<>"" then strSQL=strSQL + "'"+ Right(fdatacasamentoInput,4)+"/"+ Mid(fdatacasamentoInput,4,2) +"/"+Left(fdatacasamentoInput,2)+"'," else strSQL=strSQL + "NULL," end if if (fmodpag="SDD") then strSQL=strSQL + "'" + fsddnibInput+"'," strSQL=strSQL + "'" +fsddbancoInput+"'," strSQL=strSQL + "'" +fsddbanco1Input+"'," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "5," else strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "NULL," strSQL=strSQL + "4," end if strSQL=strSQL + "NULL," if (fdadospessoaisInput="SIM") then strSQL=strSQL +"1" else strSQL=strSQL +"0" end if strSQL=strSQL + ")" 'response.write strsql Conn.Execute strSQL 'Conn.Close '**************************************** GRAVAR FILHOS ****************************************************++ strSQL="Select NumProposta from tblpropostas where " strSQL= strSQL + " DataInscricao='"+ tempo + "'" strSQL=strSQL + " AND TipoSocio='E' " if fnomemaridoInput<>"" then strSQL=strSQL + " AND NomeMarido='"+fnomemaridoInput+"'" end if if fnomeesposaInput<>"" then strSQL=strSQL + " AND NomeMulher='"+fnomeesposaInput+"'" end if 'Conn.Open sqlmysql Set rs = Conn.Execute(strSQL) dim numproposta numproposta=CStr(rs.Fields("NumProposta").Value) 'Conn.Close 'Conn.Open sqlmysql if ffilho1<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho1 + "'," if fdatanascimentofilho1Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho1Input,4)+"/"+ Mid(fdatanascimentofilho1Input,4,2) +"/"+Left(fdatanascimentofilho1Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho2<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho2 + "'," if fdatanascimentofilho2Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho2Input,4)+"/"+ Mid(fdatanascimentofilho2Input,4,2) +"/"+Left(fdatanascimentofilho2Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho3<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho3 + "'," if fdatanascimentofilho3Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho3Input,4)+"/"+ Mid(fdatanascimentofilho3Input,4,2) +"/"+Left(fdatanascimentofilho3Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho4<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho4 + "'," if fdatanascimentofilho4Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho4Input,4)+"/"+ Mid(fdatanascimentofilho4Input,4,2) +"/"+Left(fdatanascimentofilho4Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho5<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho5 + "'," if fdatanascimentofilho5Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho5Input,4)+"/"+ Mid(fdatanascimentofilho5Input,4,2) +"/"+Left(fdatanascimentofilho5Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho6<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho6 + "'," if fdatanascimentofilho6Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho6Input,4)+"/"+ Mid(fdatanascimentofilho6Input,4,2) +"/"+Left(fdatanascimentofilho6Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho7<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho7 + "'," if fdatanascimentofilho7Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho7Input,4)+"/"+ Mid(fdatanascimentofilho7Input,4,2) +"/"+Left(fdatanascimentofilho7Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho8<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho8 + "'," if fdatanascimentofilho8Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho8Input,4)+"/"+ Mid(fdatanascimentofilho8Input,4,2) +"/"+Left(fdatanascimentofilho8Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho9<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho9 + "'," if fdatanascimentofilho9Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho9Input,4)+"/"+ Mid(fdatanascimentofilho9Input,4,2) +"/"+Left(fdatanascimentofilho9Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if if ffilho10<>"" then strSQL= "INSERT INTO tblpropostafilhos (NumProposta,Nome,DataNasc)" strSQL=strSQL + " VALUES (" strSQL=strSQL + numproposta +"," strSQL=strSQL + "'" + ffilho10 + "'," if fdatanascimentofilho10Input<>"" then strSQL=strSQL + "'"+ Right(fdatanascimentofilho10Input,4)+"/"+ Mid(fdatanascimentofilho10Input,4,2) +"/"+Left(fdatanascimentofilho10Input,2)+"')" else strSQL=strSQL="NULL)" end if Conn.Execute strSQL end if '**********************************MULTIBANCO****************************************+ if fmodpag="MB" then 'PROCURA A 1ª REFERÊNCIA LIVRE strSQL= "Select * from tblnumrefsmultibancopropostas WHERE (DataProposta IS NULL) AND (NumProposta IS NULL) order by NumRefMultibanco ASC LIMIT 0,1" Set rs = Conn.Execute(strSQL) dim NumRefMB dim Entidade Entidade ="21098" dim Valor Valor ="40,00 €" dim RefMB NumRefMB= CStr(rs.Fields("NumRefMultibanco").Value) 'ACTUALIZA-A COM A PROPOSTA A QUE FICA ASSOCIADA strSQL = "UPDATE tblnumrefsmultibancopropostas SET " strSQL = strSQL + "NumProposta=" + numproposta + ", " strSQL = strSQL + "DataProposta = '" & tempo & "'" strSQL=strSQL + " WHERE (NumRefMultibanco = " & NumRefMB & ")" Conn.Execute strSQL 'GERA A REFERÊNCIA MB Dim R Dim s Dim Resto 'Response.Write"Numproposta= "+ NumRefMB 'R = "10611" & CStr((1545000 + NumRefMB + 4500)) & Right("00000000" & 40 * 100, 8) 'Response.write "R - " + R 's = Int(Left(R, 1)) * 51 + Int(Mid(R, 2, 1)) * 73 + Int(Mid(R, 3, 1)) * 17 + Int(Mid(R, 4, 1)) * 89 + Int(Mid(R, 5, 1)) * 38 + Int(Mid(R, 6, 1)) * 62 + Int(Mid(R, 7, 1)) * 45 + Int(Mid(R, 8, 1)) * 53 + Int(Mid(R, 9, 1)) * 15 + Int(Mid(R, 10, 1)) * 50 + Int(Mid(R, 11, 1)) * 5 + Int(Mid(R, 12, 1)) * 49 + Int(Mid(R, 13, 1)) * 34 + Int(Mid(R, 14, 1)) * 81 + Int(Mid(R, 15, 1)) * 76 + Int(Mid(R, 16, 1)) * 27 + Int(Mid(R, 17, 1)) * 90 + Int(Mid(R, 18, 1)) * 9 + Int(Mid(R, 19, 1)) * 30 + Int(Mid(R, 2, 1)) * 73 + Int(Right(R, 1)) * 3 'Response.write "s - " + Cstr(s) 'Resto = s - 97 * Int(s / 97) 'Response.write "Resto - " + Cstr(Resto) 'RefMB = CStr((1545000 + NumRefMB + 4500)) & Right("00" & (98 - Resto), 2) RefMB = CStr(100504700 + NumRefMB) 'Response.write "RefMB - " + RefMB 'GUARDA A REFMB NO LOG Wfile="C:\Inetpub\vhosts\apfn.com.pt\httpdocs\formularios\inscricoes.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(Wfile, ForAppending, True) a.WriteLine "RefMB: " & RefMB a.WriteLine "***********************************************************************" a.Close 'VAI ACTUALIZAR A PROPOSTA COM A REFERENCIA CRIADA strSQL = "UPDATE tblpropostas SET " strSQL = strSQL + "NumRefMultibanco=" + NumRefMB + ", " strSQL = strSQL + "ReferenciaMB = " & Cstr(RefMB) strSQL=strSQL + " WHERE (NumProposta = " & numproposta & " AND TipoSocio='E')" Conn.Execute strSQL 'MOSTRA PARA O ECRAN OS DADOS DE PAGAMENTO %>
<%
end if
'****************************************FECHA A LIGAÇÃO À BASE DE DADOS ***************************************+
Conn.close
Set rs=nothing
Set Conn=nothing
'***************************************************ENVIAR EMAIL COM OS DADOS *****************************************+
'Enviar email (JMail version).
dim addrlist
if femailcasaesposaInput<>"" then
addrlist=femailcasaesposaInput
end if
if femailcasamaridoInput<>"" then
if addrlist<>"" then
addrlist=addrlist+","+femailcasamaridoInput
else
addrlist=femailcasamaridoInput
end if
end if
if femailtrabesposaInput<>"" then
if addrlist<>"" then
addrlist=addrlist+","+femailtrabesposaInput
else
addrlist=femailtrabesposaInput
end if
end if
if femailtrabmaridoInput<>"" then
if addrlist<>"" then
addrlist=addrlist+","+femailtrabmaridoInput
else
addrlist=femailtrabmaridoInput
end if
end if
'MARIDO
inscricao = " Exmo(a) Senhor(a) " & vbCrLf _ & "Recebemos com sucesso a sua inscrição em www.apfn.com.pt." & vbCrLf if fmodpag="SDD" then body=body & "Lembramos que a inscrição só será válida após o pagamento da quota. " & vbCrLf body=body & " Como optou pelo pagamento por Débito Directo a APFN irá proceder seguindo as suas indicações. " & vbCrLf body=body & "Será enviado um email de confirmação, assim que for recebida a confirmação de pagamento, no prazo máximo de duas semanas. " else body=body & "Lembramos que a inscrição só será válida após o pagamento da quota e jóia. " & vbCrLf body=body & "Como optou pelo pagamento por Multibanco deverá usar os seguintes dados: " & vbCrLf body=body & "Entidade: 21098 " & vbCrLf body=body & "Referencia: "+ CStr(RefMB) + " " & vbCrLf body=body & "Valor: 40,00€ " & vbCrLf body=body & " Será enviado um email de confirmação, assim que for recebida a confirmação de pagamento, no prazo máximo de uma semana. " end if body=body & " Confirme os dados que introduziu, caso exista algum erro contacte " & "direccao@apfn.com.pt" & ": " body=body & inscricao body=body & " Temos ao seu dispor através do nosso site www.apfn.com.pt" body=body & " toda a informação sobre as mais de 700 empresas que dão facilidades aos nossos sócios. " & vbCrLf _ & " Caso pretenda alguma informação contacte: " & vbCrLf _ & "secretaria@apfn.com.pt" set mailObj = Server.CreateObject("JMail.Message") mailObj.logging=true mailObj.Silent = true mailObj.MailServerUsername="webmaster@apfn.com.pt" mailObj.MailServerPassword = "adriana" mailObj.From = fromAddr mailObj.ReplyTo = fromAddr 'mailObj.ReturnReceipt=TRUE mailObj.Subject = subject 'addr="webmaster@apfn.com.pt" addrList1 = Split(addrlist, ",") for each addr in addrList1 mailObj.AddRecipient Trim(addr) next mailObj.ContentType = "text/html" mailObj.Body = body if not mailObj.Send("127.0.0.1") then %>
<% end if %>
<% else %>
| ||||||||
|
|