<% if (request.form("empresa")<>"") then set oConn=server.createobject("ADODB.Connection") Set objRst = Server.CreateObject("ADODB.RecordSet") oConn.ConnectionString = "metaamti.com.portalmetaamti" oConn.Open 'adOpenDynamic objRst.CursorType = 2 'adLockOptimistic objRst.LockType = 3 objRst.Open "formularios", oConn objRst.AddNew objRst.Fields("tipo")=0 objRst.Fields("Contacto")=Request.form("nombreApellido") objRst.Fields("Empresa")=Request.form("empresa") objRst.Fields("Actividad")=Request.form("actividad") objRst.Fields("Web")=Request.form("web") objRst.Fields("Telefono")=Request.form("telefono") objRst.Fields("Fax")=Request.form("fax") objRst.Fields("Email")=Request.form("email") objRst.Fields("Direccion")=Request.form("direccion") objRst.Fields("Poblacion")=Request.form("poblacion") objRst.Fields("Provincia")=Request.form("provincia") objRst.Fields("Cp")=Request.form("cp") objRst.Fields("Pais")=Request.form("pais") objRst.Fields("Consulta")=Request.form("consulta") objRst.Fields("comentarios")=Request.form("comentarios") objRst.Fields("Fecha")=Now() objRst.Update 'Enviar l'Email content = content & "

Su consulta ha sido enviada a Metaamti." content = content & "


" content = content & "

Somos expertos en plantas y hornos fusión" content = content & "

de aluminio, plantas de extrusión" content = content & "

de aluminio y plantas de decapado " content = content & "

__________________________________________" content = content & "

Metaamti - www.metaamti.com" content = content & "

APLICACIONES MECÁNICAS Y TECNOLOGÍA INDUSTRIAL S.L." content = content & "

Metall, 5 Pol. Ind. La Ferreria - Apart. Correos,56 E" content = content & "

08110 Moncada i Reixac - Barcelona" content = content & "

Correo-e: info@metaamti.com" content = content & "

Tel: 902 430 029 Fax: 93 564 66 54" content = content & "

_____________________________________________" Set Mail = Server.CreateObject("Persits.MailSender") mailto=Request.form("Email") Mail.Host = "smtp.metaamti.com" Mail.Port = 25 Mail.Username="abb686c" Mail.Password="web006" Mail.From = "web@metaamti.com" Mail.FromName = "Consulta Web" ' Opcional , nombre Mail.AddAddress mailto Mail.Subject = "Formulario de Contacto general de Metaamti" Mail.Body = content Mail.IsHTML = True On Error Resume Next Mail.Send content = "

Se ha enviado una Consulta " content = content & "

NombreApellido : " & Request.form("nombreApellido") content = content & "

Empresa : " & Request.form("empresa") content = content & "

Actividad : " & Request.form("actividad") content = content & "

Web : " & Request.form("web") content = content & "

Telefono : " & Request.form("telefono") content = content & "

Fax : " & Request.form("fax") content = content & "

Email : " & Request.form("email") content = content & "

Direccion : " & Request.form("direccion") content = content & "

Poblacion : " & Request.form("poblacion") content = content & "

Provincia : " & Request.form("provincia") content = content & "

Cp : " & Request.form("cp") content = content & "

Pais : " & Request.form("pais") content = content & "

Consulta :

" & Request.form("consulta") content = content & "

Comentarios Adicioneles : " & Request.form("comentarios") Set Mail2 = Server.CreateObject("Persits.MailSender") mailto="web@metaamti.com" Mail2.Host = "smtp.metaamti.com" Mail2.Port = 25 Mail2.Username="abb686c" Mail2.Password="web006" Mail2.From = "web@metaamti.com" Mail2.FromName = "Consulta Web" Mail2.AddAddress mailto Mail2.Subject = "Formulario de Consulta Empresas" Mail2.Body = content Mail2.IsHTML = True On Error Resume Next Mail2.Send oConn.Close set oConn=Nothing response.redirect("gracias.htm") response.end end if %> Metaamti. Formulario de Contacto - Metaamti -


REQUEST FOR INFORMATION - COMPANIES

Contact person* :
Company*:
Activity:
Website:
Telephone*:
Fax:
E-mail*:
Address*:
Town*:
Province:
Postal Code:
Country :
Are interested in the product:
Comments / additional suggestions
Data protection:
  - Enviar a Metaamti -
APLICACIONES MECÁNICAS Y
  TECNOLOGÍA INDUSTRIAL S.L.

Metall, 5 Pol. Ind. La Ferreria - Apart. Correos,56 E
08110 Montcada i Reixac - Barcelona - SPAIN - EU
Tel: 902 430 029 Fax: 93 564 66 54
Correo-e: info@metaamti.com
   
 

C/ Metall, 5 Pol. Ind. La Ferreria - Montcada i Reixac - Barcelona - Spain
Tel: 0034 935646612 Fax: 0034 93 5646654