Hola a todos:
Les suplico ayuda urgente por favor.
Estoy intentando que funcione un formulario. Dicho formulario solo tiene dos campos de datos y la logica del mismo es que si cualquiera de los campos es rellenado por el usuario hara un listado de los ficheros que hay en el nombre de la carpeta que se introduzca en el campo carpeta.
Resulta que lo que hace es lo siguiente:
-Independientemente de que el formulario tenga datos introducidos por el usuario o por el contrario este en blanco siempre me saca el listado de los ficheros indicados en el campo carpeta, es decir se salta la instrucción siguiente a la torera:
if (Request.Form<>"")
He comprobado el contenido de los campos que envia el formulario una vez el usuario ha llenado los datos y es un campo vacio.
Además si el usuario no rellena ningun campo del formulario y pulsa el botón enviar dicho formulario debería mostrarse en de nuevo y no lo hace así.
Les paso el código para que lo vean y me digan si lo saben donde estoy cometiendo el error. O es que el asp funciona mal o si yo soy gilipollas.
Código:
------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!--Incluimos el fichero de constantes-->
<!--#INCLUDE file="adovbs.asp"-->
<body>
<%if (Request.Form<>"") then
'Variable "Directorio" para poder cambiar la carpeta de busqueda según el contenido de la variable
dim directorio
dim path
dim total
directorio="\images"
ruta= request.Form("carpeta")
total= directorio & "\" & ruta
'Para saber el contenido de los campos del formulario
response.Write "carpeta: " & request.form("carpeta") & "<br>"
response.Write "idusuario: " & request.form("idusuario") & "<br>"
response.Write "directorio es: " & directorio & "<br>"
response.Write "ruta es el contenido del campo form: " & ruta & "<br>"
response.Write "total es la suma de directorio y ruta: " & total & "<br>"
'Crea el objeto FSO
Set ObFSO=Server.CreateObject("scripting.FileSystemObj ect")
'Crea el objeto carpeta y selecciona la carpeta en la que estan los archivos
Set ObCarpeta= ObFSO.getfolder(Server.MapPath(total))
'Nos muestra el nombre de nuestra carpeta en la web
response.Write "El directorio de búsqueda es: " & directorio & "\" & ObCarpeta.name &"<br>"
'Busca todos los archivos de la carpeta y nos devuelve el nombre
For Each Fichero in ObCarpeta.files
response.write fichero.name &"<br>"
next
Set Fichero = Nothing
Set ObCarpeta = Nothing
Set ObFSO= Nothing
else
%>
<form action="portada.asp" method="post" >
<p>En que carpeta busco las fotos
<input name="carpeta" type="text" id="carpeta" size="80" maxlength="100">
<br>
ID Usuario
<input name="idusuario" type="text" id="idusuario" size="5" maxlength="5">
<br>
<input type="submit" value="Enviar">
<input type="reset" value="Restablecer">
</p>
</form>
<%end if%>
</body>
</html>
-------------
Por favor ayudenme no se ya ni donde mirar ni a quien acudir. Lo hago como último recurso.
Muchas gracias
