<%@ Codepage=65001 %> <% ' Set up email values '*************************************************************************************** ' Paulo é aqui onde alteras o Assunto e o Email do responsavel (para quem vai a inscrição) sendersAssunto="Imigração e Desenvolvimento - Inscrição" sendersEmail="rita.azevedo@apdr.pt" '*************************************************************************************** sendersSent=0 sendersSent=request("enviado") sendersName=request("nome") sendersInstituicao=request("instituicao") sendersProf=request("profissao") sendersContri=request("contribuinte") sendersMorada=request("morada") sendersEmail2=request("email") sendersInscricao=request("inscricao") sendersRecibo=request("recibo") sendersInst=request("instituicao") sendersInst1=request("nome_inst") sendersInst2=request("morada_inst") sendersInst3=request("cont_inst") if sendersRecibo="recibo em nome de uma instituição" then message= ""& vbcrlf & sendersAssunto & vbcrlf & vbcrlf & vbcrlf & "Nome: "& sendersName & vbcrlf & "Instituição: " & sendersInstituicao & vbcrlf &"Profissão: "&sendersProf & vbcrlf & "N.º Contribuinte: " & sendersContri &vbcrlf & "Morada: " & sendersMorada & vbcrlf& "Email: " & sendersEmail2 & vbcrlf & "Inscrição: " & sendersInscricao & vbcrlf & "Recibo: " & sendersRecibo &vbcrlf & vbcrlf &"Nome da Instituição: " & sendersInst1 & vbcrlf & "Morada da Instituição: " & sendersInst2 & vbcrlf & "N.º contribuinte da Instituição: " & sendersInst3 else message= ""& vbcrlf & sendersAssunto & vbcrlf & vbcrlf & vbcrlf & "Nome: "& sendersName & vbcrlf & "Instituição: " & sendersInstituicao & vbcrlf &"Profissão: "&sendersProf & vbcrlf & "N.º Contribuinte: " & sendersContri &vbcrlf & "Morada: " & sendersMorada & vbcrlf& "Email: " & sendersEmail2 & vbcrlf& "Inscrição: " & sendersInscricao & vbcrlf& "Recibo: " & sendersRecibo End if if sendersSent="1" then Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.interacesso.pt" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 iConf.Fields.Update Set oMail.Configuration = iConf oMail.To = sendersEmail oMail.From = "webmaster@apdr.pt" oMail.Subject = "Workshop APDR: "& sendersAssunto oMail.TextBody = message'"Body" 'oMail.HTMLBody =strBody oMail.Send Set iConf = Nothing Set Flds = Nothing ' show thankyou page response.Charset="utf-8" Msg ="
A Sua Inscrição foi Enviada com Sucesso!
Em breve receberá um e-mail de confirmação.
" end if %> <% if sendersSent=0 then %>
Nome:
Instituição:
Profissão:
N.º contribuinte:
Morada:
Email:
Inscrição:
Normal
Estudante: (com menos de 33 anos)
Recibo:
Recibo em Nome do Próprio
Recibo em Nome de uma Instituição
Nome da instituição:
Morada completa da instituição:
Nº de contribuinte da instituição:
<% Else Response.write "
"&Msg&"
" sendersSent=0 End if %>