Problema con formulario

14/08/2004 - 13:34 por zamedia2002 | Informe spam
Tengo un formulario con el siguiente codigo
<FORM NAME="FORM1" METHOD="POST" ACTION="Recepcion.asp"
taget="_blank">
funciona perfectamente el problema es cuando intento
recoger los datos en otra ventana con el siguiente código:
<FORM NAME="FORM1" METHOD="POST" ACTION="Recepcion.asp"
onSubmit="NewWindow()">
la funcion NewWindow() con sus parametros,
Me da el siguiente mensaje de error
ADODB.Recordset error '800a0bb9'
El codigo de la linea de error y anteriores son:

intID=Request.Form("Combo1")

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.ConnectionString="DSN=xxxxxxxxx.org.RZIA"
oConn.Mode=3
oConn.open
If IsNumeric(intID) And intID > 0 Then
SQL="SELECT * FROM Especies WHERE Id="& intID
End If
' Abro el recordset
rs.Open SQL, oConn, 1, 2

MiEspecie=(Rs.Fields.Item("Especie").Value)

rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

Gracias por anticipado
 

Leer las respuestas

#1 Matias Iacono
15/08/2004 - 02:14 | Informe spam
Que contiene la funcion de javascript NEWWINDOW?

El problema esta en que, el abrir una ventana nueva, no necesariamente hara
que pase los parametros.

El error seguramente se debe a que los parametros recogidos en la nueva
ventana con REQUEST.FORM esta en blanco.

Saludos

Matias Iacono
Microsoft MVP
591 70859837
"zamedia2002" wrote in message
news:5d7101c481f2$b257e530$
Tengo un formulario con el siguiente codigo
<FORM NAME="FORM1" METHOD="POST" ACTION="Recepcion.asp"
taget="_blank">
funciona perfectamente el problema es cuando intento
recoger los datos en otra ventana con el siguiente código:
<FORM NAME="FORM1" METHOD="POST" ACTION="Recepcion.asp"
onSubmit="NewWindow()">
la funcion NewWindow() con sus parametros,
Me da el siguiente mensaje de error
ADODB.Recordset error '800a0bb9'
El codigo de la linea de error y anteriores son:

intID=Request.Form("Combo1")

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.ConnectionString="DSN=xxxxxxxxx.org.RZIA"
oConn.Mode=3
oConn.open
If IsNumeric(intID) And intID > 0 Then
SQL="SELECT * FROM Especies WHERE Id="& intID
End If
' Abro el recordset
rs.Open SQL, oConn, 1, 2

MiEspecie=(Rs.Fields.Item("Especie").Value)

rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

Gracias por anticipado

Preguntas similares