<%
'correo="sechevarria@shinwoousa.com"
correo=request.QueryString("correo")
if correo="" or correo=null then
'response.Redirect("buscafact.asp")
response.Write("No hay correo")
else
response.Write("Enviando.... "&correo)
Dim aencab
aencab = Session("encuesta1")
session("encuesta1") = null
if aencab(1,2)=1 then
lcalidad="Muy Buena"
end if
if aencab(1,2)=2 then
lcalidad="Buena"
end if
if aencab(1,2)=3 then
lcalidad="Regular"
end if
if aencab(1,2)=4 then
lcalidad="Mala"
end if
if aencab(1,3)=1 then
ltiempos="Muy Bueno"
end if
if aencab(1,3)=2 then
ltiempos="Bueno"
end if
if aencab(1,3)=3 then
ltiempos="Regular"
end if
if aencab(1,3)=4 then
ltiempos="Malo"
end if
if aencab(1,4)=1 then
lprecio="Muy Bueno"
end if
if aencab(1,4)=2 then
lprecio="Bueno"
end if
if aencab(1,4)=3 then
lprecio="Regular"
end if
if aencab(1,4)=4 then
lprecio="Malo"
end if
if aencab(1,5)=1 then
latencion="Muy Buena"
end if
if aencab(1,5)=2 then
latencion="Buena"
end if
if aencab(1,5)=3 then
latencion="Regular"
end if
if aencab(1,5)=4 then
latencion="Mala"
end if
if aencab(1,6)=1 then
lgeneral="Muy Buena"
end if
if aencab(1,6)=2 then
lgeneral="Buena"
end if
if aencab(1,6)=3 then
lgeneral="Regular"
end if
if aencab(1,6)=4 then
lgeneral="Mala"
end if
'******************************************************
mensaje="Estimado Cliente:
Agradecemos la atención que se ha tomado para responder esta encuesta, sus comentarios y sugerencias serán tomados en cuenta para la mejora de nuestros productos y servicios.
We sincerely appreciate you taking the time to answer the survey , your comments and suggestions will be taken into consideration to improve our products and services.
Regards.
Atte.
Sinil Industry SA de CV
Nota: Esta dirección fue suministrada por uno de nuestros clientes. Si usted no lo es, por favor comuníquelo a aramirez@shinwoousa.com
"
mensaje=mensaje+"Cliente (Customer): "&aencab(1,0)&"
Fecha (Date): "&aencab(1,1)&"
"
mensaje=mensaje+"Calidad de los productos: "&lcalidad&"
Comentario: "&aencab(1,8)&"
Tiempos de entrega: "<iempos&"
Comentario: "&aencab(1,9)&"
Precios: "&lprecio&"
Comentario: "&aencab(1,10)&"
Servicio y Atencion: "&latencion&"
Comentario: "&aencab(1,11)&"
Servicio en General: "&lgeneral&"
Comentario: "&aencab(1,12)&"
Duda o comentario: "&aencab(1,7)&""
'*********************************************************
Califica=aencab(1,8)+aencab(1,9)+aencab(1,10)+aencab(1,11)+aencab(1,12)
if Califica<11 then
Resultado="Satisfecho"
end if
if Califica>10 and Califica<15 then
Resultado="No Satisfecho"
end if
if Califica>14 then
Resultado="Muy Insatisfecho"
end if
'*********************
Dim objCDO
Dim Conf
Dim Fields
'''''''''''
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail.shinwoousa.com"
'"64.87.26.218"
.Item(cdoSMTPauthenticate)=1
.Item(cdoSendUsername)="sechevarria@shinwoousa.com"
.Item(cdoSendPassword)="Sergio586*"
.Item(cdoSMTPServerport)=587
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
Set Fields = Nothing
Set objCDO = Nothing
Set Conf = Nothing
With cdoMessage
Set .Configuration = cdoConfig
.From = "sales@shinwoousa.com"
.To = correo
'&";aramirez@shinwoousa.com"
'.cc = "aramirez@shinwoousa.com"
'.bcc = "sechevarria@shinwoousa.com"
.Subject = "Servicio al Cliente - SINIL "
'.TextBody = "Esta es una Prueba de envio automatico pulexpro"
.HTMLBody= mensaje
'.AddAttachment (archivopdf)
'.AddAttachment (archivoxml)
.Send
End With
With cdoMessage
Set .Configuration = cdoConfig
.From = "sales@shinwoousa.com"
.To = "gruiz@shinwoousa.com"
.bcc = "sechevarria@shinwoousa.com"
.Subject = "Encuesta de Servicio al Cliente - SINIL (" & Resultado & ")"
.HTMLBody= mensaje
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
''termina envio de correo
end if
response.Redirect("encuestacs.asp?msg=Gracias por su participacion!")
%>