Contáctenos A-MAQ S.A

<%@ Language=VBScript %> <%Option Explicit Response.AddHeader "Pragma", "No-Cache" '************************************************************************************** ' Page: ' Contacto.asp ' ' Amaq ' Medellín,Colombia ' 2004. ' ' Description: ' Script contacto. ' ' ' Change History: who when what ' ------------- ------------- ------------------------------------ ' Jerónimo Castro 13/05/2005 Created ' '*************************************************************************************** 'On Error Resume Next ' Definicion de variables Dim lstrNombre Dim lstrProfesion Dim lstrCargo Dim lstrEmpresa Dim lstrCiudad Dim lstrPais Dim lstrTelefonos Dim lstrEmail Dim lnumMotivo Dim lstrMotivo Dim lstrComentarios Dim lstrAccion Dim lobjCorreo Dim lstrTextoCorreo Dim lstrRecipiente Dim lstrRespuesta Dim lstrHost Dim lblnSuccess lstrHost = "localhost" lstrAccion = Request("txtAccion") Select Case lstrAccion Case "Ingreso" Call Ingreso Case "Contacto2" lstrNombre = Request("txtNombre") lstrProfesion = Request("txtProfesion") lstrCargo = Request("txtCargo") lstrEmpresa = Request("txtEmpresa") lstrCiudad = Request("txtCiudad") lstrPais = Request("txtPais") lstrTelefonos = Request("txtTelefonos") lstrEmail = Request("txtEmail") Call fncContacto2 Case "EnviarContacto" lstrNombre = Request("txtNombre") lstrProfesion = Request("txtProfesion") lstrCargo = Request("txtCargo") lstrEmpresa = Request("txtEmpresa") lstrCiudad = Request("txtCiudad") lstrPais = Request("txtPais") lstrTelefonos = Request("txtTelefonos") lstrEmail = Trim(Request("txtEmail")) lnumMotivo = Cint(Request("rdbMotivo")) Select Case lnumMotivo Case 1 lstrMotivo = "Consultas Técnicas Sitio Web" lstrRecipiente = "webmaster@a-predictor.com" Case 2 lstrMotivo = "Oportunidades de empleo Sitio Web" lstrRecipiente = "webmaster@a-predictor.com" Case 3 lstrMotivo = "Nuevos distribuidores Sitio Web" lstrRecipiente = "webmaster@a-predictor.com" Case 4 lstrMotivo = "Solicitud de Cotización Sitio Web" lstrRecipiente = "webmaster@a-predictor.com" Case 5 lstrMotivo = "Otro Sitio Web" lstrRecipiente = "webmaster@a-predictor.com" End Select lstrComentarios = Request("txtComentario") ' Response.Write lstrComentarios ' Response.end Set lobjCorreo = Server.CreateObject("Persits.MailSender") lobjCorreo.FromName = lstrNombre lobjCorreo.From = lstrEmail lobjCorreo.Host = lstrHost lobjCorreo.Port = "26" ' lobjCorreo.RemoteHost = "ns1.geonetsa.com" ' lobjCorreo.RemoteHost = "ns2.geonetsa.com" lobjCorreo.AddAddress lstrRecipiente lobjCorreo.Subject = lstrMotivo lstrTextoCorreo = "Nombre : " & lstrNombre & vbCrLf & "Profesión : " & lstrProfesion & vbCrLf lstrTextoCorreo = lstrTextoCorreo & "Cargo : " & lstrCargo & vbCrLf & "Empresa : " & lstrEmpresa & vbCrLf lstrTextoCorreo = lstrTextoCorreo & "Ciudad : " & lstrCiudad & vbCrLf & "País : " & lstrPais & vbCrLf lstrTextoCorreo = lstrTextoCorreo & "Teléfonos : " & lstrTelefonos & vbCrLf & "Comentarios : " & lstrComentarios & vbCrLf lobjCorreo.Body = lstrTextoCorreo lobjCorreo.Send lblnSuccess = false If Err <> 0 Then ' error occurred lblnSuccess = false else lblnSuccess = True End If if lblnSuccess then lstrRespuesta = "Gracias por contactarnos. Alguien de nuestra compañía se acercará a usted." Call Ingreso else lstrRespuesta = "Ha ocurrido un error. Descripción: " & Err.Description Call Ingreso end if End Select %> <%Public Sub Ingreso()%> Contáctenos A-MAQ S.A

Nombre y Apellido:
Profesion:
Cargo:
Empresa:
Ciudad:
País:
Telefonos:
e-mail:
<%=lstrRespuesta%>

A-MAQ S.A. Teléfonos: (574) 311 76 31 - 318 77 10
Fax: (574) 318 77 11
info@a-maq.com

<%End Sub%> <%Public Sub fncContacto2()%> Contáctenos A-MAQ S.A

> > > > > > > >

Motivo del contacto :	Consultas técnicas	Oportunidades de empleo
	Nuevos Distribuidores	Solicitud de Cotización
Otro

<%End sub %>