Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Error al pasar un parámeto a otra página
 Foro Bloqueado  Tema Bloqueado


Autor Temas
marta162
Starting Member

España
12 Posts
Mensajes - 27 Apr 2005 :  13:27:30  Ver Perfil  Enviar Email  Enviar marta162 un Mensaje Yahoo!
Tengo que realizar una importación, para lo cual tengo un formulario en el cual seleccionas un fichero y el valor de una lista desplegable y necesito pasar a otra página el valor del desplegable para poder insertar ese valor junto con los de los ficheros en una tabla. Mi problema es que no consigo pasar el valor del despegable.

En el action del form tengo:
<form name="formulario" method="post" action="ImpSample4E.asp?campanya=<%=request.form("campanyaE")%> enctype="multipart/form-data">

Y en el otro archivo, cuando quiero leer el campo que pasa el formulario tengo: request.form("campanyaE")

Pero entonces en el navegador me da el siguiente error:

Tipo de error:
Objeto Request, ASP 0207 (0x80004005)
No se puede usar la colección Request.Form después de llamar a BinaryRead.

Datos de POST:
error '80020009'
Ocurrió una excepción.

/iisHelp/common/500-100.asp, line 223

Muchas gracias y espero que podais ayudarme

Marta Martín

marta162
Starting Member

España
12 Posts
Posted - 27 Apr 2005 :  15:40:51  Ver perfil  Enviar e-mail  Enviar marta162 un Mensaje Yahoo!e
Ya se que el error se produce porque no se puede utilizar Request.Form porque estoy subiendo un fichero al servidor, pero ¿me podría decir alguien como pasar el dato del formulario?

Marta MartínInicio Pagina

ce
Average Member

España
523 Posts
Posted - 28 Apr 2005 :  09:31:10  Ver perfil  Enviar e-mail  Visit ce's Homepage
En la pagina 2 hago esa misma pregunta que se quedo sin respuesta peeero, vamos por partes, como subes las imagenes al servidor? por aspupload? entonces puedes recuperar en valor del campo usando:
Upload.Form("nombredelcampo")

si eso no te vale avisame que llevo varios dias investigado y hay mas opciones

cesar

Inicio Pagina

marta162
Starting Member

España
12 Posts
Posted - 03 May 2005 :  17:00:06  Ver perfil  Enviar e-mail  Enviar marta162 un Mensaje Yahoo!e
Hola Cesar:

Ante todo muchas gracias.

En realidad yo no subo imágenes al servidor, lo que hago es subir archivos de excel para pasar luego los datos a una tabla de sql server. El objeto que utilizo es el siguiente: NET2DATABASE.AspFileUp.

A continuación te escribo el código que tengo por si te ayuda a entender mi problema.

Ya he probado con upload, pero si no me equivoco para hacer eso tengo que crear un objeto del tipo Persits.Upload.1 y al ejecutar la página me daba error y me decía que necesitaba un componente. Vamos, algo muy raro y como soy nueva en este tampoco pude profundizar mucho.

Saludos.

<%@ Language=VBScript %>
<!--#include file="TOOLS_FILEUP.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>IMPORTACION</title>
</head>

<body bgcolor="#ffffff">

<%

Set Conex1 = Server.CreateObject ("ADODB.Connection")
Conex1.Open "driver={SQL Server};server=BD; database=ROUTER; uid=sa;pwd=shinjo"

Set Obj = Server.CreateObject("NET2DATABASE.AspFileUp")
Obj.Upload
LocalPath = Obj.Filename("Fichero")

'Set Upload = Server.CreateObject("Persits.Upload.1")
'Upload.ProgressID = Request.QueryString("PID")

Filename = ExtractFilename(LocalPath)
ThisFolderPath = GetThisFolderPath()
Path = ThisFolderPath & "documentos\importacionE.csv"
Obj.SaveFile "Fichero", Path

'ANTES DE INICIAR LA IMPORTACION SE ELIMINAN TODOS LOS REGISTROS QUE HAYAN QUEDADO EN PROCESOS ANTERIORES DE IMPORTACION.
sqlBorrado = "DELETE FROM EmpresaNuevo"
Conex1.Execute(sqlBorrado)

sqltablaExistente = "SELECT * FROM Empresa "
set rstablaExistente = conex1.execute(sqltablaExistente)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Dim texto
i=0
numero=0

strNombreArchivo = Path
const Lectura = 1
If FSO.FileExists(strNombreArchivo) then
Set texto = FSO.OpenTextFile(strNombreArchivo, Lectura)
do while not texto.AtEndOfStream
contenido = texto.ReadLine
datos = split(contenido,";")
sqlComp = "SELECT * FROM EmpresaNuevo WHERE TelefonoN = '"&datos(9)&"' AND CIFN = '"&datos(11)&"'"
Set rsComp = Conex1.Execute(sqlComp)
if rsComp.EOF then
sqlinsertarN = "INSERT INTO EmpresaNuevo(sidEmpresa, FechaIComer, TipoViaN, DireccionN, NumeroN, RestoN, MunicipioN, CodigoPostalN, SegmentoN, TelefonoN, NombreN, CIFN, FechaImportacion, duplicado, informe, CNAE) "
sqlinsertarN = sqlinsertarN & " values(0,'"&right(datos(0),10)&"', 7, '"&datos(1)&" "&datos(2)&"', '"&datos(3)&"', '"&datos(4)&" "&datos(5)&"', '"&datos(6)&"', "
sqlinsertarN = sqlinsertarN & " '"&datos(7)&"', '"&datos(8)&"', '"&datos(9)&"', '"&datos(10)&"', '"&datos(11)&"', '"&now()&"',0,0, '"&datos(12)&"')"
On Error Resume Next
conex1.execute(sqlinsertarN)
If Err.Number Then
response.Redirect("controlErrorImportacionE.asp")
End If
end if
numero=numero+1
Loop
texto.close
response.Redirect("importacionPasoIntermedioE.asp")
End If
%>
</body>
</html>


Marta MartínInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar