Informacion :

Avda de Pescia nº 13, Nerja

C/Casas Nuevas nº 44, Torrox Costa

MALAGA

Telefono Nerja: 95252 0166

Telefono Torrox: 95253 1880

Email: info@autoescuelanerja.com

Siguenos en: Facebook, Twitter

<% f_nombre = limpia(request.form("nombre")) if f_nombre <> "" then thesql = "select max(id_contacto) as contacto from contacto" set el_contacto = basedb.execute(thesql) if isnull(el_contacto("contacto")) then id_contacto = 1 else id_contacto = el_contacto("contacto") + 1 end if f_mail = limpia(request.form("mail")) f_telefono = limpia(request.form("telefono")) f_mensaje = limpia(request.form("mensaje")) thesql = "insert into contacto values ('"&id_contacto&"', '"&f_nombre&"', '"&f_mail&"', '"&f_telefono&"', '"&f_mensaje&"')" basedb.execute(thesql) if err.number = 0 then %>

Mensaje recibido correctamente, gracias

<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "192.168.1.198" ' Specify a valid SMTP server Mail.From = "info@autoescuelanerja.com" ' Specify sender's address Mail.FromName = "Autoescuela Nerja" ' Specify sender's name Mail.username = "coco" Mail.password = "03101980Anul0818" Mail.AddAddress "sirco2@gmail.com" Mail.Addbcc "pablo@autoescuelanerja.com" mail.addreplyto "info@autoescuelanerja.com" Mail.Subject = "El usuario "&f_nombre&" quiere ponerse en contacto" Mail.Body = "el usuario "&f_nombre&" con mail: "&f_mail&", con el telefono:"&f_telefono&", ha escrito el siguiente mensaje: "&f_mensaje&"" Mail.IsHTML = true On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error Mandando Email" & Err.Description end if else %>

hemos tenido un pequeño problema, por favor vuelvalo a intentar. <%=err.description%>

<% end if %> <% else %>

Contacta con nosotros

<% end if %>