Cita:
Iniciado por IsaBelM traigo el código que posteaste en el foro de js
el primer error es la condicional y el segundo es la concatenación
me podrias ayudar por favor !!!!!! mi codigo es el siguiente html:
Código PHP:
<BODY>
<center><b><font color="black">BUSQUEDA DE CHFS</b></center>
<form method="post" action="buscar5.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>
</form>
y mi ASP es este
Código PHP:
<%
Dim fso, dato
dato = Request.Form("busqueda")
if dato ="" then
Response.Write ("<center><b><big>No se ingreso dato a buscar</big></b></center>")
else
'fso.FileExists ( dato & ".pdf") then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"
Set objFolder = objFSO.GetFolder(objStartFolder)
'response.write "<br>"&objFolder.Path&"<br>"&"<br>"
Set colFiles = objFolder.Files
For Each objFile in colFiles
'response.write objFile.Name&"<br>"
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
' response.write "<br>"&Subfolder.Path&"<br>"&"<br>"
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
' response.write objFile.Name&"<br>"
Next
ShowSubFolders Subfolder
Next
'end sub
for each Files in colFiles
Set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists ( dato & ".pdf") then
Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "<b><big><li>El archivo existe!</li></big></b>")
else
Response.Write ("File C:/Users/Fabian/Documents/CHFS/" & dato & "<b><big><li>El archivo no existe!</li></big></b>")
end if
next
End Sub
Response.Write ("File" & dato & "<b><big><li>El archivo si existe!</li></big></b>")
end if
%>
el chiste es que quiero que se meta en los directorios y me compruebe si existe el archivo que busca el usuario no se como hacerle :S !!!!