II Congresso APFN - Famílias Numerosas: Garantia de Futuro

<% if (Request.Form("Nome")<>"") then dim Conn dim rs dim counter dim sqlmysql dim strSQL sqlmysql="Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=IICFN_apfn; Uid=apfn; Pwd=1999;" set Conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") Conn.Open sqlmysql strSQL = "INSERT INTO tblimprensa (datainscricao,nome,orgao,telefone,email)" strSQL=strSQL + " VALUES (" dim tempo tempo=CStr(Year(Now)) + "/"+ CStr(Month(Now)) + "/" + CStr(Day(Now)) + " " + formatdatetime(now(), 4)+":"+CStr(Second(Now)) strSQL=strSQL + "'"+tempo + "'," strSQL=strSQL + "'"+ CStr(Replace(Request.Form("Nome"), "'", "''")) + "'," strSQL=strSQL + "'"+ CStr(Replace(Request.Form("orgao_cs"), "'", "''")) + "'," strSQL=strSQL + "'"+ Request.Form("telefone") + "'," strSQL=strSQL + "'"+ Request.Form("email") + "'" strSQL=strSQL + ")" Conn.Execute strSQL Conn.close Set rs=nothing Set Conn=nothing referers = Array("www.apfn.com.pt", "apfn.com.pt") mailComp = "JMail" smtpServer = "127.0.0.1" fromAddr = "apfn@apfn.com.pt" toAddr = "silvia.mangerona@apfn.com.pt" subject = "Acreditação de jornalista para o 2º Congresso de Famílias Numerosas" body = "

Cara Sílvia recebemos a seguinte acreditação para o 2º Congresso de Famílias Numerosas:

" & vbCrLf body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "

Nome:	"& Request.Form("Nome") & "
Orgão de comunicação social:	"+ Request.Form("orgao_cs") + "
telefone:	"& Request.Form("telefone") & "
email:	"& Request.Form("email") & "

" & vbCrLf body=body & "
Obrigado." body=body & "" & vbCrLf 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.Subject = subject mailObj.AddRecipient Trim(toAddr) mailObj.ContentType = "text/html" mailObj.Body = body if not mailObj.Send("127.0.0.1") then else end if dim page page="acreditacao_sucesso.htm" Response.Redirect (page) Response.End end if %>

ACREDITAÇÃO NO CONGRESSO

“FAMÍLIAS NUMEROSAS: GARANTIA DE FUTURO”