%
'----------------------------------------------------------------
'Configuracion regional de méxico
Session.LCID = 2058
'Cache de servidor deshabilitada
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
'----------------------------------------------------------------
sNombre = sValidarPalabras(request.Form("sNombre"))
sEmail = sFiltrarInyeccion(request.Form("sEmail"))
sColonia = sFiltrarInyeccion(request.Form("sColonia"))
sSeccionElectoral = sFiltrarInyeccion(request.Form("sSeccionElectoral"))
sContenidoMensaje = sFiltrarInyeccion(request.Form("sContenidoMensaje"))
iMensaje = iValidarEntero(request("iMensaje"),1)
'----------------------------------------------------------------
if len(iMensaje) = 0 then
iMensaje = 0
end if
'----------------------------------------------------------------
select case iMensaje
case 1
sMensaje = "Favor de especificar el nombre."
case 2
sMensaje = "El e-mail debe ser válido."
case 3
sMensaje = "La colonia debe ser válida."
case 4
sMensaje = "La sección electoral debe contener 4 dígitos."
case 5
sMensaje = "Favor de ingresar su comentario (4000 caracteres como máximo)."
case 6
sMensaje = "Ocurrió un error, los datos no pudieron ser enviados."
end select
'----------------------------------------------------------------
%>