%@LANGUAGE="VBSCRIPT"%> <%if Request.form<>"" then if Trim(Request("nombre"))<>"" then if Instr(Request("telefono"),"")>0 then MiHora = CStr(Time) MiFecha = CStr(Date) nombre=Trim(Request("nombre")) Set Mail = Server.CreateObject ("Persits.MailSender") Mail.Host = "smtp.fotodepilacionbcn.com" 'mail.cafesgener.com ' Specify a valid SMTP server Mail.Username = "obx498c" Mail.Password = "fotoTEMP2000" Mail.From = "temp@fotodepilacionbcn.com" 'info@cafesgener.com ' Specify sender's address Mail.FromName = nombre ' Specify sender's name Mail.AddAddress "info@fotodepilacionbcn.com", "AnotherKoncept" ' a on o envio Mail.Subject = nombre & " Realizando Contacto" Mail.Body = "Nombre: " & Trim(Request("nombre")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) &_ "Teléfono: " & Trim(Request("telefono")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) &_ "E-Mail: " & Trim(Request("mail")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) &_ "Dirección: " & Trim(Request("calle")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) &_ "Comentario: " & Trim(Request("comentario")) On Error Resume Next Mail.Send If Err = 0 Then ' Message sent sucessfully %> <%'response.redirect("index.htm") Set Mail = Nothing else ' si hi han errors d'enviament %> <%' Message send failure Set Mail = Nothing end if else%> <%end if%> <%else%> <%end if%> <%end if%>