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

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Preguntas similares

Busqueda sugerida :