Cita:
Iniciado por IsaBelM no se puede abrir con asp. crea un link tal que así
hola que tal sabes que e pensado !! jalar la variable a un javascript mi ruta del documento la estoy jalando a una variable llamada archivo y esa variable archivo la puedo jalar a un javascript y de java script crear un window.location o alguna instruccion que me permita abrirlo no resultara ?? :S si no es asi de todos modos te agradesco mucho tu respuesta!! a ota cosa es posible meter la instruccion de href en un archivo .asp ya que mi codigo de busqueda no esta en un html si no en un asp ??, osea solo seria en si direccionar el navegador a la ruta del archivo ya que mi programa me arroja la ruta absoluta del archivo esa ruta la copio y la pego en la barra de direcciones del explorer y me abre el pdf entonces no seria posible hacer automatico el direccionamiento? y con otra molestia isabel tu que eres toda una experta me podrias decir si mi codigo si esta bien ??? esque hoy se lo enseñe a un ingeniero y me dijo que estaba mal definido :S
Código HTML:
Ver original
<center><b><font color="black">BUSQUEDA DE CHF'S
</b></center> <form method="post" action="buscar20.asp"> <center><b><font color="black">No. de Serie:
</font> <input type="text" name="busqueda" /> <p /></b></center> <center><input type="submit" value="Buscar"></center>
este es mi index basicamente
y mi ASP
Código ASP:
Ver original<%
Dim fso, dato, archivo
dato = Request.Form("busqueda")
Set fso = server.CreateObject("Scripting.FileSystemObject")
if dato = "" then
Response.Write ("<script>alert('No ingreso dato a buscar');</script>" & Response.Redirect("index.html"))
else
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
if dato & ".pdf" = objFile.Name then
archivo = Subfolder.Path &"\"& objFile.Name
Response.Write ("El archivo si se encuentra:  " + archivo)
end if
Next
ShowSubFolders Subfolder
Next
End Sub
end if
%>
lo que debe de hacer es hacer una busqueda en los directorios y subdirectorios de windows y me envia la ruta del archivo si el archivo existe y como te comentaba quiero que me arroje el archivo automticamente :S si esta bien el cidgo vdd??? :S el ingeniero me dijo que estaba mal declarado y estaba mal todo espero me puedas responder gracias