|
<%
' email=request.form("email")
' if email <> "email" then
'
'' email=request.form("email")
' Set Mail = Server.CreateObject("Persits.MailSender")
' Mail.Host = "mail.falcomkiteboarding.com"
' Mail.Username = "info@falcomkiteboarding.com"
' Mail.Password = "Falcom2009"
' Mail.From = "info@falcomkiteboarding.com"
' Mail.FromName = "FalcomKiteboarding.com"
' Mail.AddAddress "webmaster@artmediaonline.net"
' Mail.Subject = "Subscripción para newsletter"
' cuerpomail = "email " & email
' Mail.Body = cuerpomail
' Mail.IsHTML = True'
'
' On Error Resume Next
' Mail.Send
' If Err <> 0 Then
' Response.Write "Ha ocurrido algun error. Por favor, revise los datos e inténtelo de nuevo." ' & Err.Description
' else
'' Response.Write "Los datos se han enviado correctamente. Gracias por contactar."
' End If
' end if
%>
|
|
|
|