<%
if Request.QueryString("Subscrever") = "true" AND request.form("submit")="Subscrever" then
introducao_dados
else
formulario_introducao
end if
'if request.QueryString("remover") = "true" AND request.form("remover")="Remover Newsletter" then
'response.redirect("apagar.asp")
'end if
sub introducao_dados()
'Dim conn,conn2,rs
'conn="DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database/newsletter.mdb")
'set conn2=server.CreateObject("ADODB.Connection")
'Set rs = Server.CreateObject("ADODB.Recordset")
'sqlstmt = "INSERT INTO newsletter (nome,email,papeleiras,bancos,carrinhos,contentores,suportes,semienterrados,novidades,reciclagem,data) VALUES('" & Trim(request.form("nome")) & "','" & Trim(request.form("email")) & "','" & request.form("campo1") & "','" & request.form("campo2") & "','" & request.form("campo3") & "','" & request.form("campo4") & "','" & request.form("campo5") & "','" & request.form("campo6") & "','" & request.form("campo7") & "','" & request.form("campo8") & "', '" & now() & "')"
'rs.Open sqlstmt,conn,1,2
'set rs = nothing
'set conn2 = nothing
Dim objMail,nome,email,checkbox1,Checkbox2,Checkbox3,Checkbox4,Checkbox5,Checkbox6,Checkbox7,Checkbox8
nome = Trim(request.form("nome"))
email = Trim(request.form("email"))
Checkbox1 = Trim(request.form("campo1"))
Checkbox2 = Trim(request.form("campo2"))
Checkbox3 = Trim(request.form("campo3"))
Checkbox4 = Trim(request.form("campo4"))
Checkbox5 = Trim(request.form("campo5"))
Checkbox6 = Trim(request.form("campo6"))
Checkbox7 = Trim(request.form("campo7"))
Checkbox8 = Trim(request.form("campo8"))
Set objMail = Server.CreateObject("CDO.Message")
'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
'atualiza a configuração do CDOSYS para o envio do e-mail
Set objMail.Configuration = objCDOSYSCon
objMail.From ="celpur.sede@mail.telepac.pt"
objMail.To = "celpur.sede@mail.telepac.pt"
objMail.Subject="Newsletter"
objMail.HtmlBody = "Nome: " & " " & " " & nome & "
" & "
" & "email: " & " " & " " & email & "
" & "
" & "
Produtos que gostaria de receber novidades:" & "
" & "
" & Checkbox1 & "
" & "
" & Checkbox2 & "
" & "
" & Checkbox3 & "
" & "
" & Checkbox4 & "
" & "
" & Checkbox5 & "
" & "
" & Checkbox6 & "
" & "
" & Checkbox7 & "
" & "
" & Checkbox8
objMail.Send
Set objMail = nothing
Set objCDOSYSCon = Nothing
response.redirect("subscrever.asp")
End sub
sub formulario_introducao%>
 |
A nossa NewsLetter vai levar até si o que realmente lhe interessa.Preencha o Formulário que se segue e receberá em primeira mão (Via E-mail) todas
as novidades de novos produtos da Celpur.
Preencha o formulário em baixo e a sua subscrição será
recebida no nosso Departamento.
|