SAILOR MOON VIDEOS

1er Opening del Anime Sailor Moon

 
 

Quieres poner este video en tu pagina

Ingresalo ya (Prohibido Editar el Codigo)

Videos Sailor Moon
 
 

Te Gusto el Video Dejanos un comentario!!

Tu nombre:
Email (opcional):
Mensaje:

 
 
 
<% @LANGUAGE="VBSCRIPT"%> <% 'Libro de visitas 'Carlos de la Orden Dijs 'webmaster@aspfacil.com 'El libro se guarda en el archivo VISITAS.TXT en el mismo directorio en el que se encuentra 'esta página. Para cambiar el nombre de archivo, modificar la variable CONST_LIBRO. ' archivo es el manejador del fichero, y f será el objeto que utilicemos para leer el contenido. Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido CONST_LIBRO="1er-Opening.txt" ' Creamos el objeto FileSystemObject set oFSO=Server.CreateObject("Scripting.FileSystemObject") accion=Trim (CStr(Request.QueryString("a"))) select case accion case "guardar" Guardar MostrarLibro MostrarFormulario case else MostrarLibro MostrarFormulario end select set oFSO=nothing '=========================================================================================== ' PROCEDIMIENTOS '=========================================================================================== Sub MostrarLibro 'Abre el fichero y muestra el contenido en la página 'Obtiene un puntero al archivo del libro de visitas set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) ) 'Abro el archivo como un flujo de texto set f=archivo.OpenAsTextStream 'Leemos el archivo entero contenido=f.ReadAll f.Close set f=nothing set archivo=nothing 'y lo imprimimos Response.Write(contenido) End Sub 'MostrarLibro '=========================================================================================== Sub Guardar 'Guarda un nuevo comentario en el libro Dim nombre, mail, mensaje, fecha, archivo, f fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now()) 'Con Trim eliminamos los espacios en blanco a la derecha y a la izquierda nombre=Trim(CStr(Request.Form("nombre"))) mail=CStr(Request.Form("mail")) mensaje=CStr(Request.Form("mensaje")) ' No queremos comentarios anónimos o vacíos :-) if nombre <> "" and mensaje <>"" 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("
") f.WriteLine(""&nombre&" ("&mail&") escribió el "&fecha&":
") f.WriteLine(mensaje) 'Cierro el fichero f.Close set f=nothing set archivo=nothing Response.Write("Se ha añadido con éxito tu comentario") end if End Sub 'Guardar '=========================================================================================== Sub MostrarFormulario ' Presenta el formulario para añadir un comentario al libro %> <% End Sub 'MostrarFormulario ' Libro de visitas por Carlos de la Orden Dijs Octubre 2000 ' Usalo para lo que quieras! ;) %>