<%
accion = Request.Form("hAccion")
'Si la accion es abrir un nuevo ticket
if accion = "nuevaConsulta" then
inmo = SecureSQL(trim(Request.Form("editInmo")))
email = SecureSQL(trim(Request.Form("editEmail")))
tema = SecureSQL(trim(Request.Form("editTema")))
consulta = replace(SecureSQL(Request.Form("textConsulta")),vbcrlf," ")
if inmo <> "" then
cuerpo = "Se a enviado una consulta desde la Web. Nombre o Inmobiliaria: "&inmo&" e-Mail: "&email&" Tel.: "&tema&" Consulta: "&consulta&""
EnvioMail "Consulta desde la Web","soporte@inmocontrol.com.ar","soporte@inmocontrol.com.ar",cuerpo,1,"CHILIMAIL"
mensajeConsulta = "Su consulta será procesada a la brevedad"
else
mensajeConsulta = "Debe completar el campo Nombre"
end if
end if
%>
Contacto - InmoControl
Contacto