Solicitud de Información

<% If Request("step") = "1" Then Dim SendMsg SendMsg = Request("nombre") & " de la empresa " & Request("empresa") & chr(13) _ & " con telefono " & Request("telefono") _ & " del estado de " & Request("estado") _ & " y correo electronico " & Request("email") & chr(13) _ & " esta solicitando informacion sobre " & Request("equipo") & " " & Request("marca") & chr(13) & chr(13) _ & "Adicionalmente agrega el siguiente comentario:" & chr(13) & chr(13) _ & "----------------" & chr(13) _ & Request("comenta") & chr(13) _ & "----------------" & chr(13) _ & chr(13) & chr(13) _ & "Correo enviado desde http://www.caisacv.com.mx" & chr(13) ' StrongCube Component Dim objSMTP set objSMTP = Server.CreateObject("SCMail.SMTP") objSMTP.Host = "localhost" objSMTP.UserID = "ventas" objSMTP.Password = "sal77618" objSMTP.AuthLogin = True objSMTP.ToAddress = "caisa.roberto@gmail.com" objSMTP.BCCAddress = "ventas@caisacv.com.mx" objSMTP.FromName = "WEBMASTER" objSMTP.FromAddress = "ventas@caisacv.com.mx" objSMTP.Subject = "Solicitud de Informacion" objSMTP.Body = SendMsg objSMTP.SendMail If objSMTP.Error Then %>

 

<% Response.Write objSMTP.ErrorMsg printChgForm = true Else emailSent = true End If Set objSMTP = Nothing End If If Request("step") <> "1" OR printChgForm = true Then %>

Para obtener información adicional sobre nuestros productos, solicitar alguna cotizacion o para poder atenderlo mejor, le agradeceriamos que nos llenara el siguiente formulario, el cual nos ayudara a saber mas sobre sus requerimientos y el tipo de informacion que esta necesitando.
Nombre:	" />
Empresa:	" />
Correo Electronico:	" />
Telefono:	" />
Estado:	AGUASCALIENTES BAJA CALIFORNIA NORTE BAJA CALIFORNIA SUR CAMPECHE CHIAPAS CHIHUAHUA COAHUILA COLIMA DISTRITO FEDERAL DURANGO ESTADO DE MEXICO GUANAJUATO GUERRERO HIDALGO JALISCO MERIDA MICHOACAN MORELOS NAYARIT NUEVO LEON OAXACA PUEBLA QUERETARO QUINTANA ROO SAN LUIS POTOSI SINALOA SONORA TABASCO TAMAULIPAS TLAXCALA VERACRUZ ZACATECAS FUERA DE MEXICO
Marca:	ARIMITSU KAWASAKI K.O. DALDEGAN TODAS LAS MARCAS
Equipo:	ASPERSORAS CORTACETOS DESMALEZADORAS HIDROLIMPIADORAS MOTOBOMBAS MOTOSIERRAS ORILLADORAS PARIHUELAS PODADORAS PULVERIZADORAS SEMBRADORAS SOPLADORAS TODOS LOS PRODUCTOS
Comentario:	">

<% End If If emailSent = true Then %>

Estimado(a): <%= Request("nombre") %>, para nosotros su empresa <%= Request("empresa") %> y sus requerimientos son muy importantes.

Su solicitud de informacion ha sido entregada al departamento correspondiente, quienes se pondran en contacto con usted al telefono <%= Request("telefono") %>.

De antemano le agradecemos su preferencia y esperamos poder resolver esta solicitud a la mayor brevedad posible.

<% End If %>