|
|
|
<% Response.Buffer = True ' load object Dim load Set load = new Loader ' calling initialize method load.initialize Dim fnomemaridoInput fnomemaridoInput = load.getValue("Nome_Marido") Dim fprofissaomaridoInput fprofissaomaridoInput = load.getValue("Profissao_Marido") Dim fdatanascimentomaridoInput fdatanascimentomaridoInput = load.getValue("Data_Nascimento_Marido") Dim fbimaridoInput fbimaridoInput = load.getValue("BI_Marido") Dim fbicontmaridoInput fbicontmaridoInput = load.getValue("BI_Marido_cont") Dim fbimaridodataInput fbimaridodataInput = load.getValue("Data_BI_Marido") Dim fbimaridoarquivoInput fbimaridoarquivoInput = load.getValue("BI_Arquivo_Marido") Dim fcontribuintemaridoInput fcontribuintemaridoInput = load.getValue("Contribuinte_Marido") Dim femailcasamaridoInput femailcasamaridoInput = load.getValue("email_marido_casa") Dim femailtrabmaridoInput femailtrabmaridoInput = load.getValue("email_marido_trab") Dim ftelemovelmaridoInput ftelemovelmaridoInput = load.getValue("Telemovel_Marido") Dim ftelefonemaridotrabInput ftelefonemaridotrabInput = load.getValue("Telefone_Marido_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 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") ' destroying load object Set load = Nothing %> <% if (fnomemaridoInput<>"") then '*************************************+++FAZ BACKUP DOS DADOS PARA O DISCO ***********************+++ Const ForReading = 1, ForWriting = 2, ForAppending = 8 dim inscricao 'MARIDO inscricao = 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 '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 '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: " & fsddbanco1nput '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 COOPERANTE:" 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,Morada1,Morada2,CodPostal,DetalhePostal,Localidade," strSQL=strSQL + "TelefoneCasa,Fax,NIB,TitularMF,TitularConta,Morada1Titular,Morada2Titular,CodPostalTitular,DetPostalTitular,LocalidadeTitular,ModalidadePagamento," strSQL=strSQL + "DataPagamento)" strSQL=strSQL + " VALUES (" strSQL=strSQL + "'C'," 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 + "'" +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 (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" strSQL=strSQL + ")" 'response.write strsql Conn.Execute strSQL 'Conn.Close strSQL="Select NumProposta from tblpropostas where " strSQL= strSQL + " DataInscricao='"+ tempo + "'" strSQL=strSQL + " AND TipoSocio='C' " if fnomemaridoInput<>"" then strSQL=strSQL + " AND NomeMarido='"+fnomemaridoInput+"'" end if 'Conn.Open sqlmysql Set rs = Conn.Execute(strSQL) dim numproposta numproposta=CStr(rs.Fields("NumProposta").Value) 'Conn.Close 'Conn.Open sqlmysql '**********************************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 ="30,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" & 30 * 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='C')" 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 femailcasamaridoInput<>"" then if addrlist<>"" then addrlist=addrlist+","+femailcasamaridoInput else addrlist=femailcasamaridoInput end if end if if femailtrabmaridoInput<>"" then if addrlist<>"" then addrlist=addrlist+","+femailtrabmaridoInput else addrlist=femailtrabmaridoInput end if end if referers = Array("www.apfn.com.pt", "apfn.com.pt") mailComp = "JMail" smtpServer = "127.0.0.1" fromAddr = "direccao@apfn.com.pt" subject = "Confirmação de inscrição como Sócio Cooperante em www.apfn.com.pt" body = " 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. " & 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: 30,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 & " 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 %>
| |||||||||||||
|
|