Solicitud de información Consultoría
<%
Dim empresa
Dim nombre
Dim cargo
Dim telefono
Dim email
Dim asunto
dim done
done = request.form("done")
empresa = request.Form ("empresa")
nombre = request.Form("nombre")
cargo = request.Form("cargo")
telefono = request.Form("telefono")
email = request.Form("email")
asunto = request.Form("asunto")
if done = "" then
%>
<%
Else
if request.form("done") = "Yes" then
strTo = "bv.consultoria@cl.bureauveritas.com"
strCc = "bvstg@bureauveritas.cl"
''strTo = "sergiopalmahidalgo@gmail.com"
''strCc = "sergiopalmahidalgo@gmail.com"
strSubject = "SOLICITUD DE INFORMACION DESDE PAGINA DE CONSULTORIA"
strBody = ""
strBody = strBody & "SOLICITUD GENERADA VIA WEB PARA CONSULTORIA
"
strBody = strBody & "
"
strBody = strBody & "
Empresa : "& empresa &"
"
strBody = strBody & "
Nombre: "& nombre &"
"
strBody = strBody & "
Cargo: "& cargo &"
"
strBody = strBody & "
Fono: "& telefono &"
"
strBody = strBody & "
E-mail: "& email &"
"
strBody = strBody & "
Tema: "& tema &"
"
strBody = strBody & ""
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Creación del objeto
objCDOMail.From = "<" & strCc & ">"
objCDOMail.To = strTo
objCDOMail.Cc = strCc
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
%>
¡Gracias por Solicitar Información!
Se ha generado una solicitud de información, la que responderemos a la brevedad!
<%
End if
End if
%>
|
|
