bSubmited  = (Request.ServerVariables("REQUEST_METHOD")="POST")
	bFromHere1 = (InStr(Request.ServerVariables("HTTP_REFERER"), "contacto.asp")>0)
	bFromHere2 = (Request.ServerVariables("REMOTE_ADDR")=Session("cv"))
	bFromHere3 = (Request.ServerVariables("REMOTE_ADDR")=Request.Cookies("cv"))

	if not bSubmit then
		Response.Cookies("cv") = Request.ServerVariables("REMOTE_ADDR")
		Session("cv")          = Request.ServerVariables("REMOTE_ADDR")
	end if

	if bSubmited and bFromHere1 and bFromHere2 and bFromHere3 then
		' todo
        end if