No se puede usar la colección Request.Form después de llamar a BinaryRead.
Este es el codigo adpro.asp que es un formulario para recojer los datos
Código:
Como podria recoger los datos de los campos que no me deja con el Request.Form??? <!--#include file="Uploader.asp"--> <html> <head> <title>Bromur Familias</title> <script type="text/javascript" src="skins/cute.js"></script> <style type='text/css'> <!-- select, option, textarea, input { BORDER: #808080 1px solid; COLOR: #000000; FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff } a:active,a:visited,a:link {color: #446488; text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt;} a:hover {color: #00004F; text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; } a.nav:active, a.nav:visited, a.nav:link { color: #000000; font-size : 10px; font-weight: bold; font-family: verdana; text-decoration: none;} a.nav:hover { font-size : 10px; font-weight: bold; color: black; font-family: verdana; text-decoration: underline; } .bborder { background-color: #FFFFFF; } .panel {-moz-border-radius: .3em .3em .3em .3em; border: 1px dotted silver; background-color: #F7F6F4;} BODY, TD, TR {text-decoration: none; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; cursor: default;} --> </style> </head> <body bgcolor=white marginwidth='0' leftmargin='0'> <center> <table border="0" cellspacing="0" cellpadding="2"> <tr> <td class="bborder" bgcolor="#FFFFFF" > <table border=0 cellpadding=0 cellspacing=0 bgcolor="#ffffff" width="685" > <tr> <td bgcolor="#F7F6F4" align="center" height="24" style="-moz-border-radius: 3em 3em 0em 0em; border-left: 1px transparent; border-top: 1px transparent; border-right: 1px transparent; border-bottom: #808080 1px solid;"> <table cellpadding=5 cellspacing=0 border=0> <tr> <td> <h3>Bromur Administracion</h3> </td> </tr> <tr> <td> <center><b>Ingresar Productos</b></center> </td> </tr> </table> </td> </tr> <tr> <td height="19"> </center> <!--SELF--> <% Response.Buffer = True ' load object Dim load Set load = new Uploader ' inicializando el objeto load.initialize ' Datos binarios del fichero Dim fileData fileData = load.getFileData("file") ' Nombre del fichero Dim fileName fileName = LCase(load.getFileName("file")) ' Path del fichero Dim filePath filePath = load.getFilePath("file") ' Path completo del fichero Dim filePathComplete filePathComplete = load.getFilePathComplete("file") ' Tamano del fichero Dim fileSize fileSize = load.getFileSize("file") ' Tamano traducido del fichero Dim fileSizeTranslated fileSizeTranslated = load.getFileSizeTranslated("file") ' Tipo de fichero Dim contentType contentType = load.getContentType("file") ' No. de elementos del Form Dim countElements countElements = load.Count ' destruimos el objeto Set load = Nothing %> <table border=0 cellpading=0 cellspacing=15 width="100%" height="100%" > <tr> <td width="100%" height="100%" ><%= fileName %> datos recibidos...<br> <% ' Comprobamos que realmente se ha insertado el fichero en la base de datos If fileSize > 0 Then Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" connStr = connStr & Server.MapPath("bromur.mdb") ' Recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "productos", connStr, 2, 2 ' Insertando datos rs.AddNew rs("familia") = request.form("Familia") rs("codigo") = request.form("codigo") rs("foto").AppendChunk fileData rs("nombre_fichero") = fileName rs("tamano_fichero") = fileSize rs("tipo_fichero") = contentType rs("descripcion") = request.form("descripcion") rs("altura") = request.form("altura") rs("diametro") = request.form("diametro") rs("bombillas") = request.form("bombillas") rs("tipo") = request.form("tipo") rs("potencia") = request.form("potencia") rs.Update rs.Close Set rs = Nothing Response.Write "<font color=""green"">El fichero ha sido guardado correctamente..." Response.Write "</font>" Else Response.Write "<font color=""brown"">No has seleccionado ningún fichero para guardar" Response.Write "...</font>" End If If Err.number <> 0 Then Response.Write "<br><font color=""red"">mmm... algo ha ido mal..." Response.Write "</font>" End If %> </td> </tr> <tr><td> <center><a href="addproducts.asp">Volver Insertar Productos</a></center> </td></tr> </table> </td> </tr> <tr > <td bgcolor="#F7F6F4" height="24" align="center" style="-moz-border-radius: .0em .0em 3em 3em; border-left: 1px transparent; border-bottom: 1px transparent; border-right: 1px transparent; border-top: 1px solid #808080; "> <div style='font-size: 9px'> <a style='font-size: 9px' href="http://www.asetel.com" target=_blank>ASETEL</a> © 2004 <a style='font-size: 9px' href="http://www.bromur.com" target=_blank>BROMUR ILUMINACION</a>.</div> </td> </tr> </center> </table></td></tr></table> </body></html>