%
dim s
dim nombre
dim email
dim conec
dim rs
if len(request.querystring("s"))>0 then
s=request.querystring("s")
else
s="inicio.asp"
end if
if len(request.form)>0 then
nombre=request.form("nombre")
email=request.form("email")
conec="Provider=Microsoft.Jet.Oledb.4.0;Data Source=D:\xvrt\paintballemporda.com\data\bd.mdb"
set rs=server.createobject("adodb.recordset")
rs.open "SELECT * FROM NEWSLETTER",conec,2,3
rs.addnew
rs("nombre")=nombre
rs("email")=email
rs.update
rs.close
set rs=nothing
cuerpo="Nombre: " & nombre & " " &_
"Email: " & email & " "
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.paintballemporda.com"
Mail.Port = 25
Mail.From = "info@paintballemporda.com"
' Mail.From = "dimenet@dimenet.es"
Mail.FromName = "Newsletter desde la web"
Mail.AddAddress "info@paintballemporda.com"
' Mail.AddAddress "dimenet@dimenet.es"
Mail.Subject = "Newsletter desde la web"
Mail.IsHTML = True
Mail.Body = cuerpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error, porfavor vuélvalo a intentar " & Err.Description
response.end
End If
' Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
' Mailer.ContentType="text/html"
' Mailer.FromName = "Paintball"
' Mailer.FromAddress = "info@paintballemporda.com"
' Mailer.Subject = "Newsletter desde la web"
' Mailer.BodyText = cuerpo
' Mailer.AddRecipient request.form("nombre"), request.form("email")
' Mailer.AddBCC "Info Paintball","paintball2@bcnserver.com"
' Mailer.RemoteHost = "smtp.paintballemporda.com"
' Mailer.SendMail
response.write ""
end if
%>