<%
dim Email, DirURL
Email = request.QueryString("email")
dim CodSitio
leer CodSitio,"../formulario/COD_SITE.prm"
if request.Form("Enviado")="Verdadero" then 'Bloquea el email
dim rs, Cont
InsertarRegistro "TBWB_EMAILS_BLOQ","TIPO_SERVICIO, COD_SERVICIO, EMAIL_BLOQ, DIA_BLOQ, HORA_BLOQ", "'EVENTOS', '" & CodSitio & "', '" & Email & "', '" & date & "', '" & time & "'"
end if
%>
.: Confirmación suspensión de envío de correos :.