Bueno el tema es asi creeo en TXT donde voy agragando info y despues quiero poder borrr info del txt ejemplo una palabra o un e-mail que se encuentre en el txt mediante un formulario osea si quiero borrar
[email protected] dentro de un input pongo
[email protected] le doy submit y listo que me borre ese mail del txt
aca tengo como lo cree y como inserto los datos en el txt
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido
CONST_LIBRO="datos.txt"
set oFSO=Server.CreateObject("Scripting.FileSystemObje ct")
accion=Trim (CStr(Request.QueryString("a")))
select case accion
case "guardar"
Guardar
envio_mail
case else
Llenar
end select
set oFSO=nothing
Sub Guardar
Dim textfield1
textfield1=Trim(CStr(Request.Form("textfield1")))
if textfield1 <> "" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine(""&textfield1&",")
f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if
End Sub 'Guardar
sub envio_mail
Dim mailx, icono
mailx= Request.Form("textfield1")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = "0"
ObjMail.To = mailx
ObjMail.From = "- EGRESADOS -<
[email protected]>"
ObjMail.Subject = "Calendario FIESTAS DE EGRESADOS"
body = "-------------- Calendario FIESTAS DE EGRESADOS --------------"
body = body & vbCrLf & "<p> </p>"
body = body & vbCrLf & "Hola! para ver el calendario <a href=http://
[email protected]/2004.htm>Hacé Clic Aquí </a>"
body = body & vbCrLf & "<p> </p>"
body = body & vbCrLf & "
Mandanos el dato de tu fiesta a: <a href=mailto:
[email protected]>
[email protected] m</a>"
body = body & vbCrLf & "<br>"
body = body & vbCrLf & "si el enlace no funciona, actualiza, esta ventana del explorador y vuelve hacer click en click aqui"
body = body & vbCrLf & "<p> </p>"
ObjMail.Body = body
ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"
end sub 'envio_mail
Sub Llenar
%>
<html>
<head>
<title>Calendario FIESTAS DE EGRESADOS</title>
<style>
<!--
BODY{
scrollbar-face-color:#FFFFFF;
scrollbar-arrow-color:#FFFFFF;
scrollbar-track-color:#FFFFFF;
scrollbar-shadow-color:#FFFFFF;
scrollbar-highlight-color:#FFFFFF;
scrollbar-3dlight-color:#FFFFFF;
scrollbar-darkshadow-Color:#FFFFFF;
margin-top: 0px;
margin-left: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript">
if (top.location != self.location)top.location = self.location;
//-->
</script>
<script language="JavaScript">
<!--
function Validar(form1) {
return (
ValidarNombre(form1.textfield1.value)
&& ValidarEmail(form1.textfield1.value)
);
}
function ValidarNombre(textfield1) {
var cadena = "No has colocado Tu E-mail\n"
+ "No podemos enviarte el enlace para ver las fechas,"
+ "revisá tus datos";
if ( textfield1 == "" || textfield1 == "") {
alert(cadena);
return false;
}
else return true;
}
function ValidarEmail(email){
var cadena = "Direccion de correo no valida: " + email
+ "\nPor favor, ingresá una dirección de correo válida";
if( email.indexOf('@',0) <= 0 || email.indexOf(';',0) != -1
|| email.indexOf(' ',0) != -1 || email.indexOf('/',0) != -1
|| email.indexOf(';',0) != -1 || email.indexOf('<',0) != -1
|| email.indexOf('>',0) != -1 || email.indexOf('*',0) != -1
|| email.indexOf('|',0) != -1 || email.indexOf('`',0) != -1
|| email.indexOf('&',0) != -1 || email.indexOf('$',0) != -1
|| email.indexOf('!',0) != -1 || email.indexOf('"',0) != -1
|| email.indexOf(':',0) != -1 )
{ alert(cadena); return false; }
else return true;
}
-->
</script>
</head>
<body bgcolor="#FFFFFF">
<form name="form1" method="post" action="calendario.asp?a=guardar">
<div align="center"><center><p> </p>
</center></div><div align="center"><center><p><font face="Century Gothic" size="6"><b>FIESTAS
DE EGRESADOS</b></font></p>
</center></div><div align="center"><center><p><b><font face="Century Gothic" size="7">CALENDARIO
2004</font></b></p>
</center></div><div align="center"><center><p> </p>
</center></div><div align="center"><center><p><font face="Century Gothic" size="5"><b>Para
ver el calendario ingresa:</b></font></p>
</center></div><div align="center"><center><p><strong>Tu E-mail:</strong> <input
type="text" name="textfield1" size="26"></p>
</center></div><div align="center"><center><p><input type="submit"
value="Ver el Calendario"
style="font-size: 10pt; font-weight: bold; color: rgb(255,255,255); background-color: rgb(0,0,0)"
ONCLICK="return Validar(this.form);"></p>
</center></div><div align="center"><center><p> </p>
</center></div><div align="center"><center><p><b><i><font face="Century Gothic" size="4">Mandanos
el dato de tu fiesta a: <a href="mailto:
[email protected]">egresados@miweb. com</a></font></i></b></p>
</center></div>
</form>
</body>
</html>
<%
End Sub 'Llenar
%>