error en HTMLescape(file.name) ??

[Gaby_Corr]

que tal, tengo esta rutina que hace un listado de los archivos que tengo en una carpeta, esta rutina funciona en una web q esta en intranet, ahora lo quise copiar
para otra web y no funciona, me marca error en la linea que esta en rojo

que puede ser??

Código:

	<%
dim PathFTP1, PathFTP2, PathFTP3
dim urlFTP1, urlFTP2, urlFTP3

PathFTP1 = "c:\sitiodistribuidores\instaladores\basico\negocios\documentos"
PathFTP2 = "c:\sitiodistribuidores\instaladores\basico\negocios\instalador"
PathFTP3 = "c:\sitiodistribuidores\instaladores\basico\negocios\ejecutables"

urlFTP1 = "/instaladores/basico/negocios/documentos/"
urlFTP2 = "/instaladores/basico/negocios/instalador/"
urlFTP3 = "/instaladores/basico/negocios/ejecutables/"

Dim fso, folderUsuario, ArchivosUsuario, respuesta

Set fso = CreateObject("Scripting.FileSystemObject")

Function LeerFolder(PathFTP, urlFTP)
	Dim tmpArchivos, file, Contador, Color
	dim urlfile
	Set folderUsuario = fso.GetFolder(PathFTP)
	Set	ArchivosUsuario =  FolderUsuario.files

	tmpArchivos = ""
	Contador = 1
	For Each file in ArchivosUsuario 
		If Contador mod 2 = 0 then
			'' el color del fondo
			Color = "#efefef"
		else
			Color = "#cccccc"
		end if	
	
		'urlfile = urlFTP & replace(server.urlencode(File.name), "+", "%20") 
		urlfile = urlFTP & File.name
		
		tmpArchivos = tmpArchivos & "  </tr>"
		tmpArchivos = tmpArchivos & "    <tr bgcolor=""" & Color & """>"
		tmpArchivos = tmpArchivos & "    <td><a href=""" & urlfile & """><b>" & HTMLEscape(File.name)  & "</a></b></td>"
		tmpArchivos = tmpArchivos & "    <td>" & File.datecreated & "</td>"
		tmpArchivos = tmpArchivos & "    <td align=right>" & Formatnumber(File.Size / 1048576, 2) & " MB</td>"
		tmpArchivos = tmpArchivos & "  </tr>"
		Contador = Contador + 1
	next
	if tmpArchivos = "" then
		tmpArchivos = "<tr><td colspan=4 align=center><b><br>Carpeta vacia<br><br></b></td></tr>"
	end if
	leerfolder = tmpArchivos
end function

%>

<table width="100%" border="0" cellspacing="0" cellpadding="3" class="textobcochico">

	<tr>
    	<td bgcolor="#99999" class="titulosubgral" colspan="4">Notas Técnicas</td>
  	</tr>
    	<tr>
    	<td>Nombre</td>
    	<td>Fecha</td>
    	<td align=right>Tama&ntilde;o</td>
  	</tr>
  	<%= LeerFolder(PathFTP1, urlFTP1) %>  
		
  	
	</table>

este es el error que me aparece:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'HTMLEscape'

[u_goldman]

Creo que ese error te está diciendo que la función HTMLEscape no existe dentro del ambiente VBS.

[Gaby_Corr]

mmmmm pues fijate que U_G que se lo quite y si funciono! jiji
entonces sabras para que sirve esa funcion?? por que ya le he buscado
y no encuentro nada =(

grax!

[u_goldman]

Probablemente se trate de la funcion htmlEscape de javascript, trata como si fuera javascript.

Saludos