<% dim objEmail const EMAIL_HOST = "LocalHost" const EMAIL_FROMNAME = "Mosquito Sancineto" const EMAIL_FROMEMAIL = "info@mosquitosancineto.com" strTo= "lucio@mosquitosancineto.com" const EMAIL_SUBJECT = "Contacto desde la web Improvisacion Mosquito" msjerror="" if len(request("enviar"))>0 then nombre = Request.Form("nombre") telefono = Request.Form("telefono") email = Request.Form("email") comentario = Request.Form("comentario") cuerpo = cuerpo & "

" cuerpo = cuerpo & " " cuerpo = cuerpo & "Nombre: " & nombre &" " cuerpo = cuerpo & "telefono: " & telefono &" " cuerpo = cuerpo & "Email: " & email & " " cuerpo = cuerpo & "Consulta: " & comentario &" " cuerpo = cuerpo & "

" set objEmail = Server.CreateObject("Persits.MailSender") objEmail.Host = EMAIL_HOST objEmail.FromName = EMAIL_FROMNAME objEmail.From = EMAIL_FROMEMAIL objEmail.AddAddress strTo objEmail.Priority = 3 objEmail.Subject = EMAIL_SUBJECT objEmail.IsHTML = true objEmail.Body = cuerpo on error resume next err.Clear objEmail.Send if err.Number = 0 then fncEmail = "" else fncEmail = err.number & ": " & err.Description end if set objEmail = nothing end if %>

CONTACTO IMPROVISACION MOSQUITO Compańía Argentina de Improvisación Lavalle 1506. Bs As. Argentina Teléfono:(54-11) 4373.8100 Celular:(54-9-11) 5026.8494 info@mosquitosancineto.com www.mosquitosancineto.com <%if len(request("enviar"))=0 or existe = "si"then%> Utilice el siguiente formulario para realizar consultas. Le responderemos a la brevedad. <%else%> <%end if%> <%if len(request("enviar"))=0 or existe = "si"then%> Nombre y Apellido " size="31"> Telefono(s) " size="31"> e-mail " size="31"> Comentario                                     <%else%> Muchas gracias por escribirnos. En breve nos pondremos en contacto <%end if%> Contacto: info@mosquitosancineto.com Tel: 15 5026 8494 www.mosquitosancineto.com