<% if (Trim(request.form("Submit")) = "Enviar") or (Trim(request.form("Submit.x")) <> "") then EnviarEmail end if Private Sub EnviarEmail Dim Email Dim Body Body = "Este es un email enviado por el sitio www.revistadosis.com.ar" & vbCrLF & vbCrLF Body = Body & "Han solicitado ser contactados" & vbCrLF & vbCrLF Body = Body & "Persona a contactar:" & vbCrLF Body = Body & Request.Form("Nombre") & " " & Request.Form("Apellido") & vbCrLF Body = Body & "Teléfono: " & Request.form("Telefono")& vbCrLF & vbCrLF Body = Body & "E-mail: " & Request.form("email")& vbCrLF & vbCrLF Body = Body & "Motivo: " & "SOLICITUD DE SUSCRIPCION A REVISTA DOSIS" & vbCrLF & vbCrLF Body = Body & "Razon Social: " & Request.Form("RazonSocial") & vbCrLF & vbCrLF Body = Body & "Direccion: " & Request.Form("Direccion") & vbCrLF & vbCrLF Body = Body & "Codigo Postal: " & Request.Form("CodPos") & vbCrLF & vbCrLF Body = Body & "Localidad: " & Request.Form("Localidad") & vbCrLF & vbCrLF Body = Body & "Provincia: " & Request.Form("Provincia") & vbCrLF & vbCrLF Set sM = Server.CreateObject("aspSmartMail.SmartMail") sM.Server = "www.focusmedia.com.ar" sM.ContentType = "text" sM.ServerTimeOut = 120 sM.SenderName = "www.revistadosis.com.ar" sM.SenderAddress = "dosis@focusmedia.com.ar" sM.Recipients.Add "mreilly@focusmedia.com.ar", "Maria Belen Reilly" sM.CCs.Add "suscripciones@focusmedia.com.ar", "Suscripciones Focus Media S.A." sM.Subject = "Mensaje desde www.revistadosis.com.ar" sM.Body = Body ' Mando el email sM.SendMail Set sM = Nothing End Sub %> Revista Dosis | Actualidad Farmacéutica
1
Encuesta
1
¿Consulta dosis online?
Si
No

SUSCRIPCIÓN
 
<% if (Trim(request.form("Submit")) = "Enviar") or (Trim(request.form("Submit.x")) <> "") then %>
Gracias!!! Hemos registrado sus datos
Nuestro equipo se pondrá en contacto con usted inmediatamente para enviarle DOSIS todos los meses.
<% else %>
Complete los siguientes datos y presione el botón Enviar.
Nuestro equipo se pondrá en contacto con usted inmediatamente para enviarle DOSIS todos los meses.
Apellido
Nombre
  
Razón Social
  
Teléfono
  
E-mail
  
Dirección
  
Código Postal
  
Localidad
  
Provincia
  


<% end if %>
1

California 2082 p. 1º Unidad 120 • C1289AAP • Buenos Aires • Argentina
Tel/Fax: (5411) 4878-FOCUS (3628) • info@focusmedia.com.ar