Mostrando Codigo - Asp

<% 'Codigo ofrecido por Tutores.org %>
<%
Const bDeleteEntries = True
Dim bForce
bForce = Request.QueryString("force")
Dim strFile
strFile = Server.MapPath("libro_visitas.txt")
If Request.Form.Count = 0 Then
%>
<h3>Firma nuestro libro de visitas:</h3>
<form action="Libro.asp" method="post">
<table>
<tr>
<th align="right">Nombre:</td>
<td><input type="text" name="name" size="15"></input></td>
</tr>
<tr>
<th align="right">Comentario:</td>
<td><input type="text" name="comment" size="35"></input></td>
</tr>
</table>
<input type="submit" value="FIRMAR!!"></input>
</form>
<br />
<h3>Comentarios:</h3>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td>
<!-- #include file="libro_visitas.txt" -->
</td>
</tr>
</table>
<%
Else
Dim objFSO
Dim objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
objFile.Write "<strong>"
objFile.Write Server.HTMLEncode(Request.Form("name"))
objFile.Write ":</strong> "
objFile.Write Server.HTMLEncode(Request.Form("comment"))
objFile.Write "<br />"
objFile.WriteLine ""
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
%>
<H3>Tus comentarios se agregaron correctamente!</H3>
<A HREF="./Libro.asp">Volver</A>
<%
End If
If bDeleteEntries Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
If DateDiff("d", objFile.DateLastModified, Date()) <> 0 Or bForce <> "" Then
Set objFile = Nothing
Set objFile = objFSO.CreateTextFile(strFile, True)
objFile.Write "<strong>Tutores.org:</strong> "
objFile.WriteLine "Esperamos qur te guste este Libro!<br />"
objFile.Close
End If
Set objFile = Nothing
Set objFSO = Nothing
End If
%>

<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Simple libro de visitas no Db - Archivo texto .txt" href="http://www.tutores.org/codigo/969/" target="_blank">Simple libro de visitas no Db - Archivo texto .txt</a>
<!-- Final enlace Tutores.org -->

antony 11/07/2006 2.56.02

vacan ah felicitaciones...

tukan

hola este es mi comentario.

jolven

vamos aver si funciona man

paco 11/01/2006 3.56.23

Esta bueno!!! Lo estoy probando

Warri 21-08-2008 14:25:26

Hola no puedo ejecutarlo me sale este error a lo que ingreso un nuevo comentario:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/prueba/Libro.asp, línea 37

iemede

ya lo probe pero no me sale, si pueden ayudarme paso a paso

kld

gracias por el aporte felicidades

sdsa

algo tan simple en php???? un solo archivo más un .txt

sadasd

jaja ke bueno...no es de esos ke hacen 100000 lineas para algo no mejor ke esto...

gracias

BARBA

ALGUIEN ME AYUDA CON ESTE TEMA ESPECIFIQUEME LO DE LAS CARPESTAS NO ME FUNCIONA COMO LAS ENLAZO

jon 20-05-2009 20:37:06

hice como esta en la pagina pero me sale este error Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/prueba/Libro.asp, línea 37

si pudiera ayudarme

juan jose

Funciona perfecto. el unico defecto es que borra los mensajes al siguiente dia. Por favor indiqueme como modificar el script para que NO borre los registros

Gracias