<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Documento sin título <% if request.form ("submit") <> "" then Set mailobj = Server.CreateObject("CDONTS.NewMail") nom = request.form("nombre") dom = request.form("domicilio") cpp = request.form("cp") ciu = request.form("ciudad") prov = request.form("provincia") tel = request.form("telefono") ema = request.form("email") comentario= request.form("comentario") '''''''''''''''''' texto = texto & "Nombre: " & nom & chr(13) texto = texto & "Domicilio : " & dom & chr(13) texto = texto & "Código Postal: " & cpp & chr(13) texto = texto & "Ciudad: " & ciu & chr(13) texto = texto & "Provincia: " & prov & chr(13) texto = texto & "Teléfono: " & tel & chr(13) texto = texto & "E-mail: " & ema & chr(13) texto = texto & "Sugerencias y consultas: " & comentario & chr(13) mailobj.from = "info@gardenandarax.com" mailobj.subject = "informacion web" mailobj.to = "info@gardenandarax.com" mailobj.body = texto mailobj.send set mailobj=nothing 'EnviarMail "info@giargar.com","internet@divabercom.com","Información",texto end if %>
 
 
 
 
 
 
 
 
 
 
 
 
 
Nombre/Empresa:
   
 
Domicilio:
   
 
Código Postal:
   
 
Población:
   
 
Provincia:
   
 
Teléfono:
   
 
Email:
   
 
Sugerencias          y consultas:
 
 
  Política de privacidad