Combo que no pasa valor en el Request

12/09/2009 - 22:39 por Veronica Risso | Informe spam

Hola Grupo: Estoy usando un programa que saqué de algún lado de internet
para subir archivos llamado pruebaupload.asp
Hasta ahi todo bien. El tema es que le he estado haciendo modificaciones,
para que ahora aparte de subir la imagen grabe en una tabla un par de datos
sacados de un combo y el nombre de la imagen, pero el problema está en que
"no se ve" el valor del combo (en este caso llamado D1). Adjunto el código
completo, fíjense que en algunos lugares voy poniendo response.write para
ver los valores que van teniendo los datos y el tema pasa porque el
Request("D1") no muestra el valor de la selección.
Cualquier ayuda, agradezco desde ya. Tiene un include que no afecta porque
son solo funciones para subir los archivos, igualmente si alguien lo
necesita se lo mando
El Código
_______________________________________________
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles

'Conectamos a nuestra BD.
dim oConn1
Set oConn1 = Server.CreateObject ("ADODB.Connection")

oConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaimagenes.mdb")

Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
'

response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"

'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>
<%dim oConn,RS,sql,Posicion,elLegajo
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaweb.mdb")

Dim Tabla,Temp
Set Tabla=Server.CreateObject("adodb.recordset")

Temp="select NroLegajo,Nombre from titularesweb order by nombre"
Tabla.Open Temp, oConn

%>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
<select size="1" name="D1">

<%do while not tabla.eof %>

<Option><%=Tabla.Fields("NroLegajo") & "-" &
Tabla.Fields("nombre")%></option>

<%tabla.movenext
loop
tabla.close%>

</select><p> </p>
<p>Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</p>
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write "Request D1" & Request("D1")
Posicion=INSTR("-",Request("D1"))
response.write "posicion" & posicion
elLEgajo=left(Request("D1"),posicion)
response.write "ellegajo" & elLEgajo

'Hace el upload de los archivos enviados y muestra el resumen response.write
SaveFiles()
end if
%>
</BODY>
</HTML>

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 MEVB

14/09/2009 - 15:09 | Informe spam

Hola Veronica

Los formularios del tipo [enctype="multipart/form-data"] se manejan distinto
a los tradicionales para el envío de datos contenidos en campos INPUT.
Por eso no te sirve el Request.Form("tu_combo").
Cuando usas [enctype="multipart/form-data"], debes utilizar otra forma para
capturar el dato contenido en el combo. Es la forma "manual" o "picapiedra".
Lamentablemente, no se como se hace exactamente para decirte.
Tienes que revisar las librerías contenidas en tu include para guiarte en
como hacen alli la captura del archivo.
Creo que el proceso para capturar el valor del combo es muy parecido.
La otra opción es que lo hagas en procesos separados.

Saludos
MV

"Veronica Risso" escribió en el mensaje
news:

Hola Grupo: Estoy usando un programa que saqué de algún lado de internet
para subir archivos llamado pruebaupload.asp
Hasta ahi todo bien. El tema es que le he estado haciendo modificaciones,
para que ahora aparte de subir la imagen grabe en una tabla un par de
datos sacados de un combo y el nombre de la imagen, pero el problema está
en que "no se ve" el valor del combo (en este caso llamado D1). Adjunto el
código completo, fíjense que en algunos lugares voy poniendo
response.write para ver los valores que van teniendo los datos y el tema
pasa porque el Request("D1") no muestra el valor de la selección.
Cualquier ayuda, agradezco desde ya. Tiene un include que no afecta porque
son solo funciones para subir los archivos, igualmente si alguien lo
necesita se lo mando
El Código
_______________________________________________
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles

'Conectamos a nuestra BD.
dim oConn1
Set oConn1 = Server.CreateObject ("ADODB.Connection")

oConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaimagenes.mdb")

Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
'

response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"

'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>
<%dim oConn,RS,sql,Posicion,elLegajo
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaweb.mdb")

Dim Tabla,Temp
Set Tabla=Server.CreateObject("adodb.recordset")

Temp="select NroLegajo,Nombre from titularesweb order by nombre"
Tabla.Open Temp, oConn

%>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
<select size="1" name="D1">

<%do while not tabla.eof %>

<Option><%=Tabla.Fields("NroLegajo") & "-" &
Tabla.Fields("nombre")%></option>

<%tabla.movenext
loop
tabla.close%>

</select><p> </p>
<p>Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</p>
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write "Request D1" & Request("D1")
Posicion=INSTR("-",Request("D1"))
response.write "posicion" & posicion
elLEgajo=left(Request("D1"),posicion)
response.write "ellegajo" & elLEgajo

'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
end if
%>
</BODY>
</HTML>

Responder a este mensaje

#2 Veronica Risso

14/09/2009 - 19:25 | Informe spam

gracias por la respuesta, estoy intentando hacerlo con una variable de
session pero el tema es que esa variable aparentemente muere al entrar a la
funcion, puede ser esto? o estoy fallando en algo.? Adjunto el texto de la
página como lo pongo ahora. El sql llega así
NSERT INTO Imagenes (NroLegajo,Imagen) VALUES (,'clima1.jpg') donde se
pierde el valor de la variable de session. Gracias

<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles
dim oConn1
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
response.write "************************"
response.write elUsuario
response.write Session("ElLegajo")

'
response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elUsuario & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elUsuario & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<% dim elUsuario
Session("ElLegajo") =request("Leg")
response.write Session("ElLegajo")
elUsuario= Session("ElLegajo")
response.write "Adentro " & elUsuario
%>

<br>

<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen response.write SaveFiles()
end if
%>
</BODY>
</HTML>

"MEVB" <m.a.n.u.e.l.[AT].a.p.u.r.o.s...c.o.m> escribió en el mensaje de
noticias:

Hola Veronica

Los formularios del tipo [enctype="multipart/form-data"] se manejan
distinto a los tradicionales para el envío de datos contenidos en campos
INPUT.
Por eso no te sirve el Request.Form("tu_combo").
Cuando usas [enctype="multipart/form-data"], debes utilizar otra forma
para capturar el dato contenido en el combo. Es la forma "manual" o
"picapiedra". Lamentablemente, no se como se hace exactamente para
decirte.
Tienes que revisar las librerías contenidas en tu include para guiarte en
como hacen alli la captura del archivo.
Creo que el proceso para capturar el valor del combo es muy parecido.
La otra opción es que lo hagas en procesos separados.

Saludos
MV

"Veronica Risso" escribió en el mensaje
news:

Hola Grupo: Estoy usando un programa que saqué de algún lado de internet
para subir archivos llamado pruebaupload.asp
Hasta ahi todo bien. El tema es que le he estado haciendo modificaciones,
para que ahora aparte de subir la imagen grabe en una tabla un par de
datos sacados de un combo y el nombre de la imagen, pero el problema está
en que "no se ve" el valor del combo (en este caso llamado D1). Adjunto
el código completo, fíjense que en algunos lugares voy poniendo
response.write para ver los valores que van teniendo los datos y el tema
pasa porque el Request("D1") no muestra el valor de la selección.
Cualquier ayuda, agradezco desde ya. Tiene un include que no afecta
porque son solo funciones para subir los archivos, igualmente si alguien
lo necesita se lo mando
El Código
_______________________________________________
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles

'Conectamos a nuestra BD.
dim oConn1
Set oConn1 = Server.CreateObject ("ADODB.Connection")

oConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaimagenes.mdb")

Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
'

response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"

'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>
<%dim oConn,RS,sql,Posicion,elLegajo
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaweb.mdb")

Dim Tabla,Temp
Set Tabla=Server.CreateObject("adodb.recordset")

Temp="select NroLegajo,Nombre from titularesweb order by nombre"
Tabla.Open Temp, oConn

%>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
<select size="1" name="D1">

<%do while not tabla.eof %>

<Option><%=Tabla.Fields("NroLegajo") & "-" &
Tabla.Fields("nombre")%></option>

<%tabla.movenext
loop
tabla.close%>

</select><p> </p>
<p>Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</p>
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write "Request D1" & Request("D1")
Posicion=INSTR("-",Request("D1"))
response.write "posicion" & posicion
elLEgajo=left(Request("D1"),posicion)
response.write "ellegajo" & elLEgajo

'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
end if
%>
</BODY>
</HTML>

Responder a este mensaje

#3 Pablo

14/09/2009 - 23:03 | Informe spam

el problema es que al llamar por segunda vez al pruebaupload.asp es
necesario volver a mandarle el parámetro request("Leg") porque la primera
vez viene el parámetro y la segunda no, por eso desaparece el valor de la
variable-parámetro

"Veronica Risso" escribió en el mensaje de
noticias:

gracias por la respuesta, estoy intentando hacerlo con una variable de
session pero el tema es que esa variable aparentemente muere al entrar a
la funcion, puede ser esto? o estoy fallando en algo.? Adjunto el texto de
la página como lo pongo ahora. El sql llega así
NSERT INTO Imagenes (NroLegajo,Imagen) VALUES (,'clima1.jpg') donde se
pierde el valor de la variable de session. Gracias

<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles
dim oConn1
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
response.write "************************"
response.write elUsuario
response.write Session("ElLegajo")

'
response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elUsuario & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elUsuario & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<% dim elUsuario
Session("ElLegajo") =request("Leg")
response.write Session("ElLegajo")
elUsuario= Session("ElLegajo")
response.write "Adentro " & elUsuario
%>

<br>

<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
end if
%>
</BODY>
</HTML>

"MEVB" <m.a.n.u.e.l.[AT].a.p.u.r.o.s...c.o.m> escribió en el mensaje de
noticias:

Hola Veronica

Los formularios del tipo [enctype="multipart/form-data"] se manejan
distinto a los tradicionales para el envío de datos contenidos en campos
INPUT.
Por eso no te sirve el Request.Form("tu_combo").
Cuando usas [enctype="multipart/form-data"], debes utilizar otra forma
para capturar el dato contenido en el combo. Es la forma "manual" o
"picapiedra". Lamentablemente, no se como se hace exactamente para
decirte.
Tienes que revisar las librerías contenidas en tu include para guiarte en
como hacen alli la captura del archivo.
Creo que el proceso para capturar el valor del combo es muy parecido.
La otra opción es que lo hagas en procesos separados.

Saludos
MV

"Veronica Risso" escribió en el mensaje
news:

Hola Grupo: Estoy usando un programa que saqué de algún lado de internet
para subir archivos llamado pruebaupload.asp
Hasta ahi todo bien. El tema es que le he estado haciendo
modificaciones, para que ahora aparte de subir la imagen grabe en una
tabla un par de datos sacados de un combo y el nombre de la imagen, pero
el problema está en que "no se ve" el valor del combo (en este caso
llamado D1). Adjunto el código completo, fíjense que en algunos lugares
voy poniendo response.write para ver los valores que van teniendo los
datos y el tema pasa porque el Request("D1") no muestra el valor de la
selección.
Cualquier ayuda, agradezco desde ya. Tiene un include que no afecta
porque son solo funciones para subir los archivos, igualmente si alguien
lo necesita se lo mando
El Código
_______________________________________________
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = server.mappath("/fotos")

' ****************************************************

function SaveFiles

'Conectamos a nuestra BD.
dim oConn1
Set oConn1 = Server.CreateObject ("ADODB.Connection")

oConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaimagenes.mdb")

Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
'

response.write "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"
oConn1.execute "INSERT INTO Imagenes (NroLegajo,Imagen) VALUES (" &
elLEgajo & ",'" & Upload.UploadedFiles(fileKey).FileName & "')"

'
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>
<%dim oConn,RS,sql,Posicion,elLegajo
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("_private\plaweb.mdb")

Dim Tabla,Temp
Set Tabla=Server.CreateObject("adodb.recordset")

Temp="select NroLegajo,Nombre from titularesweb order by nombre"
Tabla.Open Temp, oConn

%>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaupload.asp">
<select size="1" name="D1">

<%do while not tabla.eof %>

<Option><%=Tabla.Fields("NroLegajo") & "-" &
Tabla.Fields("nombre")%></option>

<%tabla.movenext
loop
tabla.close%>

</select><p> </p>
<p>Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
Archivo 3: <input name="attach3" type="file" size="35"><br>
Archivo 4: <input name="attach4" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</p>
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write "Request D1" & Request("D1")
Posicion=INSTR("-",Request("D1"))
response.write "posicion" & posicion
elLEgajo=left(Request("D1"),posicion)
response.write "ellegajo" & elLEgajo

'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
end if
%>
</BODY>
</HTML>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida