<% Dim Accion : Accion = Request.QueryString("ac") Select Case Accion Case "enviarcorreo" Call EnviarCorreo() End Select %> ::: Grupo Mítica :::

Organización de Eventos

Diseño y Montaje de Stands

Audiovisuales

Artista y Espectáculos

Azafatas

Infografía y Multimedia

Contacto

Mítica Comunicación

Tfno. 91 542 73 56 / Email

c/ El Buen Suceso 14, 28008 MADRID

Ver plano de situacion

CONTACTO

¡Contactenos ahora y solicitenos presupuesto!

<%if Request.QueryString("envio") = "" then%>

Nombre	Apellidos

Empresa	Cargo

Localidad	Pais

Tfno	Email

Asunto

Mensaje

<%else if Request.QueryString("envio") <> "error" then %>

Su mensaje ha sido enviado correctamente!

Atenderemos su consulta lo antes posible. Muchas gracias por su tiempo e interés.

< Volver Atrás

<% else %>

Se ha producido un error en el envío del mensaje, por favor, intentelo de nuevo en unos minutos.

Disculpe las molestias.

< Volver a intertarlo ahora <% end if end if%>

Mítica Comunicación S.L. / c/ El Buen Suceso 14, 28008 MADRID
Tfno. 916.449.003 / Email mitica@mitica.net / CIF B-82412859

<% 'Funciones '************************************ Sub EnviarCorreo() NombreEmpresa = "Grupo Mitica Comunicacion" EmailRemitente = "mitica@mitica.net" ServidorEnvio = "smtp.mitica.net" Asunto = "Formulario desde www.grupomitica.com" PuertoSMTP = 25 Dim EmailReceptor(1) EmailReceptor(0) = "mitica@mitica.net" EmailReceptor(1) = "djm@mitica.net" formatoEnvio = 1 MensajeFinal = FunDevuelveCorreoGenerado() envioCorrecto = FunEnvioCorreoASPMail(NombreEmpresa,EmailRemitente,EmailReceptor,Asunto,MensajeFinal,ServidorEnvio,formatoEnvio,PuertoSMTP) if envioCorrecto then Response.Redirect "contacto.asp?envio=correcto" else Response.Redirect "contacto.asp?envio=error" end if End Sub Function FunDevuelveCorreoGenerado() CadenaHTML = "" ' 'Cabezera del Email. ' CadenaHTML = "" & Chr(10) ' CadenaHTML = CadenaHTML & "" ' CadenaHTML = CadenaHTML & "" ' CadenaHTML = CadenaHTML & "" & Chr(13) & Chr(10) 'Confeccionar una tabla html bonita para el email CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & ":::MENSAJE DESDE LA WEB:::" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Nombre del remitente: " & Replace(Request.Form("nombre"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Apellidos: " & Replace(Request.Form("apellidos"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Email: " & Replace(Request.Form("email"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Tfno de contacto: " & Replace(Request.Form("tfno"),"'","''")& Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Empresa: " & Replace(Request.Form("empresa"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Cargo: " & Replace(Request.Form("cargo"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Localidad: " & Replace(Request.Form("localidad"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Pais: " & Replace(Request.Form("pais"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Asunto:" & Replace(Request.Form("asunto"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Mensaje: " & Replace(Request.Form("mensaje"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) FunDevuelveCorreoGenerado = CadenaHTML End Function %>