<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% strSQL = "Select Max(idNoticia) From tblNoticias where chrEstado = 'A'" vNoticia = ObtenerDatos(strSQL) If IsArray(vNoticia) Then strSQL = "Select idNoticia, strNoticia, strTextoNoticia from tblNoticias Where idNoticia = " & vNoticia(0,0) vNoticia = ObtenerDatos(strSQL) End If %> <% if request.Form("nombres") <> "" then nombres = Replace(Replace(Request.Form("nombres"),chr(34),"'"), ";", "_") apellidos = Replace(Replace(Request.Form("apellidos"),chr(34),"'"), ";", "_") email = Replace(Replace(Request.Form("email"),chr(34),"'"), ";", "_") empresa = Replace(Replace(Request.Form("empresa"),chr(34),"'"), ";", "_") direccion = Replace(Replace(Request.Form("direccion"),chr(34),"'"), ";", "_") ciudad = Replace(Replace(Request.Form("ciudad"),chr(34),"'"), ";", "_") pais = Replace(Replace(Request.Form("pais"),chr(34),"'"), ";", "_") telefono = Replace(Replace(Request.Form("telefono"),chr(34),"'"), ";", "_") info = Replace(Replace(Request.Form("info"),chr(34),"'"), ";", "_") medio = Replace(Replace(Request.Form("medio"),chr(34),"'"), ";", "_") strFechaActual = Year(Date) & "/" & Right("0" & Month(Date),2) & "/" & Right("0" & Day(Date),2) strSQL = "INSERT INTO tblContactos (strNombres, strApellidos, strEmail, strTelefono, strDireccion, strCiudad, strPais, strMedioContacto, strComentarios, dtFechaRegistro) values ('" & nombres & "', '" & apellidos & "', '" & email & "', '" & telefono & "', '" & direccion & "', '" & ciudad & "', '" & pais & "', '" & medio & "', '" & info & "', '" & strFechaActual & "')" 'response.Write(strSQL) EjecutarInstruccion strSQL SMTPServer = "127.0.0.1" SMTPServer = "mail.neust.com.co" SMTPPort = 25 'SMTPPort = 2025 ToName = "Juan Neustadtel y Cía S.A." ToAddress = "info@neust.com.co" Subject = "Contacto neust.com.co" MsgBody = "

Contacto desde su sitio web

" MsgBody = MsgBody & "

Nombres: " & nombres &"
" MsgBody = MsgBody & "Apellidos: " & apellidos &"
" MsgBody = MsgBody & "E-mail: " & email &"
" MsgBody = MsgBody & "Empresa: " & empresa &"
" MsgBody = MsgBody & "Dirección: " & direccion &"
" MsgBody = MsgBody & "Ciudad: " & ciudad &"
" MsgBody = MsgBody & "País: " & pais &"
" MsgBody = MsgBody & "Teléfono: " & telefono &"

" MsgBody = MsgBody & "

Información requerida: " & info &"

" MsgBody = MsgBody & "

Medio preferido de contacto: " & medio &"

" Set objMessage =Server.CreateObject("CDO.Message") objMessage.Subject = Subject objMessage.From = email objMessage.To = ToAddress objMessage.HTMLBody = MsgBody objMessage.Send strMensaje="gracias" End if %> Juan Neustadtel y Cia. S.A. - Maquinaria y material de empaque para la industria alimenticia
Juan Neustadtel Juan Neustadtel y Compañía S.A.
La empresa productos Equipos usados Equipos en stock Servicios Noticias Contacto Regreso al inicio
 

Sede Principal - Medellín
Cra. 48 No. 48 Sur– 75, Of. 135
Centro Múltiple Las Vegas
Envigado, Colombia

Tel: +57 (4) 288 54 54
Fax: +57 (4) 288 39 19

Apartado Aéreo 596
Medellín, Colombia

Oficina Bogotá
Calle 70 # 11 - 55
Bogotá, Colombia

Tel: +57 (1) 326 24 70
Fax: +57 (1) 310 61 83