Buenos dias como sabran e realizado un buscador de archivos pero ahora tengo un problema resulta que al querer abrir un link con una carpeta que tenga espacios !!!!! no me saca el link para poder abrir ela rchivo les ruego me puedan ayudar aqui les dejo mi codigo de busqueda
Código ASP:
Ver original<html>
<head><IMG style="FILTER: alpha(opacity=100, finishOpacity=0,style=1); WIDTH: 850px; HEIGHT: 100px" src="cummins2.jpg" />
<BODY background="ism.jpg">
</head>
<body>
<%
Dim dato, ruta1, ruta
dato = Request("busqueda")
if dato = "" then
Response.Write("<script>alert('No ingreso dato a buscar');</script>")
Response.Write("<big><center>Aprieta el boton para Regresar<br><input type=""button"" value=""Regresar"" onclick = ""location='index.html'""/></center>")
End if
%>
<%
if dato <> "" then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("\proyecto\documentos\"))
ruta=objFolder & "\"
Set SubFolders = objFolder.SubFolders
For Each objFolder1 in SubFolders
Set SubFolders1 = objFolder1.SubFolders
For each objFolder2 in SubFolders1
Set SubFolders2 = objFolder2.SubFolders
For each objFolder3 in SubFolders2
For Each objFile in objFolder3.Files
if dato & ".pdf" = objFile.Name then
encontrar1 = objFolder1.name : encontrar2 = objFolder2.name : encontrar3 = objFolder3.name : archivo = objFile.Name
ruta1 = ruta & encontrar1 & encontrar2 & "\" & encontrar3 & archivo ' & encontrar1
ruta1= encontrar1 & "\" & encontrar2 & "\" & encontrar3 & "\" & archivo
ruta1 = "\proyecto\documentos\" & ruta1
Response.Write("<big><b><center>Para abrir el archivo da click en el nombre</center></b><br>")
Response.Write "<center><li><a href =" & ruta1 &" target =_blank>" & objFile.Name&"</a></center><br>"
Response.End
existe = true
end if
next
next
next
next
if not existe then
response.Write ("<big><b><center>El archivo no existe</center></b></big><br>")
Response.Write("<center>Aprieta el boton para Regresar<br><input type=""button"" value=""Regresar"" onclick = ""location='index.html'""/></center>")
Response.End
end if
end if
%>
<html>
</body>
ummm si nadamas quiero que esta instruccion que se encuentra arriba encontrar3 = objFolder3.name que es la que inspecciona la ultima carpeta me aparesca por ejemplo aso HOLA20%COMO20%ESTAS le intente con un server.URLEncode y el espacio me lo sustituyo por un signo mas !!! no hay nadie que me ayude??