<%@ Language=VBScript %>
<%
  
	acc=Request.Form("AltaBaja")
	em=Request.Form("Email")
	if em=""  then Response.Redirect("reglist.asp?er=1")
	if acc="1" then Response.Redirect("reglist.asp?er=2") 
	if Request.Form("Listas").Count="0" then Response.Redirect("reglist.asp?er=3")
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	TestFile = Server.MapPath ("/") & "\regmail.txt"
   	Set FicheroSalida= FileObject.OpenTextFile(TestFile,8,true,0)
	for i=1 to Request.Form("Listas").Count	
	   	Entrada =acc+" "+Request.Form("Listas")(i)+" "+em
	   	FicheroSalida.Writeline Entrada
	next
	FicheroSalida.Close
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body BACKGROUND="tex13.gif" TEXT="#000000" LINK="#008040" VLINK="#0080C0">
<basefont SIZE="5">
<center><img SRC="robot.gif" ALIGN="TOP" BORDER="0">
</center><br><br><br>

<p>&nbsp;</p>
<div align="center"><strong><font color="mediumblue" face size="5">
<%
Response.Write(em+"<BR><BR>")
chas="anotado en"
if acc="leave " then chas="borrado de" 

Response.Write ("Has sido "+chas+" la listas(s) de correo de<BR><BR>"+Request.Form("Listas")+".<BR><BR>")
	
 %>
</font></strong></div>  
<br><br>
<img SRC="art01.gif" ALIGN="LEFT" BORDER="0"><img SRC="art01.gif" ALIGN="RIGHT" BORDER="0"><hr><br><center><img SRC="mas.gif" ALIGN="TOP" BORDER="0"></center>
 
   </body>
</html>
