Foros del Web - Ver Mensaje Individual - No se puede usar la colección Request.Form después de llamar a BinaryRead.

javihb · #1 (**permalink**) 25/11/2004, 13:06

Hola vereis estoy intentando subir unos datos a una db en un servidor y me da el siguiente error
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:

<!--#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>
 &nbsp; <h3>Bromur Administracion</h3>
 </td>
</tr>
<tr>
 <td>
 &nbsp; <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&uacute;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>
&nbsp;
</body></html>

Como podria recoger los datos de los campos que no me deja con el Request.Form???